1*2505Sdlw /* 2*2505Sdlw char id_f_errno[] = "@(#)f_errno.h 1.1"; 3*2505Sdlw * 4*2505Sdlw * f77 I/O error definitions 5*2505Sdlw */ 6*2505Sdlw 7*2505Sdlw extern int errno; 8*2505Sdlw 9*2505Sdlw #define F_ER 100 /* base offset of f77 error numbers */ 10*2505Sdlw 11*2505Sdlw #define F_ERFMT 100 /* error in format */ 12*2505Sdlw #define F_ERUNIT 101 /* illegal unit number */ 13*2505Sdlw #define F_ERNOFIO 102 /* formatted io not allowed */ 14*2505Sdlw #define F_ERNOUIO 103 /* unformatted io not allowed */ 15*2505Sdlw #define F_ERNODIO 104 /* direct io not allowed */ 16*2505Sdlw #define F_ERNOSIO 105 /* sequential io not allowed */ 17*2505Sdlw #define F_ERNOBKSP 106 /* can't backspace file */ 18*2505Sdlw #define F_ERBREC 107 /* off beginning of record */ 19*2505Sdlw #define F_ERSTAT 108 /* can't stat file */ 20*2505Sdlw #define F_ERREPT 109 /* no * after repeat count */ 21*2505Sdlw #define F_EREREC 110 /* off end of record */ 22*2505Sdlw #define F_ERTRUNC 111 /* truncation failed */ 23*2505Sdlw #define F_ERLIO 112 /* incomprehensible list input */ 24*2505Sdlw #define F_ERSPACE 113 /* out of free space */ 25*2505Sdlw #define F_ERNOPEN 114 /* unit not connected */ 26*2505Sdlw #define F_ERRDCHR 115 /* read unexpected character */ 27*2505Sdlw #define F_ERLOGIF 116 /* blank logical input field */ 28*2505Sdlw #define F_ERNEWF 117 /* 'new' file exists */ 29*2505Sdlw #define F_EROLDF 118 /* can't find 'old' file */ 30*2505Sdlw #define F_ERSYS 119 /* unknown system error */ 31*2505Sdlw #define F_ERSEEK 120 /* requires seek ability */ 32*2505Sdlw #define F_ERARG 121 /* illegal argument */ 33*2505Sdlw #define F_ERNREP 122 /* negative repeat count */ 34