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