OSDN Git Service

2010-07-26 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / 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