@@ -21,28 +21,23 @@ module test_linalg_eigenvalues
2121 allocate(tests(0))
2222
2323 #:for rk,rt,ri in REAL_KINDS_TYPES
24- #:if rk!="xdp"
2524 tests = [tests,new_unittest("test_eig_real_${ri}$",test_eig_real_${ri}$), &
2625 new_unittest("test_eigvals_identity_${ri}$",test_eigvals_identity_${ri}$), &
2726 new_unittest("test_eigvals_diagonal_B_${ri}$",test_eigvals_diagonal_B_${ri}$), &
2827 new_unittest("test_eigvals_nondiagonal_B_${ri}$",test_eigvals_nondiagonal_B_${ri}$), &
2928 new_unittest("test_eigh_real_${ri}$",test_eigh_real_${ri}$)]
30- #:endif
3129 #: endfor
3230
3331 #:for ck,ct,ci in CMPLX_KINDS_TYPES
34- #:if ck!="xdp"
3532 tests = [tests,new_unittest("test_eig_complex_${ci}$",test_eig_complex_${ci}$), &
3633 new_unittest("test_eig_generalized_complex_${ci}$",test_eigvals_generalized_complex_${ci}$), &
3734 new_unittest("test_eig_issue_927_${ci}$",test_issue_927_${ci}$)]
38- #:endif
3935 #: endfor
4036
4137 end subroutine test_eig_eigh
4238
4339 !> Simple real matrix eigenvalues
4440 #:for rk,rt,ri in REAL_KINDS_TYPES
45- #:if rk!="xdp"
4641 subroutine test_eig_real_${ri}$(error)
4742 type(error_type), allocatable, intent(out) :: error
4843
@@ -240,12 +235,10 @@ module test_linalg_eigenvalues
240235 if (allocated(error)) return
241236 end subroutine test_eigvals_nondiagonal_B_${ri}$
242237
243- #:endif
244238 #:endfor
245239
246240 !> Simple complex matrix eigenvalues
247241 #:for ck,ct,ci in CMPLX_KINDS_TYPES
248- #:if ck!="xdp"
249242 subroutine test_eig_complex_${ci}$(error)
250243 type(error_type), allocatable, intent(out) :: error
251244
@@ -353,7 +346,6 @@ module test_linalg_eigenvalues
353346
354347 end subroutine test_issue_927_${ci}$
355348
356- #:endif
357349 #:endfor
358350
359351
0 commit comments