Skip to content
Open
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
44 changes: 22 additions & 22 deletions src/testdrive.F90
Original file line number Diff line number Diff line change
Expand Up @@ -974,13 +974,13 @@ subroutine check_float_dp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1069,13 +1069,13 @@ subroutine check_float_sp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1165,13 +1165,13 @@ subroutine check_float_xdp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1262,13 +1262,13 @@ subroutine check_float_qp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1358,13 +1358,13 @@ subroutine check_complex_dp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1453,13 +1453,13 @@ subroutine check_complex_sp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1549,13 +1549,13 @@ subroutine check_complex_xdp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1646,13 +1646,13 @@ subroutine check_complex_qp(error, actual, expected, message, more, thr, rel)
else
if (relative) then
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(int(diff*100))//"%)", &
more)
else
call test_failed(error, &
"Floating point value missmatch", &
"Floating point value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual)//" "//&
"(difference: "//to_string(diff)//")", &
more)
Expand Down Expand Up @@ -1711,7 +1711,7 @@ subroutine check_int_i1(error, actual, expected, message, more)
call test_failed(error, message, more)
else
call test_failed(error, &
"Integer value missmatch", &
"Integer value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual), &
more)
end if
Expand Down Expand Up @@ -1742,7 +1742,7 @@ subroutine check_int_i2(error, actual, expected, message, more)
call test_failed(error, message, more)
else
call test_failed(error, &
"Integer value missmatch", &
"Integer value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual), &
more)
end if
Expand Down Expand Up @@ -1773,7 +1773,7 @@ subroutine check_int_i4(error, actual, expected, message, more)
call test_failed(error, message, more)
else
call test_failed(error, &
"Integer value missmatch", &
"Integer value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual), &
more)
end if
Expand Down Expand Up @@ -1804,7 +1804,7 @@ subroutine check_int_i8(error, actual, expected, message, more)
call test_failed(error, message, more)
else
call test_failed(error, &
"Integer value missmatch", &
"Integer value mismatch", &
"expected "//to_string(expected)//" but got "//to_string(actual), &
more)
end if
Expand Down Expand Up @@ -1835,7 +1835,7 @@ subroutine check_bool(error, actual, expected, message, more)
call test_failed(error, message, more)
else
call test_failed(error, &
"Logical value missmatch", &
"Logical value mismatch", &
"expected "//merge("T", "F", expected)//" but got "//merge("T", "F", actual), &
more)
end if
Expand Down Expand Up @@ -1866,7 +1866,7 @@ subroutine check_string(error, actual, expected, message, more)
call test_failed(error, message, more)
else
call test_failed(error, &
"Character value missmatch", &
"Character value mismatch", &
"expected '"//expected//"' but got '"//actual//"'", &
more)
end if
Expand Down
Loading