diff options
| author | NAKAMURA Takumi <geek4civic@gmail.com> | 2025-01-10 19:22:46 +0900 |
|---|---|---|
| committer | NAKAMURA Takumi <geek4civic@gmail.com> | 2025-01-10 19:22:46 +0900 |
| commit | 8b02a27fc607ebc54c5a811188b3cea5063564e7 (patch) | |
| tree | c1ca7d4acca553301204ebb83383aa87cb59311a /flang/lib/Lower/Bridge.cpp | |
| parent | 694a772457b2999b7bd68625a16bf0755e95dcdb (diff) | |
| parent | 397ac44f623f891d8f05d6673a95984ac0a26671 (diff) | |
| download | llvm-users/chapuni/cov/merge/mcdcsort.zip llvm-users/chapuni/cov/merge/mcdcsort.tar.gz llvm-users/chapuni/cov/merge/mcdcsort.tar.bz2 | |
Merge branch 'main' into users/chapuni/cov/merge/mcdcsortusers/chapuni/cov/merge/mcdcsort
Diffstat (limited to 'flang/lib/Lower/Bridge.cpp')
| -rw-r--r-- | flang/lib/Lower/Bridge.cpp | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/flang/lib/Lower/Bridge.cpp b/flang/lib/Lower/Bridge.cpp index c7bf424..37f51d7 100644 --- a/flang/lib/Lower/Bridge.cpp +++ b/flang/lib/Lower/Bridge.cpp @@ -833,7 +833,11 @@ public: if_builder.end(); }, [&](const auto &) -> void { - if (skipDefaultInit) + // Always initialize allocatable component descriptor, even when the + // value is later copied from the host (e.g. firstprivate) because the + // assignment from the host to the copy will fail if the component + // descriptors are not initialized. + if (skipDefaultInit && !hlfir::mayHaveAllocatableComponent(hSymType)) return; // Initialize local/private derived types with default // initialization (Fortran 2023 section 11.1.7.5 and OpenMP 5.2 |