Orz日記 by Akio Morita

_ [Fortran]SELECT構文

算術IF文は廃止予定に入っているのは知っていたが、代替となる テーブルジャンプ構文を知らなかったのだが、所謂 switch case構文が Fortran90から入っているらしい。

select case(v)
  case(pattern)
    statements
  case(pattern)
    statements
  case default
    statements
end select
pattern <- pattern_atom , pattern / pattern_atom
pattern_atom <- literal:literal / literal: / :literal / literal

Cのswitch構文と比べると各caseをfall throughしない辺りが大きな違いで、 その代わりcase文に複数の適合が記述出来るようになっている