gcc/testsuite/gfortran.dg/whole_file_22.f90

   1 ! { dg-do link }
   2 ! { dg-options "-fwhole-program -O3 -g" }
   3 !
   4 ! PR fortran/40873
   5 !
   6       program prog
   7         call one()
   8         call two()
   9         call test()
  10       end program prog
  11       subroutine one()
  12         call three()
  13       end subroutine one
  14       subroutine two()
  15         call three()
  16       end subroutine two
  17       subroutine three()
  18       end subroutine three
  19
  20 SUBROUTINE c()
  21  CALL a()
  22 END SUBROUTINE c
  23
  24 SUBROUTINE a()
  25 END SUBROUTINE a
  26
  27 MODULE M
  28 CONTAINS
  29  SUBROUTINE b()
  30    CALL c()
  31  END SUBROUTINE
  32 END MODULE
  33
  34 subroutine test()
  35 USE M
  36 CALL b()
  37 END
  38