libf2c/libU77/Version.c

   1 static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n";
   2
   3 char __G77_LIBU77_VERSION__[] = "0.5.27 20010920 (experimental)";
   4
   5 #include <stdio.h>
   6
   7 void
   8 g77__uvers__ ()
   9 {
  10   fprintf (stderr, "__G77_LIBU77_VERSION__: %s", __G77_LIBU77_VERSION__);
  11   fputs (junk, stderr);
  12 }