flang/test/Preprocessing/pp031.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: if (777//Ccomment.eq.777)then
   3 ! CHECK: print *, 'pp031.F no: ', 777//Ccomment
   4 *  // C++ comment NOT erased from #define
   5       integer, parameter :: KWM = 666
   6 #define KWM 777 // C comment
   7       if (KWM .eq. 777) then
   8         print *, 'pp031.F FAIL (should not have compiled)'
   9       else
  10         print *, 'pp031.F no: ', KWM
  11       end if
  12       end