From 08a4da01e05d50e499a844ba2859a674d5cb3a10 Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Sun, 10 Jun 2018 11:03:34 +0200
Subject: [PATCH] IO_stringPos failed when parsing trimmed string

---
 src/IO.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/IO.f90 b/src/IO.f90
index d1b039c1e..27d2f4ae2 100644
--- 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