squiid/llvm
1
0
Fork 0
Code Issues Pull requests Activity

[flang] Take suggestion from review comment

Browse source 
Original-commit: flang-compiler/f18@7616b1f71b
Reviewed-on: https://github.com/flang-compiler/f18/pull/611
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2019-08-01 14:18:01 -07:00
parent ca57deed00
commit 61fdf0a93e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
flang/lib/evaluate/fold.cc
View file

@ -433,10 +433,10 @@ Expr<Type<TypeCategory::Integer, KIND>> LBOUND(FoldingContext &context,
return Fold(context,
ConvertToType<T>(
GetLowerBound(context, *named, static_cast<int>(*dim))));
} else if (auto lbounds{
AsConstantShape(GetLowerBounds(context, *named))}) {
} else if (auto extents{
AsExtentArrayExpr(GetLowerBounds(context, *named))}) {
return Fold(context,
ConvertToType<T>(Expr<ExtentType>{std::move(*lbounds)}));
ConvertToType<T>(Expr<ExtentType>{std::move(*extents)}));
}
} else {
lowerBoundsAreOne = symbol.Rank() == 0; // LBOUND(array%component)
@ -496,9 +496,9 @@ Expr<Type<TypeCategory::Integer, KIND>> UBOUND(FoldingContext &context,
CHECK(!ubounds.back().has_value());
ubounds.back() = ExtentExpr{-1};
}
if (auto constant{AsConstantShape(ubounds)}) {
if (auto extents{AsExtentArrayExpr(ubounds)}) {
return Fold(context,
ConvertToType<T>(Expr<ExtentType>{std::move(*constant)}));
ConvertToType<T>(Expr<ExtentType>{std::move(*extents)}));
}
}
} else {