projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Imported Upstream version 4.8.1
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gfortran.dg
/
whole_file_26.f90
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