summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/implicit_8.f90
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