| ! 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 | |
| contains | |
| 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 |