2 ! Checks for corrects warnings if branching to then end of a
3 ! construct at various nesting levels
12 goto 20 ! { dg-warning "jumps to END of construct" }
14 20 end if ! { dg-warning "jumps to END of construct" }
18 goto 30 ! { dg-warning "jumps to END of construct" }
21 30 end if ! { dg-warning "jumps to END of construct" }
24 end subroutine check_if
26 subroutine check_select(i
)
35 goto 20 ! { dg-warning "jumps to END of construct" }
39 20 end select
! { dg-warning "jumps to END of construct" }
46 goto 30 ! { dg-warning "jumps to END of construct" }
49 30 end select
! { dg-warning "jumps to END of construct" }
52 end subroutine check_select
56 if (i
/= 2) call abort ()
58 if (i
/= 2) call abort ()