Control Flow

Select Case

Matching One Value

select case matches a scalar against several cases. case default is the fallback.

Program

Play the program to map a numeric code to a label.

select_case.f90 
program select_case_demo
    implicit none
    integer :: code
    character(len=8) :: label
    code = 2
    select case (code)
        case (1)
            label = "one"
        case (2)
            label = "two"
        case default
            label = "many"
    end select
    print '(A)', trim(label)
end program select_case_demo
select case `select case (expr)` evaluates once and picks a case.
case Each `case (value)` matches one or more literals.
case default `case default` runs when nothing else matches.