1*1c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2089adc33Speter klausler! CHECK-NOT: FAIL HARD! 364ab3302SCarolineConcatto* #define KWM c, then KWM works as comment line initiator 464ab3302SCarolineConcatto#define KWM c 564ab3302SCarolineConcattoKWM print *, 'pp040.F FAIL HARD!'; stop 6089adc33Speter klausler print *, 'pp040.F yes' 764ab3302SCarolineConcatto end 8