flang/test/Preprocessing/pp044.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK-NOT:z = 111
   3 ! CHECK:warning: Statement should not begin with a continuation line
   4 ! CHECK:j=111+444
   5 * #define directive amid continuations.
   6       integer, parameter :: KWM = 222
   7       integer, parameter :: z = KWM
   8 #define KWM 111
   9      ,j=KWM+444
  10       if (z .EQ. 222 .AND. j .EQ. 555) then
  11         print *, 'yes'
  12       else
  13         print *, 'no', z, _4
  14       end if
  15       end