blob: a398d8db40b0dfc300cd4a80d33ba4b36901d24a (
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
|
! RUN: %S/test_symbols.sh %s %t %f18
! Test host association in internal subroutine of main program.
!DEF: /main MainProgram
program main
!DEF: /main/x ObjectEntity INTEGER(4)
integer x
!DEF: /main/s (Subroutine) Subprogram
call s
contains
!REF: /main/s
subroutine s
!DEF: /main/s/y (Implicit) ObjectEntity REAL(4)
!DEF: /main/s/x HostAssoc INTEGER(4)
y = x
contains
!DEF: /main/s/s2 (Subroutine) Subprogram
subroutine s2
!DEF: /main/s/s2/z (Implicit) ObjectEntity REAL(4)
!DEF: /main/s/s2/x HostAssoc INTEGER(4)
z = x
end subroutine
end subroutine
end program
|
GitWeb
