関数は、次のように呼び出します。
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() を混在して使用しないでください。