2 program matmul_bounds_1
4 real, dimension(3,2) :: a
5 real, dimension(2,3) :: b
6 real, dimension(3,2) :: rab
7 real, dimension(2,2) :: rok
8 real, dimension(2) :: rv
9 real, dimension(3) :: rw
10 real, dimension(3) :: x
11 real, dimension(2) :: y
16 ! These tests should throw an error
17 rab
= matmul(a
,b
) ! { dg-error "Different shape" }
18 rv
= matmul(a
,y
) ! { dg-error "Different shape" }
19 rv
= matmul(x
,b
) ! { dg-error "Different shape" }
24 end program matmul_bounds_1