SHORT

可搬用関数：INTEGER(4) の値を等価な INTEGER(2) の値に変換します。

モジュール：USE DFPORT

形式

result = SHORT (int4)

int4
(入力) INTEGER(4)。変換する値。

結果

結果の型は INTEGER(2) です。結果は，int4 の下位 16 ビットと等価です。int4 の値が 32,767 よりも大きい場合，変換した INTEGER(2) の値は元の値と等価ではありません。

互換性

CONSOLE STANDARD GRAPHICS QUICKWIN GRAPHICS WINDOWS DLL LIB

関連情報

INT，TYPE，可搬用ライブラリー

例

		USE DFPORT
		INTEGER(4) this_one
		INTEGER(2) that_one
		READ(*,*) this_one
		THAT_ONE = SHORT(THIS_ONE)
		WRITE(*,10) THIS_ONE, THAT_ONE
	10	FORMAT (X," Long integer: ", I16, " Short integer: ", I16)
		END