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