11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*3338ef93Speter klausler! CHECK: if (777 // C comment.eq. 777) then 3*3338ef93Speter klausler! CHECK: print *, 'pp031.F no: ', 777 // C comment 464ab3302SCarolineConcatto* // C++ comment NOT erased from #define 564ab3302SCarolineConcatto integer, parameter :: KWM = 666 664ab3302SCarolineConcatto#define KWM 777 // C comment 764ab3302SCarolineConcatto if (KWM .eq. 777) then 864ab3302SCarolineConcatto print *, 'pp031.F FAIL (should not have compiled)' 964ab3302SCarolineConcatto else 10089adc33Speter klausler print *, 'pp031.F no: ', KWM 1164ab3302SCarolineConcatto end if 1264ab3302SCarolineConcatto end 13