From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 505 invoked by alias); 17 Dec 2004 20:42:47 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 485 invoked by uid 48); 17 Dec 2004 20:42:44 -0000 Date: Fri, 17 Dec 2004 20:42:00 -0000 Message-ID: <20041217204244.484.qmail@sourceware.org> From: "phython at gcc dot gnu dot org" To: gcc-bugs@gcc.gnu.org In-Reply-To: <20040926064644.17675.ebotcazou@gcc.gnu.org> References: <20040926064644.17675.ebotcazou@gcc.gnu.org> Reply-To: gcc-bugzilla@gcc.gnu.org Subject: [Bug fortran/17675] [Regression w.r.t. g77] Alignment constraints not honored in EQUIVALENCE X-Bugzilla-Reason: CC X-SW-Source: 2004-12/txt/msg02572.txt.bz2 List-Id: ------- 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