1*1c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2089adc33Speter klausler! CHECK: if (777 .eq. 777) then 364ab3302SCarolineConcatto* KLM rescan 464ab3302SCarolineConcatto integer, parameter :: KWM = 666, KWM2 = 667 564ab3302SCarolineConcatto#define KWM2 777 664ab3302SCarolineConcatto#define KWM KWM2 764ab3302SCarolineConcatto if (KWM .eq. 777) then 8089adc33Speter klausler print *, 'pp017.F yes' 964ab3302SCarolineConcatto else 10089adc33Speter klausler print *, 'pp017.F no: ', KWM 1164ab3302SCarolineConcatto end if 1264ab3302SCarolineConcatto end 13