case_04.f90

program case_04
implicit none
integer :: i
i = 4

select case(i)
    case (1)
        print *, "1"
    case (2,3:5,6,8:10)
        print *, "2,3:5,6,8:10"
end select

end