diff options
Diffstat (limited to 'layout.f90')
-rw-r--r-- | layout.f90 | 25 |
1 files changed, 25 insertions, 0 deletions
@@ -53,4 +53,29 @@ contains end subroutine layout_lines + subroutine free_lines(first_line) + implicit none + + type(line), intent(inout), pointer::first_line + + type(line), pointer::walker, past + + walker => first_line + + do while(associated(walker)) + if(allocated(walker%text)) then + deallocate(walker%text) + end if + + past => walker + walker => walker%next + + deallocate(past) + + end do + + first_line => null() + + end subroutine free_lines + end module layout
\ No newline at end of file |