/* Copyright (c) 1979 Regents of the University of California */
static char sccsid
[] = "@(#)READ4.c 1.3 %G%";
register struct iorec
*curfile
;
if (curfile
->funit
& FWRITE
) {
ERROR(EREADIT
, curfile
->pfname
);
retval
= fscanf(curfile
->fbuf
, "%ld", &data
);
ERROR(EPASTEOF
, curfile
->pfname
);
ERROR(EBADINUM
, curfile
->pfname
);