style: remove unused variables

TheAlgorithms · Sep 24, 2024 · e302350 · e302350
1 parent 5126987
commit e302350
Show file tree

Hide file tree

Showing 6 changed files with 1 addition and 6 deletions.
diff --git a/modules/sorts/merge_sort.f90 b/modules/sorts/merge_sort.f90
@@ -23,7 +23,7 @@ recursive subroutine merge_sort(array, n)
         implicit none
         integer, dimension(:), intent(inout) :: array   ! Input/output array to be sorted
         integer, intent(in) :: n                        ! Size of the array
-        integer :: middle, i
+        integer :: middle
         integer, dimension(:), allocatable :: left_half, right_half, sorted_array
 
         ! Base case: return if the array has 1 or fewer elements

diff --git a/tests/sorts/tests_gnome_sort.f90 b/tests/sorts/tests_gnome_sort.f90
@@ -6,7 +6,6 @@ program tests_gnome_sort
 
     use gnome_sort_module
     implicit none
-    integer :: i
     integer, dimension(:), allocatable :: array
 
     ! Test 1: Repeated elements

diff --git a/tests/sorts/tests_heap_sort.f90 b/tests/sorts/tests_heap_sort.f90
@@ -6,7 +6,6 @@ program tests_heap_sort
 
     use heap_sort_module
     implicit none
-    integer :: i
     integer, dimension(:), allocatable :: array
 
     ! Test 1: Repeated elements

diff --git a/tests/sorts/tests_merge_sort.f90 b/tests/sorts/tests_merge_sort.f90
@@ -6,7 +6,6 @@ program tests_merge_sort
 
     use merge_sort_module
     implicit none
-    integer :: i
     integer, dimension(:), allocatable :: array
 
     ! Test 1: Repeated elements

diff --git a/tests/sorts/tests_quick_sort.f90 b/tests/sorts/tests_quick_sort.f90
@@ -6,7 +6,6 @@ program tests_quick_sort
 
     use quick_sort_module
     implicit none
-    integer :: i
     integer, dimension(:), allocatable :: array
 
     ! Test 1: Repeated elements

diff --git a/tests/sorts/tests_radix_sort.f90 b/tests/sorts/tests_radix_sort.f90
@@ -6,7 +6,6 @@
 program tests_radix_sort
     use radix_sort_module
     implicit none
-    integer :: i
     integer, dimension(:), allocatable :: array
     integer, parameter :: base10 = 10, base2 = 2, base16 = 16