gfortran.dg/gomp/pr43711.f90: Change dg-* for XFAIL->PASS
authorTobias Burnus <tobias@codesourcery.com>
Tue, 5 Oct 2021 12:28:10 +0000 (14:28 +0200)
committerTobias Burnus <tobias@codesourcery.com>
Tue, 5 Oct 2021 12:28:10 +0000 (14:28 +0200)
gcc/testsuite/
* gfortran.dg/gomp/pr43711.f90: Add dg-error + dg-prune-output,
remove dg-excess-errors to change XFAIL to PASS.

gcc/testsuite/gfortran.dg/gomp/pr43711.f90

index e47e586..d790e3e 100644 (file)
@@ -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" }