test

Sun Studio 12: Fortran ライブラリ・リファレンス

1.4.16.1 getc: 標準入力からの次の文字の取得

関数は、次のように呼び出します。

INTEGER*4 getc

status = getc( char )

char

character

出力 

次の文字 

戻り値 

INTEGER*4

出力 

status=0: 正常

status=-1: ファイルの終了

status>0: システムエラーコードまたは f95 入出力エラーコード

例: getc でキーボードから文字を 1 文字ずつ入力します。 Control-D (^D) に注意してください。


       character char
       INTEGER*4 getc, status
       status = 0
       do while ( status .eq. 0 )
         status = getc( char )
         write(*, '(i3, o4.3)') status, char
       end do
       end

前述のソースプログラムを (コンパイル後に) 実行した例を次に示します。


demo% a.out
ab            プログラムが入力された文字を読み取る
0 141         プログラムが入力された文字の状態コードと 8 進値を出力する
0 142            141 は 'a' を、142 は 'b' を表す
0 012            012 はリターンキーを表す 
^D               Control-D キーで終了された
-1 377        次の読み取りが試行され Control-D が戻された
demo%

どの論理装置に対しても、通常の Fortran の入力と getc() を混在して使用しないでください。