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 --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index d5548ebff3b479c5c59b891cc5065e5231c50826..265ccd8b59f6b2bdbe1338f70dc2fd3dc60d932c 100644 (file)
--- 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 609e30eca884ad95cd5bb488d6734319c5130bba..8eed080a12800c567196a8e6cda6cd4a794e5fbb 100644 (file)
--- 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