@@ -21,28 +21,23 @@ module test_linalg_eigenvalues
21
21
allocate(tests(0))
22
22
23
23
#:for rk,rt,ri in REAL_KINDS_TYPES
24
- #:if rk!="xdp"
25
24
tests = [tests,new_unittest("test_eig_real_${ri}$",test_eig_real_${ri}$), &
26
25
new_unittest("test_eigvals_identity_${ri}$",test_eigvals_identity_${ri}$), &
27
26
new_unittest("test_eigvals_diagonal_B_${ri}$",test_eigvals_diagonal_B_${ri}$), &
28
27
new_unittest("test_eigvals_nondiagonal_B_${ri}$",test_eigvals_nondiagonal_B_${ri}$), &
29
28
new_unittest("test_eigh_real_${ri}$",test_eigh_real_${ri}$)]
30
- #:endif
31
29
#: endfor
32
30
33
31
#:for ck,ct,ci in CMPLX_KINDS_TYPES
34
- #:if ck!="xdp"
35
32
tests = [tests,new_unittest("test_eig_complex_${ci}$",test_eig_complex_${ci}$), &
36
33
new_unittest("test_eig_generalized_complex_${ci}$",test_eigvals_generalized_complex_${ci}$), &
37
34
new_unittest("test_eig_issue_927_${ci}$",test_issue_927_${ci}$)]
38
- #:endif
39
35
#: endfor
40
36
41
37
end subroutine test_eig_eigh
42
38
43
39
!> Simple real matrix eigenvalues
44
40
#:for rk,rt,ri in REAL_KINDS_TYPES
45
- #:if rk!="xdp"
46
41
subroutine test_eig_real_${ri}$(error)
47
42
type(error_type), allocatable, intent(out) :: error
48
43
@@ -240,12 +235,10 @@ module test_linalg_eigenvalues
240
235
if (allocated(error)) return
241
236
end subroutine test_eigvals_nondiagonal_B_${ri}$
242
237
243
- #:endif
244
238
#:endfor
245
239
246
240
!> Simple complex matrix eigenvalues
247
241
#:for ck,ct,ci in CMPLX_KINDS_TYPES
248
- #:if ck!="xdp"
249
242
subroutine test_eig_complex_${ci}$(error)
250
243
type(error_type), allocatable, intent(out) :: error
251
244
@@ -353,7 +346,6 @@ module test_linalg_eigenvalues
353
346
354
347
end subroutine test_issue_927_${ci}$
355
348
356
- #:endif
357
349
#:endfor
358
350
359
351
0 commit comments