- typo

Author: JHenneberg

src/assert_mod.F90

@@ -596,7 +596,7 @@ subroutine assert_approximate_real4(x, y, file_name, line_number, eps, suite)
     integer, intent(in), optional :: line_number
     real(4), intent(in), optional :: eps
     type(test_suite_type), intent(in), optional :: suite
-    
+    
     logical :: passed
     real(4) :: eps_
 
@@ -622,7 +622,7 @@ subroutine assert_approximate_real8(x, y, file_name, line_number, eps, suite)
     integer, intent(in), optional :: line_number
     real(8), intent(in), optional :: eps
     type(test_suite_type), intent(in), optional :: suite
-    
+    
     logical :: passed
     real(8) :: eps_
 
@@ -675,7 +675,7 @@ subroutine assert_approximate_real4_vec(x, y, file_name, line_number, eps, suite
             passed = .false.
             exit
           else
-              cycle
+            cycle
           end if
         end if
       end do
@@ -720,7 +720,7 @@ subroutine assert_approximate_real8_vec(x, y, file_name, line_number, eps, suite
             passed = .false.
             exit
           else
-              cycle
+            cycle
           end if
         end if
       end do
@@ -770,7 +770,7 @@ subroutine assert_approximate_real4_array(x, y, file_name, line_number, eps, sui
               passed = .false.
               exit
             else
-                cycle
+              cycle
             end if
           end if
         end do
@@ -821,7 +821,7 @@ subroutine assert_approximate_real8_array(x, y, file_name, line_number, eps, sui
               passed = .false.
               exit
             else
-                cycle
+              cycle
             end if
           end if
         end do