Subversion Repositories openrisc

! { dg-do compile }
!
! PR fortran/36355
! Check MATMUL argument types:
!
!           numeric   logical   other
! numeric      1         2        3
! logical      2         1        3
! other        3         3        3
!
! where
!   1    ok
!   2    argument type mismatch
!   3    invalid argument types
!

  INTEGER :: a(2,2)
  LOGICAL :: b(2,2)
  CHARACTER :: c

  a = MATMUL(a, a)            ! ok
  a = MATMUL(a, b)            ! { dg-error "must match" }
  a = MATMUL(a, c)            ! { dg-error "must be numeric or LOGICAL" }

  b = MATMUL(b, a)            ! { dg-error "must match" }
  b = MATMUL(b, b)            ! ok
  b = MATMUL(b, c)            ! { dg-error "must be numeric or LOGICAL" }

  c = MATMUL(c, a)            ! { dg-error "must be numeric or LOGICAL" }
  c = MATMUL(c, b)            ! { dg-error "must be numeric or LOGICAL" }
  c = MATMUL(c, c)            ! { dg-error "must be numeric or LOGICAL" }
END