flang/test/Preprocessing/pp043.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: if (KWM .eq. 777) then
   3 * #define with # in column 6 is a continuation line in fixed-form
   4       integer, parameter :: defineKWM666 = 555
   5       integer, parameter :: KWM =
   6      #define KWM 666
   7      ++222
   8       if (KWM .eq. 777) then
   9         print *, 'pp043.F yes'
  10       else
  11         print *, 'pp043.F no: ', KWM
  12       end if
  13       end