temp commit

fortran-lang · Oct 17, 2021 · 7c04491 · 7c04491
1 parent a9a6288
commit 7c04491
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/tests/stringlist/test_insert_at.f90 b/src/tests/stringlist/test_insert_at.f90
@@ -423,7 +423,9 @@ subroutine compare_list(list, first, last, call_number, from, to)
         do i = work_from, work_to
             call check( list%get( fidx(i) ) == to_string( first + ( ( i - work_from ) * j ) ), &
                                     & "compare_list: call_number " // to_string( call_number ) &
-                                    & // " fidx( " // to_string( i ) // " )" )
+                                    & // " fidx( " // to_string( i ) // " )" // &
+                                    char( list%get( fidx(10)) ) // char( list%get( fidx(100)) ) // &
+                                    char( list%get( fidx(200)) ) // char( list%get( fidx(400)) ) )
 
             k = length - ( work_to - ( i - work_from ) ) + 1
             call check( list%get( bidx(k) ) == &