Skip to content

Commit c7d327b

Browse files
committed
Bug fix when isize is greater than n_chunk do not append to line
1 parent bd4a3e6 commit c7d327b

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/json_module.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4289,7 +4289,7 @@ subroutine get_current_line_from_file(iunit,line)
42894289
if (istat==0) then
42904290
line = line//chunk
42914291
else
4292-
if (isize>0) line = line//chunk(1:isize)
4292+
if (isize>0 .and. isize<=n_chunk) line = line//chunk(1:isize)
42934293
exit
42944294
end if
42954295
end do

0 commit comments

Comments
 (0)