text: /*-
   * Copyright (c) 1980 The Regents of the University of California.
   * All rights reserved.
   *
   * %sccs.include.proprietary.c%
   *
   *	@(#)f_errno.h	5.3 (Berkeley) 04/12/91
   */
  
  /*
   * f77 I/O error definitions
   */
  
  #include	<errno.h>
  
  extern int errno;
  extern int f_nerr;
  
  #define F_ER		100	/* base offset of f77 error numbers */
  
  #define F_ERFMT		100	/* error in format */
  #define F_ERUNIT	101	/* illegal unit number */
  #define F_ERNOFIO	102	/* formatted i/o not allowed */
  #define F_ERNOUIO	103	/* unformatted i/o not allowed */
  #define F_ERNODIO	104	/* direct i/o not allowed */
  #define F_ERNOSIO	105	/* sequential i/o not allowed */
  #define F_ERNOBKSP	106	/* can't backspace file */
  #define F_ERBREC	107	/* off beginning of record */
  #define F_ERSTAT	108	/* can't stat file */
  #define F_ERREPT	109	/* no * after repeat count */
  #define F_EREREC	110	/* off end of record */
  #define F_ERTRUNC	111	/* truncation failed */
  #define F_ERLIO		112	/* incomprehensible list input */
  #define F_ERSPACE	113	/* out of free space */
  #define F_ERNOPEN	114	/* unit not connected */
  #define F_ERRICHR	115	/* invalid data for integer format term */
  #define F_ERLOGIF	116	/* invalid data for logical format term */
  #define F_ERNEWF	117	/* 'new' file exists */
  #define F_EROLDF	118	/* can't find 'old' file */
  #define F_ERSYS		119	/* opening too many files or unknown system error */
  #define F_ERSEEK	120	/* requires seek ability */
  #define F_ERARG		121	/* illegal argument */
  #define F_ERNREP	122	/* negative repeat count */
  #define F_ERILLOP	123	/* illegal operation for channel or device */
  #define F_ERRFCHR	124	/* invalid data for d,e,f, or g format term */
  #define F_ERNMLIST	125	/* illegal input for namelist */
  
  #define F_MAXERR	(f_nerr + F_ER)
  