forked from OSchip/llvm-project
83 lines
2.7 KiB
Fortran
83 lines
2.7 KiB
Fortran
! RUN: %python %S/test_symbols.py %s %flang_fc1
|
|
!DEF: /MainProgram1/jk1 ObjectEntity INTEGER(1)
|
|
integer(kind=1) jk1
|
|
!DEF: /MainProgram1/js1 ObjectEntity INTEGER(1)
|
|
integer*1 js1
|
|
!DEF: /MainProgram1/jk2 ObjectEntity INTEGER(2)
|
|
integer(kind=2) jk2
|
|
!DEF: /MainProgram1/js2 ObjectEntity INTEGER(2)
|
|
integer*2 js2
|
|
!DEF: /MainProgram1/jk4 ObjectEntity INTEGER(4)
|
|
integer(kind=4) jk4
|
|
!DEF: /MainProgram1/js4 ObjectEntity INTEGER(4)
|
|
integer*4 js4
|
|
!DEF: /MainProgram1/jk8 ObjectEntity INTEGER(8)
|
|
integer(kind=8) jk8
|
|
!DEF: /MainProgram1/js8 ObjectEntity INTEGER(8)
|
|
integer*8 js8
|
|
!DEF: /MainProgram1/jk16 ObjectEntity INTEGER(16)
|
|
integer(kind=16) jk16
|
|
!DEF: /MainProgram1/js16 ObjectEntity INTEGER(16)
|
|
integer*16 js16
|
|
!DEF: /MainProgram1/ak2 ObjectEntity REAL(2)
|
|
real(kind=2) ak2
|
|
!DEF: /MainProgram1/as2 ObjectEntity REAL(2)
|
|
real*2 as2
|
|
!DEF: /MainProgram1/ak4 ObjectEntity REAL(4)
|
|
real(kind=4) ak4
|
|
!DEF: /MainProgram1/as4 ObjectEntity REAL(4)
|
|
real*4 as4
|
|
!DEF: /MainProgram1/ak8 ObjectEntity REAL(8)
|
|
real(kind=8) ak8
|
|
!DEF: /MainProgram1/as8 ObjectEntity REAL(8)
|
|
real*8 as8
|
|
!DEF: /MainProgram1/dp ObjectEntity REAL(8)
|
|
double precision dp
|
|
!DEF: /MainProgram1/ak10 ObjectEntity REAL(10)
|
|
real(kind=10) ak10
|
|
!DEF: /MainProgram1/as10 ObjectEntity REAL(10)
|
|
real*10 as10
|
|
!DEF: /MainProgram1/ak16 ObjectEntity REAL(16)
|
|
real(kind=16) ak16
|
|
!DEF: /MainProgram1/as16 ObjectEntity REAL(16)
|
|
real*16 as16
|
|
!DEF: /MainProgram1/zk2 ObjectEntity COMPLEX(2)
|
|
complex(kind=2) zk2
|
|
!DEF: /MainProgram1/zs2 ObjectEntity COMPLEX(2)
|
|
complex*4 zs2
|
|
!DEF: /MainProgram1/zk4 ObjectEntity COMPLEX(4)
|
|
complex(kind=4) zk4
|
|
!DEF: /MainProgram1/zs4 ObjectEntity COMPLEX(4)
|
|
complex*8 zs4
|
|
!DEF: /MainProgram1/zk8 ObjectEntity COMPLEX(8)
|
|
complex(kind=8) zk8
|
|
!DEF: /MainProgram1/zs8 ObjectEntity COMPLEX(8)
|
|
complex*16 zs8
|
|
!DEF: /MainProgram1/zdp ObjectEntity COMPLEX(8)
|
|
double complex zdp
|
|
!DEF: /MainProgram1/zk10 ObjectEntity COMPLEX(10)
|
|
complex(kind=10) zk10
|
|
!DEF: /MainProgram1/zs10 ObjectEntity COMPLEX(10)
|
|
complex*20 zs10
|
|
!DEF: /MainProgram1/zk16 ObjectEntity COMPLEX(16)
|
|
complex(kind=16) zk16
|
|
!DEF: /MainProgram1/zs16 ObjectEntity COMPLEX(16)
|
|
complex*32 zs16
|
|
!DEF: /MainProgram1/lk1 ObjectEntity LOGICAL(1)
|
|
logical(kind=1) lk1
|
|
!DEF: /MainProgram1/ls1 ObjectEntity LOGICAL(1)
|
|
logical*1 ls1
|
|
!DEF: /MainProgram1/lk2 ObjectEntity LOGICAL(2)
|
|
logical(kind=2) lk2
|
|
!DEF: /MainProgram1/ls2 ObjectEntity LOGICAL(2)
|
|
logical*2 ls2
|
|
!DEF: /MainProgram1/lk4 ObjectEntity LOGICAL(4)
|
|
logical(kind=4) lk4
|
|
!DEF: /MainProgram1/ls4 ObjectEntity LOGICAL(4)
|
|
logical*4 ls4
|
|
!DEF: /MainProgram1/lk8 ObjectEntity LOGICAL(8)
|
|
logical(kind=8) lk8
|
|
!DEF: /MainProgram1/ls8 ObjectEntity LOGICAL(8)
|
|
logical*8 ls8
|
|
end program
|