1*f706411fSPeter Klausler! RUN: %flang -E %s 2>&1 | FileCheck %s 2*f706411fSPeter Klausler! CHECK: j = j + 111 364ab3302SCarolineConcatto! #define KWM &, use for continuation w/o pasting (ifort and nag seem to continue #define) 464ab3302SCarolineConcatto#define KWM & 564ab3302SCarolineConcatto integer :: j 664ab3302SCarolineConcatto j = 666 764ab3302SCarolineConcatto j = j + KWM 864ab3302SCarolineConcatto111 964ab3302SCarolineConcatto if (j .eq. 777) then 10089adc33Speter klausler print *, 'pp130.F90 yes' 1164ab3302SCarolineConcatto else 12089adc33Speter klausler print *, 'pp130.F90 no', j 1364ab3302SCarolineConcatto end if 1464ab3302SCarolineConcatto end 15