@@ -1,3 +1,8 @@
+2015-09-18 Thomas Schwinge <thomas@codesourcery.com>
+
+ * testsuite/libgomp.oacc-fortran/reduction-5.f90: Extend. XFAIL
+ execution test for -O0.
+
2015-09-15 Nathan Sidwell <nathan@codesourcery.com>
* oacc-parallel.c (GOACC_parallel_keyed): Use GOMP_DIM constants.
@@ -1,4 +1,5 @@
! { dg-do run }
+! { dg-xfail-run-if "TODO" { *-*-* } { "-O0" } }
! subroutine reduction
@@ -7,7 +8,7 @@ program reduction
integer :: i, vsum, gs, ws, vs, cs
call redsub_gang (gs, n, c)
- call redsub_worker (gs, n, c)
+ call redsub_worker (ws, n, c)
call redsub_vector (vs, n, c)
call redsub_combined (cs, n, c)
@@ -19,7 +20,9 @@ program reduction
end do
if (gs .ne. vsum) call abort ()
+ if (ws .ne. vsum) call abort ()
if (vs .ne. vsum) call abort ()
+ if (cs .ne. vsum) call abort ()
end program reduction
subroutine redsub_gang(sum, n, c)