From 88541c70c36c2445ef36c89e9597d3876a0af880 Mon Sep 17 00:00:00 2001 From: Jaroslav Fowkes Date: Fri, 10 Jan 2025 09:11:45 +0000 Subject: [PATCH] Tidy singular scaling tests --- tests/scaling.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/scaling.f90 b/tests/scaling.f90 index f7b6f9ce..40c7aef6 100644 --- a/tests/scaling.f90 +++ b/tests/scaling.f90 @@ -640,7 +640,7 @@ subroutine test_hungarian_unsym_singular endif if(match(ising) .ne. 0) then - write(*, "(a, i5, a, i5)") "Singular column ", ising, "matched to ", match(ising) + write(*, "(a, i5, a, i5)") "Singular row ", ising, "matched to ", match(ising) errors = errors + 1 endif @@ -651,7 +651,7 @@ end subroutine test_hungarian_unsym_singular subroutine test_hungarian_sym_singular integer :: m = 3 integer :: n = 3 - integer :: nz = 6 + integer :: nz = 2 integer :: ising = 3 type(matrix_type) :: a