1* \ newline allowed in name on KWM definition 2 integer, parameter :: KWMC = 666 3#define KWM\ 4C 777 5 if (KWMC .eq. 777) then 6 print *, 'pp034.F pass' 7 else 8 print *, 'pp034.F FAIL: ', KWMC 9 end if 10 end 11