AArch64: correct constraint on Upl early clobber alternatives
[official-gcc.git] / gcc / testsuite / gfortran.dg / matmul_16.f90
blob8d8429136f6a5bcdd5775c7d92cee09200c099de
1 ! { dg-do run }
2 ! { dg-options "-finline-matmul-limit=0" }
3 ! PR 80975 - this did not zero the result array
4 program bogus_matmul
5 implicit none
6 real :: M(3,0), v(0), w(3)
8 w = 7
9 w = matmul(M,v)
10 if( any(w .ne. 0) ) then
11 STOP 1
12 end if
13 end program bogus_matmul