flang/test/Preprocessing/pp044.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK-NOT:z = 111
   3 * #define directive amid continuations
   4       integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555
   5       integer, parameter :: KWMKWM = 333
   6       integer, parameter :: z = KWM
   7 #define KWM 111
   8      +KWM+444
   9       if (z .EQ. 777) then
  10         print *, 'yes'
  11       else
  12         print *, 'no', z
  13       end if
  14       end