16 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: j = 666WMj= j+ 1WM2113* use KWM expansion as continuation indicators4#define KWM 05#define KWM2 16 integer :: j7 j = 6668 KWM j = j + 19 KWM2 1110 if (j .eq. 777) then11 print *, 'pp041.F yes'12 else13 print *, 'pp041.F no', j14 end if15 end16