[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction motif dump bind_c_array_params_2
Mikael Morin
mikael@gcc.gnu.org
Sat Sep 6 17:05:23 GMT 2025
https://gcc.gnu.org/g:1e23bd35b64973b6c47760e9fc611363beac516e
commit 1e23bd35b64973b6c47760e9fc611363beac516e
Author: Mikael Morin <mikael@gcc.gnu.org>
Date: Sat Sep 6 18:57:09 2025 +0200
Correction motif dump bind_c_array_params_2
Diff:
---
gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 b/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
index 8f64f9b8ee4c..ca2667f8c69c 100644
--- a/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
+++ b/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
@@ -46,7 +46,7 @@ end
! { dg-final { scan-tree-dump "if \\(idx.. <= 1\\) goto L..;" "original" } }
! { dg-final { scan-tree-dump "cfi...dim\\\[idx..\\\].lower_bound = 0;" "original" } }
-! { dg-final { scan-tree-dump {cfi..\.dim\[idx..\].extent = (?:NON_LVALUE_EXPR <)?parm..\.dim\[idx..\]\.ubound>? \+ \(1 - (?:NON_LVALUE_EXPR <)?parm..\.dim\[idx..\]\.lbound>?\);} "original" } }
+! { dg-final { scan-tree-dump {cfi..\.dim\[idx..\].extent = (?:NON_LVALUE_EXPR <)?parm..\.dim\[idx..\]\.ubound>? - \((?:NON_LVALUE_EXPR <)?parm..\.dim\[idx..\]\.lbound>? \+ -1\);} "original" } }
! { dg-final { scan-tree-dump {cfi..\.dim\[idx..\].sm = (?:NON_LVALUE_EXPR <)?parm...dim\[idx..\].stride>? \* (?:NON_LVALUE_EXPR <)?parm..\.span>?;} "original" } }
! { dg-final { scan-tree-dump "idx.. = idx.. \\+ 1;" "original" } }
More information about the Gcc-cvs
mailing list