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
9111
10      if (j .eq. 777) then
11        print *, 'pp130.F90 yes'
12      else
13        print *, 'pp130.F90 no', j
14      end if
15      end
16