diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/BUGS egcs-1.1.2/gcc/f/BUGS *** egcs-1.1.1/gcc/f/BUGS Mon Nov 23 02:03:34 1998 --- egcs-1.1.2/gcc/f/BUGS Sat Mar 13 07:22:37 1999 *************** permission notice. *** 6,59 **** Bugs in GNU Fortran ******************* ! This section identifies bugs that `g77' *users* might run into. ! This includes bugs that are actually in the `gcc' back end (GBE) or in ! `libf2c', because those sets of code are at least somewhat under the ! control of (and necessarily intertwined with) `g77', so it isn't worth ! separating them out. For information on bugs that might afflict people who configure, ! port, build, and install `g77', *Note Problems Installing::. ! * `g77' sometimes crashes when compiling code containing the ! construct `CMPLX(0.)' or similar. This is a `gcc' back-end bug. ! It can be worked around using `-fno-emulate-complex', though that ! might trigger other, older bugs. Compiling without optimization ! is another work-around. ! Fixed in `egcs' 1.1. ! * Automatic arrays aren't working on HP-UX systems, at least in ! HP-UX version 10.20. Writing into them apparently causes over-writing of statically declared data in the main program. This probably means the arrays themselves are being under-allocated, or pointers to them being improperly handled, e.g. not passed to other procedures as they should be. - * Some Fortran code has been found to be miscompiled by `g77' built - on `gcc' version 2.8.1 on m68k-next-nextstep3 configurations when - using the `-O2' option. Even a C function is known to miscompile - on that configuration when using the `-O2 -funroll-loops' options. - - Fixed in `egcs'. - - * A code-generation bug afflicts Intel x86 targets when `-O2' is - specified compiling, for example, an old version of the `DNRM2' - routine. The x87 coprocessor stack is being mismanaged in cases - where assigned `GOTO' and `ASSIGN' are involved. - - Fixed in `egcs' version 1.1. - * `g77' fails to warn about use of a "live" iterative-DO variable as an implied-DO variable in a `WRITE' or `PRINT' statement (although it does warn about this in a `READ' statement). - * A compiler crash, or apparently infinite run time, can result when - compiling complicated expressions involving `COMPLEX' arithmetic - (especially multiplication). - - Fixed in `egcs' version 1.1. - * Something about `g77''s straightforward handling of label references and definitions sometimes prevents the GBE from unrolling loops. Until this is solved, try inserting or removing --- 6,64 ---- Bugs in GNU Fortran ******************* ! This section identifies bugs that `g77' *users* might run into in ! the `egcs'-1.1.2 version of `g77'. This includes bugs that are ! actually in the `gcc' back end (GBE) or in `libf2c', because those sets ! of code are at least somewhat under the control of (and necessarily ! intertwined with) `g77', so it isn't worth separating them out. ! ! For information on bugs in *other* versions of `g77', see ! `egcs/gcc/f/NEWS'. ! ! An online, "live" version of this document (derived directly from ! the up-to-date mainline version of `g77' within `egcs') is available at ! `http://egcs.cygnus.com/onlinedocs/g77_bugs.html'. For information on bugs that might afflict people who configure, ! port, build, and install `g77', see "Problems Installing" in ! `egcs/gcc/f/INSTALL'. ! * `g77' generates bad code for assignments, or other conversions, of ! `REAL' or `COMPLEX' constant expressions to type `INTEGER(KIND=2)' ! (often referred to as `INTEGER*8'). ! For example, `INTEGER*8 J; J = 4E10' is miscompiled on some ! systems--the wrong value is stored in J. ! * The `IDate' Intrinsic (VXT) fails to return the year in the ! documented, non-Y2K-compliant range of 0-99, instead returning 100 ! for the year 2000. ! ! * Year 2000 (Y2K) compliance information is missing from the ! documentation. ! ! * `g77' crashes when compiling I/O statements using keywords that ! define `INTEGER' values, such as `IOSTAT=J', where J is other than ! default `INTEGER' (such as `INTEGER*2'). ! ! * The `-ax' option is not obeyed when compiling Fortran programs. ! (It is not passed to the `f771' driver.) ! ! * `g77' fails to warn about a reference to a function when the ! corresponding *subsequent* function program unit disagrees with ! the reference concerning the type of the function. ! ! * Automatic arrays possibly aren't working on HP-UX systems, at ! least in HP-UX version 10.20. Writing into them apparently causes over-writing of statically declared data in the main program. This probably means the arrays themselves are being under-allocated, or pointers to them being improperly handled, e.g. not passed to other procedures as they should be. * `g77' fails to warn about use of a "live" iterative-DO variable as an implied-DO variable in a `WRITE' or `PRINT' statement (although it does warn about this in a `READ' statement). * Something about `g77''s straightforward handling of label references and definitions sometimes prevents the GBE from unrolling loops. Until this is solved, try inserting or removing *************** port, build, and install `g77', *Note Pr *** 98,107 **** compiler.) Note that `g77' does display a warning message to notify the user ! before the compiler appears to hang. *Note Initialization of ! Large Aggregate Areas: Large Initialization, for information on ! how to change the point at which `g77' decides to issue this ! warning. * `g77' doesn't emit variable and array members of common blocks for use with a debugger (the `-g' command-line option). The code is --- 103,109 ---- compiler.) Note that `g77' does display a warning message to notify the user ! before the compiler appears to hang. * `g77' doesn't emit variable and array members of common blocks for use with a debugger (the `-g' command-line option). The code is *************** port, build, and install `g77', *Note Pr *** 114,122 **** whereby some rudimentary information on a member is written as a string that is the member's value as a character string. - *Note Options for Code Generation Conventions: Code Gen Options, - for information on the `-fdebug-kludge' option. - * When debugging, after starting up the debugger but before being able to see the source code for the main program unit, the user must currently set a breakpoint at `MAIN__' (or `MAIN___' or --- 116,121 ---- *************** port, build, and install `g77', *Note Pr *** 159,171 **** `-fno-emulate-complex' avoids the work-around, reverting to using the same "broken" mechanism as that used by versions of `g77' prior to 0.5.20. - - * `g77' sometimes produces invalid assembler code when using the - `-fPIC' option (such as compiling for ELF targets) on the Intel - x86 architecture target. The symptom is that the assembler - complains about invalid opcodes. This bug is in the gcc back end. - - Fixed in `egcs' version 1.0.2. * `g77' currently inserts needless padding for things like `COMMON A,IPAD' where `A' is `CHARACTER*1' and `IPAD' is `INTEGER(KIND=1)' --- 158,163 ---- diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/ChangeLog egcs-1.1.2/gcc/f/ChangeLog *** egcs-1.1.1/gcc/f/ChangeLog Mon Nov 23 00:35:59 1998 --- egcs-1.1.2/gcc/f/ChangeLog Sat Mar 13 18:38:27 1999 *************** *** 1,7 **** --- 1,109 ---- + Sun Mar 14 02:38:07 PST 1999 Jeff Law (law@cygnus.com) + + * egcs-1.1.2 Released. + + 1999-03-13 Craig Burley + + * bugs.texi: Document newly discovered bug (19990313-*.f tests). + + 1999-03-13 Craig Burley + + * bugs.texi: Editorial fixes. + + 1999-03-11 Craig Burley + + * bugs.texi, g77.texi, news.texi: Point to URLs for live + versions of docs. + Clarify which versions to which these docs apply. + Other minor fix-ups. + + 1999-03-05 Craig Burley + + * news.texi: IDATE (VXT) fixed to return year as 0..99. + + 1999-03-03 Craig Burley + + * bugs.texi: Update with latest bug-fixes from 1.2. + Remove fixed bugs. + + 1999-02-26 Craig Burley + + * news.texi: List fixes to Date_and_Time and LStat, plus + the docs, under a new heading for egcs 1.1.2. + + 1999-02-26 Craig Burley + + * intdoc.in (STAT_func, STAT_subr, + FSTAT_func, FSTAT_subr, LSTAT_func, LSTAT_subr): + Properly order array elements. Specify N/A return values. + + 1999-02-26 Craig Burley + + * intdoc.in (DATE_AND_TIME): Explain that VALUES(7) holds + seconds, and VALUES(8), therefore, the milliseconds. + + 1999-02-26 Craig Burley + + * bugs.texi: Mention bugs known fixed in egcs 1.2 as of now. + + 1999-02-26 Craig Burley + + Fix what evidently remains of these, for 4.4bsd: + Tue Aug 18 21:41:31 1998 Jeffrey A Law (law@cygnus.com) + * Make-lang.in: Add several "else true" clauses to deal with lame + systems. + + 1999-02-25 Andreas Jaeger + + * f/intdoc.in: Add missing `,' after cross references. + + 1999-02-20 Craig Burley + + * g77.texi: Properly attribute Priest document; clarify + that it is in the .ps version of the Goldberg document. + + 1999-02-18 Craig Burley + + * intdoc.in (LOG10): Fix typo. + + 1999-02-17 Dave Love + + * intdoc.in: Say `common' logarithm for log10. + + 1999-02-15 Craig Burley + + * g77.texi: Change my email address in a couple of places. + + 1999-02-14 Craig Burley + + * version.c: Bump for 1998-10-02 change (forgot to do this + before). + + 1999-02-14 Craig Burley + + * intdoc.in (LOG10): Fix description. + + 1999-02-14 Craig Burley + + * news.texi: Mention fix for SIGNAL invocation circa egcs-1.1. + + 1999-02-14 Craig Burley + + * intdoc.in (MCLOCK8, TIME8): Warn about lower range on + 32-bit systems. + + Sat Feb 6 17:17:09 1999 Jeffrey A Law (law@cygnus.com) + + * g77.texi: Update email addresses. + 1998-11-20 Dave Love * g77.texi: Assorted minor changes. + 1998-11-19 Dave Love + + * intdoc.in: Terminate some @xrefs with `,'. + Mon Nov 9 23:13:30 1998 Jeffrey A Law (law@cygnus.com) * g77.texi: Updates from Craig. *************** Tue Jul 21 04:33:37 1998 Craig Burley *** 67,81 **** Sat Jul 18 19:16:48 1998 Craig Burley ! * lang-options.h: Fix up doc strings. ! Remove the unimplemented -fdcp-intrinsics-* options. ! * str-1t.fin: Change mixed-case spelling of `GoTo' from ! `Goto'. Thu Jul 16 13:26:36 1998 Craig Burley ! * (ffecom_finish_symbol_transform_): Revert change of 1998-05-23, as it was too aggressive, in that it prevented transformation of (used) functions before primary code generation. --- 169,183 ---- Sat Jul 18 19:16:48 1998 Craig Burley ! * lang-options.h: Fix up doc strings. ! Remove the unimplemented -fdcp-intrinsics-* options. ! * str-1t.fin: Change mixed-case spelling of `GoTo' from ! `Goto'. Thu Jul 16 13:26:36 1998 Craig Burley ! * com.c (ffecom_finish_symbol_transform_): Revert change of 1998-05-23, as it was too aggressive, in that it prevented transformation of (used) functions before primary code generation. *************** Mon Jun 15 22:21:57 1998 Craig Burley *** 300,306 **** * ste.c: * top.c: * toplev.j: New file. ! Conditionalize all dumping/reporting routines so they don't get built for gcc/egcs: * bld.c: --- 402,408 ---- * ste.c: * top.c: * toplev.j: New file. ! Conditionalize all dumping/reporting routines so they don't get built for gcc/egcs: * bld.c: *************** Fri Feb 20 12:45:53 1998 Craig Burley *** 627,647 **** Fri Feb 13 00:14:56 1998 Kaveh R. Ghazi * com.c (type_for_mode): Add explicit braces to avoid ambiguous `else'. ! * expr.c (ffeexpr_type_combine): Likewise. (ffeexpr_reduce_): Likewise. (ffeexpr_declare_parenthesized_): Likewise. ! * src.c (ffesrc_strcmp_1ns2i): Likewise. (ffesrc_strcmp_2c): Likewise. (ffesrc_strncmp_2c): Likewise. ! * stb.c (ffestb_halt1_): Likewise. (ffestb_R90910_): Likewise. (ffestb_R9109_): Likewise. * stc.c (ffestc_R544_equiv_): Likewise. ! * std.c (ffestd_subr_copy_easy_): Likewise. (ffestd_R1001dump_): Likewise. (ffestd_R1001dump_1005_1_): Likewise. --- 729,749 ---- Fri Feb 13 00:14:56 1998 Kaveh R. Ghazi * com.c (type_for_mode): Add explicit braces to avoid ambiguous `else'. ! * expr.c (ffeexpr_type_combine): Likewise. (ffeexpr_reduce_): Likewise. (ffeexpr_declare_parenthesized_): Likewise. ! * src.c (ffesrc_strcmp_1ns2i): Likewise. (ffesrc_strcmp_2c): Likewise. (ffesrc_strncmp_2c): Likewise. ! * stb.c (ffestb_halt1_): Likewise. (ffestb_R90910_): Likewise. (ffestb_R9109_): Likewise. * stc.c (ffestc_R544_equiv_): Likewise. ! * std.c (ffestd_subr_copy_easy_): Likewise. (ffestd_R1001dump_): Likewise. (ffestd_R1001dump_1005_1_): Likewise. *************** Fri Feb 13 00:14:56 1998 Kaveh R. Ghazi *** 650,665 **** (ffestd_R1001dump_1005_4_): Likewise. (ffestd_R1001dump_1005_5_): Likewise. (ffestd_R1001dump_1010_2_): Likewise. ! * ste.c (ffeste_R840): Likewise. ! * sts.c (ffests_puttext): Likewise. ! * symbol.c (ffesymbol_check_token_): Likewise. ! * target.c (ffetarget_real1): Likewise. (ffetarget_real2): Likewise. ! Sun Jan 25 12:32:15 1998 Kaveh R. Ghazi * Make-lang.in (f77.stage1): Depend on stage1-start so parallel --- 752,767 ---- (ffestd_R1001dump_1005_4_): Likewise. (ffestd_R1001dump_1005_5_): Likewise. (ffestd_R1001dump_1010_2_): Likewise. ! * ste.c (ffeste_R840): Likewise. ! * sts.c (ffests_puttext): Likewise. ! * symbol.c (ffesymbol_check_token_): Likewise. ! * target.c (ffetarget_real1): Likewise. (ffetarget_real2): Likewise. ! Sun Jan 25 12:32:15 1998 Kaveh R. Ghazi * Make-lang.in (f77.stage1): Depend on stage1-start so parallel *************** Mon Sep 29 16:18:21 1997 Craig Burley *** 856,862 **** Fri Sep 19 01:12:27 1997 Craig Burley ! * expr.c (ffeexpr_reduced_eqop2_): (ffeexpr_reduced_relop2_): Minor fixes to diagnostic code. * fini.c (main): Change return type to `int'. --- 958,964 ---- Fri Sep 19 01:12:27 1997 Craig Burley ! * expr.c (ffeexpr_reduced_eqop2_): (ffeexpr_reduced_relop2_): Minor fixes to diagnostic code. * fini.c (main): Change return type to `int'. *************** Thu Sep 26 00:18:40 1996 Craig Burley *** 2428,2434 **** * lang-options.h, top.c, top.h (-fno-debug-kludge): New option. ! 1996-09-24 Dave Love * Make-lang.in (include/f2c.h): --- 2530,2536 ---- * lang-options.h, top.c, top.h (-fno-debug-kludge): New option. ! 1996-09-24 Dave Love * Make-lang.in (include/f2c.h): diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/Make-lang.in egcs-1.1.2/gcc/f/Make-lang.in *** egcs-1.1.1/gcc/f/Make-lang.in Thu Oct 1 17:28:34 1998 --- egcs-1.1.2/gcc/f/Make-lang.in Fri Feb 26 04:55:40 1999 *************** g77.c: $(srcdir)/gcc.c *** 67,73 **** if [ -f lang-f77 ]; then \ rm -f g77.c; \ $(LN_S) $(srcdir)/gcc.c g77.c; \ ! fi g77spec.o: $(srcdir)/f/g77spec.c $(srcdir)/f/version.h case "$(LANGUAGES)" in \ --- 67,73 ---- if [ -f lang-f77 ]; then \ rm -f g77.c; \ $(LN_S) $(srcdir)/gcc.c g77.c; \ ! else true; fi g77spec.o: $(srcdir)/f/g77spec.c $(srcdir)/f/version.h case "$(LANGUAGES)" in \ *************** g77spec.o: $(srcdir)/f/g77spec.c $(srcdi *** 76,82 **** esac if [ -f lang-f77 ]; then \ $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(srcdir)/f/g77spec.c; \ ! fi g77version.o: $(srcdir)/f/version.c case "$(LANGUAGES)" in \ --- 76,82 ---- esac if [ -f lang-f77 ]; then \ $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(srcdir)/f/g77spec.c; \ ! else true; fi g77version.o: $(srcdir)/f/version.c case "$(LANGUAGES)" in \ *************** g77version.o: $(srcdir)/f/version.c *** 86,92 **** if [ -f lang-f77 ]; then \ $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -o g77version.o \ $(srcdir)/f/version.c; \ ! fi # N.B.: This is a copy of the gcc.o rule, with -DLANG_SPECIFIC_DRIVER added. # It'd be nice if we could find an easier way to do this---rather than have --- 86,92 ---- if [ -f lang-f77 ]; then \ $(CC) -c $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) -o g77version.o \ $(srcdir)/f/version.c; \ ! else true; fi # N.B.: This is a copy of the gcc.o rule, with -DLANG_SPECIFIC_DRIVER added. # It'd be nice if we could find an easier way to do this---rather than have *************** g77.o: $(CONFIG_H) multilib.h config.sta *** 100,106 **** if [ -f lang-f77 ]; then \ $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(DRIVER_DEFINES) \ -DLANG_SPECIFIC_DRIVER -c g77.c; \ ! fi # Create the compiler driver for g77. g77$(exeext): g77.o g77spec.o g77version.o version.o choose-temp.o pexecute.o prefix.o mkstemp.o \ --- 100,106 ---- if [ -f lang-f77 ]; then \ $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) $(DRIVER_DEFINES) \ -DLANG_SPECIFIC_DRIVER -c g77.c; \ ! else true; fi # Create the compiler driver for g77. g77$(exeext): g77.o g77spec.o g77version.o version.o choose-temp.o pexecute.o prefix.o mkstemp.o \ *************** g77$(exeext): g77.o g77spec.o g77version *** 108,121 **** if [ -f lang-f77 ]; then \ $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o $@ g77.o g77spec.o g77version.o \ version.o choose-temp.o pexecute.o prefix.o mkstemp.o $(EXTRA_GCC_OBJS) $(LIBS); \ ! fi # Create a version of the g77 driver which calls the cross-compiler. g77-cross$(exeext): g77$(exeext) if [ -f lang-f77 ]; then \ rm -f g77-cross$(exeext); \ cp g77$(exeext) g77-cross$(exeext); \ ! fi F77_SRCS = \ $(srcdir)/f/assert.j \ --- 108,121 ---- if [ -f lang-f77 ]; then \ $(CC) $(ALL_CFLAGS) $(LDFLAGS) -o $@ g77.o g77spec.o g77version.o \ version.o choose-temp.o pexecute.o prefix.o mkstemp.o $(EXTRA_GCC_OBJS) $(LIBS); \ ! else true; fi # Create a version of the g77 driver which calls the cross-compiler. g77-cross$(exeext): g77$(exeext) if [ -f lang-f77 ]; then \ rm -f g77-cross$(exeext); \ cp g77$(exeext) g77-cross$(exeext); \ ! else true; fi F77_SRCS = \ $(srcdir)/f/assert.j \ *************** f/g77.info: $(srcdir)/f/g77.texi $(srcdi *** 252,258 **** if [ -f lang-f77 ]; then \ rm -f $(srcdir)/f/g77.info-*; \ $(MAKEINFO) -I$(srcdir)/f -o f/g77.info $(srcdir)/f/g77.texi; \ ! fi f/g77.dvi: $(srcdir)/f/g77.texi $(srcdir)/f/bugs.texi \ $(srcdir)/f/g77install.texi $(srcdir)/f/news.texi \ --- 252,258 ---- if [ -f lang-f77 ]; then \ rm -f $(srcdir)/f/g77.info-*; \ $(MAKEINFO) -I$(srcdir)/f -o f/g77.info $(srcdir)/f/g77.texi; \ ! else true; fi f/g77.dvi: $(srcdir)/f/g77.texi $(srcdir)/f/bugs.texi \ $(srcdir)/f/g77install.texi $(srcdir)/f/news.texi \ *************** f/g77.dvi: $(srcdir)/f/g77.texi $(srcdir *** 270,276 **** texindex g77.??; \ TEXINPUTS=$(srcdir)/f:$$TEXINPUTS tex $(srcdir)/f/g77.texi; \ mv g77.dvi f; \ ! fi # This dance is all about producing accurate documentation for g77's # intrinsics with minimum fuss. f/ansify appends "\n\" to C strings --- 270,276 ---- texindex g77.??; \ TEXINPUTS=$(srcdir)/f:$$TEXINPUTS tex $(srcdir)/f/g77.texi; \ mv g77.dvi f; \ ! else true; fi # This dance is all about producing accurate documentation for g77's # intrinsics with minimum fuss. f/ansify appends "\n\" to C strings *************** $(srcdir)/f/intdoc.texi: f/intdoc.c f/in *** 304,310 **** `echo $(srcdir)/f/intdoc.c | sed 's,^\./,,'` -o f/intdoc; \ f/intdoc > $(srcdir)/f/intdoc.texi; \ rm f/intdoc f/ansify f/intdoc.h0; \ ! fi $(srcdir)/f/BUGS: f/bugs0.texi f/bugs.texi cd $(srcdir)/f; $(MAKEINFO) -D BUGSONLY --no-header --no-split \ --- 304,310 ---- `echo $(srcdir)/f/intdoc.c | sed 's,^\./,,'` -o f/intdoc; \ f/intdoc > $(srcdir)/f/intdoc.texi; \ rm f/intdoc f/ansify f/intdoc.h0; \ ! else true; fi $(srcdir)/f/BUGS: f/bugs0.texi f/bugs.texi cd $(srcdir)/f; $(MAKEINFO) -D BUGSONLY --no-header --no-split \ diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/NEWS egcs-1.1.2/gcc/f/NEWS *** egcs-1.1.1/gcc/f/NEWS Mon Nov 23 02:03:35 1998 --- egcs-1.1.2/gcc/f/NEWS Thu Mar 11 07:30:23 1999 *************** clarify how they differ from other versi *** 38,43 **** --- 38,62 ---- getting a complete picture of what a particular `egcs' version contains somewhat more difficult. + An online, "live" version of this document (derived directly from + the up-to-date mainline version of `g77' within `egcs') is available at + `http://egcs.cygnus.com/onlinedocs/g77_news.html'. + + In 0.5.24 and `egcs' 1.1.2 (versus 0.5.23 and 1.1.1): + ===================================================== + + * Fix the `IDate' Intrinsic (VXT) so the returned year is in the + documented, non-Y2K-compliant range of 0-99, instead of being + returned as 100 in the year 2000. + + * Fix the `Date_and_Time' intrinsic (in `libg2c') to return the + milliseconds value properly in VALUES(8). + + * Fix the `LStat' intrinsic (in `libg2c') to return device-ID + information properly in SARRAY(7). + + * Improve documentation. + In 0.5.24 and `egcs' 1.1.1 (versus 0.5.23 and 1.1): =================================================== *************** In 0.5.24 and `egcs' 1.1 (versus 0.5.23) *** 193,198 **** --- 212,220 ---- * `g77' no longer crashes when compiling code containing specification statements such as `INTEGER(KIND=7) PTR'. + * `g77' no longer crashes when compiling code such as `J = SIGNAL(1, + 2)'. + * `g77' now treats `%LOC(EXPR)' and `LOC(EXPR)' as "ordinary" expressions when they are used as arguments in procedure calls. This change applies only to global (filewide) analysis, making it *************** In 0.5.23 (versus 0.5.22): *** 233,241 **** patching it to fix a few bugs and improve performance in a few cases. ! *Note Actual Bugs We Haven't Fixed Yet: Actual Bugs, available in ! plain-text format in `gcc/f/BUGS', for information on the known ! bugs in this version, including the regressions. Features that have been dropped from this version of `g77' due to their being implemented via `g77'-specific patches to the `gcc' --- 255,262 ---- patching it to fix a few bugs and improve performance in a few cases. ! See `egcs/gcc/f/BUGS', for information on the known bugs in this ! version, including the regressions. Features that have been dropped from this version of `g77' due to their being implemented via `g77'-specific patches to the `gcc' *************** In `egcs' 1.0 (versus 0.5.21): *** 489,497 **** of patching it to fix a few bugs and improve performance in a few cases. ! *Note Actual Bugs We Haven't Fixed Yet: Actual Bugs, available in ! plain-text format in `gcc/f/BUGS', for information on the known ! bugs in this version, including the regressions. Features that have been dropped from this version of `g77' due to their being implemented via `g77'-specific patches to the `gcc' --- 510,517 ---- of patching it to fix a few bugs and improve performance in a few cases. ! See `egcs/gcc/f/BUGS', for information on the known bugs in this ! version, including the regressions. Features that have been dropped from this version of `g77' due to their being implemented via `g77'-specific patches to the `gcc' diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/bugs.texi egcs-1.1.2/gcc/f/bugs.texi *** egcs-1.1.1/gcc/f/bugs.texi Tue Sep 1 02:03:28 1998 --- egcs-1.1.2/gcc/f/bugs.texi Sat Mar 13 07:20:22 1999 *************** *** 5,11 **** @c The text of this file appears in the file BUGS @c in the G77 distribution, as well as in the G77 manual. ! @c 1998-09-01 @ifclear BUGSONLY @node Actual Bugs --- 5,15 ---- @c The text of this file appears in the file BUGS @c in the G77 distribution, as well as in the G77 manual. ! @c 1999-03-13 ! ! @ifset BUGSONLY ! @set which-g77 @code{egcs}-1.1.2 ! @end ifset @ifclear BUGSONLY @node Actual Bugs *************** *** 13,43 **** @end ifclear This section identifies bugs that @code{g77} @emph{users} ! might run into. This includes bugs that are actually in the @code{gcc} back end (GBE) or in @code{libf2c}, because those sets of code are at least somewhat under the control ! of (and necessarily intertwined with) @code{g77}, so it ! isn't worth separating them out. For information on bugs that might afflict people who configure, port, build, and install @code{g77}, @ref{Problems Installing}. @itemize @bullet @item ! @code{g77} sometimes crashes when compiling code ! containing the construct @samp{CMPLX(0.)} or similar. ! This is a @code{gcc} back-end bug. ! It can be worked around using @samp{-fno-emulate-complex}, ! though that might trigger other, older bugs. ! Compiling without optimization is another work-around. ! Fixed in @code{egcs} 1.1. @item @c Tim Prince discovered this. ! Automatic arrays aren't working on HP-UX systems, at least in HP-UX version 10.20. Writing into them apparently causes over-writing of statically declared data in the main program. --- 17,108 ---- @end ifclear This section identifies bugs that @code{g77} @emph{users} ! might run into in the @value{which-g77} version ! of @code{g77}. This includes bugs that are actually in the @code{gcc} back end (GBE) or in @code{libf2c}, because those sets of code are at least somewhat under the control ! of (and necessarily intertwined with) @code{g77}, ! so it isn't worth separating them out. ! ! @ifset last-up-date ! For information on bugs in @emph{other} versions of @code{g77}, ! @ref{News,,News About GNU Fortran}. ! @end ifset ! ! @ifset BUGSONLY ! For information on bugs in @emph{other} versions of @code{g77}, ! see @file{egcs/gcc/f/NEWS}. ! @end ifset ! ! An online, ``live'' version of this document ! (derived directly from the up-to-date mainline version ! of @code{g77} within @code{egcs}) ! is available at ! @uref{http://egcs.cygnus.com/onlinedocs/g77_bugs.html}. + @ifset last-up-date For information on bugs that might afflict people who configure, port, build, and install @code{g77}, @ref{Problems Installing}. + @end ifset + + @ifset BUGSONLY + For information on bugs that might afflict people who + configure, port, build, and install @code{g77}, + see ``Problems Installing'' in @file{egcs/gcc/f/INSTALL}. + @end ifset @itemize @bullet @item ! @code{g77} generates bad code for assignments, ! or other conversions, ! of @code{REAL} or @code{COMPLEX} constant expressions ! to type @code{INTEGER(KIND=2)} ! (often referred to as @code{INTEGER*8}). ! ! For example, @samp{INTEGER*8 J; J = 4E10} is miscompiled ! on some systems---the wrong value is stored in @var{J}. ! ! @item ! The @code{IDate} Intrinsic (VXT) ! fails to return the year in the documented, non-Y2K-compliant range ! of 0--99, ! instead returning 100 for the year 2000. ! ! @c Fixed in @code{egcs} 1.2. ! ! @item ! Year 2000 (Y2K) compliance information ! is missing from the documentation. ! ! @c Fixed in @code{egcs} 1.2. ! ! @item ! @code{g77} crashes when compiling ! I/O statements using keywords that define @code{INTEGER} values, ! such as @samp{IOSTAT=@var{j}}, ! where @var{j} is other than default @code{INTEGER} ! (such as @code{INTEGER*2}). ! @c Fixed in @code{egcs} 1.2. ! ! @item ! The @samp{-ax} option is not obeyed when compiling Fortran programs. ! (It is not passed to the @file{f771} driver.) ! ! @c Fixed in @code{egcs} 1.2. ! ! @item ! @code{g77} fails to warn about a reference to a function ! when the corresponding @emph{subsequent} function program unit ! disagrees with the reference concerning the type of the function. ! ! @c Fixed in @code{egcs} 1.2. @item @c Tim Prince discovered this. ! Automatic arrays possibly aren't working on HP-UX systems, at least in HP-UX version 10.20. Writing into them apparently causes over-writing of statically declared data in the main program. *************** or pointers to them being improperly han *** 46,78 **** e.g. not passed to other procedures as they should be. @item - @c Toon Moene discovered these. - Some Fortran code has been found to be miscompiled - by @code{g77} built on @code{gcc} version 2.8.1 - on m68k-next-nextstep3 configurations - when using the @samp{-O2} option. - Even a C function is known to miscompile - on that configuration - when using the @samp{-O2 -funroll-loops} options. - - Fixed in @code{egcs}. - - @cindex DNRM2 - @cindex stack, 387 coprocessor - @cindex ix86 - @cindex -O2 - @item - A code-generation bug afflicts - Intel x86 targets when @samp{-O2} is specified - compiling, for example, an old version of - the @samp{DNRM2} routine. - The x87 coprocessor stack is being - mismanaged in cases where assigned @code{GOTO} - and @code{ASSIGN} are involved. - - Fixed in @code{egcs} version 1.1. - - @item @code{g77} fails to warn about use of a ``live'' iterative-DO variable as an implied-DO variable --- 111,116 ---- *************** in a @samp{WRITE} or @samp{PRINT} statem *** 80,93 **** (although it does warn about this in a @samp{READ} statement). @item - A compiler crash, or apparently infinite run time, - can result when compiling complicated expressions - involving @code{COMPLEX} arithmetic - (especially multiplication). - - Fixed in @code{egcs} version 1.1. - - @item Something about @code{g77}'s straightforward handling of label references and definitions sometimes prevents the GBE from unrolling loops. --- 118,123 ---- *************** improvements to the compiler.) *** 149,157 **** --- 179,189 ---- Note that @code{g77} does display a warning message to notify the user before the compiler appears to hang. + @ifset last-up-date @xref{Large Initialization,,Initialization of Large Aggregate Areas}, for information on how to change the point at which @code{g77} decides to issue this warning. + @end ifset @cindex debugging @cindex common blocks *************** As of Version 0.5.19, a temporary kludge *** 169,176 **** --- 201,210 ---- some rudimentary information on a member is written as a string that is the member's value as a character string. + @ifset last-up-date @xref{Code Gen Options,,Options for Code Generation Conventions}, for information on the @samp{-fdebug-kludge} option. + @end ifset @cindex code, displaying main source @cindex displaying main source code *************** problem by not using the back end's supp *** 232,250 **** The new option @samp{-fno-emulate-complex} avoids the work-around, reverting to using the same ``broken'' mechanism as that used by versions of @code{g77} prior to 0.5.20. - - @cindex ELF support - @cindex support, ELF - @cindex -fPIC option - @cindex options, -fPIC - @item - @code{g77} sometimes produces invalid assembler code - when using the @samp{-fPIC} option (such as compiling for ELF targets) - on the Intel x86 architecture target. - The symptom is that the assembler complains about invalid opcodes. - This bug is in the gcc back end. - - Fixed in @code{egcs} version 1.0.2. @cindex padding @cindex structures --- 266,271 ---- diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/g77.texi egcs-1.1.2/gcc/f/g77.texi *** egcs-1.1.1/gcc/f/g77.texi Mon Nov 23 00:36:01 1998 --- egcs-1.1.2/gcc/f/g77.texi Thu Mar 11 07:28:50 1999 *************** *** 14,25 **** @c %**start of header @setfilename g77.info ! @set last-up-date 1998-09-01 @set version-g77 0.5.24 ! @set email-general egcs@@cygnus.com ! @set email-bugs egcs-bugs@@cygnus.com @set path-g77 egcs/gcc/f @set path-libf2c egcs/libf2c @c @setfilename useg77.info @c @setfilename portg77.info --- 14,28 ---- @c %**start of header @setfilename g77.info ! @set last-up-date 1999-03-11 @set version-g77 0.5.24 ! @set version-egcs 1.1.2 ! @set email-general egcs@@egcs.cygnus.com ! @set email-bugs egcs-bugs@@egcs.cygnus.com ! @set email-burley craig@@jcb-sc.com @set path-g77 egcs/gcc/f @set path-libf2c egcs/libf2c + @set which-g77 @code{egcs}-@value{version-egcs} @c @setfilename useg77.info @c @setfilename portg77.info *************** translations approved by the Free Softwa *** 99,105 **** original English. @end ifinfo ! Contributed by James Craig Burley (@email{burley@@gnu.org}). Inspired by a first pass at translating @file{g77-0.5.16/f/DOC} that was contributed to Craig by David Ronis (@email{ronis@@onsager.chem.mcgill.ca}). --- 102,108 ---- original English. @end ifinfo ! Contributed by James Craig Burley (@email{@value{email-burley}}). Inspired by a first pass at translating @file{g77-0.5.16/f/DOC} that was contributed to Craig by David Ronis (@email{ronis@@onsager.chem.mcgill.ca}). *************** as well as its new features and incompat *** 179,184 **** --- 182,193 ---- bugs. It corresponds to GNU Fortran version @value{version-g77}. @end ifclear + An online, ``live'' version of this document + (derived directly from the up-to-date mainline version + of @code{g77} within @code{egcs}) + is available at + @uref{http://egcs.cygnus.com/onlinedocs/g77_toc.html}. + @end ifinfo @menu * Copying:: GNU General Public License says *************** without royalty; alteration is not permi *** 775,781 **** @cindex improvements, funding Work on GNU Fortran is still being done mostly by its author, ! James Craig Burley (@email{burley@@gnu.org}), who is a volunteer for, not an employee of, the Free Software Foundation (FSF). As with other GNU software, funding is important because it can pay for needed equipment, personnel, and so on. --- 784,790 ---- @cindex improvements, funding Work on GNU Fortran is still being done mostly by its author, ! James Craig Burley (@email{@value{email-burley}}), who is a volunteer for, not an employee of, the Free Software Foundation (FSF). As with other GNU software, funding is important because it can pay for needed equipment, personnel, and so on. *************** instead of converting them to double pre *** 11536,11554 **** This would tend to result in output that is more consistent with that produced by some other Fortran implementations. ! A useful source of information on floating point computation is David Goldberg, `What Every Computer Scientist Should Know About Floating-Point Arithmetic', Computing Surveys, 23, March 1991, pp.@: ! 5--48. At the time of writing this is available online under ! @uref{http://docs.sun.com} and there is a supplemented version at ! @uref{http://www.validgh.com/}. Information related to the IEEE 754 ! floating point standard by a leading light can be found at ! @uref{http://http.cs.berkeley.edu/%7Ewkahan/ieee754status }; see also ! slides from the short course referenced from @uref{http://http.cs.berkeley.edu/%7Efateman/}. ! @uref{http://www.suburbia.net/%7Ebillm/floating-point/} has a brief ! guide to IEEE 754, a somewhat x86 GNU/Linux-specific FAQ and library ! code for GNU/Linux x86 systems. @c xref would be different between editions: The GNU C library provides routines for controlling the FPU, and other documentation about this. --- 11545,11589 ---- This would tend to result in output that is more consistent with that produced by some other Fortran implementations. ! A useful source of information on floating-point computation is David Goldberg, `What Every Computer Scientist Should Know About Floating-Point Arithmetic', Computing Surveys, 23, March 1991, pp.@: ! 5--48. ! An online version is available at ! @uref{http://docs.sun.com}, ! and there is a supplemented version, in PostScript form, at ! @uref{http://www.validgh.com/goldberg/paper.ps}. ! ! Information related to the IEEE 754 ! floating-point standard by a leading light can be found at ! @uref{http://http.cs.berkeley.edu/%7Ewkahan/ieee754status}; ! see also slides from the short course referenced from @uref{http://http.cs.berkeley.edu/%7Efateman/}. ! @uref{http://www.linuxsupportline.com/%7Ebillm/} has a brief ! guide to IEEE 754, a somewhat x86-GNU/Linux-specific FAQ, ! and library code for GNU/Linux x86 systems. ! ! The supplement to the PostScript-formatted Goldberg document, ! referenced above, is available in HTML format. ! See `Differences Among IEEE 754 Implementations' by Doug Priest, ! available online at ! @uref{http://www.validgh.com/goldberg/addendum.html}. ! This document explores some of the issues surrounding computing ! of extended (80-bit) results on processors such as the x86, ! especially when those results are arbitrarily truncated ! to 32-bit or 64-bit values by the compiler ! as ``spills''. ! ! @cindex spills of floating-point results ! @cindex 80-bit spills ! @cindex truncation, of floating-point values ! (@emph{Note:} @code{g77} specifically, and @code{gcc} generally, ! does arbitrarily truncate 80-bit results during spills ! as of this writing. ! It is not yet clear whether a future version of ! the GNU compiler suite will offer 80-bit spills ! as an option, or perhaps even as the default behavior.) ! @c xref would be different between editions: The GNU C library provides routines for controlling the FPU, and other documentation about this. diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/intdoc.in egcs-1.1.2/gcc/f/intdoc.in *** egcs-1.1.1/gcc/f/intdoc.in Tue Sep 1 02:03:33 1998 --- egcs-1.1.2/gcc/f/intdoc.in Fri Feb 26 05:05:50 1999 *************** *** 1,4 **** ! /* Copyright (C) 1997 Free Software Foundation, Inc. * This is part of the G77 manual. * For copying conditions, see the file g77.texi. */ --- 1,4 ---- ! /* Copyright (C) 1997, 1999 Free Software Foundation, Inc. * This is part of the G77 manual. * For copying conditions, see the file g77.texi. */ *************** be zero. *** 285,291 **** @xref{Exp Intrinsic}, for the inverse of this function. ! @xref{Log10 Intrinsic}, for the base-10 logarithm function. ") DEFDOC (ALOG, "Natural logarithm (archaic).", ARCHAIC (LOG, Log)) --- 285,291 ---- @xref{Exp Intrinsic}, for the inverse of this function. ! @xref{Log10 Intrinsic}, for the `common' (base-10) logarithm function. ") DEFDOC (ALOG, "Natural logarithm (archaic).", ARCHAIC (LOG, Log)) *************** DEFDOC (DLOG, "Natural logarithm (archai *** 296,314 **** DEFDOC (CDLOG, "Natural logarithm (archaic).", ARCHAIC (LOG, Log)) ! DEFDOC (LOG10, "Natural logarithm.", "\ ! Returns the natural logarithm of @var{@1@}, which must ! be greater than zero or, if type @code{COMPLEX}, must not ! be zero. The inverse of this function is @samp{10. ** LOG10(@var{@1@})}. @xref{Log Intrinsic}, for the natural logarithm function. ") ! DEFDOC (ALOG10, "Natural logarithm (archaic).", ARCHAIC (LOG10, Log10)) ! DEFDOC (DLOG10, "Natural logarithm (archaic).", ARCHAIC (LOG10, Log10)) DEFDOC (MAX, "Maximum value.", "\ Returns the argument with the largest value. --- 296,313 ---- DEFDOC (CDLOG, "Natural logarithm (archaic).", ARCHAIC (LOG, Log)) ! DEFDOC (LOG10, "Common logarithm.", "\ ! Returns the common logarithm (base 10) of @var{@1@}, which must ! be greater than zero. The inverse of this function is @samp{10. ** LOG10(@var{@1@})}. @xref{Log Intrinsic}, for the natural logarithm function. ") ! DEFDOC (ALOG10, "Common logarithm (archaic).", ARCHAIC (LOG10, Log10)) ! DEFDOC (DLOG10, "Common logarithm (archaic).", ARCHAIC (LOG10, Log10)) DEFDOC (MAX, "Maximum value.", "\ Returns the argument with the largest value. *************** DEFDOC (MCLOCK8, "Get number of clock ti *** 1263,1268 **** --- 1262,1274 ---- Returns the number of clock ticks since the start of the process. Supported on systems with @code{clock(3)} (q.v.). + @emph{Warning:} this intrinsic does not increase the range + of the timing values over that returned by @code{clock(3)}. + On a system with a 32-bit @code{clock(3)}, + @code{@0@} will return a 32-bit value, + even though converted to an @samp{INTEGER(KIND=2)} value. + That means overflows of the 32-bit value can still occur. + No Fortran implementations other than GNU Fortran are known to support this intrinsic at the time of this writing. *************** DEFDOC (SECOND_subr, "Get CPU time for p *** 1288,1294 **** Returns the process's runtime in seconds in @var{@1@}---the same value as the UNIX function @code{etime} returns. ! This routine is known from Cray Fortran. @xref{CPU_Time Intrinsic} for a standard equivalent. ") --- 1294,1300 ---- Returns the process's runtime in seconds in @var{@1@}---the same value as the UNIX function @code{etime} returns. ! This routine is known from Cray Fortran. @xref{CPU_Time Intrinsic}, for a standard equivalent. ") *************** Returns the current time encoded as a lo *** 1315,1320 **** --- 1321,1333 ---- This value is suitable for passing to @code{CTIME}, @code{GMTIME}, and @code{LTIME}. + @emph{Warning:} this intrinsic does not increase the range + of the timing values over that returned by @code{time(3)}. + On a system with a 32-bit @code{time(3)}, + @code{@0@} will return a 32-bit value, + even though converted to an @samp{INTEGER(KIND=2)} value. + That means overflows of the 32-bit value can still occur. + No Fortran implementations other than GNU Fortran are known to support this intrinsic at the time of this writing. *************** extracted from the @code{stat} structure *** 1538,1553 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 1551,1563 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 1559,1564 **** --- 1569,1578 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 1571,1580 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 1585,1594 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** extracted from the @code{stat} structure *** 1592,1607 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 1606,1618 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 1613,1618 **** --- 1624,1633 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 1625,1634 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 1640,1649 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** The values in this array are extracted f *** 1656,1671 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 1671,1683 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 1677,1682 **** --- 1689,1698 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 1689,1698 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 1705,1714 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** The values in this array are extracted f *** 1716,1731 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 1732,1744 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 1737,1742 **** --- 1750,1759 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 1749,1758 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 1766,1775 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** The values in this array are extracted f *** 1778,1793 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 1795,1807 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 1799,1804 **** --- 1813,1822 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 1811,1820 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 1829,1838 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** The values in this array are extracted f *** 1834,1849 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 1852,1864 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 1855,1860 **** --- 1870,1879 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 1867,1876 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 1886,1895 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** DEFDOC (TIME_vxt, "Get the time as a cha *** 2396,2413 **** Returns in @var{@1@} a character representation of the current time as obtained from @code{ctime(3)}. ! @xref{Fdate Intrinsic (subroutine)} for an equivalent routine. ") DEFDOC (IBCLR, "Clear a bit.", "\ Returns the value of @var{@1@} with bit @var{@2@} cleared (set to zero). ! @xref{BTest Intrinsic} for information on bit positions. ") DEFDOC (IBSET, "Set a bit.", "\ Returns the value of @var{@1@} with bit @var{@2@} set (to one). ! @xref{BTest Intrinsic} for information on bit positions. ") DEFDOC (IBITS, "Extract a bit subfield of a variable.", "\ --- 2415,2432 ---- Returns in @var{@1@} a character representation of the current time as obtained from @code{ctime(3)}. ! @xref{Fdate Intrinsic (subroutine)}, for an equivalent routine. ") DEFDOC (IBCLR, "Clear a bit.", "\ Returns the value of @var{@1@} with bit @var{@2@} cleared (set to zero). ! @xref{BTest Intrinsic}, for information on bit positions. ") DEFDOC (IBSET, "Set a bit.", "\ Returns the value of @var{@1@} with bit @var{@2@} set (to one). ! @xref{BTest Intrinsic}, for information on bit positions. ") DEFDOC (IBITS, "Extract a bit subfield of a variable.", "\ *************** Bits shifted out from the left end or th *** 2430,2436 **** are lost. Zeros are shifted in from the opposite end. ! @xref{IShftC Intrinsic} for the circular-shift equivalent. ") DEFDOC (ISHFTC, "Circular bit shift.", "\ --- 2449,2455 ---- are lost. Zeros are shifted in from the opposite end. ! @xref{IShftC Intrinsic}, for the circular-shift equivalent. ") DEFDOC (ISHFTC, "Circular bit shift.", "\ *************** must be less than or equal to @var{@3@}. *** 2446,2452 **** The value of @var{@3@} must be greater than or equal to one and less than or equal to @samp{BIT_SIZE(@var{@1@})}. ! @xref{IShft Intrinsic} for the logical shift equivalent. ") DEFDOC (MVBITS, "Moving a bit field.", "\ --- 2465,2471 ---- The value of @var{@3@} must be greater than or equal to one and less than or equal to @samp{BIT_SIZE(@var{@1@})}. ! @xref{IShft Intrinsic}, for the logical shift equivalent. ") DEFDOC (MVBITS, "Moving a bit field.", "\ *************** The difference between local time and UT *** 2490,2496 **** sign, hours and minutes, e.g.@: @samp{-0500} (winter in New York); @item @4@ The year, month of the year, day of the month, time difference in ! minutes from UTC, hour of the day, minutes of the hour and milliseconds of the second in successive values of the array. @end table --- 2509,2516 ---- sign, hours and minutes, e.g.@: @samp{-0500} (winter in New York); @item @4@ The year, month of the year, day of the month, time difference in ! minutes from UTC, hour of the day, minutes of the hour, seconds ! of the minute, and milliseconds of the second in successive values of the array. @end table diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/intdoc.texi egcs-1.1.2/gcc/f/intdoc.texi *** egcs-1.1.1/gcc/f/intdoc.texi Mon Nov 23 00:36:03 1998 --- egcs-1.1.2/gcc/f/intdoc.texi Fri Feb 26 05:14:36 1999 *************** *** 46,52 **** @end ifset @ifset familyF77 * ALog Intrinsic:: Natural logarithm (archaic). ! * ALog10 Intrinsic:: Natural logarithm (archaic). * AMax0 Intrinsic:: Maximum value (archaic). * AMax1 Intrinsic:: Maximum value (archaic). * AMin0 Intrinsic:: Minimum value (archaic). --- 46,52 ---- @end ifset @ifset familyF77 * ALog Intrinsic:: Natural logarithm (archaic). ! * ALog10 Intrinsic:: Common logarithm (archaic). * AMax0 Intrinsic:: Maximum value (archaic). * AMax1 Intrinsic:: Maximum value (archaic). * AMin0 Intrinsic:: Minimum value (archaic). *************** *** 240,246 **** @ifset familyF77 * DInt Intrinsic:: Truncate to whole number (archaic). * DLog Intrinsic:: Natural logarithm (archaic). ! * DLog10 Intrinsic:: Natural logarithm (archaic). * DMax1 Intrinsic:: Maximum value (archaic). * DMin1 Intrinsic:: Minimum value (archaic). * DMod Intrinsic:: Remainder (archaic). --- 240,246 ---- @ifset familyF77 * DInt Intrinsic:: Truncate to whole number (archaic). * DLog Intrinsic:: Natural logarithm (archaic). ! * DLog10 Intrinsic:: Common logarithm (archaic). * DMax1 Intrinsic:: Maximum value (archaic). * DMin1 Intrinsic:: Minimum value (archaic). * DMod Intrinsic:: Remainder (archaic). *************** *** 530,536 **** @end ifset @ifset familyF77 * Log Intrinsic:: Natural logarithm. ! * Log10 Intrinsic:: Natural logarithm. @end ifset @ifset familyF90 * Logical Intrinsic:: (Reserved for future use.) --- 530,536 ---- @end ifset @ifset familyF77 * Log Intrinsic:: Natural logarithm. ! * Log10 Intrinsic:: Common logarithm. @end ifset @ifset familyF90 * Logical Intrinsic:: (Reserved for future use.) *************** The difference between local time and UT *** 3012,3018 **** sign, hours and minutes, e.g.@: @samp{-0500} (winter in New York); @item Values The year, month of the year, day of the month, time difference in ! minutes from UTC, hour of the day, minutes of the hour and milliseconds of the second in successive values of the array. @end table --- 3012,3019 ---- sign, hours and minutes, e.g.@: @samp{-0500} (winter in New York); @item Values The year, month of the year, day of the month, time difference in ! minutes from UTC, hour of the day, minutes of the hour, seconds ! of the minute, and milliseconds of the second in successive values of the array. @end table *************** extracted from the @code{stat} structure *** 4935,4950 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 4936,4948 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 4956,4961 **** --- 4954,4963 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 4968,4977 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 4970,4979 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** extracted from the @code{stat} structure *** 5020,5035 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 5022,5034 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 5041,5046 **** --- 5040,5049 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 5053,5062 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 5056,5065 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** Description: *** 5654,5660 **** Returns the value of @var{I} with bit @var{Pos} cleared (set to zero). ! @xref{BTest Intrinsic} for information on bit positions. @node IBits Intrinsic @subsubsection IBits Intrinsic --- 5657,5663 ---- Returns the value of @var{I} with bit @var{Pos} cleared (set to zero). ! @xref{BTest Intrinsic}, for information on bit positions. @node IBits Intrinsic @subsubsection IBits Intrinsic *************** Intrinsic groups: @code{mil}, @code{f90} *** 5718,5724 **** Description: Returns the value of @var{I} with bit @var{Pos} set (to one). ! @xref{BTest Intrinsic} for information on bit positions. @end ifset @ifset familyF77 --- 5721,5727 ---- Description: Returns the value of @var{I} with bit @var{Pos} set (to one). ! @xref{BTest Intrinsic}, for information on bit positions. @end ifset @ifset familyF77 *************** Bits shifted out from the left end or th *** 6604,6610 **** are lost. Zeros are shifted in from the opposite end. ! @xref{IShftC Intrinsic} for the circular-shift equivalent. @node IShftC Intrinsic @subsubsection IShftC Intrinsic --- 6607,6613 ---- are lost. Zeros are shifted in from the opposite end. ! @xref{IShftC Intrinsic}, for the circular-shift equivalent. @node IShftC Intrinsic @subsubsection IShftC Intrinsic *************** must be less than or equal to @var{Size} *** 6646,6652 **** The value of @var{Size} must be greater than or equal to one and less than or equal to @samp{BIT_SIZE(@var{I})}. ! @xref{IShft Intrinsic} for the logical shift equivalent. @end ifset @ifset familyF77 --- 6649,6655 ---- The value of @var{Size} must be greater than or equal to one and less than or equal to @samp{BIT_SIZE(@var{I})}. ! @xref{IShft Intrinsic}, for the logical shift equivalent. @end ifset @ifset familyF77 *************** be zero. *** 7480,7486 **** @xref{Exp Intrinsic}, for the inverse of this function. ! @xref{Log10 Intrinsic}, for the base-10 logarithm function. @node Log10 Intrinsic @subsubsection Log10 Intrinsic --- 7483,7489 ---- @xref{Exp Intrinsic}, for the inverse of this function. ! @xref{Log10 Intrinsic}, for the `common' (base-10) logarithm function. @node Log10 Intrinsic @subsubsection Log10 Intrinsic *************** Intrinsic groups: (standard FORTRAN 77). *** 7504,7512 **** @noindent Description: ! Returns the natural logarithm of @var{X}, which must ! be greater than zero or, if type @code{COMPLEX}, must not ! be zero. The inverse of this function is @samp{10. ** LOG10(@var{X})}. --- 7507,7514 ---- @noindent Description: ! Returns the common logarithm (base 10) of @var{X}, which must ! be greater than zero. The inverse of this function is @samp{10. ** LOG10(@var{X})}. *************** The values in this array are extracted f *** 7646,7661 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 7648,7660 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 7667,7672 **** --- 7666,7675 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 7679,7688 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 7682,7691 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** The values in this array are extracted f *** 7737,7752 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 7740,7752 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 7758,7763 **** --- 7758,7767 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 7770,7779 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 7774,7783 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** Description: *** 8026,8031 **** --- 8030,8042 ---- Returns the number of clock ticks since the start of the process. Supported on systems with @code{clock(3)} (q.v.). + @emph{Warning:} this intrinsic does not increase the range + of the timing values over that returned by @code{clock(3)}. + On a system with a 32-bit @code{clock(3)}, + @code{MCLOCK8} will return a 32-bit value, + even though converted to an @samp{INTEGER(KIND=2)} value. + That means overflows of the 32-bit value can still occur. + No Fortran implementations other than GNU Fortran are known to support this intrinsic at the time of this writing. *************** Description: *** 9179,9185 **** Returns the process's runtime in seconds in @var{Seconds}---the same value as the UNIX function @code{etime} returns. ! This routine is known from Cray Fortran. @xref{CPU_Time Intrinsic} for a standard equivalent. For information on other intrinsics with the same name: --- 9190,9196 ---- Returns the process's runtime in seconds in @var{Seconds}---the same value as the UNIX function @code{etime} returns. ! This routine is known from Cray Fortran. @xref{CPU_Time Intrinsic}, for a standard equivalent. For information on other intrinsics with the same name: *************** The values in this array are extracted f *** 9725,9740 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 9736,9748 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 9746,9751 **** --- 9754,9763 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 9758,9767 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 9770,9779 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** The values in this array are extracted f *** 9812,9827 **** @enumerate @item ! File mode @item Inode number @item ! ID of device containing directory entry for file ! ! @item ! Device id (if relevant) @item Number of links --- 9824,9836 ---- @enumerate @item ! Device ID @item Inode number @item ! File mode @item Number of links *************** Owner's uid *** 9833,9838 **** --- 9842,9851 ---- Owner's gid @item + ID of device containing directory entry for file + (0 if not available) + + @item File size (bytes) @item *************** Last modification time *** 9845,9854 **** Last file status change time @item ! Preferred I/O block size @item ! Number of blocks allocated @end enumerate Not all these elements are relevant on all systems. --- 9858,9867 ---- Last file status change time @item ! Preferred I/O block size (-1 if not available) @item ! Number of blocks allocated (-1 if not available) @end enumerate Not all these elements are relevant on all systems. *************** Description: *** 10201,10207 **** Returns in @var{Time} a character representation of the current time as obtained from @code{ctime(3)}. ! @xref{Fdate Intrinsic (subroutine)} for an equivalent routine. For information on other intrinsics with the same name: @xref{Time Intrinsic (UNIX)}. --- 10214,10220 ---- Returns in @var{Time} a character representation of the current time as obtained from @code{ctime(3)}. ! @xref{Fdate Intrinsic (subroutine)}, for an equivalent routine. For information on other intrinsics with the same name: @xref{Time Intrinsic (UNIX)}. *************** Returns the current time encoded as a lo *** 10231,10236 **** --- 10244,10256 ---- (in the manner of the UNIX function @code{time(3)}). This value is suitable for passing to @code{CTIME}, @code{GMTIME}, and @code{LTIME}. + + @emph{Warning:} this intrinsic does not increase the range + of the timing values over that returned by @code{time(3)}. + On a system with a 32-bit @code{time(3)}, + @code{TIME8} will return a 32-bit value, + even though converted to an @samp{INTEGER(KIND=2)} value. + That means overflows of the 32-bit value can still occur. No Fortran implementations other than GNU Fortran are known to support this intrinsic at the time of this diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/news.texi egcs-1.1.2/gcc/f/news.texi *** egcs-1.1.1/gcc/f/news.texi Mon Nov 9 14:14:54 1998 --- egcs-1.1.2/gcc/f/news.texi Thu Mar 11 07:28:52 1999 *************** *** 1,11 **** ! @c Copyright (C) 1995-1997 Free Software Foundation, Inc. @c This is part of the G77 manual. @c For copying conditions, see the file g77.texi. @c The text of this file appears in the file BUGS @c in the G77 distribution, as well as in the G77 manual. ! @c 1998-11-03 @ifclear NEWSONLY @node News --- 1,11 ---- ! @c Copyright (C) 1995-1999 Free Software Foundation, Inc. @c This is part of the G77 manual. @c For copying conditions, see the file g77.texi. @c The text of this file appears in the file BUGS @c in the G77 distribution, as well as in the G77 manual. ! @c 1999-03-11 @ifclear NEWSONLY @node News *************** though this can make getting a complete *** 58,63 **** --- 58,91 ---- of what a particular @code{egcs} version contains somewhat more difficult. + An online, ``live'' version of this document + (derived directly from the up-to-date mainline version + of @code{g77} within @code{egcs}) + is available at + @uref{http://egcs.cygnus.com/onlinedocs/g77_news.html}. + + @heading In 0.5.24 and @code{egcs} 1.1.2 (versus 0.5.23 and 1.1.1): + @itemize @bullet + @item + Fix the @code{IDate} Intrinsic (VXT) + so the returned year is in the documented, non-Y2K-compliant range + of 0--99, + instead of being returned as 100 in the year 2000. + + @item + Fix the @samp{Date_and_Time} intrinsic (in @code{libg2c}) + to return the milliseconds value properly + in @var{Values}(8). + + @item + Fix the @samp{LStat} intrinsic (in @code{libg2c}) + to return device-ID information properly + in @var{SArray}(7). + + @item + Improve documentation. + @end itemize + @heading In 0.5.24 and @code{egcs} 1.1.1 (versus 0.5.23 and 1.1): @itemize @bullet @item *************** containing specification statements such *** 293,298 **** --- 321,330 ---- @samp{INTEGER(KIND=7) PTR}. @item + @code{g77} no longer crashes when compiling code + such as @samp{J = SIGNAL(1, 2)}. + + @item @code{g77} now treats @samp{%LOC(@var{expr})} and @samp{LOC(@var{expr})} as ``ordinary'' expressions when they are used as arguments in procedure calls. *************** version 0.5.22 of @code{g77}, due to usi *** 354,363 **** it to fix a few bugs and improve performance in a few cases. @xref{Actual Bugs,,Actual Bugs We Haven't Fixed Yet}, - available in plain-text format in @code{gcc/f/BUGS}, for information on the known bugs in this version, including the regressions. Features that have been dropped from this version of @code{g77} due to their being implemented --- 386,402 ---- it to fix a few bugs and improve performance in a few cases. + @ifset last-up-date @xref{Actual Bugs,,Actual Bugs We Haven't Fixed Yet}, for information on the known bugs in this version, including the regressions. + @end ifset + + @ifset NEWSONLY + See @file{egcs/gcc/f/BUGS}, + for information on the known bugs in this version, + including the regressions. + @end ifset Features that have been dropped from this version of @code{g77} due to their being implemented *************** due to using the *** 736,745 **** it to fix a few bugs and improve performance in a few cases. @xref{Actual Bugs,,Actual Bugs We Haven't Fixed Yet}, - available in plain-text format in @code{gcc/f/BUGS}, for information on the known bugs in this version, including the regressions. Features that have been dropped from this version of @code{g77} due to their being implemented --- 775,791 ---- it to fix a few bugs and improve performance in a few cases. + @ifset last-up-date @xref{Actual Bugs,,Actual Bugs We Haven't Fixed Yet}, for information on the known bugs in this version, including the regressions. + @end ifset + + @ifset NEWSONLY + See @file{egcs/gcc/f/BUGS}, + for information on the known bugs in this version, + including the regressions. + @end ifset Features that have been dropped from this version of @code{g77} due to their being implemented diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/gcc/f/version.c egcs-1.1.2/gcc/f/version.c *** egcs-1.1.1/gcc/f/version.c Wed Aug 5 04:19:05 1998 --- egcs-1.1.2/gcc/f/version.c Sun Feb 14 09:41:29 1999 *************** *** 1 **** ! char *ffe_version_string = "0.5.24-19980804"; --- 1 ---- ! char *ffe_version_string = "0.5.24-19981002"; diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/libf2c/ChangeLog egcs-1.1.2/libf2c/ChangeLog *** egcs-1.1.1/libf2c/ChangeLog Mon Nov 23 01:14:12 1998 --- egcs-1.1.2/libf2c/ChangeLog Sat Mar 13 18:38:32 1999 *************** *** 1,3 **** --- 1,35 ---- + Sun Mar 14 02:38:07 PST 1999 Jeff Law (law@cygnus.com) + + * egcs-1.1.2 Released. + + 1999-03-05 Craig Burley + + * libU77/Version.c: Bump version. + + * libU77/vxtidate_.c (G77_vxtidate_0): Truncate + year to last two digits (i.e. modulo 100), as per + documentation and Y2K (non-)compliance. + + 1999-02-26 Craig Burley + + * libU77/Version.c: Bump version. + + 1999-02-20 Craig Burley + + From Krister Walfridsson : + * libU77/lstat_.c (G77_lstat_0): Kill spurious setting + of element 6 to zero, as it undid the previous setting. + + 1999-02-14 Craig Burley + + * libI77/Version.c: Bump ("update" below) to date of last change. + + 1999-01-15 Dave Love + + * libU77/datetime_.c (G77_date_and_time_0): Return milliseconds as + such, not as microseconds. + (s_copy): Declare. + 1998-10-21 Dave Love * libI77/open.c (_XOPEN_SOURCE): Define. diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/libf2c/libI77/Version.c egcs-1.1.2/libf2c/libI77/Version.c *** egcs-1.1.1/libf2c/libI77/Version.c Mon Sep 21 04:11:31 1998 --- egcs-1.1.2/libf2c/libI77/Version.c Sun Feb 14 11:00:26 1999 *************** static char junk[] = "\n@(#) LIBI77 VERS *** 3,9 **** /* */ ! char __G77_LIBI77_VERSION__[] = "0.5.24-19980920"; /* 2.01 $ format added --- 3,9 ---- /* */ ! char __G77_LIBI77_VERSION__[] = "0.5.24-19981021"; /* 2.01 $ format added diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/libf2c/libU77/Version.c egcs-1.1.2/libf2c/libU77/Version.c *** egcs-1.1.1/libf2c/libU77/Version.c Tue Sep 1 02:07:47 1998 --- egcs-1.1.2/libf2c/libU77/Version.c Fri Mar 5 02:17:10 1999 *************** *** 1,6 **** static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n"; ! char __G77_LIBU77_VERSION__[] = "0.5.24"; #include --- 1,6 ---- static char junk[] = "\n@(#) LIBU77 VERSION 19980709\n"; ! char __G77_LIBU77_VERSION__[] = "0.5.24-19990305"; #include diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/libf2c/libU77/datetime_.c egcs-1.1.2/libf2c/libU77/datetime_.c *** egcs-1.1.1/libf2c/libU77/datetime_.c Mon Jul 6 02:03:28 1998 --- egcs-1.1.2/libf2c/libU77/datetime_.c Fri Feb 26 05:04:17 1999 *************** Boston, MA 02111-1307, USA. */ *** 32,37 **** --- 32,43 ---- #endif #include "f2c.h" + #ifdef KR_headers + VOID s_copy (); + #else + void s_copy(register char *a, register char *b, ftnlen la, ftnlen lb); + #endif + int G77_date_and_time_0 (char *date, char *fftime, char *zone, integer *values, ftnlen date_len, ftnlen fftime_len, ftnlen zone_len) *************** int G77_date_and_time_0 (char *date, cha *** 58,64 **** struct timeval tp; struct timezone tzp; if (! gettimeofday (&tp, &tzp)) ! vals[7] = tp.tv_usec; } #endif if (values) /* null pointer for missing optional */ --- 64,70 ---- struct timeval tp; struct timezone tzp; if (! gettimeofday (&tp, &tzp)) ! vals[7] = tp.tv_usec/1000; } #endif if (values) /* null pointer for missing optional */ diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/libf2c/libU77/lstat_.c egcs-1.1.2/libf2c/libU77/lstat_.c *** egcs-1.1.1/libf2c/libU77/lstat_.c Sat Jan 31 17:37:08 1998 --- egcs-1.1.2/libf2c/libU77/lstat_.c Fri Feb 26 05:04:18 1999 *************** integer G77_lstat_0 (const char *name, i *** 69,75 **** statb[8] = buf.st_atime; statb[9] = buf.st_mtime; statb[10] = buf.st_ctime; - statb[6] = 0; #if HAVE_ST_BLKSIZE statb[11] = buf.st_blksize; #else --- 69,74 ---- diff -x de.gmo -x fr.gmo -Nrc3p egcs-1.1.1/libf2c/libU77/vxtidate_.c egcs-1.1.2/libf2c/libU77/vxtidate_.c *** egcs-1.1.1/libf2c/libU77/vxtidate_.c Sat Jan 31 17:37:08 1998 --- egcs-1.1.2/libf2c/libU77/vxtidate_.c Fri Mar 5 02:17:11 1999 *************** int G77_vxtidate_0 (integer *m, integer *** 48,54 **** time_t tim; tim = time(NULL); lt = localtime(&tim); ! *y = lt->tm_year; *m = lt->tm_mon+1; *d = lt->tm_mday; return 0; --- 48,54 ---- time_t tim; tim = time(NULL); lt = localtime(&tim); ! *y = lt->tm_year % 100; *m = lt->tm_mon+1; *d = lt->tm_mday; return 0;