1*1c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2089adc33Speter klausler! CHECK: if (kwm .eq. 777) then 364ab3302SCarolineConcatto* KWMs case-sensitive 464ab3302SCarolineConcatto integer, parameter :: KWM = 777 564ab3302SCarolineConcatto#define KWM 666 664ab3302SCarolineConcatto if (kwm .eq. 777) then 7089adc33Speter klausler print *, 'pp004.F yes' 864ab3302SCarolineConcatto else 9089adc33Speter klausler print *, 'pp004.F no: ', kwm 1064ab3302SCarolineConcatto end if 1164ab3302SCarolineConcatto end 12