From: Tobias Burnus <tburnus@baylibre.com>
Date: Mon, 22 Dec 2025 09:57:11 +0000 (+0100)
Subject: libgomp.fortran/uses_allocators_1.f90: Fix dg-error for r16-6273
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=50e2c80545c26f750f9e0d97e1bc3fbbeb2c671d;p=thirdparty%2Fgcc.git

libgomp.fortran/uses_allocators_1.f90: Fix dg-error for r16-6273

Missed to commit dg-error changes for the new diagnostic due to commit
r16-6273-g7044071f07d763   OpenMP: uses_allocators with ';'-separated list

libgomp/ChangeLog:

	* testsuite/libgomp.fortran/uses_allocators_1.f90: Update dg-error.
---

diff --git a/libgomp/testsuite/libgomp.fortran/uses_allocators_1.f90 b/libgomp/testsuite/libgomp.fortran/uses_allocators_1.f90
index 4c3b136d516..dcfdabe4fc5 100644
--- a/libgomp/testsuite/libgomp.fortran/uses_allocators_1.f90
+++ b/libgomp/testsuite/libgomp.fortran/uses_allocators_1.f90
@@ -147,9 +147,9 @@ subroutine traits_checks
   integer(kind=omp_allocator_handle_kind) :: a1
 
   ! Sensible - but not (yet?) valid - an array constructor:
-  !$omp target uses_allocators(traits ([omp_alloctrait :: ]) : a1 )  ! { dg-error "Invalid character in name" }
+  !$omp target uses_allocators(traits ([omp_alloctrait :: ]) : a1 )  ! { dg-error "39: Expected ',', '\\)' or ';' at .1." }
   block; end block
-  !$omp target uses_allocators(a1 ([omp_alloctrait :: ]))  ! { dg-error "Invalid character in name" }
+  !$omp target uses_allocators(a1 ([omp_alloctrait :: ]))  ! { dg-error "35: Expected ',', '\\)' or ';' at .1." }
   block; end block
 
   !$omp target uses_allocators(traits (trait1) : a1 )  ! { dg-error "Traits array 'trait1' in USES_ALLOCATORS .1. must be a one-dimensional named constant array of type 'omp_alloctrait'" }