1* \ newline allowed in name on KWM definition
2      integer, parameter :: KWMC = 666
3#define KWM\
4C 777
5      if (KWMC .eq. 777) then
6        print *, 'pp034.F pass'
7      else
8        print *, 'pp034.F FAIL: ', KWMC
9      end if
10      end
11