summaryrefslogtreecommitdiff
path: root/flang-rt/lib/runtime/pointer.cpp
diff options
context:
space:
mode:
authorMingming Liu <mingmingl@google.com>2025-09-10 15:25:31 -0700
committerGitHub <noreply@github.com>2025-09-10 15:25:31 -0700
commit1417dafa1db9cb1b2b09438aa9f53ea5ab6e36e2 (patch)
tree57f4b1f313c8cf74eed8819870f39c36ea263c68 /flang-rt/lib/runtime/pointer.cpp
parent898b813bc8a6d0276bf0f4769f5f2f64b34e632d (diff)
parentb8cefcb601ddaa18482555c4ff363c01a270c2fe (diff)
Merge branch 'main' into users/mingmingl-llvm/samplefdo-profile-formatusers/mingmingl-llvm/samplefdo-profile-format
Diffstat (limited to 'flang-rt/lib/runtime/pointer.cpp')
-rw-r--r--flang-rt/lib/runtime/pointer.cpp6
1 files changed, 4 insertions, 2 deletions
diff --git a/flang-rt/lib/runtime/pointer.cpp b/flang-rt/lib/runtime/pointer.cpp
index 68db2594acdd..f8ada65541a1 100644
--- a/flang-rt/lib/runtime/pointer.cpp
+++ b/flang-rt/lib/runtime/pointer.cpp
@@ -267,8 +267,10 @@ bool RTDEF(PointerIsAssociatedWith)(
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()};