repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* intrinsic.c: Add EXECUTE_COMMAND_LINE intrinsic.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
whole_file_22.f90
blob
4e229207ccdda13681f2e0b0ebaa7a6e9dc6d81b
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