1*1c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s 2089adc33Speter klausler! CHECK: ch = "KWM" 364ab3302SCarolineConcatto! KWM NOT expanded in "literal" 464ab3302SCarolineConcatto#define KWM 666 564ab3302SCarolineConcatto character(len=3) :: ch 664ab3302SCarolineConcatto ch = "KWM" 764ab3302SCarolineConcatto if (ch .eq. 'KWM') then 8089adc33Speter klausler print *, 'pp122.F90 yes' 964ab3302SCarolineConcatto else 10089adc33Speter klausler print *, 'pp122.F90 no: ', ch 1164ab3302SCarolineConcatto end if 1264ab3302SCarolineConcatto end 13