[flang-commits] [flang] bb55d6c - [flang][MIF] Fix ucobounds given in mif.alloc_coarray #207858 (#207935)

[via flang-commits]

Author: Jean-Didier PAILLEUX
Date: 2026-07-08T15:13:14+02:00
New Revision: bb55d6c3c26640f2a0fdb33005e6221ddcdfd18c

URL: https://github.com/llvm/llvm-project/commit/bb55d6c3c26640f2a0fdb33005e6221ddcdfd18c
DIFF: https://github.com/llvm/llvm-project/commit/bb55d6c3c26640f2a0fdb33005e6221ddcdfd18c.diff

LOG: [flang][MIF] Fix ucobounds given in mif.alloc_coarray #207858 (#207935)

This PR provide a manior fix to issue #207858 when the `ucobound` array
is passed to mif.alloc_coarray. This array was built from the values in
`lcobound`.

Added: 
    

Modified: 
    flang/lib/Lower/MultiImageFortran.cpp

Removed: 
    


################################################################################
diff  --git a/flang/lib/Lower/MultiImageFortran.cpp b/flang/lib/Lower/MultiImageFortran.cpp
index b608062e5c742..d5770dc197513 100644
--- a/flang/lib/Lower/MultiImageFortran.cpp
+++ b/flang/lib/Lower/MultiImageFortran.cpp
@@ -328,7 +328,7 @@ Fortran::lower::genUpperCoBounds(Fortran::lower::AbstractConverter &converter,
     ucobounds = builder.createTemporary(loc, arrayType);
     mlir::Value ucovalue;
     for (size_t i = 0; i < corank - 1; i++) {
-      if (auto ub = object->coshape()[i].lbound().GetExplicit()) {
+      if (auto ub = object->coshape()[i].ubound().GetExplicit()) {
         auto ubExpr = ignoreEvConvert(*ub);
         ucovalue = fir::getBase(converter.genExprValue(loc, ubExpr, stmtCtx));
       } else {