case construct is a replacement for the computed
goto, but is better structured and does not require the use of statement labels:
select case (number) ! number of type integer case (:-1) ! all values below 0 n_sign = -1 case (0) ! only 0 n_sign = 0 case (1:) ! all values above 0 n_sign = 1 end select
case selector list may contain a list and/or range of integers, character or logical constants, whose values may not overlap within or between selectors:
case (1, 2, 7, 10:17, 23)
A default is available:
There is only one evaluation, and only one match.