flang/test/Preprocessing/pp024.F

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