99aa87a5b5
There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634
83 lines
2.6 KiB
Fortran
83 lines
2.6 KiB
Fortran
! 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
|