From 95cabf531c5d65dfb7d0ccbf2dd0b4ec6825489e Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 4 Nov 2025 10:23:31 +0100 Subject: [PATCH] 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. --- gcc/testsuite/gfortran.dg/pr122513-2.f90 | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr122513-2.f90 diff --git a/gcc/testsuite/gfortran.dg/pr122513-2.f90 b/gcc/testsuite/gfortran.dg/pr122513-2.f90 new file mode 100644 index 00000000000..3f6c5c4fcab --- /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 -- 2.47.3