1 files changed, 24 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/F77_aloc.c b/contrib/libf2c/libF77/F77_aloc.c
new file mode 100644
index 0000000..b286102
--- /dev/null
+++ b/contrib/libf2c/libF77/F77_aloc.c
@@ -0,0 +1,24 @@
+#include "f2c.h"
+#undef abs
+#undef min
+#undef max
+#include <stdio.h>
+
+static integer memfailure = 3;
+
+#include <stdlib.h>
+extern void G77_exit_0 (integer *);
+
+char *
+F77_aloc (integer Len, char *whence)
+{
+  char *rv;
+  unsigned int uLen = (unsigned int) Len;	/* for K&R C */
+
+  if (!(rv = (char *) malloc (uLen)))
+    {
+      fprintf (stderr, "malloc(%u) failure in %s\n", uLen, whence);
+      G77_exit_0 (&memfailure);
+    }
+  return rv;
+}