Commit 14833923 authored by Lorenz Huedepohl's avatar Lorenz Huedepohl
Browse files

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
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), &
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