https://gcc.gnu.org/g:95cabf531c5d65dfb7d0ccbf2dd0b4ec6825489e
commit r16-5023-g95cabf531c5d65dfb7d0ccbf2dd0b4ec6825489e Author: Tobias Burnus <[email protected]> Date: Tue Nov 4 10:23:31 2025 +0100 gfortran.dg/pr122513-2.f90: New test [PR122513] This test is from PR122513; even though the actual error message was already added in GCC 15, there was no testcase for the diagnostic type Index variable 'i' at (1) cannot be specified in a locality-spec Thus, this commit adds one. gcc/testsuite/ChangeLog: PR fortran/122513 * gfortran.dg/pr122513-2.f90: New test. Diff: --- gcc/testsuite/gfortran.dg/pr122513-2.f90 | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/gcc/testsuite/gfortran.dg/pr122513-2.f90 b/gcc/testsuite/gfortran.dg/pr122513-2.f90 new file mode 100644 index 000000000000..3f6c5c4fcab0 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr122513-2.f90 @@ -0,0 +1,18 @@ +! { dg-do compile } + +! PR fortran/122513 + +! The error is not really new but seems to be untested +! before. The example is from the mentioned PR. + +program test + implicit none + integer :: i + do concurrent (i=1:2) default (none) local(i) ! { dg-error "Index variable 'i' at .1. cannot be specified in a locality-spec" } + block + integer, dimension(2,3), parameter :: & + ii = reshape((/ 1,2,3,4,5,6 /), (/2, 3/)) + print*,ii(i,:) + end block + end do +end program test
