1 files changed, 27 insertions, 0 deletions
diff --git a/src/benchmarks/cfrac/errorp.c b/src/benchmarks/cfrac/errorp.c
new file mode 100644
index 0000000..5868aa4
--- /dev/null
+++ b/src/benchmarks/cfrac/errorp.c
@@ -0,0 +1,27 @@
+#include <stdio.h>
+#include "precision.h"
+
+/*
+ * Fatal error (user substitutable)
+ *
+ *   PNOMEM 	- out of memory (pcreate)
+ *   PREFCOUNT 	- refcount negative (pdestroy)
+ *   PUNDEFINED	- undefined value referenced (all)
+ *   PDOMAIN	- domain error
+ *	 pdivmod: divide by zero
+ *	 psqrt:   negative argument
+ *   POVERFLOW	- overflow
+ *       itop:    too big
+ */
+precision errorp(errnum, routine, message)
+   int errnum;
+   char *routine;
+   char *message;
+{
+   fputs(routine, stderr);
+   fputs(": ", stderr);
+   fputs(message, stderr);
+   fputs("\n", stderr);
+   abort();			/* remove this line if you want */
+   return pUndef;
+}