1 files changed, 14 insertions, 0 deletions
diff --git a/libf2c/libF77/setarg.c b/libf2c/libF77/setarg.c
new file mode 100644
index 0000000..4951574
--- /dev/null
+++ b/libf2c/libF77/setarg.c
@@ -0,0 +1,14 @@
+/* Set up the global argc/argv info for use by getarg_, iargc_, and
+   g77's inlined intrinsic equivalents.  */
+
+#include <stdlib.h>
+
+int f__xargc;
+char **f__xargv;
+
+void
+f_setarg (int argc, char **argv)
+{
+  f__xargc = argc;
+  f__xargv = argv;
+}