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
This commit is contained in:
Tobias Burnus 2010-07-24 18:32:11 +02:00 committed by Tobias Burnus
parent a522de151f
commit 8569c75308
4 changed files with 21 additions and 3 deletions

View File

@ -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.

View File

@ -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;

View File

@ -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 "/=".

View File

@ -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