Il Linguaggio Fortran 90/95

120 Istruzioni di controllo
realizzerà un loop infinito senza possibilità di poter essere arrestato se non interrompendo
”dall’esterno” l’esecuzione del programma. Al fine di evitare simili problemi può essere utile
(quando non addirittura necessario) accoppiare alla condizione logica di chiusura del ciclo (sia
esso di tipo a condizione iniziale o finale) una ulteriore clausola che limiti ad un ”tetto” massimo
il numero di iterazioni che è possibile compiere. In tal modo si perviene a codici più sicuri
sebbene a prezzo di un incremento del numero di condizioni logiche da analizzare ad ogni
iterazione. A chiarimento di quanto detto, il codice precedente potrebbe essere riscritto al
modo che segue:
PROGRAM prova_sum2
IMPLICIT NONE
INTEGER :: n
INTEGER, PARAMETER :: nmax=100
REAL :: somma=0.0
REAL, PARAMETER :: base=2.0/3.0
LOGICAL :: converge=.FALSE.
n = 1
DO
somma = somma+(base)**i
PRINT*, n, somma
n = n+1
IF(somma>=5.0 .OR. n