Changed test_sorting.f90 to reduce run times

Changed sorted integer array from size 2**20 to size 2**16
Changed sorted character array from size 26**4 to 16**4, so the four characters
are a-p.
Changed sorted string array from size 26**3 to 16**3, so the four characters
are a-p.
Change format for the run times from F10.5 to F10.6 to give at least three
digits of precision.

[ticket: X]

Author: wclodius2

src/tests/sorting/test_sorting.f90

@@ -4,17 +4,17 @@ program test_sorting
         compiler_version
     use stdlib_kinds, only: int32, int64, dp, sp
     use stdlib_sorting
-    use stdlib_string_type, only: string_type, assignment(=), operator(>), operator(<), &
-        write(formatted)
+    use stdlib_string_type, only: string_type, assignment(=), operator(>), &
+        operator(<), write(formatted)
     use stdlib_error, only: check
 
     implicit none
 
-    integer(int32), parameter :: test_size = 2_int32**20
-    integer(int32), parameter :: char_size = 26**4
-    integer(int32), parameter :: string_size = 26**3
+    integer(int32), parameter :: test_size = 2_int32**16
+    integer(int32), parameter :: char_size = 16**4
+    integer(int32), parameter :: string_size = 16**3
     integer(int32), parameter :: block_size = test_size/6
-    integer, parameter        :: repeat = 8
+    integer, parameter        :: repeat = 1
 
     integer(int32) ::             &
         blocks(0:test_size-1),    &
@@ -38,11 +38,12 @@ program test_sorting
     integer(int32)          :: dummy(0:test_size-1)
     character(len=4)        :: char_dummy(0:char_size-1)
     type(string_type)       :: string_dummy(0:string_size-1)
-    integer(int_size)       :: index(0:test_size-1)
+    integer(int_size)       :: index(0:max(test_size, char_size, string_size)-1)
     integer(int32)          :: work(0:test_size/2-1)
     character(len=4)        :: char_work(0:char_size/2-1)
     type(string_type)       :: string_work(0:string_size/2-1)
-    integer(int_size)       :: iwork(0:test_size/2-1)
+    integer(int_size)       :: iwork(0:max(test_size, char_size, &
+                                     string_size)/2-1)
     integer                 :: count, i, index1, index2, j, k, l, temp
     real(sp)                :: arand, brand
     character(*), parameter :: filename = 'test_sorting.txt'
@@ -91,10 +92,10 @@ program test_sorting
     end do
 
     count = 0
-    do i=0, 25
-        do j=0, 25
-            do k=0, 25
-                do l=0, 25
+    do i=0, 15
+        do j=0, 15
+            do k=0, 15
+                do l=0, 15
                     char_increase(count) = achar(97+i) // achar(97+j) // &
                         achar(97+k) // achar(97+l)
                     count = count + 1
@@ -117,9 +118,9 @@ program test_sorting
     end do
 
     count = 0
-    do i=0, 25
-        do j=0, 25
-            do k=0, 25
+    do i=0, 15
+        do j=0, 15
+            do k=0, 15
                 string_increase(count) = achar(97+i) // achar(97+j) // &
                     achar(97+k)
                 count = count + 1
@@ -171,7 +172,6 @@ program test_sorting
 
     call test_string_sort_indexes( ldummy ); ltest = (ltest .and. ldummy)
 
-
     call check(ltest)
 
 contains
@@ -244,7 +244,7 @@ subroutine test_int_ord_sort( a, a_name, ltest )
             write(*,'(a12, 2i7)') 'dummy(i-1:i) = ', dummy(i-1:i)
         end if
         write( lun, '("|     Integer |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             test_size, a_name, "Ord_Sort", tdiff/rate
 
         !reverse
@@ -316,7 +316,7 @@ subroutine test_char_ord_sort( a, a_name, ltest )
             write(*,'(a, 2(1x,a4))') 'char_dummy(i-1:i) = ', char_dummy(i-1:i)
         end if
         write( lun, '("|   Character |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             char_size, a_name, "Ord_Sort", tdiff/rate
 
         !reverse
@@ -393,7 +393,7 @@ subroutine test_string_ord_sort( a, a_name, ltest )
                 string_dummy(i-1:i)
         end if
         write( lun, '("| String_type |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             string_size, a_name, "Ord_Sort", tdiff/rate
 
         !reverse
@@ -491,7 +491,7 @@ subroutine test_int_sort( a, a_name, ltest )
             write(*,'(a12, 2i7)') 'dummy(i-1:i) = ', dummy(i-1:i)
         end if
         write( lun, '("|     Integer |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             test_size, a_name, "Sort", tdiff/rate
 
 
@@ -556,7 +556,7 @@ subroutine test_char_sort( a, a_name, ltest )
             write(*,'(a17, 2(1x,a4))') 'char_dummy(i-1:i) = ', char_dummy(i-1:i)
         end if
         write( lun, '("|   Character |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             char_size, a_name, "Sort", tdiff/rate
 
         !reverse
@@ -619,7 +619,7 @@ subroutine test_string_sort( a, a_name, ltest )
                 string_dummy(i-1:i)
         end if
         write( lun, '("| String_type |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             string_size, a_name, "Sort", tdiff/rate
 
         ! reverse
@@ -696,7 +696,7 @@ subroutine test_int_sort_index( a, a_name, ltest )
         end do
         tdiff = tdiff/repeat
 
-        dummy = a(index)
+        dummy = a(index(0:size(a)-1))
         call verify_sort( dummy, valid, i )
         ltest = (ltest .and. valid)
         if ( .not. valid ) then
@@ -705,12 +705,12 @@ subroutine test_int_sort_index( a, a_name, ltest )
             write(*,'(a18, 2i7)') 'a(index(i-1:i)) = ', a(index(i-1:i))
         end if
         write( lun, '("|     Integer |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             test_size, a_name, "Sort_Index", tdiff/rate
 
         dummy = a
         call sort_index( dummy, index, work, iwork, reverse=.true. )
-        dummy = a(index)
+        dummy = a(index(size(a)-1))
         call verify_reverse_sort( dummy, valid, i )
         ltest = (ltest .and. valid)
         if ( .not. valid ) then
@@ -754,21 +754,25 @@ subroutine test_char_sort_index( a, a_name, ltest )
         do i = 1, repeat
             char_dummy = a
             call system_clock( t0, rate )
+
             call sort_index( char_dummy, index, char_work, iwork )
+
             call system_clock( t1, rate )
+
             tdiff = tdiff + t1 - t0
         end do
         tdiff = tdiff/repeat
 
         call verify_char_sort( char_dummy, valid, i )
+
         ltest = (ltest .and. valid)
         if ( .not. valid ) then
             write( *, * ) "SORT_INDEX did not sort " // a_name // "."
             write(*,*) 'i = ', i
             write(*,'(a17, 2(1x,a4))') 'char_dummy(i-1:i) = ', char_dummy(i-1:i)
         end if
         write( lun, '("|   Character |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             char_size, a_name, "Sort_Index", tdiff/rate
 
     end subroutine test_char_sort_index
@@ -820,7 +824,7 @@ subroutine test_string_sort_index( a, a_name, ltest )
                 string_dummy(i-1:i)
         end if
         write( lun, '("| String_type |", 1x, i7, 2x, "|", 1x, a15, " |", ' // &
-            'a12, " |",  F10.5, " |" )' ) &
+            'a12, " |",  F10.6, " |" )' ) &
             string_size, a_name, "Sort_Index", tdiff/rate
 
     end subroutine test_string_sort_index