1! REQUIRES: flang-supports-f128-math 2! RUN: %python %S/test_symbols.py %s %flang_fc1 3 !DEF: /MainProgram1/ipdt DerivedType 4 !DEF: /MainProgram1/ipdt/k TypeParam INTEGER(4) 5 type :: ipdt(k) 6 !REF: /MainProgram1/ipdt/k 7 integer, kind :: k 8 !REF: /MainProgram1/ipdt/k 9 !DEF: /MainProgram1/ipdt/x ObjectEntity INTEGER(int(int(k,kind=4),kind=8)) 10 integer(kind=k) :: x 11 end type ipdt 12 !DEF: /MainProgram1/rpdt DerivedType 13 !DEF: /MainProgram1/rpdt/k TypeParam INTEGER(4) 14 type :: rpdt(k) 15 !REF: /MainProgram1/rpdt/k 16 integer, kind :: k 17 !REF: /MainProgram1/rpdt/k 18 !DEF: /MainProgram1/rpdt/x ObjectEntity REAL(int(int(k,kind=4),kind=8)) 19 real(kind=k) :: x 20 end type rpdt 21 !DEF: /MainProgram1/zpdt DerivedType 22 !DEF: /MainProgram1/zpdt/k TypeParam INTEGER(4) 23 type :: zpdt(k) 24 !REF: /MainProgram1/zpdt/k 25 integer, kind :: k 26 !REF: /MainProgram1/zpdt/k 27 !DEF: /MainProgram1/zpdt/x ObjectEntity COMPLEX(int(int(k,kind=4),kind=8)) 28 complex(kind=k) :: x 29 end type zpdt 30 !DEF: /MainProgram1/lpdt DerivedType 31 !DEF: /MainProgram1/lpdt/k TypeParam INTEGER(4) 32 type :: lpdt(k) 33 !REF: /MainProgram1/lpdt/k 34 integer, kind :: k 35 !REF: /MainProgram1/lpdt/k 36 !DEF: /MainProgram1/lpdt/x ObjectEntity LOGICAL(int(int(k,kind=4),kind=8)) 37 logical(kind=k) :: x 38 end type lpdt 39 !REF: /MainProgram1/ipdt 40 !DEF: /MainProgram1/i1 ObjectEntity TYPE(ipdt(k=1_4)) 41 type(ipdt(1)) :: i1 42 !REF: /MainProgram1/ipdt 43 !DEF: /MainProgram1/i2 ObjectEntity TYPE(ipdt(k=2_4)) 44 type(ipdt(2)) :: i2 45 !REF: /MainProgram1/ipdt 46 !DEF: /MainProgram1/i4 ObjectEntity TYPE(ipdt(k=4_4)) 47 type(ipdt(4)) :: i4 48 !REF: /MainProgram1/ipdt 49 !DEF: /MainProgram1/i8 ObjectEntity TYPE(ipdt(k=8_4)) 50 type(ipdt(8)) :: i8 51 !REF: /MainProgram1/ipdt 52 !DEF: /MainProgram1/i16 ObjectEntity TYPE(ipdt(k=16_4)) 53 type(ipdt(16)) :: i16 54 !REF: /MainProgram1/rpdt 55 !DEF: /MainProgram1/a2 ObjectEntity TYPE(rpdt(k=2_4)) 56 type(rpdt(2)) :: a2 57 !REF: /MainProgram1/rpdt 58 !DEF: /MainProgram1/a4 ObjectEntity TYPE(rpdt(k=4_4)) 59 type(rpdt(4)) :: a4 60 !REF: /MainProgram1/rpdt 61 !DEF: /MainProgram1/a8 ObjectEntity TYPE(rpdt(k=8_4)) 62 type(rpdt(8)) :: a8 63 !REF: /MainProgram1/rpdt 64 !DEF: /MainProgram1/a16 ObjectEntity TYPE(rpdt(k=16_4)) 65 type(rpdt(16)) :: a16 66 !REF: /MainProgram1/zpdt 67 !DEF: /MainProgram1/z2 ObjectEntity TYPE(zpdt(k=2_4)) 68 type(zpdt(2)) :: z2 69 !REF: /MainProgram1/zpdt 70 !DEF: /MainProgram1/z4 ObjectEntity TYPE(zpdt(k=4_4)) 71 type(zpdt(4)) :: z4 72 !REF: /MainProgram1/zpdt 73 !DEF: /MainProgram1/z8 ObjectEntity TYPE(zpdt(k=8_4)) 74 type(zpdt(8)) :: z8 75 !REF: /MainProgram1/zpdt 76 !DEF: /MainProgram1/z16 ObjectEntity TYPE(zpdt(k=16_4)) 77 type(zpdt(16)) :: z16 78 !REF: /MainProgram1/lpdt 79 !DEF: /MainProgram1/l1 ObjectEntity TYPE(lpdt(k=1_4)) 80 type(lpdt(1)) :: l1 81 !REF: /MainProgram1/lpdt 82 !DEF: /MainProgram1/l2 ObjectEntity TYPE(lpdt(k=2_4)) 83 type(lpdt(2)) :: l2 84 !REF: /MainProgram1/lpdt 85 !DEF: /MainProgram1/l4 ObjectEntity TYPE(lpdt(k=4_4)) 86 type(lpdt(4)) :: l4 87 !REF: /MainProgram1/lpdt 88 !DEF: /MainProgram1/l8 ObjectEntity TYPE(lpdt(k=8_4)) 89 type(lpdt(8)) :: l8 90end program 91