blob: c324fb60b3b0a53aa7f2ada0470e9e73f4282c84 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if (777 .eq. 777) then
! CHECK: print *, 'pp035.F no: ', 777
* #if 2 .LT. 3 works
integer, parameter :: KWM = 666
#if 2 .LT. 3
#define KWM 777
#else
#define KWM 667
#endif
if (KWM .eq. 777) then
print *, 'pp035.F yes'
else
print *, 'pp035.F no: ', KWM
end if
end
|
