blob: eec09453babf5557b4d263d19186c4d9e71ca92d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { dg-do compile }
! { dg-options "-fwhole-program --param ggc-min-expand=0 --param ggc-min-heapsize=0" }
!
! PR fortran/45087
!
module INTS
interface
subroutine NEXT
end subroutine NEXT
subroutine VALUE()
end subroutine VALUE
end interface
end module INTS
subroutine NEXT
end subroutine NEXT
subroutine VALUE()
use INTS, only: NEXT
CALL NEXT
end subroutine VALUE
end
|