1* KWM expansion is before token pasting due to fixed-form space removal
2 integer, parameter :: IKWM2Z = 777
3#define KWM KWM2
4 integer :: res
5 res = I KWM Z
6 if (res .eq. 777) then
7 print *, 'pp025.F pass'
8 else
9 print *, 'pp025.F FAIL: ', res
10 end if
11 end
12