gcc/testsuite/gfortran.dg/whole_file_21.f90

   1 ! { dg-do link }
   2 ! PR fortran/40011
   3 !
   4 ! Contributed by Joost VandeVondele
   5 !
   6 !
   7 ! Before no "one" function was generated with -fwhole-file.
   8 !
   9 !
  10 SUBROUTINE one ( )
  11 END SUBROUTINE one
  12
  13 SUBROUTINE two ( )
  14 END SUBROUTINE two
  15
  16 MODULE mod
  17 CONTAINS
  18   SUBROUTINE three ( )
  19     CALL two ( )
  20   END SUBROUTINE three
  21   SUBROUTINE four ( )
  22       CALL one ( )
  23   END SUBROUTINE four
  24 END MODULE mod
  25 END
  26
  27 ! { dg-final { cleanup-modules "m" } }