17 lines
411 B
Fortran
17 lines
411 B
Fortran
! { 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
|
|
|