1! RUN: %f18 -E %s 2>&1 | FileCheck %s 2! CHECK: if(kwm2 .eq. 777) then 3! KWM rescan with #undef, proving rescan after expansion 4 integer, parameter :: KWM2 = 777, KWM = 667 5#define KWM2 666 6#define KWM KWM2 7#undef KWM2 8 if (KWM .eq. 777) then 9 print *, 'pp118.F90 yes' 10 else 11 print *, 'pp118.F90 no: ', KWM 12 end if 13 end 14