flang/test/Preprocessing/pp130.F90

   1 ! RUN: not %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: error: bad character ('&') in Fortran token
   3 ! #define KWM &, use for continuation w/o pasting (ifort and nag seem to continue #define)
   4 #define KWM &
   5
   6       integer :: j
   7       j = 666
   8       j = j + KWM
   9 111
  10       if (j .eq. 777) then
  11         print *, 'pp130.F90 yes'
  12       else
  13         print *, 'pp130.F90 no', j
  14       end if
  15       end