You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

83 lines
2.6 KiB

! RUN: %S/test_symbols.sh %s %t %f18
!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