1! KWM call name split across continuation, no leading &, with & ! comment
2 integer, parameter :: KWM = 666
3#define KWM 777
4 integer :: res
5 res = KW& ! comment
6M
7 if (res .eq. 777) then
8 print *, 'pp107.F90 pass'
9 else
10 print *, 'pp107.F90 FAIL: ', res
11 end if
12 end
13