exception for empty list

2018-06-27 09:04:14 +02:00 · 2018-06-27 09:04:14 +02:00 · 78f9a107fe
parent fc83a76318
commit 78f9a107fe
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