1* #define KWM c, then KWM works as comment line initiator
2#define KWM c
3KWM   print *, 'pp040.F FAIL HARD!'; stop
4      print *, 'pp040.F pass'
5      end
6