maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Preprocessing/pp125.F90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

12 lines
287 B
Fortran
Raw Normal View History

[flang] Make preprocessing behavior tests runnable as regression tests And fix a minor bug exposed by doing so. Differential Revision: https://reviews.llvm.org/D85164
2020-08-04 01:50:42 +08:00
! RUN: %f18 -E %s 2>&1 | FileCheck %s
! CHECK: if(777 .eq. 777) then
[flang] Import preprocessing tests Original-commit: flang-compiler/f18@7ef7029604fa62c33d47ef0d710403b9f2aae670 Reviewed-on: https://github.com/flang-compiler/f18/pull/777
2019-10-05 06:21:31 +08:00
! #DEFINE works in free form
integer, parameter :: KWM = 666
#DEFINE KWM 777
if (KWM .eq. 777) then
[flang] Make preprocessing behavior tests runnable as regression tests And fix a minor bug exposed by doing so. Differential Revision: https://reviews.llvm.org/D85164
2020-08-04 01:50:42 +08:00
print *, 'pp125.F90 yes'
[flang] Import preprocessing tests Original-commit: flang-compiler/f18@7ef7029604fa62c33d47ef0d710403b9f2aae670 Reviewed-on: https://github.com/flang-compiler/f18/pull/777
2019-10-05 06:21:31 +08:00
else
[flang] Make preprocessing behavior tests runnable as regression tests And fix a minor bug exposed by doing so. Differential Revision: https://reviews.llvm.org/D85164
2020-08-04 01:50:42 +08:00
print *, 'pp125.F90 no: ', KWM
[flang] Import preprocessing tests Original-commit: flang-compiler/f18@7ef7029604fa62c33d47ef0d710403b9f2aae670 Reviewed-on: https://github.com/flang-compiler/f18/pull/777
2019-10-05 06:21:31 +08:00
end if
end