15 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: j = j + 1113! #define KWM &, use for continuation w/o pasting (ifort and nag seem to continue #define)4#define KWM &5 integer :: j6 j = 6667 j = j + KWM81119 if (j .eq. 777) then10 print *, 'pp130.F90 yes'11 else12 print *, 'pp130.F90 no', j13 end if14 end15