subroutine foo
!$omp masked
goto 55 ! { dg-error "invalid branch to/from OpenMP structured block" }
! { dg-warning "Legacy Extension: Label at .1. is not in the same block as the GOTO statement" "" { target *-*-* } .-1 }
!$omp end masked
!$omp masked
55 continue ! { dg-warning "Legacy Extension: Label at .1. is not in the same block as the GOTO statement" }
return ! { dg-error "invalid branch to/from OpenMP structured block" }
!$omp end masked
end subroutine foo