diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-07-24 18:32:11 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-07-24 18:32:11 +0200 |
| commit | 8569c753080d9f5f00277759207a2671b8f0eff5 (patch) | |
| tree | 3d7f5b35cdd4239d7c914cc2518291d7baba6eb4 /gcc/fortran/parse.c | |
| parent | a522de151f17ef7bfe0f3a117096a4b24d0c1d35 (diff) | |
| download | gcc-8569c753080d9f5f00277759207a2671b8f0eff5.zip gcc-8569c753080d9f5f00277759207a2671b8f0eff5.tar.gz gcc-8569c753080d9f5f00277759207a2671b8f0eff5.tar.bz2 | |
re PR fortran/40011 (Problems with -fwhole-file)
2010-07-24 Tobias Burnus <burnus@net-b.de>
PR fortran/40011
* parse.c (gfc_parse_file): Do not override
gfc_global_ns_list items.
2010-07-24 Tobias Burnus <burnus@net-b.de>
PR fortran/40011
* gfortran.dg/whole_file_21.f90: New.
* gfortran.dg/integer_exponentiation_3.F90: Use
-ffloat-store only for i?86/x86-64 -m32.
From-SVN: r162500
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index a1af026..616fb50 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -4414,7 +4414,11 @@ prog_units: later and all their interfaces resolved. */ gfc_current_ns->code = s.head; if (next) - next->sibling = gfc_current_ns; + { + for (; next->sibling; next = next->sibling) + ; + next->sibling = gfc_current_ns; + } else gfc_global_ns_list = gfc_current_ns; |