blob: b67601f40f4e264b96ba658c04ee72f9dabe46a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do run }
! { dg-shouldfail "dimension of array B incorrect in MATMUL intrinsic" }
program main
real, dimension(:,:), allocatable :: a
real, dimension(:), allocatable :: b
allocate (a(2,2), b(3))
call random_number(a)
call random_number(b)
print *,matmul(a,b)
end program main
! { dg-output "Fortran runtime error: dimension of array B incorrect in MATMUL intrinsic.*" }
|
