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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 68c4b7a0728c1e74d01d9879d80c248d65ccf257..6f654cafa4c8336e69293ef4c34d19cfe61c51be 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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>
 
        * options.c (gfc_init_options): Enable -fwhole-file by default.

diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c
index a1af026465893e596882196fe73c80366471850a..616fb50ec673849269fb6f022f80820400ebc5ed 100644 (file)
--- 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;
 

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a43aee9a3a59956995725275136f1b28ff38a7b8..115f6333d1488e8b6eecfab9a17447abf425c5f0 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,11 @@
+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.
+
 2010-07-24  Tobias Burnus  <burnus@net-b.de>
 
        * gfortran.dg/entry_13.f90: Use abs() > eps instead of "/=".

diff --git a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90 b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
index 9277b7a7ccda86c7a0281a80d2db89a8dee4c462..5c6c5bfe5e6be68ca67eb4a1be794d027a55ce4b 100644 (file)
--- a/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
+++ b/gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
@@ -1,8 +1,8 @@
 ! { dg-do run { xfail spu-*-* } }
 ! FAILs on SPU because of wrong compile-time rounding mode
-! { dg-options "-ffloat-store" }
+! { dg-options "" }
+! { dg-options "-ffloat-store" { target { { i?86-*-* x86_64-*-* } && ilp32 } } } 
 !
-! -ffloat-store needed for x87
 !
 module mod_check
   implicit none