https://gcc.gnu.org/g:be2bf2db773c01516b71a388221d61443fa069ee
commit r17-4015-gbe2bf2db773c01516b71a388221d61443fa069ee Author: Jerry DeLisle <[email protected]> Date: Tue Sep 8 09:57:23 2026 -0700 fortran: [PR126964] Do not expect span addressing of a target Adjust test cases so they do not fail on some platforms by dropping the span addressing. PR fortran/126964 gcc/testsuite/ChangeLog: * gfortran.dg/c_loc_test_22.f90: Do not expect span addressing where the spacing is not known to be folded. * gfortran.dg/gomp/target-span-1.f90: Likewise. Diff: --- gcc/testsuite/gfortran.dg/c_loc_test_22.f90 | 3 --- gcc/testsuite/gfortran.dg/gomp/target-span-1.f90 | 2 -- 2 files changed, 5 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/c_loc_test_22.f90 b/gcc/testsuite/gfortran.dg/c_loc_test_22.f90 index 5a7172d952c1..ba2e38e3fb35 100644 --- a/gcc/testsuite/gfortran.dg/c_loc_test_22.f90 +++ b/gcc/testsuite/gfortran.dg/c_loc_test_22.f90 @@ -25,8 +25,5 @@ end ! { dg-final { scan-tree-dump-not "span.\[0-9\]+ = yyy->span;" "original" { target natural_alignment_32 } } } ! { dg-final { scan-tree-dump-times "parm.\[0-9\]+.data = \\(void .\\) yyy.\[0-9\]+;" 1 "original" { target natural_alignment_32 } } } ! { dg-final { scan-tree-dump-times "parm.\[0-9\]+.data = \\(void .\\) yyy.\[0-9\]+ \\+ \\(sizetype\\) \\(D.\[0-9\]+ \\* 16\\);" 1 "original" { target natural_alignment_32 } } } -! { dg-final { scan-tree-dump-times "parm.\[0-9\]+.data = \\(void .\\) &\\(.yyy.\[0-9\]+\\)\\\[0\\\];" 1 "original" { target { ! natural_alignment_32 } } } } -! { dg-final { scan-tree-dump-times "span.\[0-9\]+ = yyy->span;" 1 "original" { target { ! natural_alignment_32 } } } } -! { dg-final { scan-tree-dump-times "parm.\[0-9\]+.data = \\(void .\\) yyy.\[0-9\]+ \\+ \\(sizetype\\) \\(\\(D.\[0-9\]+ \\* span.\[0-9\]+\\) \\* 4\\);" 1 "original" { target { ! natural_alignment_32 } } } } ! { dg-final { scan-tree-dump-times "D.\[0-9\]+ = parm.\[0-9\]+.data;\[^;]+ptr\[1-4\] = D.\[0-9\]+;" 4 "original" } } diff --git a/gcc/testsuite/gfortran.dg/gomp/target-span-1.f90 b/gcc/testsuite/gfortran.dg/gomp/target-span-1.f90 index 27a9de573a66..c0d9d7e7da19 100644 --- a/gcc/testsuite/gfortran.dg/gomp/target-span-1.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/target-span-1.f90 @@ -30,6 +30,4 @@ end module m ! { dg-final { scan-tree-dump-times "= t->span;" 1 "original" } } ! { dg-final { scan-tree-dump "stride\.\[0-9\]+ = \[^;\]* != 8 \\? stride\.\[0-9\]+ \\* \[^;\]* : stride\.\[0-9\]+;" "original" { target natural_alignment_64 } } } ! { dg-final { scan-tree-dump "t\.\[0-9\]+ \\+ \\(sizetype\\) \\(\\(offset\.\[0-9\]+ \\+ \[^)\]*stride\.\[0-9\]+\[^)\]*\\) \\* 8\\)" "original" { target natural_alignment_64 } } } -! Elsewhere the reference uses that local span, not the descriptor. -! { dg-final { scan-tree-dump "t\.\[0-9\]+ \\+ \\(sizetype\\) \\(\\(offset\.\[0-9\]+ \\+ \[^)\]*stride\.\[0-9\]+\[^)\]*\\) \\* span\.\[0-9\]+\\)" "original" { target { ! natural_alignment_64 } } } } ! { dg-final { scan-tree-dump-not "\\* t->span" "original" } }
