sort_sign: add init ltest

Author: jvdp1

src/tests/sorting/test_sorting.f90

@@ -287,6 +287,8 @@ subroutine test_char_ord_sort( a, a_name, ltest )
  integer(int64) :: i
  logical :: valid
 
+ ltest = .true.
+
  tdiff = 0
  do i = 1, repeat
  char_dummy = a
@@ -494,6 +496,8 @@ subroutine test_char_sorts( ltest )
 
  logical :: ldummy
 
+ ltest = .true.
+
  call test_char_sort( char_decrease, "Char. Decrease", ldummy )
  ltest = (ltest .and. ldummy)
 
@@ -515,6 +519,8 @@ subroutine test_char_sort( a, a_name, ltest )
  integer(int64) :: i
  logical :: valid
 
+ ltest = .true.
+
  tdiff = 0
  do i = 1, repeat
  char_dummy = a