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 |