23 lines · plain
1! RUN: %python %S/test_symbols.py %s %flang_fc12! "Bare" uses of type parameters3 !DEF: /MainProgram1/t1 DerivedType4 !DEF: /MainProgram1/t1/k TypeParam INTEGER(4)5 type :: t1(k)6 !REF: /MainProgram1/t1/k7 integer, kind :: k=6668 !DEF: /MainProgram1/t1/a ObjectEntity REAL(4)9 !REF: /MainProgram1/t1/k10 real :: a(k)11 end type t112 !REF: /MainProgram1/t113 !DEF: /MainProgram1/t2 DerivedType14 type, extends(t1) :: t215 !DEF: /MainProgram1/t2/b ObjectEntity REAL(4)16 !REF: /MainProgram1/t1/k17 real :: b(k)18 !REF: /MainProgram1/t119 !DEF: /MainProgram1/t2/x ObjectEntity TYPE(t1(k=666_4))20 type(t1) :: x21 end type t222end program23