Merge branch '30_parsePhasePartOnce' into 19-NewStylePhenopowerlaw

2018-06-27 09:05:37 +02:00 · 2018-06-27 09:05:37 +02:00 · fb528dad52
parent 96e5175f41 78f9a107fe
commit fb528dad52
1 changed files with 2 additions and 0 deletions
--- 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