blob: c0793fb5b01c5e4853126e5a65b2d89ca6d0a37a [file] [log] [blame]
! Program to check resolution of symbols with the same name
program contained2
implicit none
integer var1
var1 = 42
if (f1() .ne. 1) STOP 1
call f2()
if (var1 .ne. 42) STOP 2
function f1 ()
implicit none
integer f1
integer var1
integer f2
var1 = 1
f2 = var1
f1 = f2
end function
subroutine f2()
implicit none
if (f1() .ne. 1) STOP 3
end subroutine
end program