[flang][hlfir] get shape from HLFIR expr using hlfir.shape_of

Depends On: D146830 Differential Revision: https://reviews.llvm.org/D146831
llvm · Apr 17, 2023 · 08b09d7 · 08b09d7
1 parent 80e45a7
commit 08b09d7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/flang/lib/Optimizer/Builder/HLFIRTools.cpp b/flang/lib/Optimizer/Builder/HLFIRTools.cpp
@@ -483,7 +483,7 @@ mlir::Value hlfir::genShape(mlir::Location loc, fir::FirOpBuilder &builder,
         return builder.create<fir::ShapeOp>(loc, s.getExtents());
   }
   if (entity.getType().isa<hlfir::ExprType>())
-    TODO(loc, "get shape from HLFIR expr without producer holding the shape");
+    return builder.create<hlfir::ShapeOfOp>(loc, entity.getBase());
   // There is no shape lying around for this entity. Retrieve the extents and
   // build a new fir.shape.
   return builder.create<fir::ShapeOp>(loc,