[gcc/devel/omp/gcc-13] gfortran.dg/gomp/allocate-4a.f90: Update dg-error

[Tobias Burnus]

https://gcc.gnu.org/g:b687bc195c09b1111e8b390d21433f77c4b73752

commit b687bc195c09b1111e8b390d21433f77c4b73752
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Thu Oct 26 16:12:19 2023 +0200

    gfortran.dg/gomp/allocate-4a.f90: Update dg-error
    
    This has been missed to include in commit
      59175e6f088 Fortran: Support OpenMP's 'allocate' directive for stack vars
    
    gcc/testsuite/
    
            * gfortran.dg/gomp/allocate-4a.f90: Update dg-error.

Diff:
---
 gcc/testsuite/ChangeLog.omp                    | 4 ++++
 gcc/testsuite/gfortran.dg/gomp/allocate-4a.f90 | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index 89059cadd62d..27445c6df898 100644
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,7 @@
+2023-10-26  Tobias Burnus  <tobias@codesourcery.com>
+
+	* gfortran.dg/gomp/allocate-4a.f90: Update dg-error.
+
 2023-10-26  Tobias Burnus  <tobias@codesourcery.com>
 
 	* c-c++-common/gomp/allocate-5.c: Remove C++ 'sorry'; minor updates.
diff --git a/gcc/testsuite/gfortran.dg/gomp/allocate-4a.f90 b/gcc/testsuite/gfortran.dg/gomp/allocate-4a.f90
index a2dcf105ee17..a79ed7787de4 100644
--- a/gcc/testsuite/gfortran.dg/gomp/allocate-4a.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/allocate-4a.f90
@@ -33,13 +33,13 @@ integer(kind=omp_allocator_handle_kind), intent(in) :: my_alloc
 
 !stack variables:
 integer :: a,b,c(n),d(5),e(2)
-!$omp allocate(a)   ! { dg-error "Sorry, declarative !.OMP ALLOCATE at .1. not yet supported" }
+!$omp allocate(a)
 !$omp allocate ( b , c ) align ( 32) allocator (my_alloc)
 !$omp allocate (d) align( 128 )
 !$omp allocate(   e ) allocator( omp_high_bw_mem_alloc )
 
 !saved vars
-integer, save :: k,l,m(5),r(2)
+integer, save :: k,l,m(5),r(2)   ! { dg-error "Sorry, !.OMP allocate for variable 'k' at .1. with SAVE attribute not yet implemented" }
 !$omp allocate(k)  align(16) , allocator (omp_large_cap_mem_alloc)
 !$omp allocate ( l ) allocator (omp_large_cap_mem_alloc) , align ( 32)
 !$omp allocate (m) align( 128 ),allocator( omp_high_bw_mem_alloc )