brintos

brintos / llvm-project-archived public Read only

0
0
Text · 292 B · 6e790c8 Raw
13 lines · plain
1! RUN: %flang -E %s 2>&1 | FileCheck %s2! CHECK: if (777 .eq. 777) then3! \ newline works in #define4      integer, parameter :: KWM = 6665#define KWM 77\677      if (KWM .eq. 777) then8        print *, 'pp126.F90 yes'9      else10        print *, 'pp126.F90 no: ', KWM11      end if12      end13