gcc/testsuite/gfortran.dg/whole_file_19.f90

   1 ! { dg-do compile }
   2 ! Test the fix for pr40011 comment #42, in which the subroutine
   3 ! would just get lost with -fwhole-file.
   4 !
   5 ! Contributed by Joost VandeVandole <jv244@cam.ac.uk>
   6 !
   7 SUBROUTINE c()
   8  CALL a()
   9 END SUBROUTINE c
  10
  11 SUBROUTINE a()
  12 END SUBROUTINE a
  13
  14 MODULE M
  15 CONTAINS
  16  SUBROUTINE b()
  17    CALL c()
  18  END SUBROUTINE
  19 END MODULE
  20
  21 USE M
  22 CALL b()
  23 END