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
16