flang/test/Semantics/kinds03.f90

   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
  90 end program