1! RUN: %flang -E %s 2>&1 | FileCheck %s
2! CHECK-NOT: FAIL HARD!
3* #define KWM c, then KWM works as comment line initiator
4#define KWM c
5KWM   print *, 'pp040.F FAIL HARD!'; stop
6      print *, 'pp040.F yes'
7      end
8