1! RUN: %f18 -E %s 2>&1 | FileCheck %s 2! CHECK: if(kwm.eq.777)then 3* KWMs case-sensitive 4 integer, parameter :: KWM = 777 5#define KWM 666 6 if (kwm .eq. 777) then 7 print *, 'pp004.F yes' 8 else 9 print *, 'pp004.F no: ', kwm 10 end if 11 end 12