Estructura SELECT CASE

La estructura de decisión SELECT CASE se incluye en Fortran 90 para reemplazar el GOTO calculado en el Fortran 77 para la selección de una de varias opciones posibles. Esta estructura representa una alternativa para la escritura de decisiones aninadas. Por ejemplo:

    INTEGER  :: A            ! Variable de selccion

    SELECT CASE(A)           ! Estructura de seleccion
    CASE(1)
       CALL METODO1          ! Llamada del metodo 1 para opcion 1
    CASE(2)
       CALL METODO2          ! Llamada del metodo 2 para opcion 2
    CASE(3..5)
       CALL METODO3(A)       ! Llamada del metodo 3 para opcion 3, 4 y 5
    CASE DEFAULT
       PRINT*, 'Opcion fuera del rango'  ! mensaje de error
    END SELECT