1* #undef
2      integer, parameter :: KWM = 777
3#define KWM 666
4#undef KWM
5      if (KWM .eq. 777) then
6        print *, 'pp002.F pass'
7      else
8        print *, 'pp002.F FAIL: ', KWM
9      end if
10      end
11