PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr59910.f90

! { dg-do compile }
! PR fortran/59910
!
program main
  implicit none
  type bar
      integer :: limit(1)
  end type
  type (bar) :: testsuite
  data testsuite / bar(reshape(source=[10],shape=[1])) /
end