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