Skip to content

Commit eaebe5c

Browse files
committed
restore pure attribute
1 parent c6076ea commit eaebe5c

File tree

2 files changed

+2
-2
lines changed

2 files changed

+2
-2
lines changed

src/stdlib_linalg.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -304,7 +304,7 @@ module stdlib_linalg
304304
!> Matrix determinant
305305
${rt}$ :: det
306306
end function stdlib_linalg_${rt[0]}$${rk}$determinant
307-
module function stdlib_linalg_pure_${rt[0]}$${rk}$determinant(a) result(det)
307+
pure module function stdlib_linalg_pure_${rt[0]}$${rk}$determinant(a) result(det)
308308
!> Input matrix a[m,n]
309309
${rt}$, intent(in) :: a(:,:)
310310
!> Matrix determinant

src/stdlib_linalg_determinant.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@ submodule (stdlib_linalg) stdlib_linalg_determinant
1616
! BLAS/LAPACK backends do not currently support xdp
1717
#:for rk,rt in RC_KINDS_TYPES
1818
#:if rk!="xdp"
19-
module function stdlib_linalg_pure_${rt[0]}$${rk}$determinant(a) result(det)
19+
pure module function stdlib_linalg_pure_${rt[0]}$${rk}$determinant(a) result(det)
2020
!!### Summary
2121
!! Compute determinant of a real square matrix (pure interface).
2222
!!

0 commit comments

Comments
 (0)