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

gcc/fortran/ChangeLog

 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.
 	* interface.c (compare_parameter): Assume a Hollerith constant is
 	compatible with all other argument types.

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;
 

gcc/testsuite/ChangeLog

 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 "/=".
 	* gfortran.dg/integer_exponentiation_3.F90: Use -ffloat-store.
 

gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90

 ! { 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