FURTRAN SELECT Case
select case(a)
case(1)
case default
end select
Clear Caterpillar
select case(a)
case(1)
case default
end select