1subroutine foo 2 3 !$omp masked 4 goto 55 ! { dg-error "invalid branch to/from OpenMP structured block" } 5 ! { dg-warning "Legacy Extension: Label at .1. is not in the same block as the GOTO statement" "" { target *-*-* } .-1 } 6 !$omp end masked 7 8 !$omp masked 955 continue ! { dg-warning "Legacy Extension: Label at .1. is not in the same block as the GOTO statement" } 10 return ! { dg-error "invalid branch to/from OpenMP structured block" } 11 !$omp end masked 12end subroutine foo 13