decl.c (gnat_to_gnu_entity): Do not set flags on the DECL node built for a type…

decl.c (gnat_to_gnu_entity): Do not set flags on the DECL node built for a type which has a non-trivial...

	* gcc-interface/decl.c (gnat_to_gnu_entity): Do not set flags on the
	DECL node built for a type which has a non-trivial equivalent type.

From-SVN: r185076

gcc/ada/ChangeLog

 2012-03-07  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/decl.c (gnat_to_gnu_entity): Do not set flags on the
+	DECL node built for a type which has a non-trivial equivalent type.
+
+2012-03-07  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/gigi.h (rest_of_type_decl_compilation): Delete.
 	* gcc-interface/decl.c (defer_finalize_level): Likewise.
 	(defer_finalize_list): Likewise.

gcc/ada/gcc-interface/decl.c

@@ -5061,9 +5061,11 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition)
     }
 
   /* If we really have a ..._DECL node, set a couple of flags on it.  But we
-     cannot do so if we are reusing the ..._DECL node made for an alias or a
-     renamed object as the predicates don't apply to it but to GNAT_ENTITY.  */
+     cannot do so if we are reusing the ..._DECL node made for an equivalent
+     type or an alias or a renamed object as the predicates don't apply to it
+     but to GNAT_ENTITY.  */
   if (DECL_P (gnu_decl)
+      && !(is_type && gnat_equiv_type != gnat_entity)
       && !Present (Alias (gnat_entity))
       && !(Present (Renamed_Object (gnat_entity)) && saved))
     {