Reduce XFAILs in goacc/kernels-decompose-1.f95

	gcc/testsuite/
	* gfortran.dg/goacc/kernels-decompose-1.f95: Remove some
	xfails as the tests now pass.

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index a21bf07eb78148715d5a66e2418fa6194c745589..2209fd0cbee826d311310ce3270883e6fb5120ae 100644 (file)
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,8 @@
+2020-03-17  Tobias Burnus  <tobias@codesourcery.com>
+
+       * gfortran.dg/goacc/kernels-decompose-1.f95: Remove some
+       xfails as the tests now pass.
+
 2020-03-17  Tobias Burnus  <tobias@codesourcery.com>
 
        * gfortran.dg/goacc/common-block-3.f90: Update scan-tree-dump-times.

diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-decompose-1.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-decompose-1.f95
index 073b963f50df032655f25c03c0cb978fc997cf83..88ce786b7b95d797219b099dff42982c33582694 100644 (file)
--- a/gcc/testsuite/gfortran.dg/goacc/kernels-decompose-1.f95
+++ b/gcc/testsuite/gfortran.dg/goacc/kernels-decompose-1.f95
@@ -72,7 +72,7 @@ program main
   end do
   !$acc end kernels
 
-  !$acc kernels ! { dg-bogus "optimized: assigned OpenACC seq loop parallelism" "TODO" { xfail *-*-* } }
+  !$acc kernels ! { dg-message "optimized: assigned OpenACC worker vector loop parallelism" }
   !$acc loop independent ! { dg-message "optimized: assigned OpenACC gang loop parallelism" }
   ! { dg-message "optimized: parallelized loop nest in OpenACC .kernels. construct" "" { target *-*-* } .-1 }
   do i = 1, N
@@ -84,7 +84,7 @@ program main
         do k = 1, N
            a(1 + mod(i + j + k, N)) &
                 = b(j) &
-                + f_v (c(k)) ! { dg-message "optimized: assigned OpenACC vector loop parallelism" "TODO" { xfail *-*-* } .-1 }
+                + f_v (c(k)) ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
         end do
      end do
   end do
@@ -103,24 +103,24 @@ program main
   !TODO This refers to the "gang-single" "f_g" call.
   ! { dg-warning "region contains gang partitoned code but is not gang partitioned" "TODO" { xfail *-*-* } .-2 }
   ! { dg-message "optimized: beginning .gang-single. region in OpenACC .kernels. construct" "" { target *-*-* } .+1 }
-  y = f_g (a(5)) ! { dg-message "optimized: assigned OpenACC gang worker vector loop parallelism" "TODO" { xfail *-*-* } }
+  y = f_g (a(5)) ! { dg-message "optimized: assigned OpenACC gang worker vector loop parallelism" }
 
-  !$acc loop independent ! { dg-message "optimized: assigned OpenACC gang loop parallelism" "TODO" { xfail *-*-* } }
+  !$acc loop independent ! { dg-message "optimized: assigned OpenACC gang loop parallelism" }
   ! { dg-message "optimized: parallelized loop nest in OpenACC .kernels. construct" "" { target *-*-* } .-1 }
-  ! { dg-bogus "optimized: assigned OpenACC gang vector loop parallelism" "TODO" { xfail *-*-* } .-2 }
+  ! { dg-bogus "optimized: assigned OpenACC gang vector loop parallelism" "" { target *-*-* } .-2 }
   do j = 1, N
-     b(j) = y + f_w (c(j)) ! { dg-message "optimized: assigned OpenACC worker vector loop parallelism" "TODO" { xfail *-*-* } }
+     b(j) = y + f_w (c(j)) ! { dg-message "optimized: assigned OpenACC worker vector loop parallelism" }
   end do
   !$acc end kernels
 
   !$acc kernels
   y = 3 ! { dg-message "optimized: beginning .gang-single. region in OpenACC .kernels. construct" }
 
-  !$acc loop independent ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" "TODO" { xfail *-*-* } }
+  !$acc loop independent ! { dg-message "optimized: assigned OpenACC gang worker loop parallelism" }
   ! { dg-message "optimized: parallelized loop nest in OpenACC .kernels. construct" "" { target *-*-* } .-1 }
-  ! { dg-bogus "optimized: assigned OpenACC gang vector loop parallelism" "TODO" { xfail *-*-* } .-2 }
+  ! { dg-bogus "optimized: assigned OpenACC gang vector loop parallelism" "" { target *-*-* } .-2 }
   do j = 1, N
-     b(j) = y + f_v (c(j)) ! { dg-message "optimized: assigned OpenACC vector loop parallelism" "TODO" { xfail *-*-* } }
+     b(j) = y + f_v (c(j)) ! { dg-message "optimized: assigned OpenACC vector loop parallelism" }
   end do
 
   z = 2 ! { dg-message "optimized: beginning .gang-single. region in OpenACC .kernels. construct" }