31 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! Derived type forward reference regression case3 4 !DEF: /MainProgram1/t2 DerivedType5 type :: t26 !DEF: /MainProgram1/t1 DerivedType7 !DEF: /MainProgram1/t2/ptr POINTER ObjectEntity TYPE(t1)8 type(t1), pointer :: ptr9 end type10 !REF: /MainProgram1/t111 type :: t112 !DEF: /MainProgram1/t1/a ObjectEntity REAL(4)13 real :: a14 !REF: /MainProgram1/t215 !DEF: /MainProgram1/t1/p2 POINTER ObjectEntity TYPE(t2)16 type(t2), pointer :: p217 !REF: /MainProgram1/t118 !DEF: /MainProgram1/t1/p1 POINTER ObjectEntity TYPE(t1)19 type(t1), pointer :: p120 end type21 !REF: /MainProgram1/t122 !DEF: /MainProgram1/x1 POINTER ObjectEntity TYPE(t1)23 !DEF: /MainProgram1/x2 POINTER ObjectEntity TYPE(t1)24 type(t1), pointer :: x1, x225 !REF: /MainProgram1/x226 !REF: /MainProgram1/t1/p127 !REF: /MainProgram1/t1/a28 !REF: /MainProgram1/x129 x2%p1%a = x1%a30end program31