blob: e57ff161d295555500d6ded1e031b8061964029e (
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
25
26
27
28
29
30
31
32
33
34
35
36
|
! This can fail because BB is not resolved correctly.
module M1
INTEGER p
CONTAINS
subroutine AA ()
implicit NONE
p = BB ()
CONTAINS
subroutine AA_1 ()
implicit NONE
integer :: i
i = BB ()
end subroutine
function BB()
integer :: BB
BB = 1
end function
end subroutine
function BB()
implicit NONE
integer :: BB
BB = 2
end function
end module
program P1
USE M1
implicit none
p = 0
call AA ()
if (p /= 1) call abort
end
|