re PR fortran/85521 (ICE in gfc_resolve_character_array_constructor, at fortran/array...

[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / pr85521_1.f90

! { dg-do compile }
! PR fortran/85521
program p
   character(3) :: c = 'abc'
   character(3) :: z(1)
   z = [ c(:-1) ]
   print *, z
end