sort_sign: add init ltest

Author: jvdp1

Diff for: 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