2 ! Verify that various cases of invalid branches are rejected
5 goto 10 ! { dg-error "not a valid branch target statement" }
6 10 else ! { dg-error "not a valid branch target statement" }
10 goto 20 ! { dg-error "not a valid branch target statement" }
13 20 end forall ! { dg-error "not a valid branch target statement" }
15 goto 30 ! { dg-error "not a valid branch target statement" }
16 goto 40 ! { dg-error "not a valid branch target statement" }
19 30 elsewhere ! { dg-error "not a valid branch target statement" }
21 40 end where ! { dg-error "not a valid branch target statement" }