1! { dg-do compile }
2! PR 24748
3
4! The compiler used to crash trying to take a substring of an implicit
5! real scalar.
6subroutine variant1
7 ybtable=ylocal(1:2)  ! { dg-error "Syntax error in argument list" }
8end
9
10! We want the behavior to be the same whether ylocal is implicitly
11! or explicitly typed.
12subroutine variant2
13 real ylocal
14 ybtable=ylocal(1:2)  ! { dg-error "Syntax error in argument list" }
15end
16
17