flang/test/Driver/escaped-backslash.f90

   1 ! Ensure argument -fbackslash works as expected.
   2
   3 !--------------------------
   4 ! FLANG DRIVER (flang-new)
   5 !--------------------------
   6 ! RUN: %flang -E %s  2>&1 | FileCheck %s --check-prefix=ESCAPED
   7 ! RUN: %flang -E -fbackslash -fno-backslash %s  2>&1 | FileCheck %s --check-prefix=ESCAPED
   8 ! RUN: %flang -E -fbackslash %s  2>&1 | FileCheck %s --check-prefix=UNESCAPED
   9
  10 !-----------------------------------------
  11 ! FRONTEND FLANG DRIVER (flang-new -fc1)
  12 !-----------------------------------------
  13 ! RUN: %flang_fc1 -E %s  2>&1 | FileCheck %s --check-prefix=ESCAPED
  14 ! RUN: %flang_fc1 -E -fbackslash -fno-backslash %s  2>&1 | FileCheck %s --check-prefix=ESCAPED
  15 ! RUN: %flang_fc1 -E -fbackslash %s  2>&1 | FileCheck %s --check-prefix=UNESCAPED
  16
  17 ! ESCAPED:program Backslash
  18 ! ESCAPED-NEXT:New\\nline
  19 ! ESCAPED-NOT:New\nline
  20
  21 ! UNESCAPED:program Backslash
  22 ! UNESCAPED-NEXT:New\nline
  23 ! UNESCAPED-NOT:New\\nline
  24
  25 program Backslash
  26     print *, 'New\nline'
  27 end