1! RUN: %f18 -E %s 2>&1 | FileCheck %s 2! CHECK: res=kw 3* fixed-form clipping done before KWM expansion on source line 4 integer, parameter :: KW = 777 5#define KWM 666 6 integer :: res 7* 'M' is in column 73 8* 1 2 3 4 5 6 7 9*234567890123456789012345678901234567890123456789012345678901234567890123 10 res = KWM 11 if (res .eq. 777) then 12 print *, 'pp028.F yes' 13 else 14 print *, 'pp028.F no: ', res 15 end if 16 end 17