Add example to testing

Author: sethrj

example/run-examples.sh

@@ -35,6 +35,14 @@ three
 20
 EOF
 
+run_test sort_generic << EOF
+5
+a short string
+a shirt string
+shorter
+and the next string is unallocated
+EOF
+
 run_test vecstr << EOF
 This is the first string
 a second string

example/sort.f90

@@ -7,7 +7,7 @@
 program sort_example
   use, intrinsic :: ISO_C_BINDING
   use flc
-  use flc_algorithm, only : sort
+  use flc_algorithm, only : sort, shuffle
   use flc_random, only : Engine, normal_distribution
   use example_utils, only : write_version, read_positive_int, STDOUT
   implicit none
@@ -29,10 +29,12 @@ program sort_example
 
   ! Sort the array
   call sort(x)
-
-  ! Write output
   write(STDOUT, "(a, 4(f8.3,','))") "First few elements:", x(:min(4, size(x)))
 
+  ! Rearrange it randomly
+  call shuffle(rng, x)
+  write(STDOUT, "(a, 4(f8.3,','))") "After shuffling:", x(:min(4, size(x)))
+
   call rng%release()
 end program
 

example/vecstr.f90

@@ -9,13 +9,16 @@ program vecstr_example
   use flc
   use flc_string, only : String
   use flc_vector, only : VectorString
-  use example_utils, only : read_strings, STDOUT
+  use example_utils, only : read_strings, write_version, STDOUT
   implicit none
   integer :: i
   type(VectorString) :: vec
   type(String) :: back, front
   character(C_CHAR), dimension(:), pointer :: chars
 
+  ! Print version information
+  call write_version()
+
   ! Read a vector of strings
   call read_strings(vec)