From 9579f55836b677c78688ebd90165e68a9a27d5c6 Mon Sep 17 00:00:00 2001 From: Paul Osmialowski Date: Mon, 15 Apr 2019 20:53:32 +0100 Subject: [PATCH] [flang] Semantics checker for STOP and ERROR STOP statements - remove tools function not needed after recent commit Signed-off-by: Paul Osmialowski Original-commit: flang-compiler/f18@1a3dbd97528a0a158cf747c33ab2156c6b48f7a7 Reviewed-on: https://github.com/flang-compiler/f18/pull/367 Tree-same-pre-rewrite: false --- flang/lib/semantics/tools.cc | 4 ---- flang/lib/semantics/tools.h | 1 - 2 files changed, 5 deletions(-) diff --git a/flang/lib/semantics/tools.cc b/flang/lib/semantics/tools.cc index d62d05d8c55d..a3788ceca58a 100644 --- 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 index 5dfee2f82f9d..f211b0829b8a 100644 --- 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_