IO_stringPos failed when parsing trimmed string

2018-06-10 11:03:34 +02:00 · 2018-06-10 11:03:34 +02:00 · 08a4da01e0
parent 73e915c35a
commit 08a4da01e0
1 changed files with 4 additions and 0 deletions
--- a/src/IO.f90
+++ b/src/IO.f90
@ -982,6 +982,10 @@ pure function IO_stringPos(string)
   if ( string(left:left) == '#' ) exit
   IO_stringPos = [IO_stringPos,int(left, pInt), int(right, pInt)]
   IO_stringPos(1) = IO_stringPos(1)+1_pInt
+   endOfString: if (right < left) then
+     IO_stringPos(IO_stringPos(1)*2+1) = len_trim(string)
+     exit
+   endif endOfString
 enddo

 end function IO_stringPos