Skip to content

Commit 3941673

Browse files
committed
Revert "Looking for the msys2-build error"
This reverts commit 531261a.
1 parent 531261a commit 3941673

File tree

1 file changed

+6
-7
lines changed

1 file changed

+6
-7
lines changed

src/stdlib_linalg_matrix_functions.fypp

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -140,13 +140,12 @@ contains
140140
block
141141
${rt}$ :: E_tmp(n, n)
142142
do k = 1, s
143-
A = matmul(A, A)
144-
! E_tmp = A
145-
! #:if rt.startswith('complex')
146-
! call gemm("N", "N", n, n, n, one_c${rk}$, E_tmp, n, E_tmp, n, zero_c${rk}$, A, n)
147-
! #:else
148-
! call gemm("N", "N", n, n, n, one_${rk}$, E_tmp, n, E_tmp, n, zero_${rk}$, A, n)
149-
! #:endif
143+
E_tmp = A
144+
#:if rt.startswith('complex')
145+
call gemm("N", "N", n, n, n, one_c${rk}$, E_tmp, n, E_tmp, n, zero_c${rk}$, A, n)
146+
#:else
147+
call gemm("N", "N", n, n, n, one_${rk}$, E_tmp, n, E_tmp, n, zero_${rk}$, A, n)
148+
#:endif
150149
enddo
151150
end block
152151
endif

0 commit comments

Comments
 (0)