t
Size: a a a
t
FO
t
t
t
D
FO
t
FO
mod_nameio.F90(44): error #6437: A subroutine or function is calling itself recursively. [DESTROY]Это я так пытаюсь уничтожить объекты в связном списке...
if(associated(this%next_pair)) call this%next_pair%destroy
FO
! intel compiler's hack
! originally:
! if(associated(this%next_pair)) call this%next_pair%destroy
next => this%next_pair
if(associated(this%next_pair)) call next%destroy
next => NULL()
FO
t
t
FO
FO
D
t
D
t
t