1* KWM split across continuation, clipped after column 72 2 integer, parameter :: KWM = 666 3#define KWM 777 4 integer :: res 5* 'comment' is in column 73 6* 1 2 3 4 5 6 7 7*234567890123456789012345678901234567890123456789012345678901234567890123 8 res = KW comment 9 +M 10 if (res .eq. 777) then 11 print *, 'pp007.F pass' 12 else 13 print *, 'pp007.F FAIL: ', res 14 end if 15 end 16