From c2cdcb17f7ffb73d1bb839045bc4c985a54e1dfd Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 29 Jan 2020 23:04:15 +0100
Subject: [PATCH] wrong string

---
 src/IO.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/IO.f90 b/src/IO.f90
index 5c83876c5..9f23fd6d1 100644
--- a/src/IO.f90
+++ b/src/IO.f90
@@ -406,7 +406,7 @@ pure function IO_lc(string)
   integer :: i,n
 
   do i=1,len(string)
-    n = index(UPPER,IO_lc(i:i))
+    n = index(UPPER,string(i:i))
     IO_lc(i:i) = merge(LOWER(n:n),string(i:i),n/=0)
   enddo