Skip to content

Commit 5eb6b47

Browse files
committed
Looking for mysys2-build error.
1 parent 1fb76b2 commit 5eb6b47

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/stdlib_linalg_matrix_functions.fypp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -104,7 +104,7 @@ contains
104104

105105
! Iteratively compute the Pade approximation.
106106
block
107-
${rt}$ :: X_tmp(n, n)
107+
${rt}$, allocatable :: X_tmp(:, :)
108108
p = .true.
109109
do k = 2, order_
110110
c = c * (order_ - k + 1) / (k * (2*order_ - k + 1))
@@ -138,7 +138,7 @@ contains
138138

139139
! Matrix squaring.
140140
block
141-
${rt}$ :: E_tmp(n, n)
141+
${rt}$, allocatable :: E_tmp(:, :)
142142
do k = 1, s
143143
E_tmp = A
144144
#:if rt.startswith('complex')

0 commit comments

Comments
 (0)