1 ! RUN: %S/test_symbols.sh %s %t %flang_fc1
3 ! Explicit and implicit entities in blocks
5 !DEF: /s1 (Subroutine) Subprogram
7 !DEF: /s1/x ObjectEntity INTEGER(4)
10 !DEF: /s1/Block1/y ObjectEntity INTEGER(4)
18 !DEF: /s1/Block2/y ObjectEntity REAL(4)
25 !DEF: /s2 (Subroutine) Subprogram
29 !DEF: /s2/x (Implicit) ObjectEntity INTEGER(4)
31 !DEF: /s2/y (Implicit) ObjectEntity REAL(4)
35 !DEF: /s2/s (Subroutine) Subprogram
37 !DEF: /s2/s/x (Implicit) HostAssoc INTEGER(4)
39 !DEF: /s2/s/w (Implicit) ObjectEntity INTEGER(4)
44 !DEF: /s3 (Subroutine) Subprogram
46 !DEF: /s3/j ObjectEntity INTEGER(8)
49 !DEF: /s3/Block1/t DerivedType
51 !DEF: /s3/Block1/t/x ObjectEntity REAL(4)
52 !DEF: /s3/Block1/t/ImpliedDos1/ImpliedDos1/i (Implicit) ObjectEntity INTEGER(4)
53 real :: x(10) = [(i
, i
=1,10)]
54 !DEF: /s3/Block1/t/y ObjectEntity REAL(4)
55 !DEF: /s3/Block1/t/ImpliedDos2/ImpliedDos1/j ObjectEntity INTEGER(8)
56 real :: y(10) = [(j
, j
=1,10)]
61 !DEF: /s4 (Subroutine) Subprogram
65 !DEF: /s4/s EXTERNAL (Subroutine) Subprogram
66 !DEF: /s4/s/x (Implicit) ObjectEntity REAL(4)
67 !DEF: /s4/s/y (Implicit) ObjectEntity INTEGER(4)
74 !DEF: /s5 (Subroutine) Subprogram
77 !DEF: /s5/Block1/x (Implicit) ObjectEntity REAL(4)
80 !DEF: /s5/Block1/Block1/x (Implicit) ObjectEntity REAL(4)
84 !DEF: /s5/x (Implicit) ObjectEntity REAL(4)
88 !DEF: /s6 (Subroutine) Subprogram
90 !DEF: /s6/i ObjectEntity INTEGER(4)
91 !DEF: /s6/j ObjectEntity INTEGER(4)
92 !DEF: /s6/k ObjectEntity INTEGER(4)
95 !DEF: /s6/Block1/i ASYNCHRONOUS, VOLATILE HostAssoc INTEGER(4)
97 !DEF: /s6/Block1/j ASYNCHRONOUS HostAssoc INTEGER(4)
101 !DEF: /s6/Block1/k TARGET (Implicit) ObjectEntity INTEGER(4)
108 !DEF: /m7/i PUBLIC ObjectEntity INTEGER(4)
109 !DEF: /m7/j PUBLIC ObjectEntity INTEGER(4)
112 !DEF: /s7 (Subroutine) Subprogram
116 !DEF: /s7/j VOLATILE Use INTEGER(4)