11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*3338ef93Speter klausler! CHECK: res = KWM 364ab3302SCarolineConcatto! KWM call name split across continuation, no leading &, with & ! comment 464ab3302SCarolineConcatto integer, parameter :: KWM = 666 564ab3302SCarolineConcatto#define KWM 777 664ab3302SCarolineConcatto integer :: res 764ab3302SCarolineConcatto res = KW& ! comment 864ab3302SCarolineConcattoM 964ab3302SCarolineConcatto if (res .eq. 777) then 10089adc33Speter klausler print *, 'pp107.F90 yes' 1164ab3302SCarolineConcatto else 12089adc33Speter klausler print *, 'pp107.F90 no: ', res 1364ab3302SCarolineConcatto end if 1464ab3302SCarolineConcatto end 15