OpenMP/Fortran: Add support for firstprivate and allocate clauses on scope construct

Fortran commit to C/C++/backend commit
r13-862-gf38b20d68fade5a922b9f68c4c3841e653d1b83c

gcc/fortran/ChangeLog:

	* openmp.cc (OMP_SCOPE_CLAUSES): Add firstprivate and allocate.

libgomp/ChangeLog:

	* libgomp.texi (OpenMP 5.2): Mark scope w/ firstprivate/allocate as Y.
	* testsuite/libgomp.fortran/scope-2.f90: New test.

gcc/testsuite/ChangeLog:

	* gfortran.dg/gomp/scope-5.f90: New test.
	* gfortran.dg/gomp/scope-6.f90: New test.

1 files changed, 57 insertions, 0 deletions

diff --git a/libgomp/testsuite/libgomp.fortran/scope-2.f90 b/libgomp/testsuite/libgomp.fortran/scope-2.f90
new file mode 100644
index 0000000..f2e1593
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/scope-2.f90
@@ -0,0 +1,57 @@
+program main
+  implicit none
+  integer a(0:63)
+  integer r, r2, i, n
+  a = 0
+  r = 0
+  r2 = 0
+  n = 64
+  !$omp parallel
+    !$omp scope
+     !$omp scope firstprivate (n)
+      !$omp do
+      do i = 0, 63
+       a(i) = a(i) + 1
+      end do
+     !$omp end scope nowait
+    !$omp end scope nowait
+
+    !$omp scope reduction(+: r) firstprivate (n)
+      !$omp do
+      do i = 0, 63
+        r = r + i
+        if (a(i) /= 1) &
+          error stop
+      end do
+      !$omp end do nowait
+      !$omp barrier
+      if (n /= 64) then
+        error stop
+      else
+        n = 128
+      end if
+    !$omp end scope nowait
+
+    !$omp barrier
+    if (r /= 64 * 63 / 2) &
+      error stop
+    !$omp scope private (i)
+     !$omp scope reduction(+: r2)
+      !$omp do
+      do i = 0, 63
+          r2 = r2 + 2 * i
+          a(i) = a(i) + i
+      end do
+      !$omp end do nowait
+     !$omp end scope
+    !$omp end scope nowait
+    if (r2 /= 64 * 63) &
+      error stop
+    !$omp do
+    do i = 0, 63
+      if (a(i) /= i + 1) &
+        error stop
+    end do
+    !$omp end do nowait
+  !$omp end parallel
+end program