mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-01-10 14:55:18 +08:00
17f46ec355
2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/35627 * io/list_read.c (free_line): Clear the line buffer enable flag and reset the index into line_buffer, aka item_count. (next_char): Cleanup whitespace. (read_logical): Use unget_char to assure that the first character of the bad logical is saved in case it is part of an object name. Remove the clearing of index and flag that is now in free_line. (read_real): Likewise. From-SVN: r133360
683 lines
26 KiB
Plaintext
683 lines
26 KiB
Plaintext
2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/35627
|
|
* io/list_read.c (free_line): Clear the line buffer enable flag and
|
|
reset the index into line_buffer, aka item_count.
|
|
(next_char): Cleanup whitespace.
|
|
(read_logical): Use unget_char to assure that the first character of the
|
|
bad logical is saved in case it is part of an object name. Remove the
|
|
clearing of index and flag that is now in free_line.
|
|
(read_real): Likewise.
|
|
|
|
2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/32972
|
|
* runtime/in_pack_generic.c (internal_pack): Fix typo in
|
|
last commit.
|
|
|
|
2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/32972
|
|
* Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
|
|
in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
|
|
(in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
|
|
in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
|
|
in_unpack_r16.c.
|
|
* Makefile.in: Regenerate.
|
|
* libgfortran.h: Add prototypes for internal_pack_1,
|
|
internal_pack_2, internal_pack_16, internal_pack_r4,
|
|
internal_pack_r8, internal_pack_r10, internal_pack_r16,
|
|
internal_pack_c10 and internal_pack_c16. Add prototypes for
|
|
internal_unpack_1, internal_unpack_2, internal_unpack_16,
|
|
internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
|
|
internal_unpack_r16, internal_unpack_c10 and
|
|
internal_unpack_c16.
|
|
* runtime/in_pack_generic.c (internal_pack): Use sizeof instead
|
|
of hardwired sizes.
|
|
Add calls to internal_pack_1, internal_pack_2,
|
|
internal_pack_16, internal_pack_r4, internal_pack_r8,
|
|
internal_pack_r10, internal_pack_r16, internal_pack_c10 and
|
|
internal_pack_c16.
|
|
* runtime/in_unpack_generic.c (internal_unpack): Use sizeof
|
|
instead of hardwired sizes.
|
|
Add calls to internal_unpack_1, internal_unpack_2,
|
|
internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
|
|
internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
|
|
and internal_unpack_c16.
|
|
* generated/in_pack_r4.c: New file.
|
|
* generated/in_pack_i2.c: New file.
|
|
* generated/in_unpack_i1.c: New file.
|
|
* generated/in_pack_r10.c: New file.
|
|
* generated/in_unpack_r4.c: New file.
|
|
* generated/in_unpack_i2.c: New file.
|
|
* generated/in_unpack_r16.c: New file.
|
|
* generated/in_pack_r8.c: New file.
|
|
* generated/in_unpack_r10.c: New file.
|
|
* generated/in_unpack_r8.c: New file.
|
|
* generated/in_pack_r16.c: New file.
|
|
* generated/in_pack_i1.c: New file.
|
|
|
|
2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/35617
|
|
* io/list_read.c (eat_separator): If next character after eatline is '!'
|
|
then eatline again.
|
|
|
|
2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
* aclocal.m4: Regenerate.
|
|
* configure: Likewise.
|
|
* Makefile.in: Likewise.
|
|
|
|
2008-03-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
PR libfortran/35524
|
|
* intrinsics/erfc_scaled_inc.c: Only define the long double
|
|
variant of erfc_scaled if expl is available.
|
|
|
|
2008-03-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
PR libfortran/32812
|
|
* intrinsics/random.c (scramble_seed, unscramble_seed): New
|
|
functions.
|
|
(random_seed_i4): Scramble the seed the user gives us before
|
|
storing it, and unscramble it when we return it back later.
|
|
|
|
2008-03-05 Hans-Peter Nilsson <hp@axis.com>
|
|
|
|
PR libfortran/35293
|
|
* io/unix.c (fd_truncate): Fold s->special_file case into
|
|
success case of ftruncate/chsize call instead of the failure case.
|
|
Make failure case actually return failure. Properly update stream
|
|
pointers on failure. Call runtime_error for targets without
|
|
neither ftruncate nor chsize where such a call would be needed.
|
|
|
|
2008-03-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
PR fortran/33197
|
|
* intrinsics/erfc_scaled_inc.c: New file.
|
|
* intrinsics/erfc_scaled.c: New file.
|
|
* gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
|
|
* Makefile.am: Add intrinsics/erfc_scaled.c.
|
|
* config.h.in: Regenerate.
|
|
* configure: Regenerate.
|
|
* Makefile.in: Regenerate.
|
|
|
|
2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
PR libfortran/35355
|
|
* intrinsics/time_1.h (__time_1): Fix calculation of user_usec
|
|
for mingw.
|
|
|
|
2008-03-01 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
PR libfortran/35063
|
|
* io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy
|
|
instead of macro kludge.
|
|
|
|
2008-02-25 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
PR fortran/29549
|
|
* Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of
|
|
libgfortran.
|
|
* Makefile.in: Regenerated.
|
|
|
|
2008-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
* m4/ifunction_logical.m4: Add casts to get rid of warnings.
|
|
* generated/all_l1.c: Regenerate.
|
|
* generated/all_l2.c: Regenerate.
|
|
* generated/all_l4.c: Regenerate.
|
|
* generated/all_l8.c: Regenerate.
|
|
* generated/all_l16.c: Regenerate.
|
|
* generated/any_l1.c: Regenerate.
|
|
* generated/any_l2.c: Regenerate.
|
|
* generated/any_l4.c: Regenerate.
|
|
* generated/any_l8.c: Regenerate.
|
|
* generated/any_l16.c: Regenerate.
|
|
* generated/count_1_l.c: Regenerate.
|
|
* generated/count_2_l.c: Regenerate.
|
|
* generated/count_4_l.c: Regenerate.
|
|
* generated/count_8_l.c: Regenerate.
|
|
* generated/count_16_l.c: Regenerate.
|
|
|
|
2008-02-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
PR libfortran/32841
|
|
* acinclude.m4: Don't use HAVE_MATH_H.
|
|
* configure: Regenerate.
|
|
|
|
2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/35132
|
|
* io/transfer.c (next_record_w): Truncate after the last record for
|
|
STREAM I/O.
|
|
|
|
PR libfortran/34954
|
|
* io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
|
|
|
|
PR libfortran/34974
|
|
* io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
|
|
is less than zero. (next_record_w): Use sseek to position the file to
|
|
the max position reached.
|
|
|
|
2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/35036
|
|
* write_float.def (output_float): Add error checks for zero digits
|
|
after decimal point in E and D format specifiers.
|
|
|
|
2008-02-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/35063
|
|
* io/unit.c (destroy_unit_mutex): New function that uses
|
|
__gthread_mutex_destroy_function or pthread_mutex_destroy after
|
|
unlocking and before free_mem for final closure of I/O unit.
|
|
(delete_root): Use new function.
|
|
(free_internal_unit): Likewise.
|
|
(close_unit_1): Likewise.
|
|
|
|
2008-02-02 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/35001
|
|
* m4/shape.m4: Return 0 for extents <= 0.
|
|
* generated/shape_i4.c: Regenerated.
|
|
* generated/shape_i8.c: Regenerated.
|
|
* generated/shape_i16.c: Regenerated.
|
|
|
|
2008-01-27 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/34980
|
|
* m4/shape.m4: If return array is empty, return early.
|
|
* generated/shape_i4.c: Regenerated.
|
|
* generated/shape_i8.c: Regenerated.
|
|
* generated/shape_i16.c: Regenerated.
|
|
|
|
2008-01-26 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfofortran/34887
|
|
* io/transfer.c (next_record_w): Always move to the farthest
|
|
position when completing the record (also when we are
|
|
processing a slash edit descriptor).
|
|
|
|
2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/34876
|
|
* io/transfer.c (write_buf): Handle case of zero sized array.
|
|
(transfer_array): Set data pointer to NULL and size to zero. Then
|
|
make a data transfer and return.
|
|
|
|
2008-01-24 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
* configure: Regenerate.
|
|
|
|
2008-01-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/34795
|
|
* io/inquire.c (inquire_via_unit): If a unit is opened, return values
|
|
according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
|
|
(inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
|
|
FORAMATTED, and UNFORMATTED inquiries.
|
|
* io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
|
|
for files that are not opened. (inquire_direct): Same.
|
|
(inquire_formatted): Same.
|
|
|
|
2008-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/34782
|
|
* io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater
|
|
of the current max_pos or the newly calculated position.
|
|
|
|
2008-01-18 Tobias Burnus <burnus@net-b.de>
|
|
|
|
* io/write.c (write_real): Increase default precision
|
|
for REAL(16) by one.
|
|
|
|
2008-01-16 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
PR libfortran/34669
|
|
* mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
|
|
to avoid piping the -fdump-parse-tree output to the assembler
|
|
when configuring with -pipe.
|
|
* mk-sik-inc.sh: Likewise.
|
|
* mk-srk-inc.sh: Likewise.
|
|
|
|
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/34671
|
|
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
|
|
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
|
|
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
|
|
_gfortran_count_8_l Removed _gfortran_count_16_l16,
|
|
_gfortran_count_16_l4, _gfortran_count_16_l8,
|
|
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
|
|
_gfortran_count_8_l16, _gfortran_count_8_l4 and
|
|
_gfortran_count_8_l8.
|
|
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
|
|
i_any_c. Added generated/all_l1. and generated/all_l2.c to
|
|
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
|
|
generated/count_16_l4.c, generated/count_4_l8.c,
|
|
generated/count_8_l8.c, generated/count_16_l8.c,
|
|
generated/count_4_l16.c, generated/count_8_l16.c, and
|
|
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
|
|
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
|
|
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
|
|
any of the files generated from all.m4, any.m4 and count.m4.
|
|
* Makefile.in: Regenerated.
|
|
* m4/ifunction_logical.m4: New file. Use
|
|
GFC_LOGICAL_1 pointer for access to source arrays.
|
|
* m4/any.m4: Include ifunction_logical.m4 instead of
|
|
ifunction.m4. Don't check atype_name.
|
|
* m4/all.m4: Likewise.
|
|
* m4/count.m4: Likewise.
|
|
* generated/any_l1.c: New file.
|
|
* generated/any_l2.c: New file.
|
|
* generated/all_l1.c: New file.
|
|
* generated/count_1_l.c: New file.
|
|
* generated/count_2_l.c: New file.
|
|
* generated/count_4_l.c: New file.
|
|
* generated/count_8_l.c: New file.
|
|
* generated/count_16_l.c: New file.
|
|
* generated/any_l4.c: Regenerated.
|
|
* generated/any_l8.c: Regenerated.
|
|
* generated/any_l16.c: Regenerated.
|
|
* generated/all_l4.c: Regenerated.
|
|
* generated/all_l8.c: Regenerated.
|
|
* generated/all_l16.c: Regenerated.
|
|
* generated/count_4_l4.c: Removed.
|
|
* generated/count_4_l8.c: Removed.
|
|
* generated/count_4_l16.c: Removed.
|
|
* generated/count_8_l4.c: Removed.
|
|
* generated/count_8_l8.c: Removed.
|
|
* generated/count_8_l16.c: Removed.
|
|
* generated/count_16_l4.c: Removed.
|
|
* generated/count_16_l8.c: Removed.
|
|
* generated/count_16_l16.c: Removed.
|
|
|
|
2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/34746
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld
|
|
in printf format for all bounds checking; cast all
|
|
integer-like arguments to runtime_error() to long int.
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
* generated/all_l16.c: Regenerated.
|
|
* generated/all_l4.c: Regenerated.
|
|
* generated/all_l8.c: Regenerated.
|
|
* generated/any_l16.c: Regenerated.
|
|
* generated/any_l4.c: Regenerated.
|
|
* generated/any_l8.c: Regenerated.
|
|
* generated/count_16_l16.c: Regenerated.
|
|
* generated/count_16_l4.c: Regenerated.
|
|
* generated/count_16_l8.c: Regenerated.
|
|
* generated/count_4_l16.c: Regenerated.
|
|
* generated/count_4_l4.c: Regenerated.
|
|
* generated/count_4_l8.c: Regenerated.
|
|
* generated/count_8_l16.c: Regenerated.
|
|
* generated/count_8_l4.c: Regenerated.
|
|
* generated/count_8_l8.c: Regenerated.
|
|
* generated/maxloc0_16_i1.c: Regenerated.
|
|
* generated/maxloc0_16_i16.c: Regenerated.
|
|
* generated/maxloc0_16_i2.c: Regenerated.
|
|
* generated/maxloc0_16_i4.c: Regenerated.
|
|
* generated/maxloc0_16_i8.c: Regenerated.
|
|
* generated/maxloc0_16_r10.c: Regenerated.
|
|
* generated/maxloc0_16_r16.c: Regenerated.
|
|
* generated/maxloc0_16_r4.c: Regenerated.
|
|
* generated/maxloc0_16_r8.c: Regenerated.
|
|
* generated/maxloc0_4_i1.c: Regenerated.
|
|
* generated/maxloc0_4_i16.c: Regenerated.
|
|
* generated/maxloc0_4_i2.c: Regenerated.
|
|
* generated/maxloc0_4_i4.c: Regenerated.
|
|
* generated/maxloc0_4_i8.c: Regenerated.
|
|
* generated/maxloc0_4_r10.c: Regenerated.
|
|
* generated/maxloc0_4_r16.c: Regenerated.
|
|
* generated/maxloc0_4_r4.c: Regenerated.
|
|
* generated/maxloc0_4_r8.c: Regenerated.
|
|
* generated/maxloc0_8_i1.c: Regenerated.
|
|
* generated/maxloc0_8_i16.c: Regenerated.
|
|
* generated/maxloc0_8_i2.c: Regenerated.
|
|
* generated/maxloc0_8_i4.c: Regenerated.
|
|
* generated/maxloc0_8_i8.c: Regenerated.
|
|
* generated/maxloc0_8_r10.c: Regenerated.
|
|
* generated/maxloc0_8_r16.c: Regenerated.
|
|
* generated/maxloc0_8_r4.c: Regenerated.
|
|
* generated/maxloc0_8_r8.c: Regenerated.
|
|
* generated/maxloc1_16_i1.c: Regenerated.
|
|
* generated/maxloc1_16_i16.c: Regenerated.
|
|
* generated/maxloc1_16_i2.c: Regenerated.
|
|
* generated/maxloc1_16_i4.c: Regenerated.
|
|
* generated/maxloc1_16_i8.c: Regenerated.
|
|
* generated/maxloc1_16_r10.c: Regenerated.
|
|
* generated/maxloc1_16_r16.c: Regenerated.
|
|
* generated/maxloc1_16_r4.c: Regenerated.
|
|
* generated/maxloc1_16_r8.c: Regenerated.
|
|
* generated/maxloc1_4_i1.c: Regenerated.
|
|
* generated/maxloc1_4_i16.c: Regenerated.
|
|
* generated/maxloc1_4_i2.c: Regenerated.
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
|
* generated/maxloc1_4_r10.c: Regenerated.
|
|
* generated/maxloc1_4_r16.c: Regenerated.
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
|
* generated/maxloc1_8_i1.c: Regenerated.
|
|
* generated/maxloc1_8_i16.c: Regenerated.
|
|
* generated/maxloc1_8_i2.c: Regenerated.
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
|
* generated/maxloc1_8_r10.c: Regenerated.
|
|
* generated/maxloc1_8_r16.c: Regenerated.
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
|
* generated/maxval_i1.c: Regenerated.
|
|
* generated/maxval_i16.c: Regenerated.
|
|
* generated/maxval_i2.c: Regenerated.
|
|
* generated/maxval_i4.c: Regenerated.
|
|
* generated/maxval_i8.c: Regenerated.
|
|
* generated/maxval_r10.c: Regenerated.
|
|
* generated/maxval_r16.c: Regenerated.
|
|
* generated/maxval_r4.c: Regenerated.
|
|
* generated/maxval_r8.c: Regenerated.
|
|
* generated/minloc0_16_i1.c: Regenerated.
|
|
* generated/minloc0_16_i16.c: Regenerated.
|
|
* generated/minloc0_16_i2.c: Regenerated.
|
|
* generated/minloc0_16_i4.c: Regenerated.
|
|
* generated/minloc0_16_i8.c: Regenerated.
|
|
* generated/minloc0_16_r10.c: Regenerated.
|
|
* generated/minloc0_16_r16.c: Regenerated.
|
|
* generated/minloc0_16_r4.c: Regenerated.
|
|
* generated/minloc0_16_r8.c: Regenerated.
|
|
* generated/minloc0_4_i1.c: Regenerated.
|
|
* generated/minloc0_4_i16.c: Regenerated.
|
|
* generated/minloc0_4_i2.c: Regenerated.
|
|
* generated/minloc0_4_i4.c: Regenerated.
|
|
* generated/minloc0_4_i8.c: Regenerated.
|
|
* generated/minloc0_4_r10.c: Regenerated.
|
|
* generated/minloc0_4_r16.c: Regenerated.
|
|
* generated/minloc0_4_r4.c: Regenerated.
|
|
* generated/minloc0_4_r8.c: Regenerated.
|
|
* generated/minloc0_8_i1.c: Regenerated.
|
|
* generated/minloc0_8_i16.c: Regenerated.
|
|
* generated/minloc0_8_i2.c: Regenerated.
|
|
* generated/minloc0_8_i4.c: Regenerated.
|
|
* generated/minloc0_8_i8.c: Regenerated.
|
|
* generated/minloc0_8_r10.c: Regenerated.
|
|
* generated/minloc0_8_r16.c: Regenerated.
|
|
* generated/minloc0_8_r4.c: Regenerated.
|
|
* generated/minloc0_8_r8.c: Regenerated.
|
|
* generated/minloc1_16_i1.c: Regenerated.
|
|
* generated/minloc1_16_i16.c: Regenerated.
|
|
* generated/minloc1_16_i2.c: Regenerated.
|
|
* generated/minloc1_16_i4.c: Regenerated.
|
|
* generated/minloc1_16_i8.c: Regenerated.
|
|
* generated/minloc1_16_r10.c: Regenerated.
|
|
* generated/minloc1_16_r16.c: Regenerated.
|
|
* generated/minloc1_16_r4.c: Regenerated.
|
|
* generated/minloc1_16_r8.c: Regenerated.
|
|
* generated/minloc1_4_i1.c: Regenerated.
|
|
* generated/minloc1_4_i16.c: Regenerated.
|
|
* generated/minloc1_4_i2.c: Regenerated.
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
|
* generated/minloc1_4_r10.c: Regenerated.
|
|
* generated/minloc1_4_r16.c: Regenerated.
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
|
* generated/minloc1_8_i1.c: Regenerated.
|
|
* generated/minloc1_8_i16.c: Regenerated.
|
|
* generated/minloc1_8_i2.c: Regenerated.
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
|
* generated/minloc1_8_r10.c: Regenerated.
|
|
* generated/minloc1_8_r16.c: Regenerated.
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
|
* generated/minval_i1.c: Regenerated.
|
|
* generated/minval_i16.c: Regenerated.
|
|
* generated/minval_i2.c: Regenerated.
|
|
* generated/minval_i4.c: Regenerated.
|
|
* generated/minval_i8.c: Regenerated.
|
|
* generated/minval_r10.c: Regenerated.
|
|
* generated/minval_r16.c: Regenerated.
|
|
* generated/minval_r4.c: Regenerated.
|
|
* generated/minval_r8.c: Regenerated.
|
|
* generated/product_c10.c: Regenerated.
|
|
* generated/product_c16.c: Regenerated.
|
|
* generated/product_c4.c: Regenerated.
|
|
* generated/product_c8.c: Regenerated.
|
|
* generated/product_i1.c: Regenerated.
|
|
* generated/product_i16.c: Regenerated.
|
|
* generated/product_i2.c: Regenerated.
|
|
* generated/product_i4.c: Regenerated.
|
|
* generated/product_i8.c: Regenerated.
|
|
* generated/product_r10.c: Regenerated.
|
|
* generated/product_r16.c: Regenerated.
|
|
* generated/product_r4.c: Regenerated.
|
|
* generated/product_r8.c: Regenerated.
|
|
* generated/sum_c10.c: Regenerated.
|
|
* generated/sum_c16.c: Regenerated.
|
|
* generated/sum_c4.c: Regenerated.
|
|
* generated/sum_c8.c: Regenerated.
|
|
* generated/sum_i1.c: Regenerated.
|
|
* generated/sum_i16.c: Regenerated.
|
|
* generated/sum_i2.c: Regenerated.
|
|
* generated/sum_i4.c: Regenerated.
|
|
* generated/sum_i8.c: Regenerated.
|
|
* generated/sum_r10.c: Regenerated.
|
|
* generated/sum_r16.c: Regenerated.
|
|
* generated/sum_r4.c: Regenerated.
|
|
* generated/sum_r8.c: Regenerated.
|
|
|
|
2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/34670
|
|
* m4/iparm.m4 (upcase): New macro (copied from the m4 manual).
|
|
(u_name): New macro for the upper case name of the intrinsic.
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Add
|
|
bounds checking and rank check, depending on
|
|
compile_options.bounds_check.
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Add
|
|
bounds checking and rank check, depending on
|
|
compile_options.bounds_check.
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
(`s'name`'rtype_qual`_'atype_code): Likewise.
|
|
* generated/all_l16.c: Regenerated.
|
|
* generated/all_l4.c: Regenerated.
|
|
* generated/all_l8.c: Regenerated.
|
|
* generated/any_l16.c: Regenerated.
|
|
* generated/any_l4.c: Regenerated.
|
|
* generated/any_l8.c: Regenerated.
|
|
* generated/count_16_l16.c: Regenerated.
|
|
* generated/count_16_l4.c: Regenerated.
|
|
* generated/count_16_l8.c: Regenerated.
|
|
* generated/count_4_l16.c: Regenerated.
|
|
* generated/count_4_l4.c: Regenerated.
|
|
* generated/count_4_l8.c: Regenerated.
|
|
* generated/count_8_l16.c: Regenerated.
|
|
* generated/count_8_l4.c: Regenerated.
|
|
* generated/count_8_l8.c: Regenerated.
|
|
* generated/maxloc0_16_i1.c: Regenerated.
|
|
* generated/maxloc0_16_i16.c: Regenerated.
|
|
* generated/maxloc0_16_i2.c: Regenerated.
|
|
* generated/maxloc0_16_i4.c: Regenerated.
|
|
* generated/maxloc0_16_i8.c: Regenerated.
|
|
* generated/maxloc0_16_r10.c: Regenerated.
|
|
* generated/maxloc0_16_r16.c: Regenerated.
|
|
* generated/maxloc0_16_r4.c: Regenerated.
|
|
* generated/maxloc0_16_r8.c: Regenerated.
|
|
* generated/maxloc0_4_i1.c: Regenerated.
|
|
* generated/maxloc0_4_i16.c: Regenerated.
|
|
* generated/maxloc0_4_i2.c: Regenerated.
|
|
* generated/maxloc0_4_i4.c: Regenerated.
|
|
* generated/maxloc0_4_i8.c: Regenerated.
|
|
* generated/maxloc0_4_r10.c: Regenerated.
|
|
* generated/maxloc0_4_r16.c: Regenerated.
|
|
* generated/maxloc0_4_r4.c: Regenerated.
|
|
* generated/maxloc0_4_r8.c: Regenerated.
|
|
* generated/maxloc0_8_i1.c: Regenerated.
|
|
* generated/maxloc0_8_i16.c: Regenerated.
|
|
* generated/maxloc0_8_i2.c: Regenerated.
|
|
* generated/maxloc0_8_i4.c: Regenerated.
|
|
* generated/maxloc0_8_i8.c: Regenerated.
|
|
* generated/maxloc0_8_r10.c: Regenerated.
|
|
* generated/maxloc0_8_r16.c: Regenerated.
|
|
* generated/maxloc0_8_r4.c: Regenerated.
|
|
* generated/maxloc0_8_r8.c: Regenerated.
|
|
* generated/maxloc1_16_i1.c: Regenerated.
|
|
* generated/maxloc1_16_i16.c: Regenerated.
|
|
* generated/maxloc1_16_i2.c: Regenerated.
|
|
* generated/maxloc1_16_i4.c: Regenerated.
|
|
* generated/maxloc1_16_i8.c: Regenerated.
|
|
* generated/maxloc1_16_r10.c: Regenerated.
|
|
* generated/maxloc1_16_r16.c: Regenerated.
|
|
* generated/maxloc1_16_r4.c: Regenerated.
|
|
* generated/maxloc1_16_r8.c: Regenerated.
|
|
* generated/maxloc1_4_i1.c: Regenerated.
|
|
* generated/maxloc1_4_i16.c: Regenerated.
|
|
* generated/maxloc1_4_i2.c: Regenerated.
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
|
* generated/maxloc1_4_r10.c: Regenerated.
|
|
* generated/maxloc1_4_r16.c: Regenerated.
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
|
* generated/maxloc1_8_i1.c: Regenerated.
|
|
* generated/maxloc1_8_i16.c: Regenerated.
|
|
* generated/maxloc1_8_i2.c: Regenerated.
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
|
* generated/maxloc1_8_r10.c: Regenerated.
|
|
* generated/maxloc1_8_r16.c: Regenerated.
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
|
* generated/maxval_i1.c: Regenerated.
|
|
* generated/maxval_i16.c: Regenerated.
|
|
* generated/maxval_i2.c: Regenerated.
|
|
* generated/maxval_i4.c: Regenerated.
|
|
* generated/maxval_i8.c: Regenerated.
|
|
* generated/maxval_r10.c: Regenerated.
|
|
* generated/maxval_r16.c: Regenerated.
|
|
* generated/maxval_r4.c: Regenerated.
|
|
* generated/maxval_r8.c: Regenerated.
|
|
* generated/minloc0_16_i1.c: Regenerated.
|
|
* generated/minloc0_16_i16.c: Regenerated.
|
|
* generated/minloc0_16_i2.c: Regenerated.
|
|
* generated/minloc0_16_i4.c: Regenerated.
|
|
* generated/minloc0_16_i8.c: Regenerated.
|
|
* generated/minloc0_16_r10.c: Regenerated.
|
|
* generated/minloc0_16_r16.c: Regenerated.
|
|
* generated/minloc0_16_r4.c: Regenerated.
|
|
* generated/minloc0_16_r8.c: Regenerated.
|
|
* generated/minloc0_4_i1.c: Regenerated.
|
|
* generated/minloc0_4_i16.c: Regenerated.
|
|
* generated/minloc0_4_i2.c: Regenerated.
|
|
* generated/minloc0_4_i4.c: Regenerated.
|
|
* generated/minloc0_4_i8.c: Regenerated.
|
|
* generated/minloc0_4_r10.c: Regenerated.
|
|
* generated/minloc0_4_r16.c: Regenerated.
|
|
* generated/minloc0_4_r4.c: Regenerated.
|
|
* generated/minloc0_4_r8.c: Regenerated.
|
|
* generated/minloc0_8_i1.c: Regenerated.
|
|
* generated/minloc0_8_i16.c: Regenerated.
|
|
* generated/minloc0_8_i2.c: Regenerated.
|
|
* generated/minloc0_8_i4.c: Regenerated.
|
|
* generated/minloc0_8_i8.c: Regenerated.
|
|
* generated/minloc0_8_r10.c: Regenerated.
|
|
* generated/minloc0_8_r16.c: Regenerated.
|
|
* generated/minloc0_8_r4.c: Regenerated.
|
|
* generated/minloc0_8_r8.c: Regenerated.
|
|
* generated/minloc1_16_i1.c: Regenerated.
|
|
* generated/minloc1_16_i16.c: Regenerated.
|
|
* generated/minloc1_16_i2.c: Regenerated.
|
|
* generated/minloc1_16_i4.c: Regenerated.
|
|
* generated/minloc1_16_i8.c: Regenerated.
|
|
* generated/minloc1_16_r10.c: Regenerated.
|
|
* generated/minloc1_16_r16.c: Regenerated.
|
|
* generated/minloc1_16_r4.c: Regenerated.
|
|
* generated/minloc1_16_r8.c: Regenerated.
|
|
* generated/minloc1_4_i1.c: Regenerated.
|
|
* generated/minloc1_4_i16.c: Regenerated.
|
|
* generated/minloc1_4_i2.c: Regenerated.
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
|
* generated/minloc1_4_r10.c: Regenerated.
|
|
* generated/minloc1_4_r16.c: Regenerated.
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
|
* generated/minloc1_8_i1.c: Regenerated.
|
|
* generated/minloc1_8_i16.c: Regenerated.
|
|
* generated/minloc1_8_i2.c: Regenerated.
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
|
* generated/minloc1_8_r10.c: Regenerated.
|
|
* generated/minloc1_8_r16.c: Regenerated.
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
|
* generated/minval_i1.c: Regenerated.
|
|
* generated/minval_i16.c: Regenerated.
|
|
* generated/minval_i2.c: Regenerated.
|
|
* generated/minval_i4.c: Regenerated.
|
|
* generated/minval_i8.c: Regenerated.
|
|
* generated/minval_r10.c: Regenerated.
|
|
* generated/minval_r16.c: Regenerated.
|
|
* generated/minval_r4.c: Regenerated.
|
|
* generated/minval_r8.c: Regenerated.
|
|
* generated/product_c10.c: Regenerated.
|
|
* generated/product_c16.c: Regenerated.
|
|
* generated/product_c4.c: Regenerated.
|
|
* generated/product_c8.c: Regenerated.
|
|
* generated/product_i1.c: Regenerated.
|
|
* generated/product_i16.c: Regenerated.
|
|
* generated/product_i2.c: Regenerated.
|
|
* generated/product_i4.c: Regenerated.
|
|
* generated/product_i8.c: Regenerated.
|
|
* generated/product_r10.c: Regenerated.
|
|
* generated/product_r16.c: Regenerated.
|
|
* generated/product_r4.c: Regenerated.
|
|
* generated/product_r8.c: Regenerated.
|
|
* generated/sum_c10.c: Regenerated.
|
|
* generated/sum_c16.c: Regenerated.
|
|
* generated/sum_c4.c: Regenerated.
|
|
* generated/sum_c8.c: Regenerated.
|
|
* generated/sum_i1.c: Regenerated.
|
|
* generated/sum_i16.c: Regenerated.
|
|
* generated/sum_i2.c: Regenerated.
|
|
* generated/sum_i4.c: Regenerated.
|
|
* generated/sum_i8.c: Regenerated.
|
|
* generated/sum_r10.c: Regenerated.
|
|
* generated/sum_r16.c: Regenerated.
|
|
* generated/sum_r4.c: Regenerated.
|
|
* generated/sum_r8.c: Regenerated.
|
|
|
|
2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
PR libfortran/34676
|
|
* io/list_read.c (next_char): Only save the EOF condition for later if
|
|
advance="no".
|
|
|
|
2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
PR libfortran/34565
|
|
* io/io.h: Adjust protoypes for open_internal(),
|
|
next_array_record() and init_loop_spec().
|
|
* io/list_read.c (next_char): Use argument "finished"
|
|
of next_array_record to check for end on internal file.
|
|
* io/unit.c: Calculate the offset for an array
|
|
internal file and supply this informatin to open_internal().
|
|
* io/unix.c (open_internal): Set the offset for the internal
|
|
file on open.
|
|
* io/transfer.c (init_loop_spec): Calculate the starting
|
|
record in case of negative strides. Return size of 0 for
|
|
an empty array.
|
|
(next_array_record): Use an extra flag to signal that the
|
|
array is finished.
|
|
(next_record_r): Use the new flag to next_array_record().
|
|
(next_record_w): Likewise.
|