Subversion Repositories openrisc_me

! { 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