flang/test/Preprocessing/pp122.F90

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