Commit 14833923 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl

Fix crazy DGEMM configure test

Some compilers detected the static out-of-bounds condition present in
the test code and refused to compile it.
parent 3e778964
......@@ -387,12 +387,10 @@ else
AC_LINK_IFELSE([AC_LANG_SOURCE([
program dgemm_test
integer , parameter:: n_cols=3,l_cols=3
real :: hvm(n_cols,l_cols)
call dgemm('T','N',n_cols,n_cols,l_cols,1.,hvm,ubound(hvm,1), &
hvm(1,n_cols+1),ubound(hvm,1),0.,hvm,ubound(hvm,1))
integer , parameter:: M = 4, N = 3, K = 2
real :: A(M,K), B(K,N), C(M,N)
call dgemm('N','N',M,N,K,1.0,A,M,B,K,0.0,C,M)
end program dgemm_test
])],
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment