11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*3338ef93Speter klausler! CHECK: res = KWM 364ab3302SCarolineConcatto* KWM split across continuation, clipped after column 72 464ab3302SCarolineConcatto integer, parameter :: KWM = 666 564ab3302SCarolineConcatto#define KWM 777 664ab3302SCarolineConcatto integer :: res 764ab3302SCarolineConcatto* 'comment' is in column 73 864ab3302SCarolineConcatto* 1 2 3 4 5 6 7 964ab3302SCarolineConcatto*234567890123456789012345678901234567890123456789012345678901234567890123 1064ab3302SCarolineConcatto res = KW comment 1164ab3302SCarolineConcatto +M 1264ab3302SCarolineConcatto if (res .eq. 777) then 13089adc33Speter klausler print *, 'pp007.F yes' 1464ab3302SCarolineConcatto else 15089adc33Speter klausler print *, 'pp007.F no: ', res 1664ab3302SCarolineConcatto end if 1764ab3302SCarolineConcatto end 18