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