16 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK-NOT:z = 1113! CHECK:warning: Statement should not begin with a continuation line4! CHECK:j=111+4445* #define directive amid continuations.6 integer, parameter :: KWM = 2227 integer, parameter :: z = KWM8#define KWM 1119 ,j=KWM+44410 if (z .EQ. 222 .AND. j .EQ. 555) then11 print *, 'yes'12 else13 print *, 'no', z, _414 end if15 end16