------- 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
