Subversion Repositories openrisc

! { dg-do compile }

! PR 24748

! The compiler used to crash trying to take a substring of an implicit

! real scalar.

subroutine variant1

 ybtable=ylocal(1:2)  ! { dg-error "Syntax error in argument list" }

end

! We want the behavior to be the same whether ylocal is implicitly

! or explicitly typed.

subroutine variant2

 real ylocal

 ybtable=ylocal(1:2)  ! { dg-error "Syntax error in argument list" }

end