From: ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 20 Dec 2015 10:38:09 +0000 (+0000)
Subject: 	* gcc-interface/utils2.c (gnat_rewrite_reference) <REALPART_EXPR>: New
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=deddd773c7eb228a5e0813c0a4345d52de79853e;p=thirdparty%2Fgcc.git

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


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@231861 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 1a97c932ce58..7226214dec51 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+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
diff --git a/gcc/ada/gcc-interface/utils2.c b/gcc/ada/gcc-interface/utils2.c
index 8af121e73978..feed1cb0175a 100644
--- a/gcc/ada/gcc-interface/utils2.c
+++ b/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,
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index b1c48334d774..6a3e04488335 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/gcc/testsuite/gnat.dg/complex1.adb b/gcc/testsuite/gnat.dg/complex1.adb
new file mode 100644
index 000000000000..f6b1d2cd5950
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/complex1.adb
@@ -0,0 +1,10 @@
+-- { 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;
diff --git a/gcc/testsuite/gnat.dg/complex1_pkg.ads b/gcc/testsuite/gnat.dg/complex1_pkg.ads
new file mode 100644
index 000000000000..7d6e03564f0b
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/complex1_pkg.ads
@@ -0,0 +1,5 @@
+package Complex1_Pkg is
+
+  procedure Coord (x,y : out Float);
+
+end Complex1_Pkg;