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