commit 313b52f927428a3a8703855cd699075349e2409e
author Eugene Epshteyn <eepshteyn@nvidia.com> Thu Aug 28 18:53:24 2025 -0400
committer GitHub <noreply@github.com> Thu Aug 28 18:53:24 2025 -0400
tree dd220879629b0ae1ed562bc37e72a753861c130a
parent 5af5c3aa2ceeb03ad6f0f7c25c0aed9ef58d60dc

[flang] Don't associate pointers with zero sized storage targets (#155867)

Fixes #155481

flang-rt/lib/runtime/pointer.cpp

diff --git a/flang-rt/lib/runtime/pointer.cpp b/flang-rt/lib/runtime/pointer.cpp
index 68db259..f8ada65 100644
--- a/flang-rt/lib/runtime/pointer.cpp
+++ b/flang-rt/lib/runtime/pointer.cpp
@@ -267,8 +267,10 @@
   if (!target) {
     return pointer.raw().base_addr != nullptr;
   }
-  if (!target->raw().base_addr ||
-      (target->raw().type != CFI_type_struct && target->ElementBytes() == 0)) {
+  if (!target->raw().base_addr || target->ElementBytes() == 0 ||
+      target->Elements() == 0) {
+    // F2023, 16.9.20, p5, case (v)-(vi): don't associate pointers with
+    // targets that have zero sized storage sequence.
     return false;
   }
   int rank{pointer.rank()};