summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/string_5.f90
blob: 87ec70942a55b0baf935c8480cb15c4512b9d173 (plain)
1
2
3
4
5
6
7
! { dg-do compile }
! PR fortran/48876 - this used to segfault.
! Test case contributed by mhp77 (a) gmx.at.
program test
  character ::  string =  "string"( : -1 )
end program test