https://gcc.gnu.org/g:0dfe0f14dc0dea8d9716e95aa50e0c989ae2d935
commit r17-1159-g0dfe0f14dc0dea8d9716e95aa50e0c989ae2d935 Author: Jakub Jelinek <[email protected]> Date: Tue Jun 2 08:36:32 2026 +0200 Fix up gfortran.dg/gomp/allocate-*.f90 The r17-1009 change (in particular gfc_match_omp_variable_list hunk of it) fixed spelling of one diagnostic message, but has not adjusted corresponding testsuite, so these tests now fail. Fixed thusly. 2026-06-02 Jakub Jelinek <[email protected]> * gfortran.dg/gomp/allocate-6.f90: Adjust dg-error wording after recent spelling fixes. * gfortran.dg/gomp/allocate-7.f90: Likewise. * gfortran.dg/gomp/allocate-14.f90: Likewise. * gcc.target/sparc/struct-ret-check-1.c: Fix comment spelling, specificed -> specified. Diff: --- gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c | 2 +- gcc/testsuite/gfortran.dg/gomp/allocate-14.f90 | 2 +- gcc/testsuite/gfortran.dg/gomp/allocate-6.f90 | 2 +- gcc/testsuite/gfortran.dg/gomp/allocate-7.f90 | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c b/gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c index 0428bc99df9a..5145005c3805 100644 --- a/gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c +++ b/gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c @@ -3,7 +3,7 @@ /* Test that GCC follows the SPARC 32-bit psABI with regards to structure return checking in a callee. When -mstd-struct-return - is specificed then gcc will emit code to skip the unimp insn. */ + is specified then gcc will emit code to skip the unimp insn. */ /* Origin: Carlos O'Donell <[email protected]> */ /* { dg-do run { target sparc*-*-solaris* sparc*-*-linux* sparc*-*-*bsd* } } */ diff --git a/gcc/testsuite/gfortran.dg/gomp/allocate-14.f90 b/gcc/testsuite/gfortran.dg/gomp/allocate-14.f90 index 77738344cead..a01c5a15723c 100644 --- a/gcc/testsuite/gfortran.dg/gomp/allocate-14.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/allocate-14.f90 @@ -79,7 +79,7 @@ subroutine common use m integer :: a,b,c(5) common /my/ a,b,c - !$omp allocate(b) allocator(omp_cgroup_mem_alloc) ! { dg-error "'b' at .1. is part of the common block '/my/' and may only be specificed implicitly via the named common block" } + !$omp allocate(b) allocator(omp_cgroup_mem_alloc) ! { dg-error "'b' at .1. is part of the common block '/my/' and may only be specified implicitly via the named common block" } end subroutine c_and_func_ptrs diff --git a/gcc/testsuite/gfortran.dg/gomp/allocate-6.f90 b/gcc/testsuite/gfortran.dg/gomp/allocate-6.f90 index 7b7d4fd46455..5962289ab3f5 100644 --- a/gcc/testsuite/gfortran.dg/gomp/allocate-6.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/allocate-6.f90 @@ -68,7 +68,7 @@ common /com2/ y,z integer, allocatable :: alloc integer, pointer :: ptr -!$omp allocate(q) ! { dg-error "'q' at .1. is part of the common block '/com1/' and may only be specificed implicitly via the named common block" } +!$omp allocate(q) ! { dg-error "'q' at .1. is part of the common block '/com1/' and may only be specified implicitly via the named common block" } !$omp allocate(d(:)) ! { dg-error "Unexpected expression as list item at .1. in ALLOCATE directive" } !$omp allocate(a) align(4), align(4) ! { dg-error "Duplicated 'align' clause" } diff --git a/gcc/testsuite/gfortran.dg/gomp/allocate-7.f90 b/gcc/testsuite/gfortran.dg/gomp/allocate-7.f90 index 81adf689ac35..808aa6d62449 100644 --- a/gcc/testsuite/gfortran.dg/gomp/allocate-7.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/allocate-7.f90 @@ -52,7 +52,7 @@ integer, parameter :: prm=5 !$omp allocate(used) allocator(omp_pteam_mem_alloc) ! { dg-error "Argument 'used' at .1. to declarative !.OMP ALLOCATE shall be in the same scope as the variable declaration" } !$omp allocate(n) allocator(omp_pteam_mem_alloc) ! { dg-error "Unexpected dummy argument 'n' as argument at .1. to declarative !.OMP ALLOCATE" } -!$omp allocate (x) align(128) ! { dg-error "'x' at .1. is part of the common block '/com1/' and may only be specificed implicitly via the named common block" } +!$omp allocate (x) align(128) ! { dg-error "'x' at .1. is part of the common block '/com1/' and may only be specified implicitly via the named common block" } !$omp allocate (a, b, a) allocator (omp_pteam_mem_alloc) ! { dg-error "Duplicated variable 'a' in !.OMP ALLOCATE" } contains
