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/pp002.F

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

13 lines
271 B
FortranFixed
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(kwm.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
* #undef
integer, parameter :: KWM = 777
#define KWM 666
#undef KWM
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 *, 'pp002.F 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 *, 'pp002.F 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