flang/test/Preprocessing/pp006.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: res = (777)
   3 * ditto, but with intervening *comment line
   4       integer, parameter :: KWM = 666
   5 #define KWM 777
   6       integer :: res
   7       res = (KW
   8 *comment
   9      +M)
  10       if (res .eq. 777) then
  11         print *, 'pp006.F yes'
  12       else
  13         print *, 'pp006.F no: ', res
  14       end if
  15       end