1! RUN: %f18 -E %s 2>&1 | FileCheck %s 2! CHECK: if(777//ccomment.eq.777)then 3! CHECK: print*,'pp031.F no: ',777//ccomment 4* // C++ comment NOT erased from #define 5 integer, parameter :: KWM = 666 6#define KWM 777 // C comment 7 if (KWM .eq. 777) then 8 print *, 'pp031.F FAIL (should not have compiled)' 9 else 10 print *, 'pp031.F no: ', KWM 11 end if 12 end 13