flang/test/Flang-Driver/macro-def-undef.f90

   1 ! Ensure arguments -D and -U work as expected.
   2
   3 ! REQUIRES: new-flang-driver
   4
   5 !--------------------------
   6 ! FLANG DRIVER (flang-new)
   7 !--------------------------
   8 ! RUN: %flang-new -E %s  2>&1 | FileCheck %s --check-prefix=UNDEFINED
   9 ! RUN: %flang-new -E -DX=A %s  2>&1 | FileCheck %s --check-prefix=DEFINED
  10 ! RUN: %flang-new -E -DX=A -UX %s  2>&1 | FileCheck %s --check-prefix=UNDEFINED
  11
  12 !-----------------------------------------
  13 ! FRONTEND FLANG DRIVER (flang-new -fc1)
  14 !-----------------------------------------
  15 ! RUN: %flang-new -fc1 -E %s  2>&1 | FileCheck %s --check-prefix=UNDEFINED
  16 ! RUN: %flang-new -fc1 -E -DX=A %s  2>&1 | FileCheck %s --check-prefix=DEFINED
  17 ! RUN: %flang-new -fc1 -E -DX -UX %s  2>&1 | FileCheck %s --check-prefix=UNDEFINED
  18
  19 !--------------------------------------------
  20 ! EXPECTED OUTPUT FOR AN UNDEFINED MACRO
  21 !--------------------------------------------
  22 ! UNDEFINED:program b
  23 ! UNDEFINED-NOT:program x
  24 ! UNDEFINED-NEXT:end
  25
  26 !--------------------------------------------
  27 ! EXPECTED OUTPUT FOR MACRO 'X' DEFINED AS A
  28 !--------------------------------------------
  29 ! DEFINED:program a
  30 ! DEFINED-NOT:program b
  31 ! DEFINED-NEXT:end
  32
  33 #ifdef X
  34 program X
  35 #else
  36 program B
  37 #endif
  38 end