1! { dg-do compile }
2
3!$omp parallel
4!$omp critical
5       goto 10		! { dg-error "invalid (exit|branch)" }
6!$omp end critical
7 10    x = 1
8!$omp end parallel
9
10       end
11