From 78bf8b0ab7f941d774f963d210db64e729ea7304 Mon Sep 17 00:00:00 2001
From: Sharan Roongta <s.roongta@mpie.de>
Date: Thu, 25 Jun 2020 11:25:39 +0200
Subject: [PATCH] bugfix: close file before returning

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

diff --git a/src/IO.f90 b/src/IO.f90
index 08f483a42..aae5f69cc 100644
--- a/src/IO.f90
+++ b/src/IO.f90
@@ -130,7 +130,10 @@ function IO_read(fileName) result(fileContent)
        status='old', position='rewind', action='read',iostat=myStat)
   if(myStat /= 0) call IO_error(100,ext_msg=trim(fileName))
   allocate(character(len=fileLength)::fileContent)
-  if(fileLength==0) return
+  if(fileLength==0) then
+    close(fileUnit)
+    return
+  endif
 
   read(fileUnit,iostat=myStat) fileContent
   if(myStat /= 0) call IO_error(102,ext_msg=trim(fileName))