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 --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index 89059cadd62d4ebf803c51ed719ba895c06ceb92..27445c6df898d56aecf1875b84adb05ebb1b36c4 100644 (file)
--- 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 a2dcf105ee17ea8bb3b27f1f92996a72e082f80e..a79ed7787de453fdbabc1022f342f5713f05e80d 100644 (file)
--- 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 )