switch

program TEST
    implicit none

    integer :: i

    read(*,*) i

    select case (i)
        case (1)
            print *,"Opcja 1"
        case (2)
            print *,"Opcja 2"
        case default
            print *,"Nieznana opcja"
    end select
    stop
end