temp commit

fortran-lang · Oct 17, 2021 · 690c89a · 690c89a
1 parent 890551a
commit 690c89a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/tests/stringlist/test_insert_at.f90 b/src/tests/stringlist/test_insert_at.f90
@@ -420,10 +420,10 @@ subroutine compare_list(list, first, last, call_number, from, to)
                                         & call_number " // to_string( call_number ) )
 
         j = merge(-1, 1, last < first)
-        do i = work_from, work_to
-            call check( list%get( fidx(i) ) == to_string( first + ( ( i - work_from ) * j ) ), &
+        do i = work_from + 1, work_to + 1
+            call check( list%get( fidx(i) ) == to_string( first + ( ( i - work_from + 1) * j ) ), &
                                     & "compare_list: call_number " // to_string( call_number ) &
-                                    & // " fidx( " // to_string( i ) // " )" // char(list%get( fidx(i) )) )
+                                    & // " fidx( " // to_string( i ) // " )" // char(list%get( fidx(i) )) // "$" )
 
             k = length - ( work_to - ( i - work_from ) ) + 1
             call check( list%get( bidx(k) ) == &