xref: /llvm-project/flang/test/Preprocessing/pp130.F90 (revision f706411f71a29bc8bb6c04b21958fa3a0d17fd99) 
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
8111
9      if (j .eq. 777) then
10        print *, 'pp130.F90 yes'
11      else
12        print *, 'pp130.F90 no', j
13      end if
14      end
15