repo.or.cz
/
llvm-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
[flang] Accept polymorphic component element in storage_size
[llvm-project.git]
/
flang
/
test
/
Preprocessing
/
pp036.F
blob
47aefead2f2c850b850bd2d0af0fb301fa8de9f9
1
! RUN: %flang -E %s 2>&1 | FileCheck %s
2
! CHECK: if (.TRUE .) then
3
! CHECK: print *, 'pp036.F no: ', .TRUE .
4
* #define FALSE TRUE ... .FALSE. -> .TRUE.
5
#define FALSE TRUE
6
if (.FALSE.) then
7
print *, 'pp036.F yes'
8
else
9
print *, 'pp036.F no: ', .FALSE.
10
end if
11
end