24 lines
772 B
Fortran
24 lines
772 B
Fortran
! { dg-do compile }
|
|
! Verify that various cases of invalid branches are rejected
|
|
dimension a(10)
|
|
if (i>0) then
|
|
goto 10 ! { dg-error "not a valid branch target statement" }
|
|
10 else ! { dg-error "not a valid branch target statement" }
|
|
i = -i
|
|
end if
|
|
|
|
goto 20 ! { dg-error "not a valid branch target statement" }
|
|
forall (i=1:10)
|
|
a(i) = 2*i
|
|
20 end forall ! { dg-error "not a valid branch target statement" }
|
|
|
|
goto 30 ! { dg-error "not a valid branch target statement" }
|
|
goto 40 ! { dg-error "not a valid branch target statement" }
|
|
where (a>0)
|
|
a = 2*a
|
|
30 elsewhere ! { dg-error "not a valid branch target statement" }
|
|
a = a/2
|
|
40 end where ! { dg-error "not a valid branch target statement" }
|
|
end
|
|
|