maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[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@1a3dbd9752
Reviewed-on: https://github.com/flang-compiler/f18/pull/367
Tree-same-pre-rewrite: false
This commit is contained in:
Paul Osmialowski 2019-04-15 20:53:32 +01:00 committed by GitHub
parent 9cb7ec52e2
commit 9579f55836
2 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
flang/lib/semantics/tools.cc
View File

@ -293,8 +293,4 @@ bool ExprTypeKindIsDefault(
dynamicType->kind ==
context.defaultKinds().GetDefaultKind(dynamicType->category);
}
bool ExprIsScalar(const evaluate::GenericExprWrapper &expr) {
return !(expr.v.Rank() > 0);
}
}

1
flang/lib/semantics/tools.h
View File

@ -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_