2 C { dg-options "-fdump-tree-optimized -fcheck=bounds -fblas-matmul-limit=1 -O -fexternal-blas" }
3 C { dg-shouldfail "Fortran runtime error: Incorrect extent in argument B in MATMUL intrinsic in dimension 1" }
4 C { dg-additional-sources blas_gemm_routines.f }
7 character(len
=20) :: line
9 real, dimension(3,2) :: a
10 real, dimension(:,:), allocatable
:: b
11 real, dimension(:,:), allocatable
:: ret
14 read (unit
=line
,fmt
=*) n
, m
17 ret
= matmul
(transpose
(a
),b
) ! This should throw an error
.
19 ! { dg
-output
"Fortran runtime error: Incorrect extent in argument B in MATMUL intrinsic in dimension 1.*" }
20 ! { dg
-final
{ scan
-tree
-dump
-times
"_gfortran_matmul" 0 "optimized" } }