pp106.F90 268 Bytes Raw Blame History Permalink 1 2 3 4 5 6 7 8 9 10 11 12 ! ditto, with & ! comment integer, parameter :: KWM = 666 #define KWM 777 integer :: res res = KW& ! comment &M if (res .eq. 777) then print *, 'pp106.F90 pass' else print *, 'pp106.F90 FAIL: ', res end if end