1* #define directive amid continuations
2 integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555
3 integer, parameter :: KWMKWM = 333
4 integer, parameter :: z = KWM
5#define KWM 111
6 +KWM+444
7 if (z .EQ. 777) then
8 print *, 'pass'
9 else
10 print *, 'FAIL', z
11 end if
12 end
13