import gdb-1999-06-28 snapshot

[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / langs1.c

diff --git a/gdb/testsuite/gdb.base/langs1.c b/gdb/testsuite/gdb.base/langs1.c
index 784225902c4a0032bd3e1cfb2945baa56d38c933..8ffd13f0840f9ea2dfebe7e6fe3c41ddf90e6bf3 100644 (file)
--- a/gdb/testsuite/gdb.base/langs1.c
+++ b/gdb/testsuite/gdb.base/langs1.c
@@ -16,14 +16,22 @@ 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. */
+#ifdef PROTOTYPES
+/* Main program */ void MAIN__()
+#else
 /* Main program */ MAIN__()
+#endif
 {
 } /* MAIN__ */
 
 #line 4 "langs1.f"
 /* Subroutine */ int fsub_()
 {
+#ifdef PROTOTYPES
+    extern integer cppsub_(int*);
+#else
     extern integer cppsub_();
+#endif
 
 #line 5 "langs1.f"
 #line 6 "langs1.f"