17 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: if (777 .eq. 777) then3! CHECK: print *, 'pp035.F no: ', 7774* #if 2 .LT. 3 works5 integer, parameter :: KWM = 6666#if 2 .LT. 37#define KWM 7778#else9#define KWM 66710#endif11 if (KWM .eq. 777) then12 print *, 'pp035.F yes'13 else14 print *, 'pp035.F no: ', KWM15 end if16 end17