Il Linguaggio Fortran 90/95

104 Istruzioni di controllo
esso deve essere presente anche nell’istruzione END DO mentre è facoltativo nelle istruzioni EXIT
e CYCLE (di queste ultime si parlerà fra poco). Ad esempio, il prossimo frammento fornisce un
esempio di cicli annidati in maniera non corretta; avendo assegnato loro un nome il compilatore
è in grado di segnalare l’errore, errore che in presenza di cicli senza nome si sarebbe presentato
in maniera più ambigua soltanto in fase di esecuzione:
esterno: DO i=1,m
...
interno: DO j=1,n
...
END DO esterno
END DO interno
Le operazioni eseguite da un ciclo iterativo possono essere gestite anche attraverso due
ulteriori istruzioni di controllo: l’istruzione EXIT e l’istruzione CYCLE.
L’istruzione EXIT
L’istruzione EXIT rappresenta una utile facility per trasferire il controllo all’esterno del ciclo
DO prima che venga raggiunta l’istruzione END DO o che venga completata l’esecuzione della
iterazione corrente. La sua sintassi è:
EXIT [nome]
L’istruzione EXIT può essere inserita in un qualsiasi punto all’interno di un ciclo DO. Dopo
che una istruzione EXIT sia stata eseguita l’esecuzione del ciclo viene interrotta e il controllo
viene trasferito alla prima istruzione immediatamente successiva al ciclo.
Si noti che, in presenza di cicliDO innestati, un’istruzione EXIT senza nome ha effetto sempre
sul ciclo più interno mentre un’istruzione EXIT con nome ha effetto sul ciclo avente quel nome,
anche se non è quello più interno.
Il costrutto che segue rappresenta un esempio di impiego dell’istruzione EXIT. Il suo scopo è
di valutare la somma di 5 elementi inseriti dall’utente con l’obbligo, però, di arrestarsi nel caso
in cui il valore della somma raggiunga o superi una soglia massima:
somma = 0.0
DO i = 1,5
READ(*,*) add
somma = somma+add
IF(somma>=soglia) EXIT
END DO
PRINT*, "Fatto!"
L’istruzione CYCLE
L’istruzione CYCLE permette di trasferire il controllo all’inizio del ciclo e di avviare una nuova
iterazione senza che venga eseguita (o solo completata) l’iterazione corrente. La sua sintassi è: