链表内存释放

c84486958

求助！！！！
过程描述：
      循环地使用指针链表、删除链表。目前程序的做法是删除指针链表（表头），但是这并未删除整个链表所占用的运行内存

请教问题1：这种删除指针链表（表头），为何不能删除整个指针链表？
请教问题2：如何在每次使用后删除指针链表，但是不增加过多运算（即有没有不需要对每一个链表节点单独删除的做法，因为节点太多，执行释放对程序运行又是另一负担）？

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program main

02	implicit none

03

04	integer i,j

05	type tableType

06	integer :: i

07	type(tableType), pointer :: next

08

END TYPE

09	type(tableType), pointer :: table,tableHd

10

11

12	do j=1,100

13	allocate(tableHd)   ! 储存链表

14	table=>tableHd    ! 过程链表

15	nullify(table%next)

16	do i=1,10000

17

table%i=i

18	allocate(table%next)

19	table=>table%next

20	nullify(table%next)

21

enddo

22	deallocate(tableHd)

23

enddo

24

25	i=0 ! pause

26

27	end program main

li913

1、上线暴露被捕，下线还可以逃；2、不能。