summaryrefslogtreecommitdiff
path: root/gnu/lib/libf2c/libI77/Version.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/lib/libf2c/libI77/Version.c')
-rw-r--r--gnu/lib/libf2c/libI77/Version.c18
1 files changed, 1 insertions, 17 deletions
diff --git a/gnu/lib/libf2c/libI77/Version.c b/gnu/lib/libf2c/libI77/Version.c
index 4f7e7333425..f6b3d5d8a5e 100644
--- a/gnu/lib/libf2c/libI77/Version.c
+++ b/gnu/lib/libf2c/libI77/Version.c
@@ -1,9 +1,4 @@
-static char junk[] = "\n@(#) LIBI77 VERSION pjw,dmg-mods 20001205\n";
-
-/*
-*/
-
-char __G77_LIBI77_VERSION__[] = "3.2.2 20030422 (release)";
+const char __LIBI77_VERSION__[] = "@(#) LIBI77 VERSION pjw,dmg-mods 20001205\n";
/*
2.01 $ format added
@@ -324,17 +319,6 @@ wrtfmt.c:
/* treat Tstuff= and Fstuff= as new assignments rather than as */
/* logical constants. */
-
-
/* Changes for GNU Fortran (g77) version of libf2c: */
/* 17 June 1997: detect recursive I/O and call f__fatal explaining it. */
-
-#include <stdio.h>
-
-void
-g77__ivers__ ()
-{
- fprintf (stderr, "__G77_LIBI77_VERSION__: %s", __G77_LIBI77_VERSION__);
- fputs (junk, stderr);
-}