diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2010-07-26 11:53:19 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-07-26 11:53:19 +0200 |
| commit | aa622bf19fab077261cd2f714c75b39a4b66ac86 (patch) | |
| tree | 78fd16c496dfc7d725f7124bbff7df884f9045a4 /gcc | |
| parent | 223a9d64453b03941bcd88e479c8047edffadc42 (diff) | |
| download | gcc-aa622bf19fab077261cd2f714c75b39a4b66ac86.zip gcc-aa622bf19fab077261cd2f714c75b39a4b66ac86.tar.gz gcc-aa622bf19fab077261cd2f714c75b39a4b66ac86.tar.bz2 | |
Add file forgotten in commit Rev. 162500
2010-07-24 Tobias Burnus <burnus@net-b.de>
PR fortran/40011
* gfortran.dg/whole_file_21.f90: New.
From-SVN: r162531
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/whole_file_21.f90 | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/whole_file_21.f90 b/gcc/testsuite/gfortran.dg/whole_file_21.f90 new file mode 100644 index 0000000..2bd979d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/whole_file_21.f90 @@ -0,0 +1,27 @@ +! { dg-do link } +! PR fortran/40011 +! +! Contributed by Joost VandeVondele +! +! +! Before no "one" function was generated with -fwhole-file. +! +! +SUBROUTINE one ( ) +END SUBROUTINE one + +SUBROUTINE two ( ) +END SUBROUTINE two + +MODULE mod +CONTAINS + SUBROUTINE three ( ) + CALL two ( ) + END SUBROUTINE three + SUBROUTINE four ( ) + CALL one ( ) + END SUBROUTINE four +END MODULE mod +END + +! { dg-final { cleanup-modules "m" } } |