From 6f85546f7c47327ca9f4599ea4c11180df915967 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sat, 4 Apr 2009 16:41:30 +0000 Subject: re PR fortran/37614 (Change position of padding for aligned COMMONs) 2009-04-04 Paul Thomas PR fortran/37614 * trans-common.c (translate_common): Do not offset the whole coomon block. 2009-04-04 Paul Thomas PR fortran/37614 * gfortran.dg/common_align_2.f90: New test. From-SVN: r145541 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-common.c | 5 ----- 2 files changed, 6 insertions(+), 5 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f629bf2..2f611ff 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2009-04-04 Paul Thomas + + PR fortran/37614 + * trans-common.c (translate_common): Do not offset the whole + coomon block. + 2009-04-03 Tobias Burnus PR fortran/39594 diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index 92edd20..6cf9d5b 100644 --- a/gcc/fortran/trans-common.c +++ b/gcc/fortran/trans-common.c @@ -1124,11 +1124,6 @@ translate_common (gfc_common_head *common, gfc_symbol *var_list) s->sym->name, &common->where); } } - else - { - /* Offset the whole common block. */ - apply_segment_offset (common_segment, offset); - } /* Apply the offset to the new segments. */ apply_segment_offset (current_segment, offset); -- cgit v1.1