41 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /MAIN MainProgram3program MAIN4 implicit complex(z)5 !DEF: /MAIN/t DerivedType6 type :: t7 !DEF: /MAIN/t/re ObjectEntity REAL(4)8 real :: re9 !DEF: /MAIN/t/im ObjectEntity REAL(4)10 real :: im11 end type12 !DEF: /MAIN/z1 ObjectEntity COMPLEX(4)13 complex z114 !REF: /MAIN/t15 !DEF: /MAIN/w ObjectEntity TYPE(t)16 type(t) :: w17 !DEF: /MAIN/x ObjectEntity REAL(4)18 !DEF: /MAIN/y ObjectEntity REAL(4)19 real x, y20 !REF: /MAIN/x21 !REF: /MAIN/z122 x = z1%re23 !REF: /MAIN/y24 !REF: /MAIN/z125 y = z1%im26 !DEF: /MAIN/z2 (Implicit) ObjectEntity COMPLEX(4)27 !REF: /MAIN/x28 z2%re = x29 !REF: /MAIN/z230 !REF: /MAIN/y31 z2%im = y32 !REF: /MAIN/x33 !REF: /MAIN/w34 !REF: /MAIN/t/re35 x = w%re36 !REF: /MAIN/y37 !REF: /MAIN/w38 !REF: /MAIN/t/im39 y = w%im40end program41