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