Il Linguaggio Fortran 90/95

98 Istruzioni di controllo
che hanno lo scopo di assegnare alla variabile segno il valore +1, -1 oppure 0 a seconda che il
valore n sia, rispettivamente, positivo, negativo o nullo. Un esempio lievemente più ”corposo”
è il seguente:
PROGRAM demo_CASE
! *** Sezione dichiarativa ***
IMPLICIT NONE
INTEGER :: n, m, type_of_op, op
! *** Sezione Esecutiva ***
PRINT*, "Inserisci i valori di m ed n"
READ(*,*)m, n
PRINT*, "Scegli il tipo di operazione"
PRINT*, "1 per aritmetica"
PRINT*, "2 per relazionale"
READ(*,*), type_of_op
SELECT CASE(type_of_op)
CASE(1) ! Operazione aritmetica
PRINT*, "Scegli l’operazione da effettuare"
PRINT*, "1 per l’addizione"
PRINT*, "2 per la moltiplicazione"
READ(*,*), op
SELECT CASE(op)
CASE(1)
PRINT*, n+m
CASE(2)
PRINT*, n*m
CASE DEFAULT
PRINT*, "Operazione non valida"
END SELECT
CASE(2)
PRINT*, "Scegli l’operazione da effettuare"
PRINT*, "1 per il check n == m"
PRINT*, "2 per il check n