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

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

! { dg-do run }
program p
   integer, parameter :: a(3,2) = 1
   real, parameter :: b(2,3) = 2
   real d(3,3)
   d = 4
   if (any(d /= matmul(a,b))) STOP 1
end