[flang] Semantics checker for STOP and ERROR STOP statements - remove…

… tools function not needed after recent commit Signed-off-by: Paul Osmialowski <pawel.osmialowski@arm.com> Original-commit: flang-compiler/f18@1a3dbd9 Reviewed-on: flang-compiler/f18#367 Tree-same-pre-rewrite: false
delcypher · Apr 17, 2019 · 9579f55 · 9579f55
1 parent 9cb7ec5
commit 9579f55
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 5 deletions.
diff --git a/flang/lib/semantics/tools.cc b/flang/lib/semantics/tools.cc
@@ -293,8 +293,4 @@ bool ExprTypeKindIsDefault(
       dynamicType->kind ==
       context.defaultKinds().GetDefaultKind(dynamicType->category);
 }
-
-bool ExprIsScalar(const evaluate::GenericExprWrapper &expr) {
-  return !(expr.v.Rank() > 0);
-}
 }
diff --git a/flang/lib/semantics/tools.h b/flang/lib/semantics/tools.h
@@ -101,6 +101,5 @@ bool ExprHasTypeCategory(
 bool ExprHasTypeKind(const evaluate::GenericExprWrapper &expr, int kind);
 bool ExprTypeKindIsDefault(
     const evaluate::GenericExprWrapper &expr, const SemanticsContext &context);
-bool ExprIsScalar(const evaluate::GenericExprWrapper &expr);
 }
 #endif  // FORTRAN_SEMANTICS_TOOLS_H_