2 C { dg-options "-fno-realloc-lhs -fdump-tree-optimized -fcheck=bounds -fblas-matmul-limit=1 -O -fexternal-blas" }
3 C { dg-shouldfail "Fortran runtime error: Array bound mismatch for dimension 2 of array." }
4 C { dg-additional-sources blas_gemm_routines.f }
7 real, dimension(3,2) :: a
8 real, dimension(2,3) :: b
9 real, dimension(:,:), allocatable
:: ret
13 ret
= matmul
(a
,b
) ! This should throw an error
.
15 ! { dg
-output
"Fortran runtime error: Array bound mismatch for dimension 2 of array.*" }
16 ! { dg
-final
{ scan
-tree
-dump
-times
"_gfortran_matmul" 0 "optimized" } }