13 lines
445 B
Fortran
13 lines
445 B
Fortran
! { dg-do run }
|
|
! { dg-shouldfail "dimension of array B incorrect in MATMUL intrinsic" }
|
|
! { dg-options "-finline-matmul-limit=0" }
|
|
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: Incorrect extent in argument B in MATMUL intrinsic in dimension 1" }
|