utils.c (gnat_types_compatible_p): Don't require strict equality for the…

utils.c (gnat_types_compatible_p): Don't require strict equality for the component type of array types.

	* gcc-interface/utils.c (gnat_types_compatible_p): Don't require strict
	equality for the component type of array types.

From-SVN: r162424

gcc/ada/ChangeLog

+2010-07-22  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gcc-interface/utils.c (gnat_types_compatible_p): Don't require strict
+	equality for the component type of array types.
+
 2010-07-15  Nathan Froyd  <froydnj@codesourcery.com>
 
 	* gcc-interface/decl.c: Carefully replace TREE_CHAIN with DECL_CHAIN.
@@ -7,10 +12,10 @@
 
 2010-07-13  Laurent GUERBY  <laurent@guerby.net>
 
-        PR bootstrap/44458
-        * gcc-interface/targtyps.c: Include tm_p.h.
-        * gcc-interface/Make-lang.in: Update dependencies.
-	
+	PR bootstrap/44458
+	* gcc-interface/targtyps.c: Include tm_p.h.
+	* gcc-interface/Make-lang.in: Update dependencies.
+
 2010-07-09  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc-interface/trans.c (gnat_gimplify_expr) <ADDR_EXPR>: Deal with

gcc/ada/gcc-interface/utils.c

@@ -2080,17 +2080,17 @@ gnat_types_compatible_p (tree t1, tree t2)
       && TYPE_PRECISION (TREE_TYPE (t1)) == TYPE_PRECISION (TREE_TYPE (t2)))
     return 1;
 
-  /* Array types are also compatible if they are constrained and have
-     the same component type and the same domain.  */
+  /* Array types are also compatible if they are constrained and have the same
+     domain and compatible component types.  */
   if (code == ARRAY_TYPE
-      && TREE_TYPE (t1) == TREE_TYPE (t2)
       && (TYPE_DOMAIN (t1) == TYPE_DOMAIN (t2)
 	  || (TYPE_DOMAIN (t1)
 	      && TYPE_DOMAIN (t2)
 	      && tree_int_cst_equal (TYPE_MIN_VALUE (TYPE_DOMAIN (t1)),
 				     TYPE_MIN_VALUE (TYPE_DOMAIN (t2)))
 	      && tree_int_cst_equal (TYPE_MAX_VALUE (TYPE_DOMAIN (t1)),
-				     TYPE_MAX_VALUE (TYPE_DOMAIN (t2))))))
+				     TYPE_MAX_VALUE (TYPE_DOMAIN (t2)))))
+      && gnat_types_compatible_p (TREE_TYPE (t1), TREE_TYPE (t2)))
     return 1;
 
   /* Padding record types are also compatible if they pad the same

gcc/testsuite/ChangeLog

+2010-07-22  Eric Botcazou  <ebotcazou@adacore.com>
+
+	* gnat.dg/aggr15.ad[sb]: New test.
+
 2010-07-22  Dodji Seketeli  <dodji@redhat.com>
 
 	PR debug/45024

gcc/testsuite/gnat.dg/aggr15.adb

+-- { dg-do compile }
+-- { dg-options "-gnatws" }
+
+package body Aggr15 is
+
+  function CREATE return DATA_T is
+    D : DATA_T;
+  begin
+    return D;
+  end;
+
+  function ALL_CREATE return ALL_DATA_T is
+    C : constant ALL_DATA_T := (others => (others => Create));
+  begin
+    return C;
+  end;
+
+end Aggr15;

gcc/testsuite/gnat.dg/aggr15.ads

+package Aggr15 is
+
+  type T is tagged record
+    I : Integer;
+  end record;
+
+  type DATA_T is record
+    D : T;
+  end record;
+
+  type ALL_DATA_T is array (1..2, 1..2) of DATA_T;
+
+  function ALL_CREATE return ALL_DATA_T;
+
+end Aggr15;