From 0c0b2ea98816067aea43f38892e5901c74271d40 Mon Sep 17 00:00:00 2001 From: Peter Klausler Date: Fri, 11 Aug 2023 14:29:44 -0700 Subject: [flang] Check procedure pointer initializations; clean up ELEMENTAL Implements compatibility checking for initializers in procedure pointer declarations. This work exposed some inconsistency in how ELEMENTAL interfaces were handled and checked, from both unrestricted intrinsic functions and others, and some refinements needed for function result compatbility checking; these have also been ironed out. Some new warnings are now emitted, and this affected a dozen or so tests. Differential Revision: https://reviews.llvm.org/D159026 --- flang/lib/Lower/ConvertType.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'flang/lib/Lower/ConvertType.cpp') diff --git a/flang/lib/Lower/ConvertType.cpp b/flang/lib/Lower/ConvertType.cpp index 9dfe982a6504..e8179b43afc7 100644 --- a/flang/lib/Lower/ConvertType.cpp +++ b/flang/lib/Lower/ConvertType.cpp @@ -276,8 +276,8 @@ struct TypeBuilderImpl { Fortran::semantics::IsUnlimitedPolymorphic(symbol)) && !Fortran::semantics::IsAssumedType(symbol); if (ultimate.IsObjectArray()) { - auto shapeExpr = Fortran::evaluate::GetShapeHelper{ - converter.getFoldingContext()}(ultimate); + auto shapeExpr = + Fortran::evaluate::GetShape(converter.getFoldingContext(), ultimate); if (!shapeExpr) TODO(loc, "assumed rank symbol type"); fir::SequenceType::Shape shape; -- cgit v1.2.3