pr85521_2.f90 « gfortran.dg « testsuite « gcc - gcc.git - Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

index : gcc.git

Linaro gcc mirror (git://gcc.gnu.org/git/gcc.git) + linaro-local branches

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pr85521_2.f90

blob: 737b61a11b980f8d1ba900fafe4c0f0e9c2f3c2c (plain)

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