1.4.33.2 short：将长整型转换为短整型

该函数为：

示例（片段）：long() 和 short()：

       integer*4 int4/8/, long
       integer*2 int2/8/, short
       call ExpecLong( long(int2) )
       call ExpecShort( short(int4) )
       …
       end

ExpecLong 是用户程序调用的某子例程，要使用 long (INTEGER*4) 整型参数。而类似的子例程 ExpecShort 要使用 short (INTEGER*2) 整型参数。

如果在库例程调用中使用了常量且编译代码时使用了 -i2 选项，long 很有用。

在长型对象必须作为短整型传递的这类上下文环境中，short 很有用。将整数传递给幅度太大的短整型虽然不会导致出现错误，但会导致出现未预料的行为。