From 78f9a107fe950d23c90c8548d7133f8f36709efb Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Wed, 27 Jun 2018 09:04:14 +0200
Subject: [PATCH] exception for empty list

---
 src/config.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/config.f90 b/src/config.f90
index e417b2bd5..d87bb754d 100644
--- a/src/config.f90
+++ b/src/config.f90
@@ -345,6 +345,8 @@ subroutine free(this)
   class(tPartitionedStringList),  target, intent(in) :: this
   type(tPartitionedStringList),   pointer            :: new, item
 
+  if (.not. associated(this%next)) return
+
   item => this%next
   do while (associated(item%next))
     new => item