Il Linguaggio Fortran 90/95

364 Puntatori
nome_puntatore => nome_target
Quando la precedente istruzione è eseguita, l’indirizzo di memoria del target viene immagazzinato
nel puntatore: da questo momento, ogni riferimento al puntatore avrà lo stesso effetto di
un riferimento ai dati immagazzinati nel target.
Se un puntatore già associato ad un target viene usato in una nuova istruzione di assegnazione,
allora l’associazione con il primo target viene perduta, sostituita dalla nuova associazione.
In una istruzione di assegnazione è anche possibile assegnare il valore di un puntatore ad
un altro puntatore:
puntatore1 => puntatore2
Come effetto di questa istruzione, entrambi i puntatori punteranno direttamente ed indipendentemente
allo stesso target. Se uno dei due puntatori viene successivamente associato ad un
diverso target l’altro puntatore non sarà affetto da tale cambiamento. Tuttavia, se puntatore2
viene deassociato anche puntatore1 assumerà lo stesso stato.
A titolo di esempio si consideri il seguente insieme di istruzioni:
REAL, TARGET :: x
REAL, POINTER :: p1, p2
x = 3.14
p1 => x
p2 => p1
x = 2.72
Se si esegue questo frammento di programma, sia p1 che p2 punteranno a x, per cui le istruzioni
seguenti:
WRITE(*,*) x
WRITE(*,*) p1
WRITE(*,*) p2
forniranno tutte lo stesso risultato: 2.72. Se ora si apporta una piccola modifica alle righe
precedenti:
REAL, TARGET :: x, y
REAL, POINTER :: p1, p2
x = 3.14
y = 2.72
p1 => x
p2 => y
il nuovo valore di x e di p1 sarà 3.14 mentre il nuovo valore di y e p2 sarà 2.72. Se a questo
punto si esegue l’istruzione di assegnazione:
p2 = p1