/* Copyright (c) 1979 Regents of the University of California */
static char sccsid
[] = "@(#)READ8.c 1.5 %G%";
register struct iorec
*curfile
;
if (curfile
->funit
& FWRITE
) {
ERROR("%s: Attempt to read, but open for writing\n",
retval
= fscanf(curfile
->fbuf
, "%lf", &data
);
ERROR("%s: Tried to read past end of file\n", curfile
->pfname
);
ERROR("%s: Bad data found on real read\n", curfile
->pfname
);
ERROR("%s: Underflow on real read\n", curfile
->pfname
);
ERROR("%s: Overflow on real read\n", curfile
->pfname
);