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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
! RUN: %S/test_symbols.sh %s %t %flang_fc1
! REQUIRES: shell
! 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
!DEF: /s (Subroutine) Subprogram
subroutine s
!DEF: /s/x ObjectEntity REAL(4)
real x(100, 100)
!DEF: /s/s1 (Subroutine) Subprogram
call s1
contains
!REF: /s/s1
subroutine s1
!DEF: /s/s1/x HostAssoc REAL(4)
print *, x(10, 10)
end subroutine
end subroutine
!DEF: /sb (Subroutine) Subprogram
subroutine sb
!DEF: /sb/x TARGET ObjectEntity REAL(4)
real, target :: x
!DEF: /sb/s1 (Subroutine) Subprogram
call s1
contains
!REF: /sb/s1
subroutine s1
!DEF: /sb/s1/p POINTER ObjectEntity REAL(4)
real, pointer :: p
!REF: /sb/s1/p
!DEF: /sb/s1/x TARGET HostAssoc REAL(4)
p => x
end subroutine
end subroutine
|
