summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.fortran-torture/execute/contained2.f90
blob: cae94b704e1a5c97353615762e8a9aa56544dcdf (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
! Program to check resolution of symbols with the same name
program contained2
   implicit none
   integer var1
   
   var1 = 42
   if (f1() .ne. 1) call abort
   call f2()
   if (var1 .ne. 42) call abort
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) call abort
end subroutine

end program