91 lines · plain
1! REQUIRES: flang-supports-f128-math2! RUN: %python %S/test_symbols.py %s %flang_fc13 !DEF: /MainProgram1/ipdt DerivedType4 !DEF: /MainProgram1/ipdt/k TypeParam INTEGER(4)5 type :: ipdt(k)6 !REF: /MainProgram1/ipdt/k7 integer, kind :: k8 !DEF: /MainProgram1/DerivedType9/k TypeParam INTEGER(4)9 !DEF: /MainProgram1/ipdt/x ObjectEntity INTEGER(int(int(k,kind=4),kind=8))10 integer(kind=k) :: x11 end type ipdt12 !DEF: /MainProgram1/rpdt DerivedType13 !DEF: /MainProgram1/rpdt/k TypeParam INTEGER(4)14 type :: rpdt(k)15 !REF: /MainProgram1/rpdt/k16 integer, kind :: k17 !DEF: /MainProgram1/DerivedType13/k TypeParam INTEGER(4)18 !DEF: /MainProgram1/rpdt/x ObjectEntity REAL(int(int(k,kind=4),kind=8))19 real(kind=k) :: x20 end type rpdt21 !DEF: /MainProgram1/zpdt DerivedType22 !DEF: /MainProgram1/zpdt/k TypeParam INTEGER(4)23 type :: zpdt(k)24 !REF: /MainProgram1/zpdt/k25 integer, kind :: k26 !DEF: /MainProgram1/DerivedType17/k TypeParam INTEGER(4)27 !DEF: /MainProgram1/zpdt/x ObjectEntity COMPLEX(int(int(k,kind=4),kind=8))28 complex(kind=k) :: x29 end type zpdt30 !DEF: /MainProgram1/lpdt DerivedType31 !DEF: /MainProgram1/lpdt/k TypeParam INTEGER(4)32 type :: lpdt(k)33 !REF: /MainProgram1/lpdt/k34 integer, kind :: k35 !DEF: /MainProgram1/DerivedType21/k TypeParam INTEGER(4)36 !DEF: /MainProgram1/lpdt/x ObjectEntity LOGICAL(int(int(k,kind=4),kind=8))37 logical(kind=k) :: x38 end type lpdt39 !REF: /MainProgram1/ipdt40 !DEF: /MainProgram1/i1 ObjectEntity TYPE(ipdt(k=1_4))41 type(ipdt(1)) :: i142 !REF: /MainProgram1/ipdt43 !DEF: /MainProgram1/i2 ObjectEntity TYPE(ipdt(k=2_4))44 type(ipdt(2)) :: i245 !REF: /MainProgram1/ipdt46 !DEF: /MainProgram1/i4 ObjectEntity TYPE(ipdt(k=4_4))47 type(ipdt(4)) :: i448 !REF: /MainProgram1/ipdt49 !DEF: /MainProgram1/i8 ObjectEntity TYPE(ipdt(k=8_4))50 type(ipdt(8)) :: i851 !REF: /MainProgram1/ipdt52 !DEF: /MainProgram1/i16 ObjectEntity TYPE(ipdt(k=16_4))53 type(ipdt(16)) :: i1654 !REF: /MainProgram1/rpdt55 !DEF: /MainProgram1/a2 ObjectEntity TYPE(rpdt(k=2_4))56 type(rpdt(2)) :: a257 !REF: /MainProgram1/rpdt58 !DEF: /MainProgram1/a4 ObjectEntity TYPE(rpdt(k=4_4))59 type(rpdt(4)) :: a460 !REF: /MainProgram1/rpdt61 !DEF: /MainProgram1/a8 ObjectEntity TYPE(rpdt(k=8_4))62 type(rpdt(8)) :: a863 !REF: /MainProgram1/rpdt64 !DEF: /MainProgram1/a16 ObjectEntity TYPE(rpdt(k=16_4))65 type(rpdt(16)) :: a1666 !REF: /MainProgram1/zpdt67 !DEF: /MainProgram1/z2 ObjectEntity TYPE(zpdt(k=2_4))68 type(zpdt(2)) :: z269 !REF: /MainProgram1/zpdt70 !DEF: /MainProgram1/z4 ObjectEntity TYPE(zpdt(k=4_4))71 type(zpdt(4)) :: z472 !REF: /MainProgram1/zpdt73 !DEF: /MainProgram1/z8 ObjectEntity TYPE(zpdt(k=8_4))74 type(zpdt(8)) :: z875 !REF: /MainProgram1/zpdt76 !DEF: /MainProgram1/z16 ObjectEntity TYPE(zpdt(k=16_4))77 type(zpdt(16)) :: z1678 !REF: /MainProgram1/lpdt79 !DEF: /MainProgram1/l1 ObjectEntity TYPE(lpdt(k=1_4))80 type(lpdt(1)) :: l181 !REF: /MainProgram1/lpdt82 !DEF: /MainProgram1/l2 ObjectEntity TYPE(lpdt(k=2_4))83 type(lpdt(2)) :: l284 !REF: /MainProgram1/lpdt85 !DEF: /MainProgram1/l4 ObjectEntity TYPE(lpdt(k=4_4))86 type(lpdt(4)) :: l487 !REF: /MainProgram1/lpdt88 !DEF: /MainProgram1/l8 ObjectEntity TYPE(lpdt(k=8_4))89 type(lpdt(8)) :: l890end program91