flang/test/Semantics/kinds01.f90

   1 ! RUN: %python %S/test_symbols.py %s %flang_fc1
   2  !DEF: /MainProgram1/jk1 ObjectEntity INTEGER(1)
   3  integer(kind=1) jk1
   4  !DEF: /MainProgram1/js1 ObjectEntity INTEGER(1)
   5  integer*1 js1
   6  !DEF: /MainProgram1/jk2 ObjectEntity INTEGER(2)
   7  integer(kind=2) jk2
   8  !DEF: /MainProgram1/js2 ObjectEntity INTEGER(2)
   9  integer*2 js2
  10  !DEF: /MainProgram1/jk4 ObjectEntity INTEGER(4)
  11  integer(kind=4) jk4
  12  !DEF: /MainProgram1/js4 ObjectEntity INTEGER(4)
  13  integer*4 js4
  14  !DEF: /MainProgram1/jk8 ObjectEntity INTEGER(8)
  15  integer(kind=8) jk8
  16  !DEF: /MainProgram1/js8 ObjectEntity INTEGER(8)
  17  integer*8 js8
  18  !DEF: /MainProgram1/jk16 ObjectEntity INTEGER(16)
  19  integer(kind=16) jk16
  20  !DEF: /MainProgram1/js16 ObjectEntity INTEGER(16)
  21  integer*16 js16
  22  !DEF: /MainProgram1/ak2 ObjectEntity REAL(2)
  23  real(kind=2) ak2
  24  !DEF: /MainProgram1/as2 ObjectEntity REAL(2)
  25  real*2 as2
  26  !DEF: /MainProgram1/ak4 ObjectEntity REAL(4)
  27  real(kind=4) ak4
  28  !DEF: /MainProgram1/as4 ObjectEntity REAL(4)
  29  real*4 as4
  30  !DEF: /MainProgram1/ak8 ObjectEntity REAL(8)
  31  real(kind=8) ak8
  32  !DEF: /MainProgram1/as8 ObjectEntity REAL(8)
  33  real*8 as8
  34  !DEF: /MainProgram1/dp ObjectEntity REAL(8)
  35  double precision dp
  36  !DEF: /MainProgram1/ak10 ObjectEntity REAL(10)
  37  real(kind=10) ak10
  38  !DEF: /MainProgram1/as10 ObjectEntity REAL(10)
  39  real*10 as10
  40  !DEF: /MainProgram1/ak16 ObjectEntity REAL(16)
  41  real(kind=16) ak16
  42  !DEF: /MainProgram1/as16 ObjectEntity REAL(16)
  43  real*16 as16
  44  !DEF: /MainProgram1/zk2 ObjectEntity COMPLEX(2)
  45  complex(kind=2) zk2
  46  !DEF: /MainProgram1/zs2 ObjectEntity COMPLEX(2)
  47  complex*4 zs2
  48  !DEF: /MainProgram1/zk4 ObjectEntity COMPLEX(4)
  49  complex(kind=4) zk4
  50  !DEF: /MainProgram1/zs4 ObjectEntity COMPLEX(4)
  51  complex*8 zs4
  52  !DEF: /MainProgram1/zk8 ObjectEntity COMPLEX(8)
  53  complex(kind=8) zk8
  54  !DEF: /MainProgram1/zs8 ObjectEntity COMPLEX(8)
  55  complex*16 zs8
  56  !DEF: /MainProgram1/zdp ObjectEntity COMPLEX(8)
  57  double complex zdp
  58  !DEF: /MainProgram1/zk10 ObjectEntity COMPLEX(10)
  59  complex(kind=10) zk10
  60  !DEF: /MainProgram1/zs10 ObjectEntity COMPLEX(10)
  61  complex*20 zs10
  62  !DEF: /MainProgram1/zk16 ObjectEntity COMPLEX(16)
  63  complex(kind=16) zk16
  64  !DEF: /MainProgram1/zs16 ObjectEntity COMPLEX(16)
  65  complex*32 zs16
  66  !DEF: /MainProgram1/lk1 ObjectEntity LOGICAL(1)
  67  logical(kind=1) lk1
  68  !DEF: /MainProgram1/ls1 ObjectEntity LOGICAL(1)
  69  logical*1 ls1
  70  !DEF: /MainProgram1/lk2 ObjectEntity LOGICAL(2)
  71  logical(kind=2) lk2
  72  !DEF: /MainProgram1/ls2 ObjectEntity LOGICAL(2)
  73  logical*2 ls2
  74  !DEF: /MainProgram1/lk4 ObjectEntity LOGICAL(4)
  75  logical(kind=4) lk4
  76  !DEF: /MainProgram1/ls4 ObjectEntity LOGICAL(4)
  77  logical*4 ls4
  78  !DEF: /MainProgram1/lk8 ObjectEntity LOGICAL(8)
  79  logical(kind=8) lk8
  80  !DEF: /MainProgram1/ls8 ObjectEntity LOGICAL(8)
  81  logical*8 ls8
  82 end program