blob: 59e901ac3c6b636871e605bf263611664344c3e7 [file] [log] [blame]
* #define KWM c, then KWM works as comment line initiator
#define KWM c
KWM print *, 'pp040.F FAIL HARD!'; stop
print *, 'pp040.F pass'
end