“Fortran Select Case” Ответ

Fortran Select Case

select case(a)
case(1)

case default

end select