[flang] Remove incorrect error message
Original-commit: flang-compiler/f18@9ef54520df Reviewed-on: https://github.com/flang-compiler/f18/pull/184 Tree-same-pre-rewrite: false
This commit is contained in:
parent
b1938138a7
commit
43da7a187e
|
@ -415,10 +415,6 @@ public:
|
|||
parser::MessageFormattedText{
|
||||
"END PROGRAM name mismatch"_err_en_US});
|
||||
}
|
||||
} else {
|
||||
errorHandler_.Say(currentPosition_,
|
||||
parser::MessageFormattedText{
|
||||
"END PROGRAM must have a program-name"_err_en_US});
|
||||
}
|
||||
} else {
|
||||
if (std::get<parser::Statement<parser::EndProgramStmt>>(mainProgram.t)
|
||||
|
|
|
@ -216,9 +216,7 @@ std::string CompileFortran(
|
|||
if (driver.moduleDirectory != "."s) {
|
||||
directories.insert(directories.begin(), driver.moduleDirectory);
|
||||
}
|
||||
if (!Fortran::semantics::ValidateLabels(parseTree, parsing.cooked())) {
|
||||
return {};
|
||||
}
|
||||
(void)Fortran::semantics::ValidateLabels(parseTree, parsing.cooked());
|
||||
Fortran::semantics::ResolveNames(Fortran::semantics::Scope::globalScope,
|
||||
parseTree, parsing.cooked(), directories);
|
||||
Fortran::semantics::ModFileWriter writer;
|
||||
|
|
Loading…
Reference in New Issue