11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*1db2859dSPeter Klausler! CHECK: res = (777) 364ab3302SCarolineConcatto* ditto, but with intervening *comment line 464ab3302SCarolineConcatto integer, parameter :: KWM = 666 564ab3302SCarolineConcatto#define KWM 777 664ab3302SCarolineConcatto integer :: res 7*1db2859dSPeter Klausler res = (KW 864ab3302SCarolineConcatto*comment 9*1db2859dSPeter Klausler +M) 1064ab3302SCarolineConcatto if (res .eq. 777) then 11089adc33Speter klausler print *, 'pp006.F yes' 1264ab3302SCarolineConcatto else 13089adc33Speter klausler print *, 'pp006.F no: ', res 1464ab3302SCarolineConcatto end if 1564ab3302SCarolineConcatto end 16