gcc/testsuite/gfortran.dg/implicit_8.f90

   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.
   6 subroutine variant1
   7  ybtable=ylocal(1:2)  ! { dg-error "Syntax error in argument list" }
   8 end
   9
  10 ! We want the behavior to be the same whether ylocal is implicitly
  11 ! or explicitly typed.
  12 subroutine variant2
  13  real ylocal
  14  ybtable=ylocal(1:2)  ! { dg-error "Syntax error in argument list" }
  15 end
  16