utils2.c (gnat_rewrite_reference): New case identical to FLOAT_EXPR.

	* gcc-interface/utils2.c (gnat_rewrite_reference) <REALPART_EXPR>: New
	case identical to FLOAT_EXPR.
	<IMAGPART_EXPR>: Likewise.

From-SVN: r231861

gcc/ada/ChangeLog

 2015-12-20  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/utils2.c (gnat_rewrite_reference) <REALPART_EXPR>: New
+	case identical to FLOAT_EXPR.
+	<IMAGPART_EXPR>: Likewise.
+
+2015-12-20  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/decl.c (gnat_to_gnu_entity) <E_Record_Type>: During
 	layout in type_annotate_only mode, skip discriminants of derived
 	tagged types renaming those of the parent type.

gcc/ada/gcc-interface/utils2.c

@@ -2664,6 +2664,8 @@ gnat_rewrite_reference (tree ref, rewrite_fn func, void *data, tree *init)
     CASE_CONVERT:
     case FLOAT_EXPR:
     case FIX_TRUNC_EXPR:
+    case REALPART_EXPR:
+    case IMAGPART_EXPR:
     case VIEW_CONVERT_EXPR:
       result
 	= build1 (code, type,

gcc/testsuite/ChangeLog

+2015-12-20  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/complex1.adb: New test.
+	* gnat.dg/complex1_pkg.ads: New helper.
+
 2015-12-19  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc.target/sparc/20151219-1.c: New test.

gcc/testsuite/gnat.dg/complex1.adb

+-- { dg-do compile }
+
+with Ada.Numerics.Complex_types; use Ada.Numerics.Complex_types;
+with Complex1_Pkg; use Complex1_Pkg;
+
+procedure Complex1 is
+  Z : Complex;
+begin
+  Coord (Z.Re, Z.Im);
+end;

gcc/testsuite/gnat.dg/complex1_pkg.ads

+package Complex1_Pkg is
+
+  procedure Coord (x,y : out Float);
+
+end Complex1_Pkg;