blob: bdd11e615b9ffe995952059f94c734fabddd0f23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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
|
