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
2014-04-15 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
whole_file_26.f90
blob
eec09453babf5557b4d263d19186c4d9e71ca92d
1
! { dg-do compile }
2
! { dg-options "-fwhole-program --param ggc-min-expand=0 --param ggc-min-heapsize=0" }
3
!
4
! PR fortran/45087
5
!
6
7
module
INTS
8
interface
9
subroutine
NEXT
10
end subroutine
NEXT
11
subroutine
VALUE
()
12
end subroutine
VALUE
13
end interface
14
end module
INTS
15
16
subroutine
NEXT
17
end subroutine
NEXT
18
19
subroutine
VALUE
()
20
use
INTS
,
only
:
NEXT
21
CALL
NEXT
22
end subroutine
VALUE
23
24
end