Re: Debug my program please.

TC wrote:
| I have an error in to recursive function aggiungi(i)at first recursion.
| Error: the instruction attemp read from location 000000.
| Is right that is null, but why "if (.not. associated(i)) then" make this
| error?
|
| !Variabili Globali
| module Var
|
|
| Type (Albero),pointer :: Tree, TreeF

I can't reproduce it, but why on Earth (unless you don't have a f95
compatible compiler) you don't use:

type (Word) E
type (Albero), pointer :: s => null()
type (Albero), pointer :: d => null()
end type Albero


Type (Albero),pointer :: Tree => null(), TreeF => null()

F95 pointer initialization and type default initialization was added
for the very purpose that the programmer need not think when
to explicitly assign the initial value.

If you post the code, try attaching the file rather than pasting it --
word wrapping screws long lines.

--
Jugoslav
___________
www.xeffort.com

Please reply to the newsgroup.
You can find my real e-mail on my home page above.
.