xref: /llvm-project/flang/test/Preprocessing/pp023.F (revision 3338ef93b02837edf69abc203e15a42fa55aa1b3)
11c8f199fSFaris Rehman! RUN: %flang -E %s 2>&1 | FileCheck %s
2*3338ef93Speter klausler! CHECK: ch = 3HKWM
3089adc33Speter klausler! CHECK: if (ch .eq. 'KWM') then
464ab3302SCarolineConcatto* KWM NOT expanded in 9HHOLLERITH literal
564ab3302SCarolineConcatto#define KWM 666
664ab3302SCarolineConcatto#define HKWM 667
764ab3302SCarolineConcatto      character(len=3) :: ch
864ab3302SCarolineConcatto      ch = 3HKWM
964ab3302SCarolineConcatto      if (ch .eq. 'KWM') then
10089adc33Speter klausler        print *, 'pp023.F yes'
1164ab3302SCarolineConcatto      else
12089adc33Speter klausler        print *, 'pp023.F no: ', ch
1364ab3302SCarolineConcatto      end if
1464ab3302SCarolineConcatto      end
15