[Bug fortran/17675] [Regression w.r.t. g77] Alignment constraints not honored in EQUIVALENCE

[phython at gcc dot gnu dot org]

------- Additional Comments From phython at gcc dot gnu dot org  2004-12-17 20:42 -------
I haven't tested this yet, but perhaps something as simple as
Index: trans-common.c
===================================================================
RCS file: /cvsroot/gcc/gcc/gcc/fortran/trans-common.c,v
retrieving revision 1.18
diff -u -p -r1.18 trans-common.c
--- trans-common.c      16 Sep 2004 16:00:43 -0000      1.18
+++ trans-common.c      17 Dec 2004 20:41:48 -0000
@@ -269,6 +269,9 @@ build_equiv_decl (tree union_type, bool
   TREE_ADDRESSABLE (decl) = 1;
   TREE_USED (decl) = 1;

+  DECL_ALIGN (decl) = BIGGEST_ALIGNMENT;
+  DECL_USER_ALIGN (decl) = 0;
+
   /* The source location has been lost, and doesn't really matter.
      We need to set it to something though.  */
   gfc_set_decl_location (decl, &gfc_current_locus);

 Would fix the problem.

-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17675