data_substring.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/data_substring.f90

blob: 6d6b2c0157976549124939cecc3589ef894879e6 (plain)

! { dg-do compile }
! PR fortran/30792
character string*1025
integer i
data (string(i:i),i=1,1025)/1025*'?'/  ! { dg-error "Invalid substring" }
end