flang/test/Preprocessing/pp007.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: res = KWM
   3 * KWM split across continuation, clipped after column 72
   4       integer, parameter :: KWM = 666
   5 #define KWM 777
   6       integer :: res
   7 * 'comment' is in column 73
   8 *        1         2         3         4         5         6         7
   9 *234567890123456789012345678901234567890123456789012345678901234567890123
  10       res = KW                                                          comment
  11      +M
  12       if (res .eq. 777) then
  13         print *, 'pp007.F yes'
  14       else
  15         print *, 'pp007.F no: ', res
  16       end if
  17       end