Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit 7c04491

Browse files
temp commit
1 parent a9a6288 commit 7c04491

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

‎src/tests/stringlist/test_insert_at.f90‎

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -423,7 +423,9 @@ subroutine compare_list(list, first, last, call_number, from, to)
423423
do i = work_from, work_to
424424
call check( list%get( fidx(i) ) == to_string( first + ( ( i - work_from ) * j ) ), &
425425
& "compare_list: call_number " // to_string( call_number ) &
426-
& // " fidx( " // to_string( i ) // " )" )
426+
& // " fidx( " // to_string( i ) // " )" // &
427+
char( list%get( fidx(10)) ) // char( list%get( fidx(100)) ) // &
428+
char( list%get( fidx(200)) ) // char( list%get( fidx(400)) ) )
427429

428430
k = length - ( work_to - ( i - work_from ) ) + 1
429431
call check( list%get( bidx(k) ) == &

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /