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
/
pp019.F
blob
2769e05e3dc9cb523c446afc4e98459fc280c288
1
! RUN: %flang -E %s 2>&1 | FileCheck %s
2
! CHECK: res = ((666)+111)
3
* FLM rescan
4
integer function IFLM(x)
5
integer :: x
6
IFLM = x
7
end function IFLM
8
program main
9
integer, parameter :: KWM = 999
10
#define KWM 111
11
#define IFLM(x) ((x)+KWM)
12
integer :: res
13
res = IFLM(666)
14
if (res .eq. 777) then
15
print *, 'pp019.F yes'
16
else
17
print *, 'pp019.F no: ', res
18
end if
19
end