flang/test/Preprocessing/pp041.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: j = 666WMj= j+ 1WM211
   3 * use KWM expansion as continuation indicators
   4 #define KWM 0
   5 #define KWM2 1
   6       integer :: j
   7       j = 666
   8      KWM j = j + 1
   9      KWM2 11
  10       if (j .eq. 777) then
  11         print *, 'pp041.F yes'
  12       else
  13         print *, 'pp041.F no', j
  14       end if
  15       end