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).

Regards,

Mike Metcalf