From 8c5f3d4e07b2eada54a4e6a254e227c30a2fa6ab Mon Sep 17 00:00:00 2001
From: Martin Diehl <m.diehl@mpie.de>
Date: Wed, 22 Aug 2018 22:52:12 +0200
Subject: [PATCH] only needed once

---
 src/config.f90 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/config.f90 b/src/config.f90
index 959568d7b..f7c8bfcdc 100644
--- a/src/config.f90
+++ b/src/config.f90
@@ -45,8 +45,6 @@ module config
 
  end type tPartitionedStringList
 
- type(tPartitionedStringList), public :: emptyList
-
  type(tPartitionedStringList), public, protected, allocatable, dimension(:) :: &
    config_phase, &
    config_microstructure, &
@@ -197,6 +195,7 @@ subroutine parseFile(line,sectionNames,part,&
  character(len=pStringLen),                 dimension(:), intent(in)  :: fileContent
 
  integer(pInt),                allocatable, dimension(:)              :: partPosition
+ type(tPartitionedStringList) :: emptyList
  integer(pInt)        :: i
  logical              :: echo
 
@@ -364,11 +363,11 @@ subroutine finalizeArray(this)
   type(tPartitionedStringList),  pointer :: temp ! bug in Gfortran?
 
   do i=1, size(this)
-    if (associated(this(i)%next)) then
+    !if (associated(this(i)%next)) then
       temp => this(i)%next
       !deallocate(this(i)) !internal compiler error: in gfc_build_final_call, at fortran/trans.c:975
       deallocate(temp)
-    endif
+    !endif
   enddo
 
 end subroutine finalizeArray