@@ -11,6 +11,7 @@ program test_optval
11
11
call test_optval_dp
12
12
call test_optval_qp
13
13
14
+ call test_optval_csp
14
15
call test_optval_cdp
15
16
16
17
call test_optval_int8
@@ -62,24 +63,24 @@ function foo_dp(x) result(z)
62
63
end function foo_dp
63
64
64
65
65
- subroutine test_optval_sdp
66
+ subroutine test_optval_csp
66
67
complex (sp) :: z1
67
- print * , " test_optval_dp "
68
+ print * , " test_optval_csp "
68
69
z1 = cmplx (1.0_sp , 2.0_sp )
69
- call assert(foo_sdp (z1) == z1)
70
- call assert(foo_sdp () == z1)
71
- end subroutine test_optval_sdp
70
+ call assert(foo_csp (z1) == z1)
71
+ call assert(foo_csp () == z1)
72
+ end subroutine test_optval_csp
72
73
73
- function foo_sdp (x ) result(z)
74
+ function foo_csp (x ) result(z)
74
75
complex (sp), intent (in ), optional :: x
75
76
complex (sp) :: z
76
77
z = optval(x, cmplx (1.0_sp , 2.0_sp , kind= sp))
77
- end function foo_sdp
78
+ end function foo_csp
78
79
79
80
80
81
subroutine test_optval_cdp
81
82
complex (dp) :: z1
82
- print * , " test_optval_dp "
83
+ print * , " test_optval_cdp "
83
84
z1 = cmplx (1.0_dp , 2.0_dp )
84
85
call assert(foo_cdp(z1) == z1)
85
86
call assert(foo_cdp() == z1)
0 commit comments