gcc/testsuite/gfortran.dg/gomp/nowait-1.f90

subroutine foo

!$omp do
do i = 1, 2
end do
!$omp end do nowait foo  ! { dg-error "Unexpected junk after NOWAIT clause" }
!$omp end do  ! as previous line is ignored

!$omp scope
  block; end block
!$omp end scope bar  ! { dg-error "Unexpected junk at" }
!$omp end scope

!$omp scope
  block; end block
!$omp end scope nowait nowait ! { dg-error "Unexpected junk after NOWAIT clause" }
!$omp end scope

end