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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
! RUN: %S/test_symbols.sh %s %t %f18
! Explicit and implicit entities in blocks
!DEF: /s1 (Subroutine) Subprogram
subroutine s1
!DEF: /s1/x ObjectEntity INTEGER(4)
integer x
block
!DEF: /s1/Block1/y ObjectEntity INTEGER(4)
integer y
!REF: /s1/x
x = 1
!REF: /s1/Block1/y
y = 2.0
end block
block
!DEF: /s1/Block2/y ObjectEntity REAL(4)
real y
!REF: /s1/Block2/y
y = 3.0
end block
end subroutine
!DEF: /s2 (Subroutine) Subprogram
subroutine s2
implicit integer(w-x)
block
!DEF: /s2/x (Implicit) ObjectEntity INTEGER(4)
x = 1
!DEF: /s2/y (Implicit) ObjectEntity REAL(4)
y = 2
end block
contains
!DEF: /s2/s (Subroutine) Subprogram
subroutine s
!REF: /s2/x
x = 1
!DEF: /s2/s/w (Implicit) ObjectEntity INTEGER(4)
w = 1
end subroutine
end subroutine
!DEF: /s3 (Subroutine) Subprogram
subroutine s3
!DEF: /s3/j ObjectEntity INTEGER(8)
integer(kind=8) j
block
!DEF: /s3/Block1/t DerivedType
type :: t
!DEF: /s3/Block1/t/x ObjectEntity REAL(4)
!DEF: /s3/Block1/t/ImpliedDos1/i (Implicit) ObjectEntity INTEGER(4)
real :: x(10) = [(i, i=1,10)]
!DEF: /s3/Block1/t/y ObjectEntity REAL(4)
!DEF: /s3/Block1/t/ImpliedDos2/j ObjectEntity INTEGER(8)
real :: y(10) = [(j, j=1,10)]
end type
end block
end subroutine
!DEF: /s4 (Subroutine) Subprogram
subroutine s4
implicit integer(x)
interface
!DEF: /s4/s EXTERNAL (Subroutine) Subprogram
!DEF: /s4/s/x (Implicit) ObjectEntity REAL(4)
!DEF: /s4/s/y (Implicit) ObjectEntity INTEGER(4)
subroutine s (x, y)
implicit integer(y)
end subroutine
end interface
end subroutine
!DEF: /s5 (Subroutine) Subprogram
subroutine s5
block
!DEF: /s5/Block1/x (Implicit) ObjectEntity REAL(4)
dimension :: x(2)
block
!DEF: /s5/Block1/Block1/x (Implicit) ObjectEntity REAL(4)
dimension :: x(3)
end block
end block
!DEF: /s5/x (Implicit) ObjectEntity REAL(4)
x = 1.0
end subroutine
!DEF: /s6 (Subroutine) Subprogram
subroutine s6
!DEF: /s6/i ObjectEntity INTEGER(4)
!DEF: /s6/j ObjectEntity INTEGER(4)
!DEF: /s6/k ObjectEntity INTEGER(4)
integer i, j, k
block
!DEF: /s6/Block1/i ASYNCHRONOUS, VOLATILE HostAssoc INTEGER(4)
volatile :: i
!DEF: /s6/Block1/j ASYNCHRONOUS HostAssoc INTEGER(4)
asynchronous :: j
!REF: /s6/Block1/i
asynchronous :: i
!DEF: /s6/Block1/k TARGET (Implicit) ObjectEntity INTEGER(4)
target :: k
end block
end subroutine
!DEF: /m7 Module
module m7
!DEF: /m7/i PUBLIC ObjectEntity INTEGER(4)
!DEF: /m7/j PUBLIC ObjectEntity INTEGER(4)
integer i, j
end module
!DEF: /s7 (Subroutine) Subprogram
subroutine s7
!REF: /m7
use :: m7
!DEF: /s7/j VOLATILE Use INTEGER(4)
volatile :: j
end subroutine
|
