libf2c/libF77/Version.c

   1 static char junk[] = "\n@(#)LIBF77 VERSION 19991115\n";
   2
   3 /*
   4 */
   5
   6 char __G77_LIBF77_VERSION__[] = "0.5.25 20000313 (prerelease)";
   7
   8 /*
   9 2.00    11 June 1980.  File version.c added to library.
  10 2.01    31 May 1988.  s_paus() flushes stderr; names of hl_* fixed
  11         [ d]erf[c ] added
  12          8 Aug. 1989: #ifdefs for f2c -i2 added to s_cat.c
  13         29 Nov. 1989: s_cmp returns long (for f2c)
  14         30 Nov. 1989: arg types from f2c.h
  15         12 Dec. 1989: s_rnge allows long names
  16         19 Dec. 1989: getenv_ allows unsorted environment
  17         28 Mar. 1990: add exit(0) to end of main()
  18          2 Oct. 1990: test signal(...) == SIG_IGN rather than & 01 in main
  19         17 Oct. 1990: abort() calls changed to sig_die(...,1)
  20         22 Oct. 1990: separate sig_die from main
  21         25 Apr. 1991: minor, theoretically invisible tweaks to s_cat, sig_die
  22         31 May  1991: make system_ return status
  23         18 Dec. 1991: change long to ftnlen (for -i2) many places
  24         28 Feb. 1992: repair z_sqrt.c (scribbled on input, gave wrong answer)
  25         18 July 1992: for n < 0, repair handling of 0**n in pow_[dr]i.c
  26                         and m**n in pow_hh.c and pow_ii.c;
  27                         catch SIGTRAP in main() for error msg before abort
  28         23 July 1992: switch to ANSI prototypes unless KR_headers is #defined
  29         23 Oct. 1992: fix botch in signal_.c (erroneous deref of 2nd arg);
  30                         change Cabs to f__cabs.
  31         12 March 1993: various tweaks for C++
  32          2 June 1994: adjust so abnormal terminations invoke f_exit just once
  33         16 Sept. 1994: s_cmp: treat characters as unsigned in comparisons.
  34         19 Sept. 1994: s_paus: flush after end of PAUSE; add -DMSDOS
  35         12 Jan. 1995:   pow_[dhiqrz][hiq]: adjust x**i to work on machines
  36                         that sign-extend right shifts when i is the most
  37                         negative integer.
  38         26 Jan. 1995: adjust s_cat.c, s_copy.c to permit the left-hand side
  39                         of character assignments to appear on the right-hand
  40                         side (unless compiled with -DNO_OVERWRITE).
  41         27 Jan. 1995: minor tweak to s_copy.c: copy forward whenever
  42                         possible (for better cache behavior).
  43         30 May 1995:  added subroutine exit(rc) integer rc. Version not changed.
  44         29 Aug. 1995: add F77_aloc.c; use it in s_cat.c and system_.c.
  45         6 Sept. 1995: fix return type of system_ under -DKR_headers.
  46         19 Dec. 1995: s_cat.c: fix bug when 2nd or later arg overlaps lhs.
  47         19 Mar. 1996: s_cat.c: supply missing break after overlap detection.
  48         13 May 1996:  add [lq]bitbits.c and [lq]bitshft.c (f90 bit intrinsics).
  49         19 June 1996: add casts to unsigned in [lq]bitshft.c.
  50         26 Feb. 1997: adjust functions with a complex output argument
  51                         to permit aliasing it with input arguments.
  52                         (For now, at least, this is just for possible
  53                         benefit of g77.)
  54         4 April 1997: [cz]_div.c: tweaks invisible on most systems (that may
  55                         affect systems using gratuitous extra precision).
  56         19 Sept. 1997: [de]time_.c (Unix systems only): change return
  57                         type to double.
  58         2 May 1999:     getenv_.c: omit environ in favor of getenv().
  59                         c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c,
  60                         z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with
  61                         overlapping arguments caused by equivalence.
  62         3 May 1999:     "invisible" tweaks to omit compiler warnings in
  63                         abort_.c, ef1asc_.c, s_rnge.c, s_stop.c.
  64         7 Sept. 1999: [cz]_div.c: arrange for compilation under
  65                         -DIEEE_COMPLEX_DIVIDE to make these routines
  66                         avoid calling sig_die when the denominator
  67                         vanishes; instead, they return pairs of NaNs
  68                         or Infinities, depending whether the numerator
  69                         also vanishes or not.  VERSION not changed.
  70         15 Nov. 1999: s_rnge.c: add casts for the case of
  71                         sizeof(ftnint) == sizeof(int) < sizeof(long).
  72 */
  73
  74 #include <stdio.h>
  75
  76 void
  77 g77__fvers__ ()
  78 {
  79   fprintf (stderr, "__G77_LIBF77_VERSION__: %s", __G77_LIBF77_VERSION__);
  80   fputs (junk, stderr);
  81 }