1! { dg-do compile } 2! Verify that various cases of invalid branches are rejected 3 dimension a(10) 4 if (i>0) then 5 goto 10 ! { dg-error "not a valid branch target statement" } 610 else ! { dg-error "not a valid branch target statement" } 7 i = -i 8 end if 9 10 goto 20 ! { dg-error "not a valid branch target statement" } 11 forall (i=1:10) 12 a(i) = 2*i 1320 end forall ! { dg-error "not a valid branch target statement" } 14 15 goto 30 ! { dg-error "not a valid branch target statement" } 16 goto 40 ! { dg-error "not a valid branch target statement" } 17 where (a>0) 18 a = 2*a 1930 elsewhere ! { dg-error "not a valid branch target statement" } 20 a = a/2 2140 end where ! { dg-error "not a valid branch target statement" } 22 end 23 24