[committed] libgomp.fortran/uses_allocators_1.f90: Fix dg-error for r16-6273 (was: OpenMP: uses_allocators with ';'-separated list)
Tobias Burnus <[email protected]>
| Newsgroups | gmane.comp.gcc.patches,gmane.comp.gcc.fortran |
|---|---|
| Message-ID | <[email protected]> |
Tobias Burnus wrote:
> Trivial patch to permit:
> uses_allocators( traits(t1): alloc1 ; traits(t2): alloc2 )
> using ';' to split the items. (With commas, the modifier applies
> to all list items; with semicolons, new modifiers can be specified.)
Seemingly not that trivial as I missed to include the attached dg-error
update in the commit …
Fixed/updated two uses_allocators_1.f90 dg-error pattern in commit
r16-6324-g50e2c80545c26f
> This syntax saves typing of multiple (here: one) ') uses_allocators('
> in addition.
>
> Committed as Rev. r16-6273-g7044071f07d763.
Cherrs,
Tobias
committed.diff
(text/x-patch, 1.7 KB)
commit 50e2c80545c26f750f9e0d97e1bc3fbbeb2c671d Author: Tobias Burnus <[email protected]> Date: Mon Dec 22 10:57:11 2025 +0100 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. --- libgomp/testsuite/libgomp.fortran/uses_allocators_1.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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'" }