b4f94ac15e
maintainer-scripts: * update_version: Do not check in files which are unchanged. * gcc_release: Only update the version in gcc/version.c. gcc: * version.c (version_string): Now const char[]. * version.h: Update to match. gcc/ada: * Make-lang.in (EXTRA_GNATBIND_OBJS): Add version.o. * Makefile.in (TOOLS_LIBS): Add ../../version.o. * gnatvsn.ads: Gnat_Version_String is now a function. * gnatvsn.adb: New file. When asked for Gnat_Version_String, copy the C version_string into a String and return it. * gnatcmd.adb, gnatkr.adb, gnatlbr.adb, gnatlink.adb, gnatls.adb,gnatmake.adb, gnatprep.adb, gnatpsta.adb: Remove pragma Ident (Gnat_Version_String). If this was the sole use of package Gnatvsn, remove the with statement too. * gnat1drv.adb: Tweak -gnatv output. gcc/f: * Make-lang.in (g77spec.o): Don't depend on f/version.h. (f/parse.o): Depend on version.h not f/version.h. (g77version.o, f/version.o): Delete all references. * com.c (ffecom_init_0): Fix transposed array indices in bsearch test. * g77spec.c: Don't include f/version.h or refer to ffe_version_string. * parse.c: Use version_string, not ffe_version_string. * version.c, version.h: Delete files. libf2c: * libF77/Version.c: Rename junk to __LIBF77_VERSION__. Add external decls for __LIBI77_VERSION__ and __LIBU77_VERSION__. Delete __G77_LIBF77_VERSION__ (g77__fvers__): Print all three __LIB*77_VERSION__ strings, and __VERSION__ if we have it; nothing else. * libI77/Version.c: Provide only __LIBI77_VERSION__ (formerly junk). * libU77/Version.c: Provide only __LIBU77_VERSION__ (formerly junk). From-SVN: r57461
95 lines
4.3 KiB
C
95 lines
4.3 KiB
C
const char __LIBF77_VERSION__[] = "@(#) LIBF77 VERSION 20000929\n";
|
|
extern const char __LIBI77_VERSION__[];
|
|
extern const char __LIBU77_VERSION__[];
|
|
|
|
/*
|
|
2.00 11 June 1980. File version.c added to library.
|
|
2.01 31 May 1988. s_paus() flushes stderr; names of hl_* fixed
|
|
[ d]erf[c ] added
|
|
8 Aug. 1989: #ifdefs for f2c -i2 added to s_cat.c
|
|
29 Nov. 1989: s_cmp returns long (for f2c)
|
|
30 Nov. 1989: arg types from f2c.h
|
|
12 Dec. 1989: s_rnge allows long names
|
|
19 Dec. 1989: getenv_ allows unsorted environment
|
|
28 Mar. 1990: add exit(0) to end of main()
|
|
2 Oct. 1990: test signal(...) == SIG_IGN rather than & 01 in main
|
|
17 Oct. 1990: abort() calls changed to sig_die(...,1)
|
|
22 Oct. 1990: separate sig_die from main
|
|
25 Apr. 1991: minor, theoretically invisible tweaks to s_cat, sig_die
|
|
31 May 1991: make system_ return status
|
|
18 Dec. 1991: change long to ftnlen (for -i2) many places
|
|
28 Feb. 1992: repair z_sqrt.c (scribbled on input, gave wrong answer)
|
|
18 July 1992: for n < 0, repair handling of 0**n in pow_[dr]i.c
|
|
and m**n in pow_hh.c and pow_ii.c;
|
|
catch SIGTRAP in main() for error msg before abort
|
|
23 July 1992: switch to ANSI prototypes unless KR_headers is #defined
|
|
23 Oct. 1992: fix botch in signal_.c (erroneous deref of 2nd arg);
|
|
change Cabs to f__cabs.
|
|
12 March 1993: various tweaks for C++
|
|
2 June 1994: adjust so abnormal terminations invoke f_exit just once
|
|
16 Sept. 1994: s_cmp: treat characters as unsigned in comparisons.
|
|
19 Sept. 1994: s_paus: flush after end of PAUSE; add -DMSDOS
|
|
12 Jan. 1995: pow_[dhiqrz][hiq]: adjust x**i to work on machines
|
|
that sign-extend right shifts when i is the most
|
|
negative integer.
|
|
26 Jan. 1995: adjust s_cat.c, s_copy.c to permit the left-hand side
|
|
of character assignments to appear on the right-hand
|
|
side (unless compiled with -DNO_OVERWRITE).
|
|
27 Jan. 1995: minor tweak to s_copy.c: copy forward whenever
|
|
possible (for better cache behavior).
|
|
30 May 1995: added subroutine exit(rc) integer rc. Version not changed.
|
|
29 Aug. 1995: add F77_aloc.c; use it in s_cat.c and system_.c.
|
|
6 Sept. 1995: fix return type of system_ under -DKR_headers.
|
|
19 Dec. 1995: s_cat.c: fix bug when 2nd or later arg overlaps lhs.
|
|
19 Mar. 1996: s_cat.c: supply missing break after overlap detection.
|
|
13 May 1996: add [lq]bitbits.c and [lq]bitshft.c (f90 bit intrinsics).
|
|
19 June 1996: add casts to unsigned in [lq]bitshft.c.
|
|
26 Feb. 1997: adjust functions with a complex output argument
|
|
to permit aliasing it with input arguments.
|
|
(For now, at least, this is just for possible
|
|
benefit of g77.)
|
|
4 April 1997: [cz]_div.c: tweaks invisible on most systems (that may
|
|
affect systems using gratuitous extra precision).
|
|
19 Sept. 1997: [de]time_.c (Unix systems only): change return
|
|
type to double.
|
|
2 May 1999: getenv_.c: omit environ in favor of getenv().
|
|
c_cos.c, c_exp.c, c_sin.c, d_cnjg.c, r_cnjg.c,
|
|
z_cos.c, z_exp.c, z_log.c, z_sin.c: cope fully with
|
|
overlapping arguments caused by equivalence.
|
|
3 May 1999: "invisible" tweaks to omit compiler warnings in
|
|
abort_.c, ef1asc_.c, s_rnge.c, s_stop.c.
|
|
7 Sept. 1999: [cz]_div.c: arrange for compilation under
|
|
-DIEEE_COMPLEX_DIVIDE to make these routines
|
|
avoid calling sig_die when the denominator
|
|
vanishes; instead, they return pairs of NaNs
|
|
or Infinities, depending whether the numerator
|
|
also vanishes or not. VERSION not changed.
|
|
15 Nov. 1999: s_rnge.c: add casts for the case of
|
|
sizeof(ftnint) == sizeof(int) < sizeof(long).
|
|
10 March 2000: z_log.c: improve accuracy of Real(log(z)) for, e.g.,
|
|
z near (+-1,eps) with |eps| small. For the old
|
|
evaluation, compile with -DPre20000310 .
|
|
20 April 2000: s_cat.c: tweak argument types to accord with
|
|
calls by f2c when ftnint and ftnlen are of
|
|
different sizes (different numbers of bits).
|
|
4 July 2000: adjustments to permit compilation by C++ compilers;
|
|
VERSION string remains unchanged. NOT APPLIED FOR G77.
|
|
29 Sept. 2000: dtime_.c, etime_.c: use floating-point divide.
|
|
dtime_.d, erf_.c, erfc_.c, etime.c: for use with
|
|
"f2c -R", compile with -DREAL=float.
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
void
|
|
g77__fvers__ ()
|
|
{
|
|
fputs ("GNU Fortran library.\n", stderr);
|
|
#if defined __GNUC__ && defined __VERSION__
|
|
fprintf (stderr, "Compiled by GCC %s\n", __VERSION__);
|
|
#endif
|
|
fputs (__LIBF77_VERSION__, stderr);
|
|
fputs (__LIBI77_VERSION__, stderr);
|
|
fputs (__LIBU77_VERSION__, stderr);
|
|
}
|