openmp: Fix loop transformation tests

libgomp/ChangeLog:

	* testsuite/libgomp.fortran/loop-transforms/tile-2.f90: Add reduction clause.
	* testsuite/libgomp.fortran/loop-transforms/unroll-1.f90: Initialize var.
	* testsuite/libgomp.fortran/loop-transforms/unroll-simd-1.f90: Add reduction
	and initialization.

diff --git a/libgomp/ChangeLog.omp b/libgomp/ChangeLog.omp
index 32bc3b0c82cea1c8c5e2c390993596b84bff2dac..9cca6a97666da65a89cca05ad2196e8203e21149 100644 (file)
--- a/libgomp/ChangeLog.omp
+++ b/libgomp/ChangeLog.omp
@@ -1,3 +1,10 @@
+2023-04-25  Frederik Harwath  <frederik@codesourcery.com>
+
+       * testsuite/libgomp.fortran/loop-transforms/tile-2.f90: Add reduction clause.
+       * testsuite/libgomp.fortran/loop-transforms/unroll-1.f90: Initialize var.
+       * testsuite/libgomp.fortran/loop-transforms/unroll-simd-1.f90: Add reduction
+       and initialization.
+
 2023-04-20  Andrew Stubbs  <ams@codesourcery.com>
 
        * basic-allocator.c (basic_alloc_free): Use BASIC_ALLOC_YIELD.

diff --git a/libgomp/testsuite/libgomp.fortran/loop-transforms/tile-2.f90 b/libgomp/testsuite/libgomp.fortran/loop-transforms/tile-2.f90
index 6aedbf4724f041fd660b4909968492530874311f..a7cb5e7635d35ab2ff49f87ea96f29e2e2a3902d 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/loop-transforms/tile-2.f90
+++ b/libgomp/testsuite/libgomp.fortran/loop-transforms/tile-2.f90
@@ -69,7 +69,7 @@ module test_functions
     integer :: i,j
 
     sum = 0
-    !$omp parallel do collapse(2)
+    !$omp parallel do collapse(2) reduction(+:sum)
     !$omp tile sizes(6,10)
     do i = 1,10,3
        do j = 1,10,3

diff --git a/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-1.f90 b/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-1.f90
index f07aab898fa16e6c0cf4ef12f7072b4d0d0e0472..b91ea275577dc35f9ba74d7f117ccc6537ad60f4 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-1.f90
+++ b/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-1.f90
@@ -8,6 +8,7 @@ module test_functions
 
     integer :: i,j
 
+    sum = 0
     !$omp do
     do i = 1,10,3
        !$omp unroll full
@@ -22,6 +23,7 @@ module test_functions
 
     integer :: i,j
 
+    sum = 0
     !$omp parallel do reduction(+:sum)
     !$omp unroll partial(2)
     do i = 1,10,3

diff --git a/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-simd-1.f90 b/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-simd-1.f90
index 5fb64ddd6fd494e25ae99af4af0928253880026d..7a43458f0dd42a019698a563a5b562cbd8c9173b 100644 (file)
--- a/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-simd-1.f90
+++ b/libgomp/testsuite/libgomp.fortran/loop-transforms/unroll-simd-1.f90
@@ -9,7 +9,8 @@ module test_functions
 
     integer :: i,j
 
-    !$omp simd
+    sum = 0
+    !$omp simd reduction(+:sum)
     do i = 1,10,3
        !$omp unroll full
        do j = 1,10,3