11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2*3338ef93Speter klausler! CHECK: 100 format(3HKWM) 3089adc33Speter klausler! CHECK: if (ch .eq. 'KWM') then 464ab3302SCarolineConcatto* KWM NOT expanded in Hollerith in FORMAT 564ab3302SCarolineConcatto#define KWM 666 664ab3302SCarolineConcatto#define HKWM 667 764ab3302SCarolineConcatto character(len=3) :: ch 864ab3302SCarolineConcatto 100 format(3HKWM) 964ab3302SCarolineConcatto write(ch, 100) 1064ab3302SCarolineConcatto if (ch .eq. 'KWM') then 11089adc33Speter klausler print *, 'pp024.F yes' 1264ab3302SCarolineConcatto else 13089adc33Speter klausler print *, 'pp024.F no: ', ch 1464ab3302SCarolineConcatto end if 1564ab3302SCarolineConcatto end 16