1* ditto, but with intervening *comment line
2 integer, parameter :: KWM = 666
3#define KWM 777
4 integer :: res
5 res = KW
6*comment
7 +M
8 if (res .eq. 777) then
9 print *, 'pp006.F pass'
10 else
11 print *, 'pp006.F FAIL: ', res
12 end if
13 end
14