Il Linguaggio Fortran 90/95

2.2 Istruzioni di diramazione 95
o una istruzione END IF. Se i costrutti non hanno nome, il compilatore associa sempre una
istruzione END IF all’ultima istruzione IF; naturalmente questo metodo funziona bene con un
programma scritto correttamente ma può provocare messaggi di errore abbastanza ambigui in
presenza di qualche errore (basti pensare al caso in cui, durante una sessione di editing, una
istruzione END IF venga cancellata accidentalmente).
2.2.2 Il costrutto SELECT CASE
Il costrutto SELECT CASE è un’altra forma di costrutto di diramazione e fornisce un’alternativa
ad una serie di istruzioni IF THEN ELSE. Esso permette al programmatore di selezionare un
particolare blocco di istruzioni da eseguire in funzione del valore assunto da una variabile di
controllo di tipo intero o carattere, o da un’espressione logica. La sua forma generale è:
[nome:] SELECT CASE(espressione)
CASE(valore) [selettore_1]
blocco_1
CASE(valore) [selettore_2]
blocco_2
...
[CASE DEFAULT
blocco]
END SELECT [nome]
Il risultato di espressione può essere di tipo INTEGER, CHARACTER o LOGICAL; la variabile
selettore_i deve essere dello stesso tipo di espressione e può essere una combinazione di:
• un singolo valore di tipo INTEGER, CHARACTER o LOGICAL;
• min: col significato di un qualsiasi valore dello stesso tipo di min e che sia di questo ”non
minore”;
• :max col significato di un qualsiasi valore dello stesso tipo di min e che sia di questo ”non
maggiore”;
• min:max col significato di un qualsiasi valore compreso tra i due limiti min e max ;
• una lista formata da una combinazione qualsiasi delle forme precedenti, separate da
virgole.
Se il valore di espressione è compreso nell’intervallo dei valori di selettore_1 verranno
eseguite le istruzioni del blocco_1 ; analogamente, se il valore di espressione è compreso
nell’intervallo dei valori di selettore_2 verranno eseguite le istruzioni del blocco_2 , e così
via. Tale criterio si applica a tutti gli altri ”casi” del costrutto. La clausola CASE DEFAULT è
opzionale e copre tutti gli altri possibili valori di espressione non previsti dalle altre istruzioni
CASE. Se il blocco DEFAULT viene omesso e il valore di espressione non è compreso in un
intervallo dei selettori, non sarà eseguita alcuna istruzione.