xref: /llvm-project/flang/test/Preprocessing/pp041.F (revision 9fb2db1e1f42ae10a9d8c1d9410b5f4e719fdac0)
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