Skip to content

Commit 26093c6

Browse files
committed
fix issue with splitting character string
1 parent 33f9fd6 commit 26093c6

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/csv_module.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1217,7 +1217,7 @@ pure subroutine split(str,token,chunk_size,vals)
12171217
call expand_vector(itokens,n_tokens,chunk_size,i+j) ! save the token location
12181218
if (i+len_token>len_str) exit ! if the last bit of the string is a token
12191219
j = j + i
1220-
temp = temp(i+len_token:len_str) !remove previously scanned part of string
1220+
temp = trim(temp(i+len_token:len_str)) !remove previously scanned part of string
12211221
end do
12221222
call expand_vector(itokens,n_tokens,chunk_size,finished=.true.) ! resize the vector
12231223

0 commit comments

Comments
 (0)