[gcc(refs/users/mikael/heads/refactor_descriptor_v291.01)] Correction motif dump coarray_lock_7.f90

https://gcc.gnu.org/g:cb0ea2669ede4c4ae68d0e8b2985cb4d87d46d2c

commit cb0ea2669ede4c4ae68d0e8b2985cb4d87d46d2c
Author: Mikael Morin <[email protected]>
Date:   Sat Jul 25 12:25:54 2026 +0200

    Correction motif dump coarray_lock_7.f90

Diff:
---
 gcc/testsuite/gfortran.dg/coarray_lock_7.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/coarray_lock_7.f90 b/gcc/testsuite/gfortran.dg/coarray_lock_7.f90
index f144e66f4d08..ae080b2b1982 100644
--- a/gcc/testsuite/gfortran.dg/coarray_lock_7.f90
+++ b/gcc/testsuite/gfortran.dg/coarray_lock_7.f90
@@ -35,8 +35,8 @@ end
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_lock \\(caf_token.., 0, 0, 0B, 0B, 0B, 0\\);" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_unlock \\(caf_token.., 0, 0, 0B, 0B, 0\\);" 1 "original" } }
 
-! { dg-final { scan-tree-dump-times {_gfortran_caf_lock \(caf_token.., .*\(\(3 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\].ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 1> \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, 0B, &ii, 0B, 0\);|_gfortran_caf_lock \(caf_token.1, \(3 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 1> \* \(3 - parm.\d+\.dim\[1\].lbound\), 0, 0B, &ii, 0B, 0\);} 1 "original" } }
-! { dg-final { scan-tree-dump-times {_gfortran_caf_unlock \(caf_token.., .*\(\(2 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 0> \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, &ii, 0B, 0\);|_gfortran_caf_unlock \(caf_token.., \(2 - parm.\d+\.dim\[0\]\.lbound\) \+ MAX_EXPR <parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound - 1\), 0> \* \(3 - parm.\d+\.dim\[1\]\.lbound\), 0, &ii, 0B, 0\);} 1 "original" } }
+! { dg-final { scan-tree-dump-times {_gfortran_caf_lock \(caf_token.., .*\(\(3 - parm.\d+\.dim\[0\]\.lbound\) \+ \(parm.\d+\.dim\[0\].ubound - \(parm.\d+\.dim\[0\]\.lbound \+ -1\)\) \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, 0B, &ii, 0B, 0\);} 1 "original" } }
+! { dg-final { scan-tree-dump-times {_gfortran_caf_unlock \(caf_token.., .*\(\(2 - parm.\d+\.dim\[0\]\.lbound\) \+ \(parm.\d+\.dim\[0\]\.ubound - \(parm.\d+\.dim\[0\]\.lbound \+ -1\)\) \* \(3 - parm.\d+\.dim\[1\]\.lbound\)\), 0, &ii, 0B, 0\);} 1 "original" } }
 
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_lock \\(three.token, 0, \\(integer\\(kind=4\\)\\) \\(5 - three.dim\\\[0\\\].lbound\\), &acquired.\[0-9\]+, 0B, 0B, 0\\);|_gfortran_caf_lock \\(three.token, 0, 5 - three.dim\\\[0\\\].lbound, &acquired.\[0-9\]+, 0B, 0B, 0\\);" 1 "original" } }
 ! { dg-final { scan-tree-dump-times "_gfortran_caf_unlock \\(three.token, 0, \\(integer\\(kind=4\\)\\) \\(8 - three.dim\\\[0\\\].lbound\\), &ii, 0B, 0\\);|_gfortran_caf_unlock \\(three.token, 0, 8 - three.dim\\\[0\\\].lbound, &ii, 0B, 0\\);" 1 "original" } }