From 1de0ffecde75db3dc66ec8bcd7504fe0481d194e Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Mon, 22 Apr 2013 12:47:36 +0200 Subject: exp_ch6.adb: Omit check for init proc. 2013-04-22 Ed Schonberg * exp_ch6.adb: Omit check for init proc. From-SVN: r198131 --- gcc/ada/exp_ch6.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc') diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 35060e7..9a09746 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -1709,6 +1709,7 @@ package body Exp_Ch6 is if Is_By_Reference_Type (E_Formal) and then Has_Predicates (E_Actual) + and then not Is_Init_Proc (Subp) then if Is_Derived_Type (E_Actual) and then Is_Inherited_Operation_For_Type (Subp, E_Actual) -- cgit v1.1