From: peter klausler <pklausler@nvidia.com>
Date: Thu, 27 Jun 2019 16:57:48 +0000 (-0700)
Subject: [flang] address review comments
X-Git-Tag: llvmorg-12-init~9537^2~1027
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=28c03d3a3801e34da69d4860d64339d09a42221a;p=platform%2Fupstream%2Fllvm.git

[flang] address review comments

Original-commit: flang-compiler/f18@f7188a7a3331cce41d3887529b5864a9aab3b190
Reviewed-on: https://github.com/flang-compiler/f18/pull/531
Tree-same-pre-rewrite: false
---

diff --git a/flang/lib/evaluate/intrinsics.cc b/flang/lib/evaluate/intrinsics.cc
index ac5c58c..58e6fc7 100644
--- a/flang/lib/evaluate/intrinsics.cc
+++ b/flang/lib/evaluate/intrinsics.cc
@@ -201,7 +201,7 @@ static constexpr IntrinsicDummyArgument SubscriptDefaultKIND{"kind",
     {IntType, KindCode::kindArg}, Rank::scalar,
     Optionality::defaultsToSubscriptKind};
 static constexpr IntrinsicDummyArgument RequiredDIM{
-    "dim", {IntType, KindCode::dimArg}, Rank::scalar};
+    "dim", {IntType, KindCode::dimArg}, Rank::scalar, Optionality::required};
 static constexpr IntrinsicDummyArgument OptionalDIM{
     "dim", {IntType, KindCode::dimArg}, Rank::scalar, Optionality::optional};
 static constexpr IntrinsicDummyArgument OptionalMASK{
diff --git a/flang/lib/semantics/resolve-names.cc b/flang/lib/semantics/resolve-names.cc
index aa7f339..fe3b14c 100644
--- a/flang/lib/semantics/resolve-names.cc
+++ b/flang/lib/semantics/resolve-names.cc
@@ -4656,7 +4656,7 @@ void ResolveNamesVisitor::NoteExecutablePartCall(
               : Symbol::Flag::Subroutine};
       if (!symbol->test(other)) {
         ConvertToProcEntity(*symbol);
-        if (auto *details{symbol->detailsIf<ProcEntityDetails>()}) {
+        if (symbol->has<ProcEntityDetails>()) {
           symbol->set(flag);
           if (symbol->IsDummy()) {
             symbol->attrs().set(Attr::EXTERNAL);