26 lines
614 B
Fortran
26 lines
614 B
Fortran
! { 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
|
|
|