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  <jakub@redhat.com>

	* 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 --git a/gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c b/gcc/testsuite/gcc.target/sparc/struct-ret-check-1.c
index 0428bc99df9adade486ea4a864764a2aaf3d1e18..5145005c380500bd6065ab5ed64e5d5ed27f0df0 100644 (file)
--- 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 <carlos@codesourcery.com> */
 /* { 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 77738344cead9709f2c2fe9bd26d3e1efd5b6052..a01c5a15723c03520f79ce5dfef282f5e2ac3094 100644 (file)
--- 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 7b7d4fd464551a36dad87262de555f4cefcd239c..5962289ab3f5e774c7abe25840cc3b91d26e4867 100644 (file)
--- 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 81adf689ac35ad20c234668b2d5fc561d27c1d42..808aa6d62449ddec11432ff27bddc5b872004c47 100644 (file)
--- 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