* #define directive amid continuations
      integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555
      integer, parameter :: KWMKWM = 333
      integer, parameter :: z = KWM
#define KWM 111
     +KWM+444
      if (z .EQ. 777) then
        print *, 'pass'
      else
        print *, 'FAIL', z
      end if
      end