1*1c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2089adc33Speter klausler! CHECK: if (777 .eq. 777) then 3089adc33Speter klausler! CHECK: print *, 'pp034.F no: ', 777 464ab3302SCarolineConcatto* \ newline allowed in name on KWM definition 564ab3302SCarolineConcatto integer, parameter :: KWMC = 666 664ab3302SCarolineConcatto#define KWM\ 764ab3302SCarolineConcattoC 777 864ab3302SCarolineConcatto if (KWMC .eq. 777) then 9089adc33Speter klausler print *, 'pp034.F yes' 1064ab3302SCarolineConcatto else 11089adc33Speter klausler print *, 'pp034.F no: ', KWMC 1264ab3302SCarolineConcatto end if 1364ab3302SCarolineConcatto end 14