flang/test/Preprocessing/pp124.F90

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