exp_ch6.adb: Omit check for init proc.

2013-04-22  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch6.adb: Omit check for init proc.

From-SVN: r198131

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 35060e714b2596313b616da509d5341d6337f6bd..9a0974618dbf4295b88410bea5801caf334c880e 100644 (file)
--- 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)