91 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12!DEF: /MAIN MainProgram3program MAIN4 !DEF: /MAIN/t1 DerivedType5 type :: t16 !DEF: /MAIN/t1/a1 ObjectEntity INTEGER(4)7 integer :: a18 end type9 !REF: /MAIN/t110 !DEF: /MAIN/t2 DerivedType11 type, extends(t1) :: t212 !DEF: /MAIN/t2/a2 ObjectEntity INTEGER(4)13 integer :: a214 end type15 !REF: /MAIN/t216 !DEF: /MAIN/t3 DerivedType17 type, extends(t2) :: t318 !DEF: /MAIN/t3/a3 ObjectEntity INTEGER(4)19 integer :: a320 end type21 !REF: /MAIN/t322 !DEF: /MAIN/x3 ObjectEntity TYPE(t3)23 type(t3) :: x324 !DEF: /MAIN/i ObjectEntity INTEGER(4)25 integer i26 !REF: /MAIN/i27 !REF: /MAIN/x328 !REF: /MAIN/t2/a229 i = x3%a230 !REF: /MAIN/i31 !REF: /MAIN/x332 !REF: /MAIN/t1/a133 i = x3%a134 !REF: /MAIN/i35 !REF: /MAIN/x336 !DEF: /MAIN/t3/t2 (ParentComp) ObjectEntity TYPE(t2)37 !REF: /MAIN/t2/a238 i = x3%t2%a239 !REF: /MAIN/i40 !REF: /MAIN/x341 !REF: /MAIN/t3/t242 !REF: /MAIN/t1/a143 i = x3%t2%a144 !REF: /MAIN/i45 !REF: /MAIN/x346 !DEF: /MAIN/t2/t1 (ParentComp) ObjectEntity TYPE(t1)47 !REF: /MAIN/t1/a148 i = x3%t1%a149 !REF: /MAIN/i50 !REF: /MAIN/x351 !REF: /MAIN/t3/t252 !REF: /MAIN/t2/t153 !REF: /MAIN/t1/a154 i = x3%t2%t1%a155end program56 57!DEF: /m1 Module58module m159 !DEF: /m1/t1 PUBLIC DerivedType60 type :: t161 !DEF: /m1/t1/t1 ObjectEntity INTEGER(4)62 integer :: t163 end type64end module65 66!DEF: /s1 (Subroutine) Subprogram67subroutine s168 !REF: /m169 !DEF: /s1/t2 Use70 !REF: /m1/t171 use :: m1, only: t2 => t172 !REF: /s1/t273 !DEF: /s1/t3 DerivedType74 type, extends(t2) :: t375 end type76 !REF: /s1/t377 !DEF: /s1/x ObjectEntity TYPE(t3)78 type(t3) :: x79 !DEF: /s1/i ObjectEntity INTEGER(4)80 integer i81 !REF: /s1/i82 !REF: /s1/x83 !REF: /m1/t1/t184 i = x%t185 !REF: /s1/i86 !REF: /s1/x87 !DEF: /s1/t3/t2 (ParentComp) ObjectEntity TYPE(t2)88 !REF: /m1/t1/t189 i = x%t2%t190end subroutine91