gfortran.dg/gomp/pr43711.f90: Change dg-* for XFAIL->PASS

gcc/testsuite/
	* gfortran.dg/gomp/pr43711.f90: Add dg-error + dg-prune-output,
	remove dg-excess-errors to change XFAIL to PASS.

(cherry picked from commit 7f4192dd3d84cb3f6584ae847eae18519d1eb76d)

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index ecf2ed8adfdb09df6625ff03a22e738d740f4c6f..1027065ddf75fd9813e313c74d9ec85ec2631155 100644 (file)
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,11 @@
+2021-10-06  Tobias Burnus  <tobias@codesourcery.com>
+
+       Backported from master:
+       2021-10-05  Tobias Burnus  <tobias@codesourcery.com>
+
+       * gfortran.dg/gomp/pr43711.f90: Add dg-error + dg-prune-output,
+       remove dg-excess-errors to change XFAIL to PASS.
+
 2021-10-01  Tobias Burnus  <tobias@codesourcery.com>
 
        Backported from master:

diff --git a/gcc/testsuite/gfortran.dg/gomp/pr43711.f90 b/gcc/testsuite/gfortran.dg/gomp/pr43711.f90
index e47e586ea65e6b41ec0b725d7aa391938f0ee552..d790e3e6d869fa1b6765661626fd0c26ad46670d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/gomp/pr43711.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/pr43711.f90
@@ -11,8 +11,8 @@ program NF03_2_5_2_1a
          print *, 'FAIL'
       !$omp section
          print *, 'FAIL'
-      !$omp end sections nowait nowait     ! { dg-error "Unexpected junk" }
-   !$omp end parallel
-end program NF03_2_5_2_1a
+      !$omp end sections nowait nowait     ! { dg-error "Unexpected junk after NOWAIT clause" }
+   !$omp end parallel  ! { dg-error "Unexpected !.OMP END PARALLEL statement" }
+end program NF03_2_5_2_1a  ! { dg-error "Unexpected END statement" }
 
-! { dg-excess-errors "Unexpected" }
+! { dg-prune-output "Unexpected end of file" }