1! RUN: %S/test_symbols.sh %s %t %flang_fc1
2! REQUIRES: shell
3!DEF: /main MainProgram
4program main
5 implicit complex(z)
6 !DEF: /main/t DerivedType
7 type :: t
8  !DEF: /main/t/re ObjectEntity REAL(4)
9  real :: re
10  !DEF: /main/t/im ObjectEntity REAL(4)
11  real :: im
12 end type
13 !DEF: /main/z1 ObjectEntity COMPLEX(4)
14 complex z1
15 !REF: /main/t
16 !DEF: /main/w ObjectEntity TYPE(t)
17 type(t) :: w
18 !DEF: /main/x ObjectEntity REAL(4)
19 !DEF: /main/y ObjectEntity REAL(4)
20 real x, y
21 !REF: /main/x
22 !REF: /main/z1
23 x = z1%re
24 !REF: /main/y
25 !REF: /main/z1
26 y = z1%im
27 !DEF: /main/z2 (Implicit) ObjectEntity COMPLEX(4)
28 !REF: /main/x
29 z2%re = x
30 !REF: /main/z2
31 !REF: /main/y
32 z2%im = y
33 !REF: /main/x
34 !REF: /main/w
35 !REF: /main/t/re
36 x = w%re
37 !REF: /main/y
38 !REF: /main/w
39 !REF: /main/t/im
40 y = w%im
41end program
42