diff options
Diffstat (limited to 'history.f90')
-rw-r--r-- | history.f90 | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/history.f90 b/history.f90 index d8193f8..e915855 100644 --- a/history.f90 +++ b/history.f90 @@ -67,16 +67,20 @@ contains last => last_location(first_location) if(associated(last)) then - url = last%url if(.not. associated(last, first_location)) then new_last => first_location do while(.not. associated(new_last%next, last)) new_last => new_last%next end do - new_last%next => null() deallocate(last) + else + new_last => first_location end if + + new_last%next => null() + url = new_last%url + end if end subroutine back_location |