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

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

! { dg-do run }
! PR fortran/85938
program foo
  real a(9), b(3)
  integer :: n = 3
  a = 1.0
  b = 1.0
  if (any(matmul(reshape(A, (/ n, n /)), b) /= 3.)) stop 1
end program