Il Linguaggio Fortran 90/95

2.2 Istruzioni di diramazione 99
END SELECT
END PROGRAM demo_CASE
Analogamente è possibile inserire uno o più costrutti IF (eventualmente innestati) all’interno
di un costrutto SELECT CASE, come dimostra il seguente esempio:
PROGRAM giorni
! Scopo: Fornisce il numero di giorni presenti in un mese
IMPLICIT NONE
INTEGER :: month, year, ndays
! start
WRITE(*,*) " Inserisci l’anno: "
READ(*,*) year
WRITE(*,*) " Inserisci il mese: "
READ(*,*) month
SELECT CASE(month)
CASE(11,4,6,9) ! 30 gg a Nov con Apr, Giu e Set...
ndays = 30
CASE(2) ! ...di 28 ce n’e’ uno...
IF(MODULO(year,4)==0) THEN
ndays = 29 ! (anno bisestile)
ELSE
ndays = 28 ! (anno non bisestile)
END IF
CASE DEFAULT ! ...tutti gli altri ne han 31
ndays = 31
END SELECT
WRITE(*,*) " Il numero di giorni del mese no. ", month, " e’: ", ndays
STOP
END PROGRAM giorni
2.2.3 L’istruzione GOTO
L’istruzione di salto incondizionato GOTO è un’istruzione di diramazione che può essere utilizzata
per trasferire il controllo ad un punto ben preciso del programma. Essa si presenta nella forma:
GOTO etichetta
In altre parole l’istruzione GOTO trasferisce il controllo del programma all’istruzione caratterizzata
da etichetta. Ad esempio:
IF(x