commit 9d33874936d83b8ddf5d028d313d810214f00f20
author Slava Zakharin <szakharin@nvidia.com> Tue Dec 17 09:06:05 2024 -0800
committer GitHub <noreply@github.com> Tue Dec 17 09:06:05 2024 -0800
tree dd5740665f0a8df78b577040e3ccfbfca4b5b4a7
parent 525c818f08e097cd123839b8d96a543e2c9da26e

[flang] Support -f[no-]realloc-lhs. (#120165)

-frealloc-lhs is the default.
If -fno-realloc-lhs is specified, then an allocatable on the left
side of an intrinsic assignment is not implicitly (re)allocated
to conform with the right hand side. Fortran runtime will issue
an error if there is a mismatch in shape/type/allocation-status.

flang/lib/Lower/Bridge.cpp

diff --git a/flang/lib/Lower/Bridge.cpp b/flang/lib/Lower/Bridge.cpp
index de2b941..0650433 100644
--- a/flang/lib/Lower/Bridge.cpp
+++ b/flang/lib/Lower/Bridge.cpp
@@ -4461,7 +4461,8 @@
     // lowered.
     const bool isWholeAllocatableAssignment =
         !userDefinedAssignment && !isInsideHlfirWhere() &&
-        Fortran::lower::isWholeAllocatable(assign.lhs);
+        Fortran::lower::isWholeAllocatable(assign.lhs) &&
+        bridge.getLoweringOptions().getReallocateLHS();
     const bool isUserDefAssignToPointerOrAllocatable =
         userDefinedAssignment &&
         firstDummyIsPointerOrAllocatable(*userDefinedAssignment);