Skip to content

Commit aa51311

Browse files
authored
Update stdlib_linalg_inverse.fypp
There is also a typo in line 167: probably not previously catched due to the implicit real<->complex conversion
1 parent 47f426c commit aa51311

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_linalg_inverse.fypp

+1-1
Original file line numberDiff line numberDiff line change
@@ -164,7 +164,7 @@ submodule (stdlib_linalg) stdlib_linalg_inverse
164164
if (allocated(inva)) deallocate(inva)
165165
allocate(inva(size(a,1,kind=ilp),size(a,2,kind=ilp)))
166166

167-
#:if rt.startswith('complex')
167+
#:if rt.startswith('real')
168168
inva = ieee_value(1.0_${rk}$,ieee_quiet_nan)
169169
#:else
170170
inva = cmplx(ieee_value(1.0_${rk}$,ieee_quiet_nan), &

0 commit comments

Comments
 (0)