Il Linguaggio Fortran 90/95

394 Puntatori
PROGRAM main
! Scopo: testare il modulo linked_list
USE linked_list
IMPLICIT NONE
TYPE(list) :: container
TYPE(object) :: obj1, obj2, obj3, obj4
LOGICAL :: delete_ok
obj1 = object(15) ; obj2 = object(25) ! costruttore
obj3 = object(35) ; obj4 = object(45) ! costruttore
container = new()
PRINT*, "Stato della lista. Lista vuota? ",is_empty(container)
CALL insert(container,obj4) ! inserisce un oggetto
CALL insert(container,obj2) ! inserisce un oggetto
CALL insert(container,obj1) ! inserisce un oggetto
CALL print_list(container)
CALL delete(container,obj2,delete_ok)
PRINT *, "Oggetto: ",obj2," Oggetto rimosso? ",delete_ok
CALL print_list(container)
PRINT*, "Stato della lista. Lista vuota? ",is_empty(container)
CALL insert(container,obj3) ! insert object
CALL print_list(container)
CALL delete(container, obj1,delete_ok)
PRINT*, "Oggetto: ",obj1," Oggetto rimosso? ",delete_ok
CALL delete(container, obj4,delete_ok)
PRINT*, "Oggetto: ",obj4," Oggetto rimosso? ",delete_ok
CALL print_list(container)
PRINT*, "Stato della lista. Lista vuota? ",is_empty(container)
CALL delete(container,obj3,delete_ok)
PRINT*, "Oggetto: ",obj3," Oggetto rimosso? ",delete_ok
PRINT*, "Stato della lista. Lista vuota? ",is_empty(container)
STOP
END PROGRAM main
Per completezza si riporta anche l’output del programma:
C:\MUPROG>main
Stato della lista. Lista vuota? T
Valore dell’oggetto:
1 15