source: trunk/src/gcc/libf2c/changes.netlib@ 1688

Last change on this file since 1688 was 2, checked in by bird, 23 years ago

Initial revision

  • Property cvs2svn:cvs-rev set to 1.1
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 114.7 KB
Line 
131 Aug. 1989:
2 1. A(min(i,j)) now is translated correctly (where A is an array).
3 2. 7 and 8 character variable names are allowed (but elicit a
4 complaint under -ext).
5 3. LOGICAL*1 is treated as LOGICAL, with just one error message
6 per LOGICAL*1 statement (rather than one per variable declared
7 in that statement). [Note that LOGICAL*1 is not in Fortran 77.]
8 Like f77, f2c now allows the format in a read or write statement
9 to be an integer array.
10
115 Sept. 1989:
12 Fixed botch in argument passing of substrings of equivalenced
13variables.
14
1515 Sept. 1989:
16 Warn about incorrect code generated when a character-valued
17function is not declared external and is passed as a parameter
18(in violation of the Fortran 77 standard) before it is invoked.
19Example:
20
21 subroutine foo(a,b)
22 character*10 a,b
23 call goo(a,b)
24 b = a(3)
25 end
26
2718 Sept. 1989:
28 Complain about overlapping initializations.
29
3020 Sept. 1989:
31 Warn about names declared EXTERNAL but never referenced;
32include such names as externs in the generated C (even
33though most C compilers will discard them).
34
3524 Sept. 1989:
36 New option -w8 to suppress complaint when COMMON or EQUIVALENCE
37forces word alignment of a double.
38 Under -A (for ANSI C), ensure that floating constants (terminated
39by 'f') contain either a decimal point or an exponent field.
40 Repair bugs sometimes encountered with CHAR and ICHAR intrinsic
41functions.
42 Restore f77's optimizations for copying and comparing character
43strings of length 1.
44 Always assume floating-point valued routines in libF77 return
45doubles, even under -R.
46 Repair occasional omission of arguments in routines having multiple
47entry points.
48 Repair bugs in computing offsets of character strings involved
49in EQUIVALENCE.
50 Don't omit structure qualification when COMMON variables are used
51as FORMATs or internal files.
52
532 Oct. 1989:
54 Warn about variables that appear only in data stmts; don't emit them.
55 Fix bugs in character DATA for noncharacter variables
56involved in EQUIVALENCE.
57 Treat noncharacter variables initialized (at least partly) with
58character data as though they were equivalenced -- put out a struct
59and #define the variables. This eliminates the hideous and nonportable
60numeric values that were used to initialize such variables.
61 Treat IMPLICIT NONE as IMPLICIT UNDEFINED(A-Z) .
62 Quit when given invalid options.
63
648 Oct. 1989:
65 Modified naming scheme for generated intermediate variables;
66more are recycled, fewer distinct ones used.
67 New option -W nn specifies nn characters/word for Hollerith
68data initializing non-character variables.
69 Bug fix: x(i:min(i+10,j)) used to elicit "Can't handle opcode 31 yet".
70 Integer expressions of the form (i+const1) - (i+const2), where
71i is a scalar integer variable, are now simplified to (const1-const2);
72this leads to simpler translation of some substring expressions.
73 Initialize uninitialized portions of character string arrays to 0
74rather than to blanks.
75
769 Oct. 1989:
77 New option -c to insert comments showing original Fortran source.
78 New option -g to insert line numbers of original Fortran source.
79
8010 Oct. 1989:
81 ! recognized as in-line comment delimiter (a la Fortran 88).
82
8324 Oct. 1989:
84 New options to ease coping with systems that want the structs
85that result from COMMON blocks to be defined just once:
86 -E causes uninitialized COMMON blocks to be declared Extern;
87if Extern is undefined, f2c.h #defines it to be extern.
88 -ec causes a separate .c file to be emitted for each
89uninitialized COMMON block: COMMON /ABC/ yields abc_com.c;
90thus one can compile *_com.c into a library to ensure
91precisely one definition.
92 -e1c is similar to -ec, except that everything goes into
93one file, along with comments that give a sed script for
94splitting the file into the pieces that -ec would give.
95This is for use with netlib's "execute f2c" service (for which
96-ec is coerced into -e1c, and the sed script will put everything
97but the COMMON definitions into f2c_out.c ).
98
9928 Oct. 1989:
100 Convert "i = i op ..." into "i op= ...;" even when i is a
101dummy argument.
102
10313 Nov. 1989:
104 Name integer constants (passed as arguments) c__... rather
105than c_... so
106 common /c/stuff
107 call foo(1)
108 ...
109is translated correctly.
110
11119 Nov. 1989:
112 Floating-point constants are now kept as strings unless they
113are involved in constant expressions that get simplified. The
114floating-point constants kept as strings can have arbitrarily
115many significant figures and a very large exponent field (as
116large as long int allows on the machine on which f2c runs).
117Thus, for example, the body of
118
119 subroutine zot(x)
120 double precision x(6), pi
121 parameter (pi=3.1415926535897932384626433832795028841972)
122 x(1) = pi
123 x(2) = pi+1
124 x(3) = 9287349823749272.7429874923740978492734D-298374
125 x(4) = .89
126 x(5) = 4.0005
127 x(6) = 10D7
128 end
129
130now gets translated into
131
132 x[1] = 3.1415926535897932384626433832795028841972;
133 x[2] = 4.1415926535897931;
134 x[3] = 9.2873498237492727429874923740978492734e-298359;
135 x[4] = (float).89;
136 x[5] = (float)4.0005;
137 x[6] = 1e8;
138
139rather than the former
140
141 x[1] = 3.1415926535897931;
142 x[2] = 4.1415926535897931;
143 x[3] = 0.;
144 x[4] = (float)0.89000000000000003;
145 x[5] = (float)4.0004999999999997;
146 x[6] = 100000000.;
147
148 Recognition of f77 machine-constant intrinsics deleted, i.e.,
149epbase, epprec, epemin, epemax, eptiny, ephuge, epmrsp.
150
15122 Nov. 1989:
152 Workarounds for glitches on some Sun systems...
153 libf77: libF77/makefile modified to point out possible need
154to compile libF77/main.c with -Donexit=on_exit .
155 libi77: libI77/wref.c (and libI77/README) modified so non-ANSI
156systems can compile with USE_STRLEN defined, which will cause
157 sprintf(b = buf, "%#.*f", d, x);
158 n = strlen(b) + d1;
159rather than
160 n = sprintf(b = buf, "%#.*f", d, x) + d1;
161to be compiled.
162
16326 Nov. 1989:
164 Longer names are now accepted (up to 50 characters); names may
165contain underscores (in which case they will have two underscores
166appended, to avoid clashes with library names).
167
16828 Nov. 1989:
169 libi77 updated:
170 1. Allow 3 (or, on Crays, 4) digit exponents under format Ew.d .
171 2. Try to get things right on machines where ints have 16 bits.
172
17329 Nov. 1989:
174 Supplied missing semicolon in parameterless subroutines that
175have multiple entry points (all of them parameterless).
176
17730 Nov. 1989:
178 libf77 and libi77 revised to use types from f2c.h.
179 f2c now types floating-point valued C library routines as "double"
180rather than "doublereal" (for use with nonstandard C compilers for
181which "double" is IEEE double extended).
182
1831 Dec. 1989:
184 f2c.h updated to eliminate #defines rendered unnecessary (and,
185indeed, dangerous) by change of 26 Nov. to long names possibly
186containing underscores.
187 libi77 further revised: yesterday's change omitted two tweaks to fmt.h
188(tweaks which only matter if float and real or double and doublereal are
189different types).
190
1912 Dec. 1989:
192 Better error message (than "bad tag") for NAMELIST, which no longer
193inhibits C output.
194
1954 Dec. 1989:
196 Allow capital letters in hex constants (f77 extension; e.g.,
197x'a012BCd', X'A012BCD' and x'a012bcd' are all treated as the integer
198167848909).
199 libi77 further revised: lio.c lio.h lread.c wref.c wrtfmt.c tweaked
200again to allow float and real or double and doublereal to be different.
201
2026 Dec. 1989:
203 Revised f2c.h -- required for the following...
204 Simpler looking translations for abs, min, max, using #defines in
205revised f2c.h .
206 libi77: more corrections to types; additions for NAMELIST.
207 Corrected casts in some I/O calls.
208 Translation of NAMELIST; libi77 must still be revised. Currently
209libi77 gives you a run-time error message if you attempt NAMELIST I/O.
210
2117 Dec. 1989:
212 Fixed bug that prevented local integer variables that appear in DATA
213stmts from being ASSIGNed statement labels.
214 Fillers (for DATA statements initializing EQUIVALENCEd variables and
215variables in COMMON) typed integer rather than doublereal (for slightly
216more portability, e.g. to Crays).
217 libi77: missing return values supplied in a few places; some tests
218reordered for better working on the Cray.
219 libf77: better accuracy for complex divide, complex square root,
220real mod function (casts to double; double temporaries).
221
2229 Dec. 1989:
223 Fixed bug that caused needless (albeit harmless) empty lines to be
224inserted in the C output when a comment line contained trailing blanks.
225 Further tweak to type of fillers: allow doublereal fillers if the
226struct has doublereal data.
227
22811 Dec. 1989:
229 Alteration of rule for producing external (C) names from names that
230contain underscores. Now the external name is always obtained by
231appending a pair of underscores.
232
23312 Dec. 1989:
234 C production inhibited after most errors.
235
23615 Dec. 1989:
237 Fixed bug in headers for subroutines having two or more character
238strings arguments: the length arguments were reversed.
239
24019 Dec. 1989:
241 f2c.h libf77 libi77: adjusted so #undefs in f2c.h should not foil
242compilation of libF77 and libI77.
243 libf77: getenv_ adjusted to work with unsorted environments.
244 libi77: the iostat= specifier should now work right with internal I/O.
245
24620 Dec. 1989:
247 f2c bugs fixed: In the absence of an err= specifier, the iostat=
248specifier was generally set wrong. Character strings containing
249explicit nulls (\0) were truncated at the first null.
250 Unlabeled DO loops recognized; must be terminated by ENDDO.
251(Don't ask for CYCLE, EXIT, named DO loops, or DO WHILE.)
252
25329 Dec. 1989:
254 Nested unlabeled DO loops now handled properly; new warning for
255extraneous text at end of FORMAT.
256
25730 Dec. 1989:
258 Fixed bug in translating dble(real(...)), dble(sngl(...)), and
259dble(float(...)), where ... is either of type double complex or
260is an expression requiring assignment to intermediate variables (e.g.,
261dble(real(foo(x+1))), where foo is a function and x is a variable).
262Regard nonblank label fields on continuation lines as an error.
263
2643 Jan. 1990:
265 New option -C++ yields output that should be understood
266by C++ compilers.
267
2686 Jan. 1989:
269 -a now excludes variables that appear in a namelist from those
270that it makes automatic. (As before, it also excludes variables
271that appear in a common, data, equivalence, or save statement.)
272 The syntactically correct Fortran
273 read(*,i) x
274 end
275now yields syntactically correct C (even though both the Fortran
276and C are buggy -- no FORMAT has not been ASSIGNed to i).
277
2787 Jan. 1990:
279 libi77: routines supporting NAMELIST added. Surrounding quotes
280made optional when no ambiguity arises in a list or namelist READ
281of a character-string value.
282
2839 Jan. 1990:
284 f2c.src made available.
285
28616 Jan. 1990:
287 New options -P to produce ANSI C or C++ prototypes for procedures
288defined. Change to -A and -C++: f2c tries to infer prototypes for
289invoked procedures unless the new -!P option is given. New warning
290messages for inconsistent calling sequences among procedures within
291a single file. Most of f2c/src is affected.
292 f2c.h: typedefs for procedure arguments added; netlib's f2c service
293will insert appropriate typedefs for use with older versions of f2c.h.
294
29517 Jan. 1990:
296 f2c/src: defs.h exec.c format.c proc.c putpcc.c version.c xsum0.out
297updated. Castargs and protofile made extern in defs.h; exec.c
298modified so superfluous else clauses are diagnosed; unused variables
299omitted from declarations in format.c proc.c putpcc.c .
300
30121 Jan. 1990:
302 No C emitted for procedures declared external but not referenced.
303 f2c.h: more new types added for use with -P.
304 New feature: f2c accepts as arguments files ending in .p or .P;
305such files are assumed to be prototype files, such as produced by
306the -P option. All prototype files are read before any Fortran files
307and apply globally to all Fortran files. Suitable prototypes help f2c
308warn about calling-sequence errors and can tell f2c how to type
309procedures declared external but not explicitly typed; the latter is
310mainly of interest for users of the -A and -C++ options. (Prototype
311arguments are not available to netlib's "execute f2c" service.)
312 New option -it tells f2c to try to infer types of untyped external
313arguments from their use as parameters to prototyped or previously
314defined procedures.
315 f2c/src: many minor cleanups; most modules changed. Individual
316files in f2c/src are now in "bundle" format. The former f2c.1 is
317now f2c.1t; "f2c.1t from f2c" and "f2c.1t from f2c/src" are now the
318same, as are "f2c.1 from f2c" and "f2c.1 from f2c/src". People who
319do not obtain a new copy of "all from f2c/src" should at least add
320 fclose(sortfp);
321after the call on do_init_data(outfile, sortfp) in format_data.c .
322
32322 Jan. 1990:
324 Cleaner man page wording (thanks to Doug McIlroy).
325 -it now also applies to all untyped EXTERNAL procedures, not just
326arguments.
327
32823 Jan. 01:34:00 EST 1990:
329 Bug fixes: under -A and -C++, incorrect C was generated for
330subroutines having multiple entries but no arguments.
331 Under -A -P, subroutines of no arguments were given prototype
332calling sequence () rather than (void).
333 Character-valued functions elicited erroneous warning messages
334about inconsistent calling sequences when referenced by another
335procedure in the same file.
336 f2c.1t: omit first appearance of libF77.a in FILES section;
337load order of libraries is -lF77 -lI77, not vice versa (bug
338introduced in yesterday's edits); define .F macro for those whose
339-man lacks it. (For a while after yesterday's fixes were posted,
340f2c.1t was out of date. Sorry!)
341
34223 Jan. 9:53:24 EST 1990:
343 Character substring expressions involving function calls having
344character arguments (including the intrinsic len function) yielded
345incorrect C.
346 Procedures defined after invocation (in the same file) with
347conflicting argument types also got an erroneous message about
348the wrong number of arguments.
349
35024 Jan. 11:44:00 EST 1990:
351 Bug fixes: -p omitted #undefs; COMMON block names containing
352underscores had their C names incorrectly computed; a COMMON block
353having the name of a previously defined procedure wreaked havoc;
354if all arguments were .P files, f2c tried reading the second as a
355Fortran file.
356 New feature: -P emits comments showing COMMON block lengths, so one
357can get warnings of incompatible COMMON block lengths by having f2c
358read .P (or .p) files. Now by running f2c twice, first with -P -!c
359(or -P!c), then with *.P among the arguments, you can be warned of
360inconsistent COMMON usage, and COMMON blocks having inconsistent
361lengths will be given the maximum length. (The latter always did
362happen within each input file; now -P lets you extend this behavior
363across files.)
364
36526 Jan. 16:44:00 EST 1990:
366 Option -it made less aggressive: untyped external procedures that
367are invoked are now typed by the rules of Fortran, rather than by
368previous use of procedures to which they are passed as arguments
369before being invoked.
370 Option -P now includes information about references, i.e., called
371procedures, in the prototype files (in the form of special comments).
372This allows iterative invocations of f2c to infer more about untyped
373external names, particularly when multiple Fortran files are involved.
374 As usual, there are some obscure bug fixes:
3751. Repair of erroneous warning messages about inconsistent number of
376arguments that arose when a character dummy parameter was discovered
377to be a function or when multiple entry points involved character
378variables appearing in a previous entry point.
3792. Repair of memory fault after error msg about "adjustable character
380function".
3813. Under -U, allow MAIN_ as a subroutine name (in the same file as a
382main program).
3834. Change for consistency: a known function invoked as a subroutine,
384then as a function elicits a warning rather than an error.
385
38626 Jan. 22:32:00 EST 1990:
387 Fixed two bugs that resulted in incorrect C for substrings, within
388the body of a character-valued function, of the function's name, when
389those substrings were arguments to another function (even implicitly,
390as in character-string assignment).
391
39228 Jan. 18:32:00 EST 1990:
393 libf77, libi77: checksum files added; "make check" looks for
394transmission errors. NAMELIST read modified to allow $ rather than &
395to precede a namelist name, to allow $ rather than / to terminate
396input where the name of another variable would otherwise be expected,
397and to regard all nonprinting ASCII characters <= ' ' as spaces.
398
39929 Jan. 02:11:00 EST 1990:
400 "fc from f2c" added.
401 -it option made the default; -!it turns it off. Type information is
402now updated in a previously missed case.
403 -P option tweaked again; message about when rerunning f2c may change
404prototypes or declarations made more accurate.
405 New option -Ps implies -P and returns exit status 4 if rerunning
406f2c -P with prototype inputs might change prototypes or declarations.
407Now you can execute a crude script like
408
409 cat *.f >zap.F
410 rm -f zap.P
411 while :; do
412 f2c -Ps -!c zap.[FP]
413 case $? in 4) ;; *) break;; esac
414 done
415
416to get a file zap.P of the best prototypes f2c can determine for *.f .
417
418Jan. 29 07:30:21 EST 1990:
419 Forgot to check for error status when setting return code 4 under -Ps;
420error status (1, 2, 3, or, for caught signal, 126) now takes precedence.
421
422Jan 29 14:17:00 EST 1990:
423 Incorrect handling of
424 open(n,'filename')
425repaired -- now treated as
426 open(n,file='filename')
427(and, under -ext, given an error message).
428 New optional source file memset.c for people whose systems don't
429provide memset, memcmp, and memcpy; #include <string.h> in mem.c
430changed to #include "string.h" so BSD people can create a local
431string.h that simply says #include <strings.h> .
432
433Jan 30 10:34:00 EST 1990:
434 Fix erroneous warning at end of definition of a procedure with
435character arguments when the procedure had previously been called with
436a numeric argument instead of a character argument. (There were two
437warnings, the second one incorrectly complaining of a wrong number of
438arguments.)
439
440Jan 30 16:29:41 EST 1990:
441 Fix case where -P and -Ps erroneously reported another iteration
442necessary. (Only harm is the extra iteration.)
443
444Feb 3 01:40:00 EST 1990:
445 Supply semicolon occasionally omitted under -c .
446 Try to force correct alignment when numeric variables are initialized
447with character data (a non-standard and non-portable practice). You
448must use the -W option if your code has such data statements and is
449meant to run on a machine with other than 4 characters/word; e.g., for
450code meant to run on a Cray, you would specify -W8 .
451 Allow parentheses around expressions in output lists (in write and
452print statements).
453 Rename source files so their names are <= 12 characters long
454(so there's room to append .Z and still have <= 14 characters);
455renamed files: formatdata.c niceprintf.c niceprintf.h safstrncpy.c .
456 f2c material made available by anonymous ftp from research.att.com
457(look in dist/f2c ).
458
459Feb 3 03:49:00 EST 1990:
460 Repair memory fault that arose from use (in an assignment or
461call) of a non-argument variable declared CHARACTER*(*).
462
463Feb 9 01:35:43 EST 1990:
464 Fix erroneous error msg about bad types in
465 subroutine foo(a,adim)
466 dimension a(adim)
467 integer adim
468 Fix improper passing of character args (and possible memory fault)
469in the expression part of a computed goto.
470 Fix botched calling sequences in array references involving
471functions having character args.
472 Fix memory fault caused by invocation of character-valued functions
473of no arguments.
474 Fix botched calling sequence of a character*1-valued function
475assigned to a character*1 variable.
476 Fix bug in error msg for inconsistent number of args in prototypes.
477 Allow generation of C output despite inconsistencies in prototypes,
478but give exit code 8.
479 Simplify include logic (by removing some bogus logic); never
480prepend "/usr/include/" to file names.
481 Minor cleanups (that should produce no visible change in f2c's
482behavior) in intr.c parse.h main.c defs.h formatdata.c p1output.c .
483
484Feb 10 00:19:38 EST 1990:
485 Insert (integer) casts when floating-point expressions are used
486as subscripts.
487 Make SAVE stmt (with no variable list) override -a .
488 Minor cleanups: change field to Field in struct Addrblock (for the
489benefit of buggy C compilers); omit system("/bin/cp ...") in misc.c .
490
491Feb 13 00:39:00 EST 1990:
492 Error msg fix in gram.dcl: change "cannot make %s parameter"
493to "cannot make into parameter".
494
495Feb 14 14:02:00 EST 1990:
496 Various cleanups (invisible on systems with 4-byte ints), thanks
497to Dave Regan: vaxx.c eliminated; %d changed to %ld various places;
498external names adjusted for the benefit of stupid systems (that ignore
499case and recognize only 6 significant characters in external names);
500buffer shortened in xsum.c (e.g. for MS-DOS); fopen modes distinguish
501text and binary files; several unused functions eliminated; missing
502arg supplied to an unlikely fatalstr invocation.
503
504Thu Feb 15 19:15:53 EST 1990:
505 More cleanups (invisible on systems with 4 byte ints); casts inserted
506so most complaints from cyntax(1) and lint(1) go away; a few (int)
507versus (long) casts corrected.
508
509Fri Feb 16 19:55:00 EST 1990:
510 Recognize and translate unnamed Fortran 8x do while statements.
511 Fix bug that occasionally caused improper breaking of character
512strings.
513 New error message for attempts to provide DATA in a type-declaration
514statement.
515
516Sat Feb 17 11:43:00 EST 1990:
517 Fix infinite loop clf -> Fatal -> done -> clf after I/O error.
518 Change "if (addrp->vclass = CLPROC)" to "if (addrp->vclass == CLPROC)"
519in p1_addr (in p1output.c); this was probably harmless.
520 Move a misplaced } in lex.c (which slowed initkey()).
521 Thanks to Gary Word for pointing these things out.
522
523Sun Feb 18 18:07:00 EST 1990:
524 Detect overlapping initializations of arrays and scalar variables
525in previously missed cases.
526 Treat logical*2 as logical (after issuing a warning).
527 Don't pass string literals to p1_comment().
528 Correct a cast (introduced 16 Feb.) in gram.expr; this matters e.g.
529on a Cray.
530 Attempt to isolate UNIX-specific things in sysdep.c (a new source
531file). Unless sysdep.c is compiled with SYSTEM_SORT defined, the
532intermediate files created for DATA statements are now sorted in-core
533without invoking system().
534
535Tue Feb 20 16:10:35 EST 1990:
536 Move definition of binread and binwrite from init.c to sysdep.c .
537 Recognize Fortran 8x tokens < <= == >= > <> as synonyms for
538.LT. .LE. .EQ. .GE. .GT. .NE.
539 Minor cleanup in putpcc.c: fully remove simoffset().
540 More discussion of system dependencies added to libI77/README.
541
542Tue Feb 20 21:44:07 EST 1990:
543 Minor cleanups for the benefit of EBCDIC machines -- try to remove
544the assumption that 'a' through 'z' are contiguous. (Thanks again to
545Gary Word.) Also, change log2 to log_2 (shouldn't be necessary).
546
547Wed Feb 21 06:24:56 EST 1990:
548 Fix botch in init.c introduced in previous change; only matters
549to non-ASCII machines.
550
551Thu Feb 22 17:29:12 EST 1990:
552 Allow several entry points to mention the same array. Protect
553parameter adjustments with if's (for the case that an array is not
554an argument to all entrypoints).
555 Under -u, allow
556 subroutine foo(x,n)
557 real x(n)
558 integer n
559 Compute intermediate variables used to evaluate dimension expressions
560at the right time. Example previously mistranslated:
561 subroutine foo(x,k,m,n)
562 real x(min(k,m,n))
563 ...
564 write(*,*) x
565 Detect duplicate arguments. (The error msg points to the first
566executable stmt -- not wonderful, but not worth fixing.)
567 Minor cleanup of min/max computation (sometimes slightly simpler).
568
569Sun Feb 25 09:39:01 EST 1990:
570 Minor tweak to multiple entry points: protect parameter adjustments
571with if's only for (array) args that do not appear in all entry points.
572 Minor tweaks to format.c and io.c (invisible unless your compiler
573complained at the duplicate #defines of IOSUNIT and IOSFMT or at
574comparisons of p1gets(...) with NULL).
575
576Sun Feb 25 18:40:10 EST 1990:
577 Fix bug introduced Feb. 22: if a subprogram contained DATA and the
578first executable statement was labeled, then the label got lost.
579(Just change INEXEC to INDATA in p1output.c; it occurs just once.)
580
581Mon Feb 26 17:45:10 EST 1990:
582 Fix bug in handling of " and ' in comments.
583
584Wed Mar 28 01:43:06 EST 1990:
585libI77:
586 1. Repair nasty I/O bug: opening two files and closing the first
587(after possibly reading or writing it), then writing the second caused
588the last buffer of the second to be lost.
589 2. Formatted reads of logical values treated all letters other than
590t or T as f (false).
591 libI77 files changed: err.c rdfmt.c Version.c
592 (Request "libi77 from f2c" -- you can't get these files individually.)
593
594f2c itself:
595 Repair nasty bug in translation of
596 ELSE IF (condition involving complicated abs, min, or max)
597-- auxiliary statements were emitted at the wrong place.
598 Supply semicolon previously omitted from the translation of a label
599(of a CONTINUE) immediately preceding an ELSE IF or an ELSE. This
600bug made f2c produce invalid C.
601 Correct a memory fault that occurred (on some machines) when the
602error message "adjustable dimension on non-argument" should be given.
603 Minor tweaks to remove some harmless warnings by overly chatty C
604compilers.
605 Argument arays having constant dimensions but a variable lower bound
606(e.g., x(n+1:n+3)) had a * omitted from scalar arguments involved in
607the array offset computation.
608
609Wed Mar 28 18:47:59 EST 1990:
610libf77: add exit(0) to end of main [return(0) encounters a Cray bug]
611
612Sun Apr 1 16:20:58 EDT 1990:
613 Avoid dereferencing null when processing equivalences after an error.
614
615Fri Apr 6 08:29:49 EDT 1990:
616 Calls involving alternate return specifiers omitted processing
617needed for things like min, max, abs, and // (concatenation).
618 INTEGER*2 PARAMETERs were treated as INTEGER*4.
619 Convert some O(n^2) parsing to O(n).
620
621Tue Apr 10 20:07:02 EDT 1990:
622 When inconsistent calling sequences involve differing numbers of
623arguments, report the first differing argument rather than the numbers
624of arguments.
625 Fix bug under -a: formatted I/O in which either the unit or the
626format was a local character variable sometimes resulted in invalid C
627(a static struct initialized with an automatic component).
628 Improve error message for invalid flag after elided -.
629 Complain when literal table overflows, rather than infinitely
630looping. (The complaint mentions the new and otherwise undocumented
631-NL option for specifying a larger literal table.)
632 New option -h for forcing strings to word (or, with -hd, double-word)
633boundaries where possible.
634 Repair a bug that could cause improper splitting of strings.
635 Fix bug (cast of c to doublereal) in
636 subroutine foo(c,r)
637 double complex c
638 double precision r
639 c = cmplx(r,real(c))
640 end
641 New include file "sysdep.h" has some things from defs.h (and
642elsewhere) that one may need to modify on some systems.
643 Some large arrays that were previously statically allocated are now
644dynamically allocated when f2c starts running.
645 f2c/src files changed:
646 README cds.c defs.h f2c.1 f2c.1t format.c formatdata.c init.c
647 io.c lex.c main.c makefile mem.c misc.c names.c niceprintf.c
648 output.c parse_args.c pread.c put.c putpcc.c sysdep.h
649 version.c xsum0.out
650
651Wed Apr 11 18:27:12 EDT 1990:
652 Fix bug in argument consistency checking of character, complex, and
653double complex valued functions. If the same source file contained a
654definition of such a function with arguments not explicitly typed,
655then subsequent references to the function might get erroneous
656warnings of inconsistent calling sequences.
657 Tweaks to sysdep.h for partially ANSI systems.
658 New options -kr and -krd cause f2c to use temporary variables to
659enforce Fortran evaluation-order rules with pernicious, old-style C
660compilers that apply the associative law to floating-point operations.
661
662Sat Apr 14 15:50:15 EDT 1990:
663 libi77: libI77 adjusted to allow list-directed and namelist I/O
664of internal files; bug in namelist I/O of logical and character arrays
665fixed; list input of complex numbers adjusted to permit d or D to
666denote the start of the exponent field of a component.
667 f2c itself: fix bug in handling complicated lower-bound
668expressions for character substrings; e.g., min and max did not work
669right, nor did function invocations involving character arguments.
670 Switch to octal notation, rather than hexadecimal, for nonprinting
671characters in character and string constants.
672 Fix bug (when neither -A nor -C++ was specified) in typing of
673external arguments of type complex, double complex, or character:
674 subroutine foo(c)
675 external c
676 complex c
677now results in
678 /* Complex */ int (*c) ();
679(as, indeed, it once did) rather than
680 complex (*c) ();
681
682Sat Apr 14 22:50:39 EDT 1990:
683 libI77/makefile: updated "make check" to omit lio.c
684 lib[FI]77/makefile: trivial change: define CC = cc, reference $(CC).
685 (Request, e.g., "libi77 from f2c" -- you can't ask for individual
686files from lib[FI]77.)
687
688Wed Apr 18 00:56:37 EDT 1990:
689 Move declaration of atof() from defs.h to sysdep.h, where it is
690now not declared if stdlib.h is included. (NeXT's stdlib.h has a
691#define atof that otherwise wreaks havoc.)
692 Under -u, provide a more intelligible error message (than "bad tag")
693for an attempt to define a function without specifying its type.
694
695Wed Apr 18 17:26:27 EDT 1990:
696 Recognize \v (vertical tab) in Hollerith as well as quoted strings;
697add recognition of \r (carriage return).
698 New option -!bs turns off recognition of escapes in character strings
699(\0, \\, \b, \f, \n, \r, \t, \v).
700 Move to sysdep.c initialization of some arrays whose initialization
701assumed ASCII; #define Table_size in sysdep.h rather than using
702hard-coded 256 in allocating arrays of size 1 << (bits/byte).
703
704Thu Apr 19 08:13:21 EDT 1990:
705 Warn when escapes would make Hollerith extend beyond statement end.
706 Omit max() definition from misc.c (should be invisible except on
707systems that erroneously #define max in stdlib.h).
708
709Mon Apr 23 22:24:51 EDT 1990:
710 When producing default-style C (no -A or -C++), cast switch
711expressions to (int).
712 Move "-lF77 -lI77 -lm -lc" to link_msg, defined in sysdep.c .
713 Add #define scrub(x) to sysdep.h, with invocations in format.c and
714formatdata.c, so that people who have systems like VMS that would
715otherwise create multiple versions of intermediate files can
716#define scrub(x) unlink(x)
717
718Tue Apr 24 18:28:36 EDT 1990:
719 Pass string lengths once rather than twice to a function of character
720arguments involved in comparison of character strings of length 1.
721
722Fri Apr 27 13:11:52 EDT 1990:
723 Fix bug that made f2c gag on concatenations involving char(...) on
724some systems.
725
726Sat Apr 28 23:20:16 EDT 1990:
727 Fix control-stack bug in
728 if(...) then
729 else if (complicated condition)
730 else
731 endif
732(where the complicated condition causes assignment to an auxiliary
733variable, e.g., max(a*b,c)).
734
735Mon Apr 30 13:30:10 EDT 1990:
736 Change fillers for DATA with holes from substructures to arrays
737(in an attempt to make things work right with C compilers that have
738funny padding rules for substructures, e.g., Sun C compilers).
739 Minor cleanup of exec.c (should not affect generated C).
740
741Mon Apr 30 23:13:51 EDT 1990:
742 Fix bug in handling return values of functions having multiple
743entry points of differing return types.
744
745Sat May 5 01:45:18 EDT 1990:
746 Fix type inference bug in
747 subroutine foo(x)
748 call goo(x)
749 end
750 subroutine goo(i)
751 i = 3
752 end
753Instead of warning of inconsistent calling sequences for goo,
754f2c was simply making i a real variable; now i is correctly
755typed as an integer variable, and f2c issues an error message.
756 Adjust error messages issued at end of declarations so they
757don't blame the first executable statement.
758
759Sun May 6 01:29:07 EDT 1990:
760 Fix bug in -P and -Ps: warn when the definition of a subprogram adds
761information that would change prototypes or previous declarations.
762
763Thu May 10 18:09:15 EDT 1990:
764 Fix further obscure bug with (default) -it: inconsistent calling
765sequences and I/O statements could interact to cause a memory fault.
766Example:
767 SUBROUTINE FOO
768 CALL GOO(' Something') ! Forgot integer first arg
769 END
770 SUBROUTINE GOO(IUNIT,MSG)
771 CHARACTER*(*)MSG
772 WRITE(IUNIT,'(1X,A)') MSG
773 END
774
775Fri May 11 16:49:11 EDT 1990:
776 Under -!c, do not delete any .c files (when there are errors).
777 Avoid dereferencing 0 when a fatal error occurs while reading
778Fortran on stdin.
779
780Wed May 16 18:24:42 EDT 1990:
781 f2c.ps made available.
782
783Mon Jun 4 12:53:08 EDT 1990:
784 Diagnose I/O units of invalid type.
785 Add specific error msg about dummy arguments in common.
786
787Wed Jun 13 12:43:17 EDT 1990:
788 Under -A, supply a missing "[1]" for CHARACTER*1 variables that appear
789both in a DATA statement and in either COMMON or EQUIVALENCE.
790
791Mon Jun 18 16:58:31 EDT 1990:
792 Trivial updates to f2c.ps . ("Fortran 8x" --> "Fortran 90"; omit
793"(draft)" from "(draft) ANSI C".)
794
795Tue Jun 19 07:36:32 EDT 1990:
796 Fix incorrect code generated for ELSE IF(expression involving
797function call passing non-constant substring).
798 Under -h, preserve the property that strings are null-terminated
799where possible.
800 Remove spaces between # and define in lex.c output.c parse.h .
801
802Mon Jun 25 07:22:59 EDT 1990:
803 Minor tweak to makefile to reduce unnecessary recompilations.
804
805Tue Jun 26 11:49:53 EDT 1990:
806 Fix unintended truncation of some integer constants on machines
807where casting a long to (int) may change the value. E.g., when f2c
808ran on machines with 16-bit ints, "i = 99999" was being translated
809to "i = -31073;".
810
811Wed Jun 27 11:05:32 EDT 1990:
812 Arrange for CHARACTER-valued PARAMETERs to honor their length
813specifications. Allow CHAR(nn) in expressions defining such PARAMETERs.
814
815Fri Jul 20 09:17:30 EDT 1990:
816 Avoid dereferencing 0 when a FORMAT statement has no label.
817
818Thu Jul 26 11:09:39 EDT 1990:
819 Remarks about VOID and binread,binwrite added to README.
820 Tweaks to parse_args: should be invisible unless your compiler
821complained at (short)*store.
822
823Thu Aug 2 02:07:58 EDT 1990:
824 f2c.ps: change the first line of page 5 from
825 include stuff
826to
827 include 'stuff'
828
829Tue Aug 14 13:21:24 EDT 1990:
830 libi77: libI77 adjusted to treat tabs as spaces in list input.
831
832Fri Aug 17 07:24:53 EDT 1990:
833 libi77: libI77 adjusted so a blank='ZERO' clause (upper case Z)
834in an open of a currently open file works right.
835
836Tue Aug 28 01:56:44 EDT 1990:
837 Fix bug in warnings of inconsistent calling sequences: if an
838argument to a subprogram was never referenced, then a previous
839invocation of the subprogram (in the same source file) that
840passed something of the wrong type for that argument did not
841elicit a warning message.
842
843Thu Aug 30 09:46:12 EDT 1990:
844 libi77: prevent embedded blanks in list output of complex values;
845omit exponent field in list output of values of magnitude between
84610 and 1e8; prevent writing stdin and reading stdout or stderr;
847don't close stdin, stdout, or stderr when reopening units 5, 6, 0.
848
849Tue Sep 4 12:30:57 EDT 1990:
850 Fix bug in C emitted under -I2 or -i2 for INTEGER*4 FUNCTION.
851 Warn of missing final END even if there are previous errors.
852
853Fri Sep 7 13:55:34 EDT 1990:
854 Remark about "make xsum.out" and "make f2c" added to README.
855
856Tue Sep 18 23:50:01 EDT 1990:
857 Fix null dereference (and, on some systems, writing of bogus *_com.c
858files) under -ec or -e1c when a prototype file (*.p or *.P) describes
859COMMON blocks that do not appear in the Fortran source.
860 libi77:
861 Add some #ifdef lines (#ifdef MSDOS, #ifndef MSDOS) to avoid
862references to stat and fstat on non-UNIX systems.
863 On UNIX systems, add component udev to unit; decide that old
864and new files are the same iff both the uinode and udev components
865of unit agree.
866 When an open stmt specifies STATUS='OLD', use stat rather than
867access (on UNIX systems) to check the existence of the file (in case
868directories leading to the file have funny permissions and this is
869a setuid or setgid program).
870
871Thu Sep 27 16:04:09 EDT 1990:
872 Supply missing entry for Impldoblock in blksize array of cpexpr
873(in expr.c). No examples are known where this omission caused trouble.
874
875Tue Oct 2 22:58:09 EDT 1990:
876 libf77: test signal(...) == SIG_IGN rather than & 01 in main().
877 libi77: adjust rewind.c so two successive rewinds after a write
878don't clobber the file.
879
880Thu Oct 11 18:00:14 EDT 1990:
881 libi77: minor cleanups: add #include "fcntl.h" to endfile.c, err.c,
882open.c; adjust g_char in util.c for segmented memories; in f_inqu
883(inquire.c), define x appropriately when MSDOS is defined.
884
885Mon Oct 15 20:02:11 EDT 1990:
886 Add #ifdef MSDOS pointer adjustments to mem.c; treat NAME= as a
887synonym for FILE= in OPEN statements.
888
889Wed Oct 17 16:40:37 EDT 1990:
890 libf77, libi77: minor cleanups: _cleanup() and abort() invocations
891replaced by invocations of sig_die in main.c; some error messages
892previously lost in buffers will now appear.
893
894Mon Oct 22 16:11:27 EDT 1990:
895 libf77: separate sig_die from main (for folks who don't want to use
896the main in libF77).
897 libi77: minor tweak to comments in README.
898
899Fri Nov 2 13:49:35 EST 1990:
900 Use two underscores rather than one in generated temporary variable
901names to avoid conflict with COMMON names. f2c.ps updated to reflect
902this change and the NAME= extension introduced 15 Oct.
903 Repair a rare memory fault in io.c .
904
905Mon Nov 5 16:43:55 EST 1990:
906 libi77: changes to open.c (and err.c): complain if an open stmt
907specifies new= and the file already exists (as specified by Fortrans 77
908and 90); allow file= to be omitted in open stmts and allow
909status='replace' (Fortran 90 extensions).
910
911Fri Nov 30 10:10:14 EST 1990:
912 Adjust malloc.c for unusual systems whose sbrk() can return values
913not properly aligned for doubles.
914 Arrange for slightly more helpful and less repetitive warnings for
915non-character variables initialized with character data; these warnings
916are (still) suppressed by -w66.
917
918Fri Nov 30 15:57:59 EST 1990:
919 Minor tweak to README (about changing VOID in f2c.h).
920
921Mon Dec 3 07:36:20 EST 1990:
922 Fix spelling of "character" in f2c.1t.
923
924Tue Dec 4 09:48:56 EST 1990:
925 Remark about link_msg and libf2c added to f2c/README.
926
927Thu Dec 6 08:33:24 EST 1990:
928 Under -U, render label nnn as L_nnn rather than Lnnn.
929
930Fri Dec 7 18:05:00 EST 1990:
931 Add more names from f2c.h (e.g. integer, real) to the c_keywords
932list of names to which an underscore is appended to avoid confusion.
933
934Mon Dec 10 19:11:15 EST 1990:
935 Minor tweaks to makefile (./xsum) and README (binread/binwrite).
936 libi77: a few modifications for POSIX systems; meant to be invisible
937elsewhere.
938
939Sun Dec 16 23:03:16 EST 1990:
940 Fix null dereference caused by unusual erroneous input, e.g.
941 call foo('abc')
942 end
943 subroutine foo(msg)
944 data n/3/
945 character*(*) msg
946 end
947(Subroutine foo is illegal because the character statement comes after a
948data statement.)
949 Use decimal rather than hex constants in xsum.c (to prevent
950erroneous warning messages about constant overflow).
951
952Mon Dec 17 12:26:40 EST 1990:
953 Fix rare extra underscore in character length parameters passed
954for multiple entry points.
955
956Wed Dec 19 17:19:26 EST 1990:
957 Allow generation of C despite error messages about bad alignment
958forced by equivalence.
959 Allow variable-length concatenations in I/O statements, such as
960 open(3, file=bletch(1:n) // '.xyz')
961
962Fri Dec 28 17:08:30 EST 1990:
963 Fix bug under -p with formats and internal I/O "units" in COMMON,
964as in
965 COMMON /FIGLEA/F
966 CHARACTER*20 F
967 F = '(A)'
968 WRITE (*,FMT=F) 'Hello, world!'
969 END
970
971Tue Jan 15 12:00:24 EST 1991:
972 Fix bug when two equivalence groups are merged, the second with
973nonzero offset, and the result is then merged into a common block.
974Example:
975 INTEGER W(3), X(3), Y(3), Z(3)
976 COMMON /ZOT/ Z
977 EQUIVALENCE (W(1),X(1)), (X(2),Y(1)), (Z(3),X(1))
978***** W WAS GIVEN THE WRONG OFFSET
979 Recognize Fortran 90's optional NML= in NAMELIST READs and WRITEs.
980(Currently NML= and FMT= are treated as synonyms -- there's no
981error message if, e.g., NML= specifies a format.)
982 libi77: minor adjustment to allow internal READs from character
983string constants in read-only memory.
984
985Fri Jan 18 22:56:15 EST 1991:
986 Add comment to README about needing to comment out the typedef of
987size_t in sysdep.h on some systems, e.g. Sun 4.1.
988 Fix misspelling of "statement" in an error message in lex.c
989
990Wed Jan 23 00:38:48 EST 1991:
991 Allow hex, octal, and binary constants to have the qualifying letter
992(z, x, o, or b) either before or after the quoted string containing the
993digits. For now this change will not be reflected in f2c.ps .
994
995Tue Jan 29 16:23:45 EST 1991:
996 Arrange for character-valued statement functions to give results of
997the right length (that of the statement function's name).
998
999Wed Jan 30 07:05:32 EST 1991:
1000 More tweaks for character-valued statement functions: an error
1001check and an adjustment so a right-hand side of nonconstant length
1002(e.g., a substring) is handled right.
1003
1004Wed Jan 30 09:49:36 EST 1991:
1005 Fix p1_head to avoid printing (char *)0 with %s.
1006
1007Thu Jan 31 13:53:44 EST 1991:
1008 Add a test after the cleanup call generated for I/O statements with
1009ERR= or END= clauses to catch the unlikely event that the cleanup
1010routine encounters an error.
1011
1012Mon Feb 4 08:00:58 EST 1991:
1013 Minor cleanup: omit unneeded jumps and labels from code generated for
1014some NAMELIST READs and WRITEs with IOSTAT=, ERR=, and/or END=.
1015
1016Tue Feb 5 01:39:36 EST 1991:
1017 Change Mktemp to mktmp (for the benefit of systems so brain-damaged
1018that they do not distinguish case in external names -- and that for
1019some reason want to load mktemp). Try to get xsum0.out right this
1020time (it somehow didn't get updated on 4 Feb. 1991).
1021 Add note to libi77/README about adjusting the interpretation of
1022RECL= specifiers in OPENs for direct unformatted I/O.
1023
1024Thu Feb 7 17:24:42 EST 1991:
1025 New option -r casts values of REAL functions, including intrinsics,
1026to REAL. This only matters for unportable code like
1027 real r
1028 r = asin(1.)
1029 if (r .eq. asin(1.)) ...
1030[The behavior of such code varies with the Fortran compiler used --
1031and sometimes is affected by compiler options.] For now, the man page
1032at the end of f2c.ps is the only part of f2c.ps that reflects this new
1033option.
1034
1035Fri Feb 8 18:12:51 EST 1991:
1036 Cast pointer differences passed as arguments to the appropriate type.
1037This matters, e.g., with MSDOS compilers that yield a long pointer
1038difference but have int == short.
1039 Disallow nonpositive dimensions.
1040
1041Fri Feb 15 12:24:15 EST 1991:
1042 Change %d to %ld in sprintf call in putpower in putpcc.c.
1043 Free more memory (e.g. allowing translation of larger Fortran
1044files under MS-DOS).
1045 Recognize READ (character expression) and WRITE (character expression)
1046as formatted I/O with the format given by the character expression.
1047 Update year in Notice.
1048
1049Sat Feb 16 00:42:32 EST 1991:
1050 Recant recognizing WRITE(character expression) as formatted output
1051-- Fortran 77 is not symmetric in its syntax for READ and WRITE.
1052
1053Mon Mar 4 15:19:42 EST 1991:
1054 Fix bug in passing the real part of a complex argument to an intrinsic
1055function. Omit unneeded parentheses in nested calls to intrinsics.
1056Example:
1057 subroutine foo(x, y)
1058 complex y
1059 x = exp(sin(real(y))) + exp(imag(y))
1060 end
1061
1062Fri Mar 8 15:05:42 EST 1991:
1063 Fix a comment in expr.c; omit safstrncpy.c (which had bugs in
1064cases not used by f2c).
1065
1066Wed Mar 13 02:27:23 EST 1991:
1067 Initialize firstmemblock->next in mem_init in mem.c . [On most
1068systems it was fortuituously 0, but with System V, -lmalloc could
1069trip on this missed initialization.]
1070
1071Wed Mar 13 11:47:42 EST 1991:
1072 Fix a reference to freed memory.
1073
1074Wed Mar 27 00:42:19 EST 1991:
1075 Fix a memory fault caused by such illegal Fortran as
1076 function foo
1077 x = 3
1078 logical foo ! declaration among executables
1079 foo=.false. ! used to suffer memory fault
1080 end
1081
1082Fri Apr 5 08:30:31 EST 1991:
1083 Fix loss of % in some format expressions, e.g.
1084 write(*,'(1h%)')
1085 Fix botch introduced 27 March 1991 that caused subroutines with
1086multiple entry points to have extraneous declarations of ret_val.
1087
1088Fri Apr 5 12:44:02 EST 1991
1089 Try again to omit extraneous ret_val declarations -- this morning's
1090fix was sometimes wrong.
1091
1092Mon Apr 8 13:47:06 EDT 1991:
1093 Arrange for s_rnge to have the right prototype under -A -C .
1094
1095Wed Apr 17 13:36:03 EDT 1991:
1096 New fatal error message for apparent invocation of a recursive
1097statement function.
1098
1099Thu Apr 25 15:13:37 EDT 1991:
1100 F2c and libi77 adjusted so NAMELIST works with -i2. (I forgot
1101about -i2 when adding NAMELIST.) This required a change to f2c.h
1102(that only affects NAMELIST I/O under -i2.) Man-page description of
1103-i2 adjusted to reflect that -i2 stores array lengths in short ints.
1104
1105Fri Apr 26 02:54:41 EDT 1991:
1106 Libi77: fix some bugs in NAMELIST reading of multi-dimensional arrays
1107(file rsne.c).
1108
1109Thu May 9 02:13:51 EDT 1991:
1110 Omit a trailing space in expr.c (could cause a false xsum value if
1111a mailer drops the trailing blank).
1112
1113Thu May 16 13:14:59 EDT 1991:
1114 Libi77: increase LEFBL in lio.h to overcome a NeXT bug.
1115 Tweak for compilers that recognize "nested" comments: inside comments,
1116turn /* into /+ (as well as */ into +/).
1117
1118Sat May 25 11:44:25 EDT 1991:
1119 libf77: s_rnge: declare line long int rather than int.
1120
1121Fri May 31 07:51:50 EDT 1991:
1122 libf77: system_: officially return status.
1123
1124Mon Jun 17 16:52:53 EDT 1991:
1125 Minor tweaks: omit unnecessary declaration of strcmp (that caused
1126trouble on a system where strcmp was a macro) from misc.c; add
1127SHELL = /bin/sh to makefiles.
1128 Fix a dereference of null when a CHARACTER*(*) declaration appears
1129(illegally) after DATA. Complain only once per subroutine about
1130declarations appearing after DATA.
1131
1132Mon Jul 1 00:28:13 EDT 1991:
1133 Add test and error message for illegal use of subroutine names, e.g.
1134 SUBROUTINE ZAP(A)
1135 ZAP = A
1136 END
1137
1138Mon Jul 8 21:49:20 EDT 1991:
1139 Issue a warning about things like
1140 integer i
1141 i = 'abc'
1142(which is treated as i = ichar('a')). [It might be nice to treat 'abc'
1143as an integer initialized (in a DATA statement) with 'abc', but
1144other matters have higher priority.]
1145 Render
1146 i = ichar('A')
1147as
1148 i = 'A';
1149rather than
1150 i = 65;
1151(which assumes ASCII).
1152
1153Fri Jul 12 07:41:30 EDT 1991:
1154 Note added to README about erroneous definitions of __STDC__ .
1155
1156Sat Jul 13 13:38:54 EDT 1991:
1157 Fix bugs in double type convesions of complex values, e.g.
1158sngl(real(...)) or dble(real(...)) (where ... is complex).
1159
1160Mon Jul 15 13:21:42 EDT 1991:
1161 Fix bug introduced 8 July 1991 that caused erroneous warnings
1162"ichar([first char. of] char. string) assumed for conversion to numeric"
1163when a subroutine had an array of character strings as an argument.
1164
1165Wed Aug 28 01:12:17 EDT 1991:
1166 Omit an unused function in format.c, an unused variable in proc.c .
1167 Under -r8, promote complex to double complex (as the man page claims).
1168
1169Fri Aug 30 17:19:17 EDT 1991:
1170 f2c.ps updated: slightly expand description of intrinsics and,or,xor,
1171not; add mention of intrinsics lshift, rshift; add note about f2c
1172accepting Fortran 90 inline comments (starting with !); update Cobalt
1173Blue address.
1174
1175Tue Sep 17 07:17:33 EDT 1991:
1176 libI77: err.c and open.c modified to use modes "rb" and "wb"
1177when (f)opening unformatted files; README updated to point out
1178that it may be necessary to change these modes to "r" and "w"
1179on some non-ANSI systems.
1180
1181Tue Oct 15 10:25:49 EDT 1991:
1182 Minor tweaks that make some PC compilers happier: insert some
1183casts, add args to signal functions.
1184 Change -g to emit uncommented #line lines -- and to emit more of them;
1185update fc, f2c.1, f2c.1t, f2c.ps to reflect this.
1186 Change uchar to Uchar in xsum.c .
1187 Bring gram.c up to date.
1188
1189Thu Oct 17 09:22:05 EDT 1991:
1190 libi77: README, fio.h, sue.c, uio.c changed so the length field
1191in unformatted sequential records has type long rather than int
1192(unless UIOLEN_int is #defined). This is for systems where sizeof(int)
1193can vary, depending on the compiler or compiler options.
1194
1195Thu Oct 17 13:42:59 EDT 1991:
1196 libi77: inquire.c: when MSDOS is defined, don't strcmp units[i].ufnm
1197when it is NULL.
1198
1199Fri Oct 18 15:16:00 EDT 1991:
1200 Correct xsum0.out in "all from f2c/src" (somehow botched on 15 Oct.).
1201
1202Tue Oct 22 18:12:56 EDT 1991:
1203 Fix memory fault when a character*(*) argument is used (illegally)
1204as a dummy variable in the definition of a statement function. (The
1205memory fault occurred when the statement function was invoked.)
1206 Complain about implicit character*(*).
1207
1208Thu Nov 14 08:50:42 EST 1991:
1209 libi77: change uint to Uint in fmt.h, rdfmt.c, wrtfmt.c; this change
1210should be invisible unless you're running a brain-damaged system.
1211
1212Mon Nov 25 19:04:40 EST 1991:
1213 libi77: correct botches introduced 17 Oct. 1991 and 14 Nov. 1991
1214(change uint to Uint in lwrite.c; other changes that only matter if
1215sizeof(int) != sizeof(long)).
1216 Add a more meaningful error message when bailing out due to an attempt
1217to invoke a COMMON variable as a function.
1218
1219Sun Dec 1 19:29:24 EST 1991:
1220 libi77: uio.c: add test for read failure (seq. unformatted reads);
1221adjust an error return from EOF to off end of record.
1222
1223Tue Dec 10 17:42:28 EST 1991:
1224 Add tests to prevent memory faults with bad uses of character*(*).
1225
1226Thu Dec 12 11:24:41 EST 1991:
1227 libi77: fix bug with internal list input that caused the last
1228character of each record to be ignored; adjust error message in
1229internal formatted input from "end-of-file" to "off end of record"
1230if the format specifies more characters than the record contains.
1231
1232Wed Dec 18 17:48:11 EST 1991:
1233 Fix bug in translating nonsensical ichar invocations involving
1234concatenations.
1235 Fix bug in passing intrinsics lle, llt, lge, lgt as arguments;
1236hl_le was being passed rather than l_le, etc.
1237 libf77: adjust length parameters from long to ftnlen, for
1238compiling with f2c_i2 defined.
1239
1240Sat Dec 21 15:30:57 EST 1991:
1241 Allow DO nnn ... to end with an END DO statement labelled nnn.
1242
1243Tue Dec 31 13:53:47 EST 1991:
1244 Fix bug in handling dimension a(n**3,2) -- pow_ii was called
1245incorrectly.
1246 Fix bug in translating
1247 subroutine x(abc,n)
1248 character abc(n)
1249 write(abc,'(i10)') 123
1250 end
1251(omitted declaration and initialiation of abc_dim1).
1252 Complain about dimension expressions of such invalid types
1253as complex and logical.
1254
1255Fri Jan 17 11:54:20 EST 1992:
1256 Diagnose some illegal uses of main program name (rather than
1257memory faulting).
1258 libi77: (1) In list and namelist input, treat "r* ," and "r*,"
1259alike (where r is a positive integer constant), and fix a bug in
1260handling null values following items with repeat counts (e.g.,
12612*1,,3). (2) For namelist reading of a numeric array, allow a new
1262name-value subsequence to terminate the current one (as though the
1263current one ended with the right number of null values).
1264(3) [lio.h, lwrite.c]: omit insignificant zeros in list and namelist
1265output. (Compile with -DOld_list_output to get the old behavior.)
1266
1267Sat Jan 18 15:58:01 EST 1992:
1268 libi77: make list output consistent with F format by printing .1
1269rather than 0.1 (introduced yesterday).
1270
1271Wed Jan 22 08:32:43 EST 1992:
1272 libi77: add comment to README pointing out preconnection of
1273Fortran units 5, 6, 0 to stdin, stdout, stderr (respectively).
1274
1275Mon Feb 3 11:57:53 EST 1992:
1276 libi77: fix namelist read bug that caused the character following
1277a comma to be ignored.
1278
1279Fri Feb 28 01:04:26 EST 1992:
1280 libf77: fix buggy z_sqrt.c (double precision square root), which
1281misbehaved for arguments in the southwest quadrant.
1282
1283Thu Mar 19 15:05:18 EST 1992:
1284 Fix bug (introduced 17 Jan 1992) in handling multiple entry points
1285of differing types (with implicitly typed entries appearing after
1286the first executable statement).
1287 Fix memory fault in the following illegal Fortran:
1288 double precision foo(i)
1289* illegal: above should be "double precision function foo(i)"
1290 foo = i * 3.2
1291 entry moo(i)
1292 end
1293 Note about ANSI_Libraries (relevant, e.g., to IRIX 4.0.1 and AIX)
1294added to README.
1295 Abort zero divides during constant simplification.
1296
1297Sat Mar 21 01:27:09 EST 1992:
1298 Tweak ckalloc (misc.c) for systems where malloc(0) = 0; this matters
1299for subroutines with multiple entry points but no arguments.
1300 Add "struct memblock;" to init.c (irrelevant to most compilers).
1301
1302Wed Mar 25 13:31:05 EST 1992:
1303 Fix bug with IMPLICIT INTEGER*4(...): under -i2 or -I2, the *4 was
1304ignored.
1305
1306Tue May 5 09:53:55 EDT 1992:
1307 Tweaks to README; e.g., ANSI_LIbraries changed to ANSI_Libraries .
1308
1309Wed May 6 23:49:07 EDT 1992
1310 Under -A and -C++, have subroutines return 0 (even if they have
1311no * arguments).
1312 Adjust libi77 (rsne.c and lread.c) for systems where ungetc is
1313a macro. Tweak lib[FI]77/makefile to use unique intermediate file
1314names (for parallel makes).
1315
1316Tue May 19 09:03:05 EDT 1992:
1317 Adjust libI77 to make err= work with internal list and formatted I/O.
1318
1319Sat May 23 18:17:42 EDT 1992:
1320 Under -A and -C++, supply "return 0;" after the code generated for
1321a STOP statement -- the C compiler doesn't know that s_stop won't
1322return.
1323 New (mutually exclusive) options:
1324 -f treats all input lines as free-format lines,
1325 honoring text that appears after column 72
1326 and not padding lines shorter than 72 characters
1327 with blanks (which matters if a character string
1328 is continued across 2 or more lines).
1329 -72 treats text appearing after column 72 as an error.
1330
1331Sun May 24 09:45:37 EDT 1992:
1332 Tweak description of -f in f2c.1 and f2c.1t; update f2c.ps .
1333
1334Fri May 29 01:17:15 EDT 1992:
1335 Complain about externals used as variables. Example
1336 subroutine foo(a,b)
1337 external b
1338 a = a*b ! illegal use of b; perhaps should be b()
1339 end
1340
1341Mon Jun 15 11:15:27 EDT 1992:
1342 Fix bug in handling namelists with names that have underscores.
1343
1344Sat Jun 27 17:30:59 EDT 1992:
1345 Under -A and -C++, end Main program aliases with "return 0;".
1346 Under -A and -C++, use .P files and usage in previous subprograms
1347in the current file to give prototypes for functions declared EXTERNAL
1348but not invoked.
1349 Fix memory fault under -d1 -P .
1350 Under -A and -C++, cast arguments to the right types in calling
1351a function that has been defined in the current file or in a .P file.
1352 Fix bug in handling multi-dimensional arrays with array references
1353in their leading dimensions.
1354 Fix bug in the intrinsic cmplx function when the first argument
1355involves an expression for which f2c generates temporary variables,
1356e.g. cmplx(abs(real(a)),1.) .
1357
1358Sat Jul 18 07:36:58 EDT 1992:
1359 Fix buglet with -e1c (invisible on most systems) temporary file
1360f2c_functions was unlinked before being closed.
1361 libf77: fix bugs in evaluating m**n for integer n < 0 and m an
1362integer different from 1 or a real or double precision 0.
1363Catch SIGTRAP (to print "Trace trap" before aborting). Programs
1364that previously erroneously computed 1 for 0**-1 may now fault.
1365Relevant routines: main.c pow_di.c pow_hh.c pow_ii.c pow_ri.c .
1366
1367Sat Jul 18 08:40:10 EDT 1992:
1368 libi77: allow namelist input to end with & (e.g. &end).
1369
1370Thu Jul 23 00:14:43 EDT 1992
1371 Append two underscores rather than one to C keywords used as
1372local variables to avoid conflicts with similarly named COMMON blocks.
1373
1374Thu Jul 23 11:20:55 EDT 1992:
1375 libf77, libi77 updated to assume ANSI prototypes unless KR_headers
1376is #defined.
1377 libi77 now recognizes a Z format item as in Fortran 90;
1378the implementation assumes 8-bit bytes and botches character strings
1379on little-endian machines (by printing their bytes from right to
1380left): expect this bug to persist; fixing it would require a
1381change to the I/O calling sequences.
1382
1383Tue Jul 28 15:18:33 EDT 1992:
1384 libi77: insert missed "#ifdef KR_headers" lines around getnum
1385header in rsne.c. Version not updated.
1386
1387NOTE: "index from f2c" now ends with current timestamps of files in
1388"all from f2c/src", sorted by time. To bring your source up to date,
1389obtain source files with a timestamp later than the time shown in your
1390version.c.
1391
1392Fri Aug 14 08:07:09 EDT 1992:
1393 libi77: tweak wrt_E in wref.c to avoid signing NaNs.
1394
1395Sun Aug 23 19:05:22 EDT 1992:
1396 fc: supply : after O in getopt invocation (for -O1 -O2 -O3).
1397
1398Mon Aug 24 18:37:59 EDT 1992:
1399 Recant above tweak to fc: getopt is dumber than I thought;
1400it's necessary to say -O 1 (etc.).
1401 libF77/README: add comments about ABORT, ERF, DERF, ERFC, DERFC,
1402GETARG, GETENV, IARGC, SIGNAL, and SYSTEM.
1403
1404Tue Oct 27 01:57:42 EST 1992:
1405 libf77, libi77:
1406 1. Fix botched indirection in signal_.c.
1407 2. Supply missing l_eof = 0 assignment to s_rsne() in rsne.c (so
1408end-of-file on other files won't confuse namelist reads of external
1409files).
1410 3. Prepend f__ to external names that are only of internal
1411interest to lib[FI]77.
1412
1413Thu Oct 29 12:37:18 EST 1992:
1414 libf77: Fix botch in signal_.c when KR_headers is #defined;
1415add CFLAGS to makefile.
1416 libi77: trivial change to makefile for consistency with
1417libF77/makefile.
1418
1419Wed Feb 3 02:05:16 EST 1993:
1420 Recognize types INTEGER*1, LOGICAL*1, LOGICAL*2, INTEGER*8.
1421INTEGER*8 is not well tested and will only work reasonably on
1422systems where int = 4 bytes, long = 8 bytes; on such systems,
1423you'll have to modify f2c.h appropriately, changing integer
1424from long to int and adding typedef long longint. You'll also
1425have to compile libI77 with Allow_TYQUAD #defined and adjust
1426libF77/makefile to compile pow_qq.c. In the f2c source, changes
1427for INTEGER*8 are delimited by #ifdef TYQUAD ... #endif. You
1428can omit the INTEGER*8 changes by compiling with NO_TYQUAD
1429#defined. Otherwise, the new command-line option -!i8
1430disables recognition of INTEGER*8.
1431 libf77: add pow_qq.c
1432 libi77: add #ifdef Allow_TYQUAD stuff. Changes for INTEGER*1,
1433LOGICAL*1, and LOGICAL*2 came last 23 July 1992. Fix bug in
1434backspace (that only bit when the last character of the second
1435or subsequent buffer read was the previous newline). Guard
1436against L_tmpnam being too small in endfile.c. For MSDOS,
1437close and reopen files when copying to truncate. Lengthen
1438LINTW (buffer size in lwrite.c).
1439 Add \ to the end of #define lines that get broken.
1440 Fix bug in handling NAMELIST of items in EQUIVALENCE.
1441 Under -h (or -hd), convert Hollerith to integer in general expressions
1442(e.g., assignments), not just when they're passed as arguments, and
1443blank-pad rather than 0-pad the Hollerith to a multiple of
1444sizeof(integer) or sizeof(doublereal).
1445 Add command-line option -s, which instructs f2c preserve multi-
1446dimensional subscripts (by emitting and using appropriate #defines).
1447 Fix glitch (with default type inferences) in examples like
1448 call foo('abc')
1449 end
1450 subroutine foo(goo)
1451 end
1452This gave two warning messages:
1453 Warning on line 4 of y.f: inconsistent calling sequences for foo:
1454 here 1, previously 2 args and string lengths.
1455 Warning on line 4 of y.f: inconsistent calling sequences for foo:
1456 here 2, previously 1 args and string lengths.
1457Now the second Warning is suppressed.
1458 Complain about all inconsistent arguments, not just the first.
1459 Switch to automatic creation of "all from f2c/src". For folks
1460getting f2c source via ftp, this means f2c/src/all.Z is now an
1461empty file rather than a bundle.
1462 Separate -P and -A: -P no longer implies -A.
1463
1464Thu Feb 4 00:32:20 EST 1993:
1465 Fix some glitches (introduced yesterday) with -h .
1466
1467Fri Feb 5 01:40:38 EST 1993:
1468 Fix bug in types conveyed for namelists (introduced 3 Feb. 1993).
1469
1470Fri Feb 5 21:26:43 EST 1993:
1471 libi77: tweaks to NAMELIST and open (after comments by Harold
1472Youngren):
1473 1. Reading a ? instead of &name (the start of a namelist) causes
1474 the namelist being sought to be written to stdout (unit 6);
1475 to omit this feature, compile rsne.c with -DNo_Namelist_Questions.
1476 2. Reading the wrong namelist name now leads to an error message
1477 and an attempt to skip input until the right namelist name is found;
1478 to omit this feature, compile rsne.c with -DNo_Bad_Namelist_Skip.
1479 3. Namelist writes now insert newlines before each variable; to omit
1480 this feature, compile xwsne.c with -DNo_Extra_Namelist_Newlines.
1481 4. For OPEN of sequential files, ACCESS='APPEND' (or
1482 access='anything else starting with "A" or "a"') causes the file to
1483 be positioned at end-of-file, so a write will append to the file.
1484 (This is nonstandard, but does not require modifying data
1485 structures.)
1486
1487Mon Feb 8 14:40:37 EST 1993:
1488 Increase number of continuation lines allowed from 19 to 99,
1489and allow changing this limit with -NC (e.g. -NC200 for 200 lines).
1490 Treat control-Z (at the beginning of a line) as end-of-file: see
1491the new penultimate paragraph of README.
1492 Fix a rarely seen glitch that could make an error messages to say
1493"line 0".
1494
1495Tue Feb 9 02:05:40 EST 1993
1496 libi77: change some #ifdef MSDOS lines to #ifdef NON_UNIX_STDIO,
1497and, in err.c under NON_UNIX_STDIO, avoid close(creat(name,0666))
1498when the unit has another file descriptor for name.
1499
1500Tue Feb 9 17:12:49 EST 1993
1501 libi77: more tweaks for NON_UNIX_STDIO: use stdio routines
1502rather than open, close, creat, seek, fdopen (except for f__isdev).
1503
1504Fri Feb 12 15:49:33 EST 1993
1505 Update src/gram.c (which was forgotten in the recent updates).
1506Most folks regenerate it anyway (wity yacc or bison).
1507
1508Thu Mar 4 17:07:38 EST 1993
1509 Increase default max labels in computed gotos and alternate returns
1510to 257, and allow -Nl1234 to specify this number.
1511 Tweak put.c to check p->tag == TADDR in realpart() and imagpart().
1512 Adjust fc script to allow .r (RATFOR) files and -C (check subscripts).
1513 Avoid declaring strchr in niceprintf.c under -DANSI_Libraries .
1514 gram.c updated again.
1515 libi77: err.c, open.c: take declaration of fdopen from rawio.h.
1516
1517Sat Mar 6 07:09:11 EST 1993
1518 libi77: uio.c: adjust off-end-of-record test for sequential
1519unformatted reads to respond to err= rather than end= .
1520
1521Sat Mar 6 16:12:47 EST 1993
1522 Treat scalar arguments of the form (v) and v+0, where v is a variable,
1523as expressions: assign to a temporary variable, and pass the latter.
1524 gram.c updated.
1525
1526Mon Mar 8 09:35:38 EST 1993
1527 "f2c.h from f2c" updated to add types logical1 and integer1 for
1528LOGICAL*1 and INTEGER*1. ("f2c.h from f2c" is supposed to be the
1529same as "f2c.h from f2c/src", which was updated 3 Feb. 1993.)
1530
1531Mon Mar 8 17:57:55 EST 1993
1532 Fix rarely seen bug that could cause strange casts in function
1533invocations (revealed by an example with msdos/f2c.exe).
1534 msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only).
1535
1536Fri Mar 12 12:37:01 EST 1993
1537 Fix bug with -s in handling subscripts involving min, max, and
1538complicated expressions requiring temporaries.
1539 Fix bug in handling COMMONs that need padding by a char array.
1540 msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only).
1541
1542Fri Mar 12 17:16:16 EST 1993
1543 libf77, libi77: updated for compiling under C++.
1544
1545Mon Mar 15 16:21:37 EST 1993
1546 libi77: more minor tweaks (for -DKR_headers); Version.c not changed.
1547
1548Thu Mar 18 12:37:30 EST 1993
1549 Flag -r (for discarding carriage-returns on systems that end lines
1550with carriage-return/newline pairs, e.g. PCs) added to xsum, and
1551xsum.c converted to ANSI/ISO syntax (with K&R syntax available with
1552-DKR_headers). [When time permits, the f2c source will undergo a
1553similar conversion.]
1554 libi77: tweaks to #includes in endfile.c, err.c, open.c, rawio.h;
1555Version.c not changed.
1556 f2c.ps updated (to pick up revision of 2 Feb. 1993 to f2c.1).
1557
1558Fri Mar 19 09:19:26 EST 1993
1559 libi77: add (char *) casts to malloc and realloc invocations
1560in err.c, open.c; Version.c not changed.
1561
1562Tue Mar 30 07:17:15 EST 1993
1563 Fix bug introduced 6 March 1993: possible memory corruption when
1564loops in data statements involve constant subscripts, as in
1565 DATA (GUNIT(1,I),I=0,14)/15*-1/
1566
1567Tue Mar 30 16:17:42 EST 1993
1568 Fix bug with -s: (floating-point array item)*(complex item)
1569generates an _subscr() reference for the floating-point array,
1570but a #define for the _subscr() was omitted.
1571
1572Tue Apr 6 12:11:22 EDT 1993
1573 libi77: adjust error returns for formatted inputs to flush the current
1574input line when err= is specified. To restore the old behavior (input
1575left mid-line), either adjust the #definition of errfl in fio.h or omit
1576the invocation of f__doend in err__fl (in err.c).
1577
1578Tue Apr 6 13:30:04 EDT 1993
1579 Fix bug revealed in
1580 subroutine foo(i)
1581 call goo(int(i))
1582 end
1583which now passes a copy of i, rather than i itself.
1584
1585Sat Apr 17 11:41:02 EDT 1993
1586 Adjust appending of underscores to conform with f2c.ps ("A Fortran
1587to C Converter"): names that conflict with C keywords or f2c type
1588names now have just one underscore appended (rather than two); add
1589"integer1", "logical1", "longint" to the keyword list.
1590 Append underscores to names that appear in EQUIVALENCE and are
1591component names in a structure declared in f2c.h, thus avoiding a
1592problem caused by the #defines emitted for equivalences. Example:
1593 complex a
1594 equivalence (i,j)
1595 a = 1 ! a.i went awry because of #define i
1596 j = 2
1597 write(*,*) a, i
1598 end
1599 Adjust line-breaking logic to avoid splitting very long constants
1600(and names). Example:
1601 ! The next line starts with tab and thus is a free-format line.
1602 a=.012345689012345689012345689012345689012345689012345689012345689012345689
1603 end
1604 Omit extraneous "return 0;" from entry stubs emitted for multiple
1605entry points of type character, complex, or double complex.
1606
1607Sat Apr 17 14:35:05 EDT 1993
1608 Fix bug (introduced 4 Feb.) in separating -P from -A that kept f2c
1609from re-reading a .P file written without -A or -C++ describing a
1610routine with an external argument. [See the just-added note about
1611separating -P from -A in the changes above for 3 Feb. 1993.]
1612 Fix bug (type UNKNOWN for V in the example below) revealed by
1613 subroutine a()
1614 external c
1615 call b(c)
1616 end
1617 subroutine b(v)
1618 end
1619
1620Sun Apr 18 19:55:26 EDT 1993
1621 Fix wrong calling sequence for mem() in yesterday's addition to
1622equiv.c .
1623
1624Wed Apr 21 17:39:46 EDT 1993
1625 Fix bug revealed in
1626
1627 ASSIGN 10 TO L1
1628 GO TO 20
1629 10 ASSIGN 30 TO L2
1630 STOP 10
1631
1632 20 ASSIGN 10 TO L2 ! Bug here because 10 had been assigned
1633 ! to another label, then defined.
1634 GO TO L2
1635 30 END
1636
1637Fri Apr 23 18:38:50 EDT 1993
1638 Fix bug with -h revealed in
1639 CHARACTER*9 FOO
1640 WRITE(FOO,'(I6)') 1
1641 WRITE(FOO,'(I6)') 2 ! struct icilist io___3 botched
1642 END
1643
1644Tue Apr 27 16:08:28 EDT 1993
1645 Tweak to makefile: remove "size f2c".
1646
1647Tue May 4 23:48:20 EDT 1993
1648 libf77: tweak signal_ line of f2ch.add .
1649
1650Tue Jun 1 13:47:13 EDT 1993
1651 Fix bug introduced 3 Feb. 1993 in handling multiple entry
1652points with differing return types -- the postfix array in proc.c
1653needed a new entry for integer*8 (which resulted in wrong
1654Multitype suffixes for non-integral types).
1655 For (default) K&R C, generate VOID rather than int functions for
1656functions of Fortran type character, complex, and double complex.
1657 msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only).
1658
1659Tue Jun 1 23:11:15 EDT 1993
1660 f2c.h: add Multitype component g and commented type longint.
1661 proc.c: omit "return 0;" from stubs for complex and double complex
1662entries (when entries have multiple types); add test to avoid memory
1663fault with illegal combinations of entry types.
1664
1665Mon Jun 7 12:00:47 EDT 1993
1666 Fix memory fault in
1667 common /c/ m
1668 integer m(1)
1669 data m(1)/1/, m(2)/2/ ! one too many initializers
1670 end
1671 msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only).
1672
1673Fri Jun 18 13:55:51 EDT 1993
1674 libi77: change type of signal_ in f2ch.add; change type of il in
1675union Uint from long to integer (for machines like the DEC Alpha,
1676where integer should be the same as int). Version.c not changed.
1677 Tweak gram.dcl and gram.head: add semicolons after some rules that
1678lacked them, and remove an extraneous semicolon. These changes are
1679completely transparent to our local yacc programs, but apparently
1680matter on some VMS systems.
1681
1682Wed Jun 23 01:02:56 EDT 1993
1683 Update "fc" shell script, and bring f2c.1 and f2c.1t up to date:
1684they're meant to be linked with (i.e., the same as) src/f2c.1 and
1685src/f2c.1t . [In the last update of f2c.1* (2 Feb. 1993), only
1686src/f2c.1 and src/f2c.1t got changed -- a mistake.]
1687
1688Wed Jun 23 09:04:31 EDT 1993
1689 libi77: fix bug in format reversions for internal writes.
1690Example:
1691 character*60 lines(2)
1692 write(lines,"('n =',i3,2(' more text',i3))") 3, 4, 5, 6
1693 write(*,*) 'lines(1) = ', lines(1)
1694 write(*,*) 'lines(2) = ', lines(2)
1695 end
1696gave an error message that began "iio: off end of record", rather
1697than giving the correct output:
1698
1699 lines(1) = n = 3 more text 4 more text 5
1700 lines(2) = more text 6 more text
1701
1702Thu Aug 5 11:31:14 EDT 1993
1703 libi77: lread.c: fix bug in handling repetition counts for logical
1704data (during list or namelist input). Change struct f__syl to
1705struct syl (for buggy compilers).
1706
1707Sat Aug 7 16:05:30 EDT 1993
1708 libi77: lread.c (again): fix bug in namelist reading of incomplete
1709logical arrays.
1710 Fix minor calling-sequence errors in format.c, output.c, putpcc.c:
1711should be invisible.
1712
1713Mon Aug 9 09:12:38 EDT 1993
1714 Fix erroneous cast under -A in translating
1715 character*(*) function getc()
1716 getc(2:3)=' ' !wrong cast in first arg to s_copy
1717 end
1718 libi77: lread.c: fix bug in namelist reading of an incomplete array
1719of numeric data followed by another namelist item whose name starts
1720with 'd', 'D', 'e', or 'E'.
1721
1722Fri Aug 20 13:22:10 EDT 1993
1723 Fix bug in do while revealed by
1724 subroutine skdig (line, i)
1725 character line*(*), ch*1
1726 integer i
1727 logical isdigit
1728 isdigit(ch) = ch.ge.'0' .and. ch.le.'9'
1729 do while (isdigit(line(i:i))) ! ch__1[0] was set before
1730 ! "while(...) {...}"
1731 i = i + 1
1732 enddo
1733 end
1734
1735Fri Aug 27 08:22:54 EDT 1993
1736 Add #ifdefs to avoid declaring atol when it is a macro; version.c
1737not updated.
1738
1739Wed Sep 8 12:24:26 EDT 1993
1740 libi77: open.c: protect #include "sys/..." with
1741#ifndef NON_UNIX_STDIO; Version date not changed.
1742
1743Thu Sep 9 08:51:21 EDT 1993
1744 Adjust "include" to interpret file names relative to the directory
1745of the file that contains the "include".
1746
1747Fri Sep 24 00:56:12 EDT 1993
1748 Fix offset error resulting from repeating the same equivalence
1749statement twice. Example:
1750 real a(2), b(2)
1751 equivalence (a(2), b(2))
1752 equivalence (a(2), b(2))
1753 end
1754 Increase MAXTOKENLEN (to roughly the largest allowed by ANSI C).
1755
1756Mon Sep 27 08:55:09 EDT 1993
1757 libi77: endfile.c: protect #include "sys/types.h" with
1758#ifndef NON_UNIX_STDIO; Version.c not changed.
1759
1760Fri Oct 15 15:37:26 EDT 1993
1761 Fix rarely seen parsing bug illustrated by
1762 subroutine foo(xabcdefghij)
1763 character*(*) xabcdefghij
1764 IF (xabcdefghij.NE.'##') GOTO 40
1765 40 end
1766in which the spacing in the IF line is crucial.
1767
1768Thu Oct 21 13:55:11 EDT 1993
1769 Give more meaningful error message (then "unexpected character in
1770cds") when constant simplification leads to Infinity or NaN.
1771
1772Wed Nov 10 15:01:05 EST 1993
1773 libi77: backspace.c: adjust, under -DMSDOS, to cope with MSDOS
1774text files, as handled by some popular PC C compilers. Beware:
1775the (defective) libraries associated with these compilers assume lines
1776end with \r\n (conventional MS-DOS text files) -- and ftell (and
1777hence the current implementation of backspace) screws up if lines with
1778just \n.
1779
1780Thu Nov 18 09:37:47 EST 1993
1781 Give a better error (than "control stack empty") for an extraneous
1782ENDDO. Example:
1783 enddo
1784 end
1785 Update comments about ftp in "readme from f2c".
1786
1787Sun Nov 28 17:26:50 EST 1993
1788 Change format of time stamp in version.c to yyyymmdd.
1789 Sort parameter adjustments (or complain of impossible dependencies)
1790so that dummy arguments are referenced only after being adjusted.
1791Example:
1792 subroutine foo(a,b)
1793 integer a(2) ! a must be adjusted before b
1794 double precision b(a(1),a(2))
1795 call goo(b(3,4))
1796 end
1797 Adjust structs for initialized common blocks and equivalence classes
1798to omit the trailing struct component added to force alignment when
1799padding already forces the desired alignment. Example:
1800 PROGRAM TEST
1801 COMMON /Z/ A, CC
1802 CHARACTER*4 CC
1803 DATA cc /'a'/
1804 END
1805now gives
1806 struct {
1807 integer fill_1[1];
1808 char e_2[4];
1809 } z_ = { {0}, {'a', ' ', ' ', ' '} };
1810rather than
1811struct {
1812 integer fill_1[1];
1813 char e_2[4];
1814 real e_3;
1815 } z_ = { {0}, {'a', ' ', ' ', ' '}, (float)0. };
1816
1817Wed Dec 8 16:24:43 EST 1993
1818 Adjust lex.c to recognize # nnn "filename" lines emitted by cpp;
1819this affects the file names and line numbers in error messages and
1820the #line lines emitted under -g.
1821 Under -g, arrange for a file that starts with an executable
1822statement to have the first #line line indicate line 1, rather
1823than the line number of the END statement ending the main program.
1824 Adjust fc script to run files ending in .F through /lib/cpp.
1825 Fix bug ("Impossible tag 2") in
1826 if (t .eq. (0,2)) write(*,*) 'Bug!'
1827 end
1828 libi77: iio.c: adjust internal formatted reads to treat short records
1829as though padded with blanks (rather than causing an "off end of record"
1830error).
1831
1832Wed Dec 15 15:19:15 EST 1993
1833 fc: adjusted for .F files to pass -D and -I options to cpp.
1834
1835Fri Dec 17 20:03:38 EST 1993
1836 Fix botch introduced 28 Nov. 1993 in vax.c; change "version of"
1837to "version".
1838
1839Tue Jan 4 15:39:52 EST 1994
1840 msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only).
1841
1842Wed Jan 19 08:55:19 EST 1994
1843 Arrange to accept
1844 integer Nx, Ny, Nz
1845 parameter (Nx = 10, Ny = 20)
1846 parameter (Nz = max(Nx, Ny))
1847 integer c(Nz)
1848 call foo(c)
1849 end
1850rather than complaining "Declaration error for c: adjustable dimension
1851on non-argument". The necessary changes cause some hitherto unfolded
1852constant expressions to be folded.
1853 Accept BYTE as a synonym for INTEGER*1.
1854
1855Thu Jan 27 08:57:40 EST 1994
1856 Fix botch in changes of 19 Jan. 1994 that broke entry points with
1857multi-dimensional array arguments that did not appear in the subprogram
1858argument list and whose leading dimensions depend on arguments.
1859
1860Mon Feb 7 09:24:30 EST 1994
1861 Remove artifact in "fc" script that caused -O to be ignored:
1862 87c87
1863 < # lcc ignores -O...
1864 ---
1865 > CFLAGS="$CFLAGS $O"
1866
1867Sun Feb 20 17:04:58 EST 1994
1868 Fix bugs reading .P files for routines with arguments of type
1869INTEGER*1, INTEGER*8, LOGICAL*2.
1870 Fix glitch in reporting inconsistent arguments for routines involving
1871character arguments: "arg n" had n too large by the number of
1872character arguments.
1873
1874Tue Feb 22 20:50:08 EST 1994
1875 Trivial changes to data.c format.c main.c niceprintf.c output.h and
1876sysdep.h (consistency improvements).
1877 libI77: lread.c: check for NULL return from realloc.
1878
1879Fri Feb 25 23:56:08 EST 1994
1880 output.c, sysdep.h: arrange for -DUSE_DTOA to use dtoa.c and g_fmt.c
1881for correctly rounded decimal values on IEEE-arithmetic machines
1882(plus machines with VAX and IBM-mainframe arithmetic). These
1883routines are available from netlib's fp directory.
1884 msdos/f2cx.exe.Z and msdos/f2c.exe.Z updated (ftp access only); the
1885former uses -DUSE_DTOA to keep 12 from printing as 12.000000000000001.
1886 vax.c: fix wrong arguments to badtag and frchain introduced
188728 Nov. 1993.
1888 Source for f2c converted to ANSI/ISO format, with the K&R format
1889available by compilation with -DKR_headers .
1890 Arrange for (double precision expression) relop (single precision
1891constant) to retain the single-precision nature of the constant.
1892Example:
1893 double precision t
1894 if (t .eq. 0.3) ...
1895
1896Mon Feb 28 11:40:24 EST 1994
1897 README updated to reflect a modification just made to netlib's
1898"dtoa.c from fp":
189996a97,105
1900> Also add the rule
1901>
1902> dtoa.o: dtoa.c
1903> $(CC) -c $(CFLAGS) -DMALLOC=ckalloc -DIEEE... dtoa.c
1904>
1905> (without the initial tab) to the makefile, where IEEE... is one of
1906> IEEE_MC68k, IEEE_8087, VAX, or IBM, depending on your machine's
1907> arithmetic. See the comments near the start of dtoa.c.
1908>
1909
1910Sat Mar 5 09:41:52 EST 1994
1911 Complain about functions with the name of a previously declared
1912common block (which is illegal).
1913 New option -d specifies the directory for output .c and .P files;
1914f2c.1 and f2c.1t updated. The former undocumented debug option -dnnn
1915is now -Dnnn.
1916
1917Thu Mar 10 10:21:44 EST 1994
1918 libf77: add #undef min and #undef max lines to s_paus.c s_stop.c
1919and system_.c; Version.c not changed.
1920 libi77: add -DPad_UDread lines to uio.c and explanation to README:
1921 Some buggy Fortran programs use unformatted direct I/O to write
1922 an incomplete record and later read more from that record than
1923 they have written. For records other than the last, the unwritten
1924 portion of the record reads as binary zeros. The last record is
1925 a special case: attempting to read more from it than was written
1926 gives end-of-file -- which may help one find a bug. Some other
1927 Fortran I/O libraries treat the last record no differently than
1928 others and thus give no help in finding the bug of reading more
1929 than was written. If you wish to have this behavior, compile
1930 uio.c with -DPad_UDread .
1931Version.c not changed.
1932
1933Tue Mar 29 17:27:54 EST 1994
1934 Adjust make_param so dimensions involving min, max, and other
1935complicated constant expressions do not provoke error messages
1936about adjustable dimensions on non-arguments.
1937 Fix botch introduced 19 Jan 1994: "adjustable dimension on non-
1938argument" messages could cause some things to be freed twice.
1939
1940Tue May 10 07:55:12 EDT 1994
1941 Trivial changes to exec.c, p1output.c, parse_args.c, proc.c,
1942and putpcc.c: change arguments from
1943 type foo[]
1944to
1945 type *foo
1946for consistency with defs.h. For most compilers, this makes no
1947difference.
1948
1949Thu Jun 2 12:18:18 EDT 1994
1950 Fix bug in handling FORMAT statements that have adjacent character
1951(or Hollerith) strings: an extraneous \002 appeared between the
1952strings.
1953 libf77: under -DNO_ONEXIT, arrange for f_exit to be called just
1954once; previously, upon abnormal termination (including stop statements),
1955it was called twice.
1956
1957Mon Jun 6 15:52:57 EDT 1994
1958 libf77: Avoid references to SIGABRT and SIGIOT if neither is defined;
1959Version.c not changed.
1960 libi77: Add cast to definition of errfl() in fio.h; this only matters
1961on systems with sizeof(int) < sizeof(long). Under -DNON_UNIX_STDIO,
1962use binary mode for direct formatted files (to avoid any confusion
1963connected with \n characters).
1964
1965Fri Jun 10 16:47:31 EDT 1994
1966 Fix bug under -A in handling unreferenced (and undeclared)
1967external arguments in subroutines with multiple entry points. Example:
1968 subroutine m(fcn,futil)
1969 external fcn,futil
1970 call fcn
1971 entry mintio(i1) ! (D_fp)0 rather than (U_fp)0 for futil
1972 end
1973
1974Wed Jun 15 10:38:14 EDT 1994
1975 Allow char(constant expression) function in parameter declarations.
1976(This was probably broken in the changes of 29 March 1994.)
1977
1978Fri Jul 1 23:54:00 EDT 1994
1979 Minor adjustments to makefile (rule for f2c.1 commented out) and
1980sysdep.h (#undef KR_headers if __STDC__ is #defined, and base test
1981for ANSI_Libraries and ANSI_Prototypes on KR_headers rather than
1982__STDC__); version.c touched but not changed.
1983 libi77: adjust fp.h so local.h is only needed under -DV10;
1984Version.c not changed.
1985
1986Tue Jul 5 03:05:46 EDT 1994
1987 Fix segmentation fault in
1988 subroutine foo(a,b,k)
1989 data i/1/
1990 double precision a(k,1) ! sequence error: must precede data
1991 b = a(i,1)
1992 end
1993 libi77: Fix bug (introduced 6 June 1994?) in reopening files under
1994NON_UNIX_STDIO.
1995 Fix some error messages caused by illegal Fortran. Examples:
1996* 1.
1997 x(i) = 0 !Missing declaration for array x
1998 call f(x) !Said Impossible storage class 8 in routine mkaddr
1999 end !Now says invalid use of statement function x
2000* 2.
2001 f = g !No declaration for g; by default it's a real variable
2002 call g !Said invalid class code 2 for function g
2003 end !Now says g cannot be called
2004* 3.
2005 intrinsic foo !Invalid intrinsic name
2006 a = foo(b) !Said intrcall: bad intrgroup 0
2007 end !Now just complains about line 1
2008
2009Tue Jul 5 11:14:26 EDT 1994
2010 Fix glitch in handling erroneous statement function declarations.
2011Example:
2012 a(j(i) - i) = a(j(i) - i) + 1 ! bad statement function
2013 call foo(a(3)) ! Said Impossible type 0 in routine mktmpn
2014 end ! Now warns that i and j are not used
2015
2016Wed Jul 6 17:31:25 EDT 1994
2017 Tweak test for statement functions that (illegally) call themselves;
2018f2c will now proceed to check for other errors, rather than bailing
2019out at the first recursive statement function reference.
2020 Warn about but retain divisions by 0 (instead of calling them
2021"compiler errors" and quiting). On IEEE machines, this permits
2022 double precision nan, ninf, pinf
2023 nan = 0.d0/0.d0
2024 pinf = 1.d0/0.d0
2025 ninf = -1.d0/0.d0
2026 write(*,*) 'nan, pinf, ninf = ', nan, pinf, ninf
2027 end
2028to print
2029 nan, pinf, ninf = NaN Infinity -Infinity
2030 libi77: wref.c: protect with #ifdef GOOD_SPRINTF_EXPONENT an
2031optimization that requires exponents to have 2 digits when 2 digits
2032suffice. lwrite.c wsfe.c (list and formatted external output):
2033omit ' ' carriage-control when compiled with -DOMIT_BLANK_CC .
2034Off-by-one bug fixed in character count for list output of character
2035strings. Omit '.' in list-directed printing of Nan, Infinity.
2036
2037Mon Jul 11 13:05:33 EDT 1994
2038 src/gram.c updated.
2039
2040Tue Jul 12 10:24:42 EDT 1994
2041 libi77: wrtfmt.c: under G11.4, write 0. as " .0000 " rather
2042than " .0000E+00".
2043
2044Thu Jul 14 17:55:46 EDT 1994
2045 Fix glitch in changes of 6 July 1994 that could cause erroneous
2046"division by zero" warnings (or worse). Example:
2047 subroutine foo(a,b)
2048 y = b
2049 a = a / y ! erroneous warning of division by zero
2050 end
2051
2052Mon Aug 1 16:45:17 EDT 1994
2053 libi77: lread.c rsne.c: for benefit of systems with a buggy stdio.h,
2054declare ungetc when neither KR_headers nor ungetc is #defined.
2055Version.c not changed.
2056
2057Wed Aug 3 01:53:00 EDT 1994
2058 libi77: lwrite.c (list output): do not insert a newline when
2059appending an oversize item to an empty line.
2060
2061Mon Aug 8 00:51:01 EDT 1994
2062 Fix bug (introduced 3 Feb. 1993) that, under -i2, kept LOGICAL*2
2063variables from appearing in INQUIRE statements. Under -I2, allow
2064LOGICAL*4 variables to appear in INQUIRE. Fix intrinsic function
2065LEN so it returns a short value under -i2, a long value otherwise.
2066 exec.c: fix obscure memory fault possible with bizarre (and highly
2067erroneous) DO-loop syntax.
2068
2069Fri Aug 12 10:45:57 EDT 1994
2070 libi77: fix glitch that kept ERR= (in list- or format-directed input)
2071from working after a NAMELIST READ.
2072
2073Thu Aug 25 13:58:26 EDT 1994
2074 Suppress -s when -C is specified.
2075 Give full pathname ([email protected]) for netlib in readme and
2076src/README.
2077
2078Wed Sep 7 22:13:20 EDT 1994
2079 libi77: typesize.c: adjust to allow types LOGICAL*1, LOGICAL*2,
2080INTEGER*1, and (under -DAllow_TYQUAD) INTEGER*8 in NAMELISTs.
2081
2082Fri Sep 16 17:50:18 EDT 1994
2083 Change name adjustment for reserved words: instead of just appending
2084"_" (a single underscore), append "_a_" to local variable names to avoid
2085trouble when a common block is named a reserved word and the same
2086reserved word is also a local variable name. Example:
2087 common /const/ a,b,c
2088 real const(3)
2089 equivalence (const(1),a)
2090 a = 1.234
2091 end
2092 Arrange for ichar() to treat characters as unsigned.
2093 libf77: s_cmp.c: treat characters as unsigned in comparisons.
2094These changes for unsignedness only matter for strings that contain
2095non-ASCII characters. Now ichar() should always be >= 0.
2096
2097Sat Sep 17 11:19:32 EDT 1994
2098 fc: set rc=$? before exit (to get exit code right in trap code).
2099
2100Mon Sep 19 17:49:43 EDT 1994
2101 libf77: s_paus.c: flush stderr after PAUSE; add #ifdef MSDOS stuff.
2102 libi77: README: point out general need for -DMSDOS under MS-DOS.
2103
2104Tue Sep 20 11:42:30 EDT 1994
2105 Fix bug in comparing identically named common blocks, in which
2106all components have the same names and types, but at least one is
2107dimensioned (1) and the other is not dimensioned. Example:
2108 subroutine foo
2109 common /ab/ a
2110 a=1. !!! translated correctly to ab_1.a = (float)1.;
2111 end
2112 subroutine goo
2113 common /ab/ a(1)
2114 a(1)=2. !!! translated erroneously to ab_1.a[0] = (float)2.
2115 end
2116
2117Tue Sep 27 23:47:34 EDT 1994
2118 Fix bug introduced 16 Sept. 1994: don't add _a_ to C keywords
2119used as external names. In fact, return to earlier behavior of
2120appending __ to C keywords unless they are used as external names,
2121in which case they get just one underscore appended.
2122 Adjust constant handling so integer and logical PARAMETERs retain
2123type information, particularly under -I2. Example:
2124 SUBROUTINE FOO
2125 INTEGER I
2126 INTEGER*1 I1
2127 INTEGER*2 I2
2128 INTEGER*4 I4
2129 LOGICAL L
2130 LOGICAL*1 L1
2131 LOGICAL*2 L2
2132 LOGICAL*4 L4
2133 PARAMETER (L=.FALSE., L1=.FALSE., L2=.FALSE., L4=.FALSE.)
2134 PARAMETER (I=0,I1=0,I2=0,I4=0)
2135 CALL DUMMY(I, I1, I2, I4, L, L1, L2, L4)
2136 END
2137 f2c.1t: Change f\^2c to f2c (omit half-narrow space) in line following
2138".SH NAME" for benefit of systems that cannot cope with troff commands
2139in this context.
2140
2141Wed Sep 28 12:45:19 EDT 1994
2142 libf77: s_cmp.c fix glitch in -DKR_headers version introduced
214312 days ago.
2144
2145Thu Oct 6 09:46:53 EDT 1994
2146 libi77: util.c: omit f__mvgbt (which is never used).
2147 f2c.h: change "long" to "long int" to facilitate the adjustments
2148by means of sed described above. Comment out unused typedef of Long.
2149
2150Fri Oct 21 18:02:24 EDT 1994
2151 libf77: add s_catow.c and adjust README to point out that changing
2152"s_cat.o" to "s_catow.o" in the makefile will permit the target of a
2153concatenation to appear on its right-hand side (contrary to the
2154Fortran 77 Standard and at the cost of some run-time efficiency).
2155
2156Wed Nov 2 00:03:58 EST 1994
2157 Adjust -g output to contain only one #line line per statement,
2158inserting \ before the \n ending lines broken because of their
2159length [this insertion was recanted 10 Dec. 1994]. This change
2160accommodates an idiocy in the ANSI/ISO C standard, which leaves
2161undefined the behavior of #line lines that occur within the arguments
2162to a macro call.
2163
2164Wed Nov 2 14:44:27 EST 1994
2165 libi77: under compilation with -DALWAYS_FLUSH, flush buffers at
2166the end of each write statement, and test (via the return from
2167fflush) for write failures, which can be caught with an ERR=
2168specifier in the write statement. This extra flushing slows
2169execution, but can abort execution or alter the flow of control
2170when a disk fills up.
2171 f2c/src/io.c: Add ERR= test to e_wsle invocation (end of
2172list-directed external output) to catch write failures when libI77
2173is compiled with -DALWAYS_FLUSH.
2174
2175Thu Nov 3 10:59:13 EST 1994
2176 Fix bug in handling dimensions involving certain intrinsic
2177functions of constant expressions: the expressions, rather than
2178pointers to them, were passed. Example:
2179 subroutine subtest(n,x)
2180 real x(2**n,n) ! pow_ii(2,n) was called; now it's pow_ii(&c__2,n)
2181 x(2,2)=3.
2182 end
2183
2184Tue Nov 8 23:56:30 EST 1994