/*
 * ferror — 1, если на потоке защёлкнут флаг ошибки (_F_ERROR),
 * иначе 0.  NULL-безопасно.
 */

#include <stdio.h>

int ferror(FILE *fp)
{
    return fp && (fp->flags & _F_ERROR) ? 1 : 0;
}