flang/test/Preprocessing/pp035.F

   1 ! RUN: %flang -E %s 2>&1 | FileCheck %s
   2 ! CHECK: if (777 .eq. 777) then
   3 ! CHECK: print *, 'pp035.F no: ', 777
   4 * #if 2 .LT. 3 works
   5       integer, parameter :: KWM = 666
   6 #if 2 .LT. 3
   7 #define KWM 777
   8 #else
   9 #define KWM 667
  10 #endif
  11       if (KWM .eq. 777) then
  12         print *, 'pp035.F yes'
  13       else
  14         print *, 'pp035.F no: ', KWM
  15       end if
  16       end