blob: 8d8429136f6a5bcdd5775c7d92cee09200c099de [file] [log] [blame]
! { dg-do run }
! { dg-options "-finline-matmul-limit=0" }
! PR 80975 - this did not zero the result array
program bogus_matmul
implicit none
real :: M(3,0), v(0), w(3)
w = 7
w = matmul(M,v)
if( any(w .ne. 0) ) then
STOP 1
end if
end program bogus_matmul