1 files changed, 33 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.base/langs1.c b/gdb/testsuite/gdb.base/langs1.c
new file mode 100644
index 00000000000..784225902c4
--- /dev/null
+++ b/gdb/testsuite/gdb.base/langs1.c
@@ -0,0 +1,33 @@
+/* langs1.f -- translated by f2c (version of 5 May 1990  1:12:08).  */
+
+/* f2c output hacked as follows for GDB testsuite:
+   1.  Change commented out "#" lines to #line directives.
+       I don't know why this behavior isn't the default for f2c -g.
+   2.  Remove include of f2c.h and put in just a typedef for "integer".
+   Additional notes:
+   3.  f2c was called as "f2c -g langs1.f".
+   4.  We don't need to use the fortran libraries.  */
+
+typedef int integer;
+
+/* Table of constant values */
+
+static integer c__10000 = 10000;
+
+/* I am not sure whether there is a way to have a fortran program without */
+/* a MAIN, but it does not really harm us to have one. */
+/* Main program */ MAIN__()
+{
+} /* MAIN__ */
+
+#line 4 "langs1.f"
+/* Subroutine */ int fsub_()
+{
+    extern integer cppsub_();
+
+#line 5 "langs1.f"
+#line 6 "langs1.f"
+    return cppsub_(&c__10000);
+#line 7 "langs1.f"
+} /* fsub_ */
+