1* KWM NOT expanded in "literal" 2#define KWM 666 3 character(len=3) :: ch 4 ch = "KWM" 5 if (ch .eq. 'KWM') then 6 print *, 'pp022.F pass' 7 else 8 print *, 'pp022.F FAIL: ', ch 9 end if 10 end 11