Il Linguaggio Fortran 90/95

7.2 Istruzioni di assegnazione di puntatori 363
REAL, POINTER :: pt
REAL, TARGET :: a=3
INTEGER, POINTER, DIMENSION(:) :: pt1, pt2
INTEGER, TARGET :: x(5), y(10), z(100)
REAL, POINTER, DIMENSION(:,:,:) :: punt
REAL, TARGET :: targ(:,:,:)
E’, invece, illegale una dichiarazione nella quale si forniscano, oltre al rango, anche le dimensioni
del puntatore ad array:
REAL, POINTER, DIMENSION(5,5) :: pt ! illegale
Un puntatore può anche apparire come componente di un tipo di dati derivato, contrariamente
agli allocatable array ai quali questa possibilità è inibita. A titolo di esempio si può
considerare il seguente frammento di programma:
TYPE data
REAL, POINTER :: a(:)
END TYPE data
TYPE(data) :: event(3)
...
DO i=1,3
READ(*,*) n
ALLOCATE(event(i)%a(n))
READ(*,*) event(i)%a
END DO
...
DO i=1,3
DEALLOCATE(event(i)%a)
END DO
Inoltre, i puntatori che siano componenti di una variabile di tipo derivato possono puntare
anche al tipo stesso di dati derivato che si sta creando: questa caratteristica è molto utile
quando si vogliano creare delle strutture dati dinamiche. Un possibile esempio di applicazione
di questa particolare caratteristica è il seguente:
TYPE :: valore_reale
REAL :: valore
TYPE(valore_reale) :: pnt
END TYPE
7.2 Istruzioni di assegnazione di puntatori
Un puntatore può essere associato ad un dato target a mezzo di una istruzione di assegnazione
di puntatore: