diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-04 16:41:30 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-04-04 16:41:30 +0000 |
| commit | a9f59e795834e1faf95d90e6359a27772cd55bf3 (patch) | |
| tree | 16a6be0b3367cd91654917ba4f032f220f8dbd6a /gcc/fortran/trans-common.c | |
| parent | 17fbf1b862ec17f9e8df86643baffa2d864878ab (diff) | |
| download | gcc-a9f59e795834e1faf95d90e6359a27772cd55bf3.tar.gz | |
2009-04-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37614
* trans-common.c (translate_common): Do not offset the whole
coomon block.
2009-04-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37614
* gfortran.dg/common_align_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@145541 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-common.c')
| -rw-r--r-- | gcc/fortran/trans-common.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/fortran/trans-common.c b/gcc/fortran/trans-common.c index 92edd208dae..6cf9d5b0979 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); |