11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*3338ef93Speter klausler! CHECK: if (KWM2 .eq. 777) then 364ab3302SCarolineConcatto* KLM rescan with #undef (so rescan is after expansion) 464ab3302SCarolineConcatto integer, parameter :: KWM2 = 777, KWM = 667 564ab3302SCarolineConcatto#define KWM2 666 664ab3302SCarolineConcatto#define KWM KWM2 764ab3302SCarolineConcatto#undef KWM2 864ab3302SCarolineConcatto if (KWM .eq. 777) then 9089adc33Speter klausler print *, 'pp018.F yes' 1064ab3302SCarolineConcatto else 11089adc33Speter klausler print *, 'pp018.F no: ', KWM 1264ab3302SCarolineConcatto end if 1364ab3302SCarolineConcatto end 14