Skip to content

Commit b5169a2

Browse files
committed
Corrected names and labels in tests,
Followed suggestions from @nshaffer and @certik
1 parent 10a17e4 commit b5169a2

File tree

2 files changed

+9
-10
lines changed

2 files changed

+9
-10
lines changed

src/CMakeLists.txt

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,8 +25,6 @@ set(SRC
2525
stdlib_experimental_io.f90
2626
stdlib_experimental_error.f90
2727
stdlib_experimental_kinds.f90
28-
stdlib_experimental_optval.f90
29-
stdlib_experimental_stats.f90
3028
stdlib_experimental_system.F90
3129
${outFiles}
3230
)

src/tests/optval/test_optval.f90

Lines changed: 9 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -11,6 +11,7 @@ program test_optval
1111
call test_optval_dp
1212
call test_optval_qp
1313

14+
call test_optval_csp
1415
call test_optval_cdp
1516

1617
call test_optval_int8
@@ -62,24 +63,24 @@ function foo_dp(x) result(z)
6263
endfunction foo_dp
6364

6465

65-
subroutine test_optval_sdp
66+
subroutine test_optval_csp
6667
complex(sp) :: z1
67-
print *, "test_optval_dp"
68+
print *, "test_optval_csp"
6869
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
7273

73-
function foo_sdp(x) result(z)
74+
function foo_csp(x) result(z)
7475
complex(sp), intent(in), optional :: x
7576
complex(sp) :: z
7677
z = optval(x, cmplx(1.0_sp, 2.0_sp, kind=sp))
77-
endfunction foo_sdp
78+
endfunction foo_csp
7879

7980

8081
subroutine test_optval_cdp
8182
complex(dp) :: z1
82-
print *, "test_optval_dp"
83+
print *, "test_optval_cdp"
8384
z1 = cmplx(1.0_dp, 2.0_dp)
8485
call assert(foo_cdp(z1) == z1)
8586
call assert(foo_cdp() == z1)

0 commit comments

Comments
 (0)