From aa622bf19fab077261cd2f714c75b39a4b66ac86 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 26 Jul 2010 11:53:19 +0200 Subject: [PATCH] Add file forgotten in commit Rev. 162500 2010-07-24 Tobias Burnus PR fortran/40011 * gfortran.dg/whole_file_21.f90: New. From-SVN: r162531 --- gcc/testsuite/gfortran.dg/whole_file_21.f90 | 27 +++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/whole_file_21.f90 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 000000000000..2bd979dd40bb --- /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" } } -- 2.47.2