maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Pass -Mnobackslash to pgf90 unless f18 -fbackslash is used. 

Original-commit: flang-compiler/f18@df5058ff97
Reviewed-on: https://github.com/flang-compiler/f18/pull/133
This commit is contained in:
peter klausler 2018-07-19 15:50:39 -07:00
parent d7f5aa55e8
commit 5bd2ac4952
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
flang/tools/f18/f18.cc
View File

@ -349,7 +349,6 @@ int main(int argc, char *const argv[]) {
} else if (arg == "-Mbackslash") {
options.features.Enable(
Fortran::parser::LanguageFeature::BackslashEscapes, false);
driver.pgf90Args.push_back(arg);
} else if (arg == "-Mnobackslash") {
options.features.Enable(
Fortran::parser::LanguageFeature::BackslashEscapes);
@ -369,7 +368,6 @@ int main(int argc, char *const argv[]) {
} else if (arg == "-fno-backslash") {
options.features.Enable(
Fortran::parser::LanguageFeature::BackslashEscapes, false);
driver.pgf90Args.push_back("-Mbackslash");
} else if (arg == "-fdebug-dump-provenance") {
driver.dumpProvenance = true;
} else if (arg == "-fdebug-dump-parse-tree") {
@ -453,6 +451,9 @@ int main(int argc, char *const argv[]) {
if (options.isStrictlyStandard) {
options.features.WarnOnAllNonstandard();
}
if (!options.features.IsEnabled(Fortran::parser::LanguageFeature::BackslashEscapes)) {
driver.pgf90Args.push_back("-Mbackslash");
}
if (!anyFiles) {
driver.measureTree = true;