From e5652cd745a666251f35a0993bce2624be040bdb Mon Sep 17 00:00:00 2001
From: Holger Vogt <holger.vogt@uni-due.de>
Date: Sun, 27 May 2018 21:37:03 +0200
Subject: [PATCH] safeguard fclose

---
 src/frontend/inp.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/frontend/inp.c b/src/frontend/inp.c
index 4e20b903a..04729a67f 100644
--- a/src/frontend/inp.c
+++ b/src/frontend/inp.c
@@ -405,7 +405,7 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
 
     /* if nothing came back from inp_readall, just close fp and return to caller */
     if (!deck) {
-        if (!intfile)
+        if (!intfile && fp)
             fclose(fp);
         return;
     }