From: Paul Osmialowski Date: Thu, 11 Apr 2019 20:43:35 +0000 (+0100) Subject: [flang] Semantics checker for STOP and ERROR STOP statements - better variable names X-Git-Tag: 2020.06-alpha~50^2~2673^2~1336 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=ade79f6573588f67c1ce370fe8f6c7f39a550c27;p=platform%2Fupstream%2Fllvm.git [flang] Semantics checker for STOP and ERROR STOP statements - better variable names Signed-off-by: Paul Osmialowski Original-commit: flang-compiler/f18@8b32caa287149e72834aad3cdc45473678b57605 Reviewed-on: https://github.com/flang-compiler/f18/pull/367 Tree-same-pre-rewrite: false --- diff --git a/flang/lib/semantics/check-stop.cc b/flang/lib/semantics/check-stop.cc index 69b7cb9d8513..575b63ac05d4 100644 --- a/flang/lib/semantics/check-stop.cc +++ b/flang/lib/semantics/check-stop.cc @@ -23,12 +23,13 @@ namespace Fortran::semantics { void StopChecker::Enter(const parser::StopStmt &stmt) { - const auto &sc{std::get>(stmt.t)}; - const auto &sle{std::get>(stmt.t)}; + const auto &stopCode{std::get>(stmt.t)}; + const auto &scalarLogicalExpr{ + std::get>(stmt.t)}; - if (sc.has_value()) { - const parser::CharBlock &source{sc.value().v.thing.source}; - const auto &expr{*(sc.value().v.thing.typedExpr)}; + if (stopCode.has_value()) { + const parser::CharBlock &source{stopCode.value().v.thing.source}; + const auto &expr{*(stopCode.value().v.thing.typedExpr)}; if (!(ExprIsScalar(expr))) { context_.Say(source, "Stop code must be a scalar"_err_en_US); @@ -51,9 +52,11 @@ void StopChecker::Enter(const parser::StopStmt &stmt) { } } } - if (sle.has_value()) { - const parser::CharBlock &source{sle.value().thing.thing.value().source}; - const auto &expr{*(sle.value().thing.thing.value().typedExpr)}; + if (scalarLogicalExpr.has_value()) { + const parser::CharBlock &source{ + scalarLogicalExpr.value().thing.thing.value().source}; + const auto &expr{ + *(scalarLogicalExpr.value().thing.thing.value().typedExpr)}; if (!(ExprIsScalar(expr))) { context_.Say(source,