fix: mismatch in array/vec sizes let test pass

Author: JHenneberg

src/assert_mod.F90

@@ -398,6 +398,8 @@ subroutine assert_equal_integer1_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -430,6 +432,8 @@ subroutine assert_equal_integer2_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -462,6 +466,8 @@ subroutine assert_equal_integer4_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -494,6 +500,8 @@ subroutine assert_equal_integer8_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -526,6 +534,8 @@ subroutine assert_equal_real4_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -558,6 +568,8 @@ subroutine assert_equal_real8_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -590,6 +602,8 @@ subroutine assert_equal_string_array(x, y, file_name, line_number, suite)
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('==', passed, x(loc_i, loc_j), y(loc_i, loc_j), file_name, line_number, suite)
@@ -688,6 +702,8 @@ subroutine assert_approximate_real4_vec(x, y, z, file_name, line_number, eps, su
           end if
         end if
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('=~', passed, to_string(x(loc)), to_string(y(loc)), file_name, line_number, suite)
@@ -754,6 +770,8 @@ subroutine assert_approximate_real8_vec(x, y, z, file_name, line_number, eps, su
           end if
         end if
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('=~', passed, to_string(x(loc)), to_string(y(loc)), file_name, line_number, suite)
@@ -826,6 +844,8 @@ subroutine assert_approximate_real4_array(x, y, z, file_name, line_number, eps,
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('=~', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)
@@ -898,6 +918,8 @@ subroutine assert_approximate_real8_array(x, y, z, file_name, line_number, eps,
           end if
         end do
       end do
+    else
+      passed = .false.
     end if
 
     call test_case_append_assert('=~', passed, to_string(x(loc_i, loc_j)), to_string(y(loc_i, loc_j)), file_name, line_number, suite)