From f7057e031ca4f595a1621eac8912f7990a4f7444 Mon Sep 17 00:00:00 2001 From: peter klausler Date: Wed, 10 Jul 2019 15:05:13 -0700 Subject: [PATCH] [flang] Add -fxor-operator Original-commit: flang-compiler/f18@b8365afc91f8e99c2e4cfb79d8ea9bf60a4b99f2 Reviewed-on: https://github.com/flang-compiler/f18/pull/557 Tree-same-pre-rewrite: false --- flang/tools/f18/f18.cc | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/flang/tools/f18/f18.cc b/flang/tools/f18/f18.cc index ece113e..6c4f955 100644 --- a/flang/tools/f18/f18.cc +++ b/flang/tools/f18/f18.cc @@ -415,12 +415,13 @@ int main(int argc, char *const argv[]) { options.features.Enable(Fortran::parser::LanguageFeature::OldDebugLines); } else if (arg == "-E") { driver.dumpCookedChars = true; - } else if (arg == "-fbackslash") { + } else if (arg == "-fbackslash" || arg == "-fno-backslash") { options.features.Enable( - Fortran::parser::LanguageFeature::BackslashEscapes, true); - } else if (arg == "-fno-backslash") { - options.features.Enable( - Fortran::parser::LanguageFeature::BackslashEscapes, false); + Fortran::parser::LanguageFeature::BackslashEscapes, + arg == "-fbackslash"); + } else if (arg == "-fxor-operator" || arg == "-fno-xor-operator") { + options.features.Enable(Fortran::parser::LanguageFeature::XOROperator, + arg == "-fxor-operator"); } else if (arg == "-fdebug-dump-provenance") { driver.dumpProvenance = true; } else if (arg == "-fdebug-dump-parse-tree") { -- 2.7.4