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