gcc/testsuite/gfortran.dg/gomp/block-1.f90 - gcc - Git at Google

 ! { dg-do compile }

 !$omp parallel
 !$omp critical
        goto 10		! { dg-error "invalid (exit|branch)" }
 !$omp end critical
  10    x = 1
 !$omp end parallel

        end
	! { dg-do compile }

	!$omp parallel
	!$omp critical
	goto 10 ! { dg-error "invalid (exit\|branch)" }
	!$omp end critical
	10 x = 1
	!$omp end parallel

	end