XL Fortran for AIX V8.1.1

ランゲージ・リファレンス

SELECT CASE

目的

SELECT CASE ステートメントは CASE 構造体の最初のステートメントです。 CASE 構造では、実行するステートメント・ブロックの中から 1 つのみを選択できるように簡略化された構文を提供しています。

構文



>>-+------------------------+--SELECT CASE--(--case_expr--)----><
   '-case_construct_name--:-'
 
 

case_construct_name
CASE 構造体を識別する名前です。

case_expr
整数タイプ、文字タイプまたは論理タイプのスカラー式です。

規則

SELECT CASE ステートメントを実行すると、case_expr が評価されます。結果として得られる値をケース指標といいます。このケース指標は、ケース構造体内の制御の流れを評価するために使用されます。

case_construct_name を指定する場合、構造体内の END CASE ステートメントには必ずこの名前を指定しなくてはなりませんが、CASE ステートメントへの指定は任意です。

+----------------------------------IBM 拡張----------------------------------+

case_expr は、タイプなし定数または BYTE データ・オブジェクト以外のものでなければなりません。

+--------------------------------IBM 拡張の終り-------------------------------+

      ZERO: SELECT CASE(N)         ! start of CASE construct ZERO
 
        CASE DEFAULT ZERO
             OTHER: SELECT CASE(N) ! start of CASE construct OTHER
                CASE(:-1)
                   SIGNUM = -1
                CASE(1:) OTHER
                    SIGNUM = 1
             END SELECT OTHER
        CASE (0)
          SIGNUM = 0
 
      END SELECT ZERO

関連情報


[ ページのトップ | 前ページ | 次ページ | 目次 | 索引 ]