OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/40011 (Problems with -fwhole-file)

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
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> 2010-07-24 Tobias Burnus <burnus@net-b.de>
* options.c (gfc_init_options): Enable -fwhole-file by default. * options.c (gfc_init_options): Enable -fwhole-file by default.

6
gcc/fortran/parse.c
View File

@ -4414,7 +4414,11 @@ prog_units:
later and all their interfaces resolved. */ later and all their interfaces resolved. */
gfc_current_ns->code = s.head; gfc_current_ns->code = s.head;
if (next) if (next)
next->sibling = gfc_current_ns; {
for (; next->sibling; next = next->sibling)
;
next->sibling = gfc_current_ns;
}
else else
gfc_global_ns_list = gfc_current_ns; gfc_global_ns_list = gfc_current_ns;

8
gcc/testsuite/ChangeLog
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> 2010-07-24 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/entry_13.f90: Use abs() > eps instead of "/=". * gfortran.dg/entry_13.f90: Use abs() > eps instead of "/=".

4
gcc/testsuite/gfortran.dg/integer_exponentiation_3.F90
View File

@ -1,8 +1,8 @@
! { dg-do run { xfail spu-*-* } } ! { dg-do run { xfail spu-*-* } }
! FAILs on SPU because of wrong compile-time rounding mode ! 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 module mod_check
implicit none implicit none