addition of tests for sort_adjoint

jvdp1 · Oct 18, 2024 · 724fbee · 724fbee
1 parent 54fc607
commit 724fbee
Show file tree

Hide file tree

Showing 2 changed files with 357 additions and 11 deletions.
diff --git a/src/stdlib_sorting_sort_adjoint.fypp b/src/stdlib_sorting_sort_adjoint.fypp
@@ -103,19 +103,11 @@ contains
 
         ${t2}$, allocatable :: buf(:)
         ${ti}$, allocatable :: ibuf(:)
-        integer(int_index) :: array_size, i
+        integer(int_index) :: array_size
         integer(int_index) :: stat
 
         array_size = size(array, kind=int_index)
 
-        if ( array_size > huge(adjoint_array)) then
-            error stop "Too many entries for the kind of adjoint_array."
-        end if
-
-        if ( array_size > size(adjoint_array, kind=int_index) ) then
-            error stop "Too many entries for the size of adjoint_array."
-        end if
-
         if ( optval(reverse, .false.) ) then
             call reverse_segment( array, adjoint_array )
         end if