flang/test/Preprocessing/pp130.F90

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