请教Fortran处理返回值为空的问题

pasuka

判断文件是否为空呗
http://www.lahey.com/docs/lfpro7 ... _005fIOSTAT_005fEOR

[Fortran] 纯文本查看 复制代码

PROGRAM iostat
            IMPLICIT NONE
            INTEGER :: stat, i(50)
            OPEN(88, FILE='test.dat', FORM='UNFORMATTED')
            READ(88, IOSTAT=stat) i
            IF(IS_IOSTAT_EOR(stat)) STOP 'END OF RECORD'
          END PROGRAM