[flang] address review comment

Original-commit: flang-compiler/f18@7012b61 Reviewed-on: flang-compiler/f18#590
llvm · Jul 19, 2019 · 645d987 · 645d987
1 parent 834c4d6
commit 645d987
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/flang/lib/evaluate/intrinsics.cc b/flang/lib/evaluate/intrinsics.cc
@@ -1203,13 +1203,8 @@ std::optional<SpecificCall> IntrinsicInterface::Match(
       break;
     case KindCode::operand:
       CHECK(operandArg != nullptr);
-      if (std::optional<DynamicType> aType{operandArg->GetType()}) {
-        if (result.categorySet.test(aType->category())) {
-          resultType = *aType;
-        } else {
-          resultType = DynamicType{*category, aType->kind()};
-        }
-      }
+      resultType = operandArg->GetType();
+      CHECK(!resultType || result.categorySet.test(resultType->category()));
       break;
     case KindCode::effectiveKind:
       CHECK(kindDummyArg != nullptr);