Il Linguaggio Fortran 90/95

1.4 Inizializzazione delle variabili 27
1.4 Inizializzazione delle variabili
Fintanto che ad una variabile dichiarata non venga assegnato un valore, tale variabile è detta
non inizializzata; il valore di una tale variabile non è definito dallo standard del linguaggio.
Alcuni compilatori impostano automaticamente a zero il valore delle variabili non inizializzate,
altri lasciano in memoria i valori che preesistevano nelle locazioni di memoria attualmente
occupati dalle variabili, altri ancora generano addirittura un errore al tempo di esecuzione
quando una variabile venga utilizzata senza essere inizializzata.
Dal momento che macchine differenti possono gestire le variabili non inizializzate in maniera
differente, un programma che funzioni su una macchina potrebbe non funzionare su un’altra
macchina (a parte l’evenienza che su una stessa macchina potrebbe funzionare più o meno
correttamente a seconda dei dati che i precedenti programmi hanno lasciato nelle locazioni di
memoria delle variabili). Per evitare i rischi connessi a tali evenienze, è sempre consigliabile
inizializzare tutte le variabili utilizzate in un programma.
Per inizializzare le variabili è possibile adottare una delle seguenti tecniche:
• Inizializzazione mediante un’istruzione di assegnazione.
• Inizializzazione mediante un’istruzione di lettura.
• Inizializzazione mediante l’istruzione di dichiarazione di tipo.
Il seguente programma esemplifica le prime due tecniche:
PROGRAM iniz_1
INTEGER :: i, j
i = 1 ! inizializzazione tramite assegnazione
READ*, j ! inizializzazione tramite istruzione di lettura
PRINT*, i,j
END PROGRAM
La terza tecnica di inizializzazione consiste nello specificare i valori iniziali nell’istruzione di
dichiarazione di tipo, e pertanto specifica il valore della variabile già in fase di compilazione
contrariamente all’inizializzazione con un’istruzione di assegnazione che, invece, ha effetto
soltanto in fase di esecuzione.
La forma generale di un’istruzione di dichiarazione di tipo che inizializzi una variabile è:
tipo :: variabile = valore [, variabile_2 = valore_2, ...]
A titolo di esempio, si può considerare il seguente frammento di programma:
PROGRAM iniz_2
INTEGER :: i=1, j=2
REAL :: x=10
CHARACTER(LEN=6) :: str="finito"
LOGICAL :: conv=.FALSE.
...
END PROGRAM