[gcc/devel/omp/gcc-12] openacc: Revert erroneous gang reduction change in OpenAcc test

[gcc/devel/omp/gcc-12] openacc: Revert erroneous gang reduction change in OpenAcc test

[Marcel Vollweiler]

https://gcc.gnu.org/g:4782e0ab95390f6035ecd0f39abd52ec836f3543

commit 4782e0ab95390f6035ecd0f39abd52ec836f3543
Author: Marcel Vollweiler <marcel@codesourcery.com>
Date:   Wed Oct 26 14:45:41 2022 +0000

    openacc: Revert erroneous gang reduction change in OpenAcc test
    
    This patch reverts an erroneous modification of an OpenAcc test case in
    d27d6c9e1e3bc18ba0113757b743b306ea69f825 "Various OpenACC reduction
    enhancements - test cases".
    
    The same reversion was already done on mainline with commit
    77d24d43644909852998043335b5a0e09d1e8f02.
    
    gcc/testsuite/ChangeLog:
    
            * gfortran.dg/goacc/orphan-reductions-1.f90: Adjust.

Diff:
---
 gcc/testsuite/ChangeLog.omp                             | 4 ++++
 gcc/testsuite/gfortran.dg/goacc/orphan-reductions-1.f90 | 8 ++++----
 2 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index d5548ebff3b..265ccd8b59f 100644
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,7 @@
+2022-10-26  Marcel Vollweiler  <marcel@codesourcery.com>
+
+	* gfortran.dg/goacc/orphan-reductions-1.f90: Adjust.
+
 2022-10-25  Abid Qadeer  <abidh@codesourcery.com>
 
 	* g++.dg/gomp/usm-4.C: New test.
diff --git a/gcc/testsuite/gfortran.dg/goacc/orphan-reductions-1.f90 b/gcc/testsuite/gfortran.dg/goacc/orphan-reductions-1.f90
index 609e30eca88..8eed080a128 100644
--- a/gcc/testsuite/gfortran.dg/goacc/orphan-reductions-1.f90
+++ b/gcc/testsuite/gfortran.dg/goacc/orphan-reductions-1.f90
@@ -30,7 +30,7 @@ end subroutine s1
 
 subroutine s2
   implicit none
-  !$acc routine worker
+  !$acc routine gang
 
   integer, parameter :: n = 100
   integer :: i, j, sum
@@ -81,7 +81,7 @@ end function f1
 
 integer function f2 ()
   implicit none
-  !$acc routine worker
+  !$acc routine gang
 
   integer, parameter :: n = 100
   integer :: i, j, sum
@@ -134,7 +134,7 @@ contains
 
   subroutine s4
     implicit none
-    !$acc routine worker
+    !$acc routine gang
 
     integer, parameter :: n = 100
     integer :: i, j, sum
@@ -185,7 +185,7 @@ contains
 
   integer function f4 ()
     implicit none
-    !$acc routine worker
+    !$acc routine gang
 
     integer, parameter :: n = 100
     integer :: i, j, sum