Subversion Repositories openrisc

! { dg-do compile }

program matmul_bounds_1

  implicit none

  real, dimension(3,2) :: a

  real, dimension(2,3) :: b

  real, dimension(3,2) :: rab

  real, dimension(2,2) :: rok

  real, dimension(2) :: rv

  real, dimension(3) :: rw

  real, dimension(3) :: x

  real, dimension(2) :: y

  a = 1

  b = 2

  x = 3

  y = 4

  ! These tests should throw an error

  rab = matmul(a,b) ! { dg-error "Different shape" }

  rv = matmul(a,y) ! { dg-error "Different shape" }

  rv = matmul(x,b) ! { dg-error "Different shape" }

  ! These are ok.

  rw = matmul(a,y)

  rv = matmul(x,a)

  rok = matmul(b,a)

end program matmul_bounds_1