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