1* KWM with spaces in name at invocation NOT replaced
2      integer, parameter :: KWM = 777
3#define KWM 666
4      integer :: res
5      res = K W M
6      if (res .eq. 777) then
7        print *, 'pp008.F pass'
8      else
9        print *, 'pp008.F FAIL: ', res
10      end if
11      end
12