blob: 2ff7c081151e95e5aa150b0eb25a9c21faab332d [file] [log] [blame]
! { 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