Re: Help for my program
I would guess that you're testing whether a pointer is associated or not
while it is still in the undefined state. Initialise all pointers to null
in their specifications, as in
type (Albero),pointer :: t => null()
(See also "Fortran 95/2003 Explained", Section 3.3).