flang/test/Preprocessing/pp023.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: ch = 3HKWM
   3 ! CHECK: if (ch .eq. 'KWM') then
   4 * KWM NOT expanded in 9HHOLLERITH literal
   5 #define KWM 666
   6 #define HKWM 667
   7       character(len=3) :: ch
   8       ch = 3HKWM
   9       if (ch .eq. 'KWM') then
  10         print *, 'pp023.F yes'
  11       else
  12         print *, 'pp023.F no: ', ch
  13       end if
  14       end