Fix symmetric singular test

ralna · Jan 10, 2025 · d2e9310 · d2e9310
1 parent 7cb8890
commit d2e9310
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/scaling.f90 b/tests/scaling.f90
@@ -663,7 +663,7 @@ subroutine test_hungarian_sym_singular
 
   write(*, "(a)")
   write(*, "(a)") "===================================================="
-  write(*, "(a)") "Testing hungarian_scale_unsym() with singular matrix"
+  write(*, "(a)") "Testing hungarian_scale_sym() with singular matrix"
   write(*, "(a)") "===================================================="
 
   allocate(a%ptr(n+1))
@@ -688,7 +688,7 @@ subroutine test_hungarian_sym_singular
      errors = errors + 1
   endif
 
-  if(match(ising) >= 0) then
+  if(match(ising) .ne. 0) then
      write(*, "(a, i5, a, i5)") "Singular column ", ising, " has value ", match(ising)
      errors = errors + 1
   endif