2005-09-24 10:39:35 +02:00
|
|
|
2005-09-24 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23380
|
|
|
|
|
* intrinsics/cpu_time.c (__cpu_time_1): Provide a MS Windows
|
|
|
|
|
version.
|
|
|
|
|
|
2005-09-14 22:18:19 +02:00
|
|
|
2005-09-14 Jerry DeLisle <jvdelisle@verizon.net
|
|
|
|
|
|
|
|
|
|
PR fortran/21875 Internal Unit Array I/O, NIST
|
|
|
|
|
* libgfortran.h: Add run time error code for array stride.
|
|
|
|
|
* runtime/error.c (translate_error): Add error message for
|
|
|
|
|
array stride.
|
|
|
|
|
* io/io.h: Add array descriptor pointer to IOPARM structure.
|
|
|
|
|
Add prtotypes for two new functions.
|
|
|
|
|
* io/transfer.c (data_transfer_init): Removed initialization and
|
|
|
|
|
moved to unit.c (get_unit)
|
|
|
|
|
* io/transfer.c (next_record_r): Include internal unit read
|
|
|
|
|
functionality.
|
|
|
|
|
* io/transfer.c (next_record_w): Include internal unit write
|
|
|
|
|
functionality, including padding of character array records.
|
|
|
|
|
* io/unit.c (get_array_unit_len): New function to return the number
|
|
|
|
|
of records in the character array 'file' from the array descriptor.
|
|
|
|
|
* io/unit.c (get_unit): Gathered initialization code from
|
|
|
|
|
init_data_transfer for internal units and added initialization of
|
|
|
|
|
character array unit.
|
|
|
|
|
* io/unit.c (is_array_io): New function to determine if internal unit
|
|
|
|
|
is an array.
|
|
|
|
|
* io/unix.c (mem_alloc_w_at): Add error checks for bad record length
|
|
|
|
|
and end of file.
|
|
|
|
|
|
re PR fortran/19269 (transpose(reshape(...)) of character array segfaults.)
gcc/fortran/
PR target/19269
* iresolve.c (gfc_resolve_cshift, gfc_resolve_eoshift)
(gfc_resolve_pack, gfc_resolve_reshape, gfc_resolve_spread)
(gfc_resolve_transpose, gfc_resolve_unpack): Add "_char" to the name
for character-based operations.
(gfc_resolve_pack): Remove ATTRIBUTE_UNUSED from array argument.
(gfc_resolve_unpack): Copy the whole typespec from the vector.
* trans-array.c (gfc_conv_expr_descriptor): In the EXPR_FUNCTION
case, get the string length from the scalarization state.
libgfortran/
PR target/19269
* intrinsics/cshift0.c (cshift0): Add an extra size argument.
(cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
implementations with...
(DEFINE_CSHIFT): ...this new macro. Define character versions too.
* intrinsics/eoshift0.c (zeros): Delete.
(eoshift0): Add extra size and filler arguments. Use memset if no
bound is provided.
(eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
implementations with...
(DEFINE_EOSHIFT): ...this new macro. Define character versions too.
* intrinsics/eoshift2.c (zeros): Delete.
(eoshift2): Add extra size and filler arguments. Use memset if no
bound is provided.
(eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
implementations with...
(DEFINE_EOSHIFT): ...this new macro. Define character versions too.
* intrinsics/pack.c (pack_internal): New static function, reusing
the contents of pack and adding an extra size argument. Change
"mptr" rather than "m" when calculating the array size.
(pack): Redefine as a forwarder to pack_internal.
(pack_s_internal): New static function, reusing the contents of
pack_s and adding an extra size argument.
(pack_s): Redefine as a forwarder to pack_s_internal.
(pack_char, pack_s_char): New functions.
* intrinsics/reshape.c (reshape_internal): New static function,
reusing the contents of reshape and adding an extra size argument.
(reshape): Redefine as a forwarder to reshape_internal.
(reshape_char): New function.
* intrinsics/spread.c (spread_internal): New static function,
reusing the contents of spread and adding an extra size argument.
(spread): Redefine as a forwarder to spread_internal.
(spread_char): New function.
* intrinsics/transpose.c (transpose_internal): New static function,
reusing the contents of transpose and adding an extra size argument.
(transpose): Redefine as a forwarder to transpose_internal.
(transpose_char): New function.
* intrinsics/unpack.c (unpack_internal): New static function, reusing
the contents of unpack1 and adding extra size and fsize arguments.
(unpack1): Redefine as a forwarder to unpack_internal.
(unpack0): Call unpack_internal instead of unpack1.
(unpack1_char, unpack0_char): New functions.
* m4/cshift1.m4 (cshift1): New static function, reusing the contents
of cshift1_<kind> and adding an extra size argument.
(cshift1_<kind>): Redefine as a forwarder to cshift1.
(cshift1_<kind>_char): New function.
* m4/eoshift1.m4 (zeros): Delete.
(eoshift1): New static function, reusing the contents of
eoshift1_<kind> and adding extra size and filler arguments.
Fix calculation of hstride. Use memset if no bound is provided.
(eoshift1_<kind>): Redefine as a forwarder to eoshift1.
(eoshift1_<kind>_char): New function.
* m4/eoshift3.m4 (zeros): Delete.
(eoshift3): New static function, reusing the contents of
eoshift3_<kind> and adding extra size and filler arguments.
Use memset if no bound is provided.
(eoshift3_<kind>): Redefine as a forwarder to eoshift3.
(eoshift3_<kind>_char): New function.
* generated/cshift1_4.c, generated/cshift1_8.c,
* generated/eoshift1_4.c, generated/eoshift1_8.c,
* generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.
From-SVN: r104217
2005-09-13 09:15:01 +02:00
|
|
|
2005-09-13 Richard Sandiford <richard@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR target/19269
|
|
|
|
|
* intrinsics/cshift0.c (cshift0): Add an extra size argument.
|
|
|
|
|
(cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
|
|
|
|
|
implementations with...
|
|
|
|
|
(DEFINE_CSHIFT): ...this new macro. Define character versions too.
|
|
|
|
|
* intrinsics/eoshift0.c (zeros): Delete.
|
|
|
|
|
(eoshift0): Add extra size and filler arguments. Use memset if no
|
|
|
|
|
bound is provided.
|
|
|
|
|
(eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
|
|
|
|
|
implementations with...
|
|
|
|
|
(DEFINE_EOSHIFT): ...this new macro. Define character versions too.
|
|
|
|
|
* intrinsics/eoshift2.c (zeros): Delete.
|
|
|
|
|
(eoshift2): Add extra size and filler arguments. Use memset if no
|
|
|
|
|
bound is provided.
|
|
|
|
|
(eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
|
|
|
|
|
implementations with...
|
|
|
|
|
(DEFINE_EOSHIFT): ...this new macro. Define character versions too.
|
|
|
|
|
* intrinsics/pack.c (pack_internal): New static function, reusing
|
|
|
|
|
the contents of pack and adding an extra size argument. Change
|
|
|
|
|
"mptr" rather than "m" when calculating the array size.
|
|
|
|
|
(pack): Redefine as a forwarder to pack_internal.
|
|
|
|
|
(pack_s_internal): New static function, reusing the contents of
|
|
|
|
|
pack_s and adding an extra size argument.
|
|
|
|
|
(pack_s): Redefine as a forwarder to pack_s_internal.
|
|
|
|
|
(pack_char, pack_s_char): New functions.
|
|
|
|
|
* intrinsics/reshape.c (reshape_internal): New static function,
|
|
|
|
|
reusing the contents of reshape and adding an extra size argument.
|
|
|
|
|
(reshape): Redefine as a forwarder to reshape_internal.
|
|
|
|
|
(reshape_char): New function.
|
|
|
|
|
* intrinsics/spread.c (spread_internal): New static function,
|
|
|
|
|
reusing the contents of spread and adding an extra size argument.
|
|
|
|
|
(spread): Redefine as a forwarder to spread_internal.
|
|
|
|
|
(spread_char): New function.
|
|
|
|
|
* intrinsics/transpose.c (transpose_internal): New static function,
|
|
|
|
|
reusing the contents of transpose and adding an extra size argument.
|
|
|
|
|
(transpose): Redefine as a forwarder to transpose_internal.
|
|
|
|
|
(transpose_char): New function.
|
|
|
|
|
* intrinsics/unpack.c (unpack_internal): New static function, reusing
|
|
|
|
|
the contents of unpack1 and adding extra size and fsize arguments.
|
|
|
|
|
(unpack1): Redefine as a forwarder to unpack_internal.
|
|
|
|
|
(unpack0): Call unpack_internal instead of unpack1.
|
|
|
|
|
(unpack1_char, unpack0_char): New functions.
|
|
|
|
|
* m4/cshift1.m4 (cshift1): New static function, reusing the contents
|
|
|
|
|
of cshift1_<kind> and adding an extra size argument.
|
|
|
|
|
(cshift1_<kind>): Redefine as a forwarder to cshift1.
|
|
|
|
|
(cshift1_<kind>_char): New function.
|
|
|
|
|
* m4/eoshift1.m4 (zeros): Delete.
|
|
|
|
|
(eoshift1): New static function, reusing the contents of
|
|
|
|
|
eoshift1_<kind> and adding extra size and filler arguments.
|
|
|
|
|
Fix calculation of hstride. Use memset if no bound is provided.
|
|
|
|
|
(eoshift1_<kind>): Redefine as a forwarder to eoshift1.
|
|
|
|
|
(eoshift1_<kind>_char): New function.
|
|
|
|
|
* m4/eoshift3.m4 (zeros): Delete.
|
|
|
|
|
(eoshift3): New static function, reusing the contents of
|
|
|
|
|
eoshift3_<kind> and adding extra size and filler arguments.
|
|
|
|
|
Use memset if no bound is provided.
|
|
|
|
|
(eoshift3_<kind>): Redefine as a forwarder to eoshift3.
|
|
|
|
|
(eoshift3_<kind>_char): New function.
|
|
|
|
|
* generated/cshift1_4.c, generated/cshift1_8.c,
|
|
|
|
|
* generated/eoshift1_4.c, generated/eoshift1_8.c,
|
|
|
|
|
* generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.
|
|
|
|
|
|
2005-09-11 15:34:57 +02:00
|
|
|
2005-09-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20179
|
|
|
|
|
* io/unix.c (is_preconnected): Add function to test if a stream
|
|
|
|
|
corresponds to a preconnected unit.
|
|
|
|
|
* io/io.h: Add prototype for is_preconnected.
|
|
|
|
|
* io/transfer.c (data_transfer_init): Do not truncate
|
|
|
|
|
preconnected units.
|
|
|
|
|
|
2005-09-10 18:31:28 +02:00
|
|
|
2005-09-10 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
|
|
|
|
|
* io/unix.c: Remove mmap code.
|
|
|
|
|
|
2005-09-09 23:51:33 +02:00
|
|
|
2005-09-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23784
|
|
|
|
|
* io/close.c (st_close): Call library_end even in case of error.
|
|
|
|
|
|
gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos,
gfc_inquire and gfc_dt.
* dump-parse-tree.c (gfc_show_code_node): Add iomsg
for open, close, file positioning, inquire and namelist.
* io.c (io_tag): Add tag_iomsg.
(resolve_tag): Add standards warning for iomsg.
(match_open_element): Add iomsg.
(gfc_free_open): Add iomsg.
(gfc_resolve_open): Add iomsg.
(gfc_free_close): Add iomsg.
(match_close_element): Add iomsg.
(gfc_resolve_close): Add iomsg.
(gfc_free_filepos): Add iomsg.
(match_file_element): Add iomsg.
(gfc_resolve_filepos): Add iostat and iomsg.
(match-dt_element): Add iomsg.
(gfc_free_dt): Add iomsg.
(gfc_resolve_dt): Add iomsg.
(gfc_free_inquire): Add iomsg.
(match_inquire_element): Add iomsg.
(gfc_resolve_inquire): Add iomsg.
* trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len.
(gfc_build_io_library_fndecls): Add iomsg as last field.
(gfc_trans_open): Add iomsg.
(gfc_trans_close): Add iomsg.
(build_fileos): Call set_string for iomsg.
(gfc_trans_inquire): Add iomsg.
(build_dt): Add iomsg.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
* runtime/error.c (generate_error): If iomsg is present, copy
the message there.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/iomsg_1.f90: New test case.
From-SVN: r104102
2005-09-09 20:21:45 +02:00
|
|
|
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
* io/io.h: Add iomsg as last field of st_parameter.
|
|
|
|
|
* runtime/error.c (generate_error): If iomsg is present, copy
|
|
|
|
|
the message there.
|
|
|
|
|
|
2005-09-09 08:00:40 +02:00
|
|
|
2005-09-09 Richard Sandiford <richard@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/12840
|
|
|
|
|
* runtime/memory.c (internal_malloc_size): Return a null pointer
|
|
|
|
|
if the size is zero.
|
|
|
|
|
(internal_free): Do nothing if the pointer is null.
|
|
|
|
|
(internal_realloc_size, internal_realloc, internal_realloc64): New.
|
|
|
|
|
|
2005-09-07 23:25:40 +02:00
|
|
|
2005-09-07 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23262
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_CRLF): New check.
|
|
|
|
|
* configure.ac: Use new check.
|
|
|
|
|
* configure.in: Regenerate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* io/transfer.c (next_record_w): Add case for CRLF as line
|
|
|
|
|
terminator.
|
|
|
|
|
* io/unix.c (tempfile, regular_file): Open files with
|
|
|
|
|
O_BINARY on systems with CRLF.
|
|
|
|
|
|
2005-09-07 22:16:47 +02:00
|
|
|
2005-09-07 Steve Ellcey <sje@cup.hp.com>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23419
|
|
|
|
|
* io/write.c (extract_int): Use memcpy to access buffer.
|
|
|
|
|
(extract_uint): Ditto.
|
|
|
|
|
(extract_real): Ditto.
|
|
|
|
|
|
2005-09-05 23:13:39 +02:00
|
|
|
2005-09-05 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
* io/list_read.c: Adjust size of of value to 32 (to hold
|
|
|
|
|
kind=16 complex values).
|
|
|
|
|
|
2005-09-04 22:36:52 +02:00
|
|
|
2005-09-04 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23321
|
|
|
|
|
* io/transfer.c(data_transfer_init): Check for a too-large
|
|
|
|
|
record number. Return if sseek failed.
|
|
|
|
|
|
2005-09-03 20:54:55 +02:00
|
|
|
2005-09-03 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
* io/read.c (read_x): Take int argument instead of fnode * and
|
|
|
|
|
digging the N from F->u.n.
|
|
|
|
|
* io/io.h (read_x): Adjust prototype.
|
|
|
|
|
* io/transfer.c (formatted_transfer): Adjust callers. Don't clobber
|
|
|
|
|
f->u.n for FMT_T.
|
|
|
|
|
|
2005-09-02 22:24:49 +02:00
|
|
|
2005-09-02 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (stream_ttyname): Protect use of ttyname by
|
|
|
|
|
HAVE_TTYNAME macro.
|
|
|
|
|
* configure.ac: Add check for ttyname.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2005-09-02 15:29:53 +02:00
|
|
|
2005-09-02 Andreas Jaeger <aj@suse.de>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h: Add prototype for init_compile_options.
|
|
|
|
|
|
|
|
|
|
* io/io.h: Add prototype for notify_std.
|
|
|
|
|
|
2005-08-31 19:05:52 +02:00
|
|
|
2005-08-31 Steve Ellcey <sje@cup.hp.com>
|
|
|
|
|
|
|
|
|
|
* io/read.c (set_integer): Use memcpy to fill buffer.
|
|
|
|
|
|
2005-08-31 18:58:28 +02:00
|
|
|
2005-08-31 Steve Ellcey <sje@cup.hp.com>
|
|
|
|
|
|
|
|
|
|
PR target/23556
|
|
|
|
|
* io/read.c (convert_real): Use memcpy to fill buffer.
|
|
|
|
|
|
2005-08-29 22:40:02 +02:00
|
|
|
2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23598
|
|
|
|
|
* io/lock.c(library_start): If ioparm.iostat is present, clear
|
|
|
|
|
it unconditionally.
|
|
|
|
|
|
2005-08-27 18:01:54 +02:00
|
|
|
2005-08-27 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_UNLINK_OPEN_FILE): Add check to see
|
|
|
|
|
if target can unlink open files.
|
|
|
|
|
* configure.ac: Use this new test.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* aclocal.ac: Regenerate.
|
|
|
|
|
* io/io.h: Add prototype for unpack_filename.
|
|
|
|
|
* io/close.c (st_close): Delete file after closing unit if
|
2005-09-02 15:29:53 +02:00
|
|
|
HAVE_UNLINK_OPEN_FILE is not defined.
|
2005-08-27 18:01:54 +02:00
|
|
|
* io/unix.c (unpack_filename): Unlink scratch file after opening
|
|
|
|
|
it only if HAVE_UNLINK_OPEN_FILE is defined.
|
|
|
|
|
|
2005-08-17 04:49:08 +02:00
|
|
|
2005-08-17 Kelley Cook <kcook@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* All files: Update FSF address.
|
|
|
|
|
|
2005-08-16 22:26:04 +02:00
|
|
|
2005-08-16 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23428
|
|
|
|
|
* io/transfer.c (iolength_transfer): Remove __attribute__ ((unused))
|
|
|
|
|
from type. Return correct length for inquire(iolength=)
|
|
|
|
|
for complex variables.
|
|
|
|
|
|
2005-08-12 08:00:46 +02:00
|
|
|
2005-08-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
2005-08-11 15:50:13 +02:00
|
|
|
Steven Bosscher <stevenb@suse.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20006
|
|
|
|
|
* Makefile.am: Add file runtime/compile_options.c.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* libgfortran.h: Create structure compile_options_t. Define the
|
|
|
|
|
compile_options variable and GFC_STD_ macros.
|
|
|
|
|
* runtime/compile_options.c: New file.
|
|
|
|
|
* runtime/error.c (notify_std): New function.
|
|
|
|
|
* runtime/main.c (init): Call init_compile_options during
|
|
|
|
|
initialization.
|
|
|
|
|
* io/format.c: Use the new notify_std function for the $
|
|
|
|
|
descriptor extension.
|
|
|
|
|
|
2005-08-09 19:33:17 +02:00
|
|
|
2005-08-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
* Makefile.am: Add file intrinsics/tty.c to Makefile process.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* io/io.h: Prototypes for new functions stream_isatty and
|
|
|
|
|
stream_ttyname.
|
|
|
|
|
* io/unix (stream_isatty, stream_ttyname): New functions to call
|
|
|
|
|
isatty() and ttyname() on a given unit.
|
|
|
|
|
* intrinsics/tty.c: New file to implement g77 intrinsics TTYNAM
|
|
|
|
|
and ISATTY.
|
|
|
|
|
|
2005-08-09 03:56:04 +02:00
|
|
|
2005-08-08 Jerry DeLisle <jvdelisle@verizon.net>
|
|
|
|
|
|
2005-08-09 19:33:17 +02:00
|
|
|
PR libfortran/23154
|
|
|
|
|
* io/transfer.c (data_transfer_init): Initialize
|
|
|
|
|
current_unit->bytes_left for a read.
|
|
|
|
|
|
2005-08-08 00:56:19 +02:00
|
|
|
2005-08-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
|
|
|
|
|
PR fortran/22390
|
|
|
|
|
* io/backspace.c: File removed, contents moved to ...
|
|
|
|
|
* io/endfile.c: Ditto.
|
|
|
|
|
* io/rewind.c: Ditto.
|
|
|
|
|
* io/file_pos.c: New file, ... here.
|
|
|
|
|
* Makefile.am: Add file_pos.c to list, remove obsolete files.
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
|
2005-08-07 00:57:46 +02:00
|
|
|
2005-08-07 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* io/io.h: Change DEFAULT_TEMPDIR to /tmp instead of /var/tmp.
|
|
|
|
|
* io/unix.c (tempfile): Look at the TEMP environment variable
|
|
|
|
|
to find the temporary files directory. Whitespace correction.
|
|
|
|
|
|
|
|
|
|
2005-08-06 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
2005-08-06 17:38:49 +02:00
|
|
|
|
|
|
|
|
* io/unix.c: Add O_RDWR to open() call.
|
|
|
|
|
|
2005-08-04 22:26:29 +02:00
|
|
|
2005-08-04 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* transfer.c (data_transfer_init): Truncate file in
|
|
|
|
|
sequential WRITE when last_record == 0, rather than
|
|
|
|
|
current_record. Cures problem on RH9.
|
|
|
|
|
|
2005-08-03 22:00:00 +02:00
|
|
|
2005-08-03 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h: When isfinite is not provided by the system,
|
|
|
|
|
define it as a macro, so that it can accept any floating point
|
|
|
|
|
type.
|
|
|
|
|
|
2005-08-01 23:13:39 +02:00
|
|
|
2005-08-01 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/23178
|
|
|
|
|
* intrinsics/flush.c (flush_i8): Add function flush_i8. Update
|
|
|
|
|
copyright years.
|
|
|
|
|
|
2005-07-31 09:30:34 +02:00
|
|
|
2005-07-31 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21787
|
|
|
|
|
* intrinsics/abort.c (abort): Close units before aborting.
|
|
|
|
|
Updated copyright years.
|
|
|
|
|
|
2005-07-30 22:45:02 +02:00
|
|
|
2005-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22436
|
|
|
|
|
* io/write.c (write_real): Add default formats for real(10) and
|
|
|
|
|
real(16).
|
|
|
|
|
|
2005-07-30 07:33:39 +02:00
|
|
|
2005-07-30 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR fortran/22570 and related issues.
|
|
|
|
|
* transfer.c (formatted_transfer): Make sure that there
|
|
|
|
|
really is data present before X- or T- editing. Move all
|
|
|
|
|
treatment of tabbing during writes to start of next data
|
|
|
|
|
producing format. Suppress incorrect zeroing of bytes_left
|
|
|
|
|
in slash formating. Insert int cast for assignment of a
|
|
|
|
|
difference of two gfc_offsets.
|
|
|
|
|
|
2005-07-24 04:24:15 +02:00
|
|
|
2005-07-23 Jerry DeLisle <jvdelisle@verizon.net>
|
|
|
|
|
|
2005-07-24 12:37:48 +02:00
|
|
|
* io/write.c (write_float): Revise output of IEEE exceptional
|
|
|
|
|
values to comply with F95 and F2003 standards.
|
|
|
|
|
|
2005-07-22 19:43:31 +02:00
|
|
|
2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22570
|
|
|
|
|
* io/unit.c (init_units): Replace BLANK_ZERO with
|
|
|
|
|
BLANK_UNSPECIFIED.
|
|
|
|
|
|
2005-07-22 16:07:19 +02:00
|
|
|
2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21875 (FM111.f)
|
|
|
|
|
* io/read.c (next_char): Return a ' ' character when BLANK_ZERO
|
|
|
|
|
or BLANK_NULL are active.
|
|
|
|
|
(read_decimal): Interpret ' ' character correctly for BZ or BN.
|
|
|
|
|
(read_radix): Interpret ' ' character correctly for BZ or BN.
|
|
|
|
|
(read_f): Interpret ' ' character correctly for BZ or BN.
|
|
|
|
|
|
|
|
|
|
2005-07-22 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22570
|
|
|
|
|
* read.c (read_x): Correct the condition for doing the
|
|
|
|
|
x-editing during formatted input.
|
|
|
|
|
* transfer.c (formatted_transfer): Cast offset difference
|
|
|
|
|
as int, clean-up arithmetic with new variable, bytes_used,
|
2005-08-12 08:00:46 +02:00
|
|
|
zero counters for FMT_SLASH,
|
2005-07-22 16:07:19 +02:00
|
|
|
(data_transfer_init) Zero X- and T-editing counters
|
|
|
|
|
unconditionally.
|
|
|
|
|
(next_record_w) Zero X- and T-editing counters.
|
|
|
|
|
unconditionally.
|
|
|
|
|
|
2005-07-17 22:53:18 +02:00
|
|
|
2005-07-17 Jerry DeLisle <jvdelisle@verizon.net>
|
2005-07-17 22:28:14 +02:00
|
|
|
|
2005-07-24 12:37:48 +02:00
|
|
|
* io/write.c (write_float): Fix field width checks for
|
|
|
|
|
printing 'Infinity' or 'Inf'.
|
|
|
|
|
(output_float): Fix typo in comment.
|
2005-07-17 22:28:14 +02:00
|
|
|
|
2005-07-14 08:21:59 +02:00
|
|
|
2005-07-12 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/16435
|
|
|
|
|
* transfer.c (formatted_transfer): Correct the problems
|
|
|
|
|
with X- and T-editting that caused TLs followed by TRs
|
|
|
|
|
to overwrite data, which caused NIST FM908.FOR to fail
|
|
|
|
|
on many tests.
|
|
|
|
|
(data_transfer_init): Zero X- and T-editting counters at
|
|
|
|
|
the start of formatted IO.
|
|
|
|
|
* write.c (write_x): Write specified number of skips with
|
|
|
|
|
specified number of spaces at the end.
|
|
|
|
|
|
2005-07-13 20:43:14 +02:00
|
|
|
2005-07-13 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* io/read.c (read_complex): Prevent X formatting during reads
|
|
|
|
|
from going beyond EOR to fix NIST fm908.FOR failure.
|
|
|
|
|
* io/list_read.c (read_complex): Allow complex data in list-
|
|
|
|
|
directed reads to have eols either side of the comma to
|
|
|
|
|
fix NIST FM906.FOR failure.
|
|
|
|
|
|
2005-07-12 21:52:19 +02:00
|
|
|
2005-07-12 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
2005-07-12 22:39:11 +02:00
|
|
|
PR libfortran/21593
|
2005-07-24 12:37:48 +02:00
|
|
|
* io/unix.c: Add member special_file to type unix_stream.
|
2005-07-12 21:52:19 +02:00
|
|
|
(fd_truncate): Don't call ftruncate or chsize if
|
|
|
|
|
s refers to a special file.
|
|
|
|
|
(fd_to_stream): initialize s->special_file.
|
|
|
|
|
|
2005-07-12 05:27:40 +02:00
|
|
|
2005-07-11 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
2005-07-24 12:37:48 +02:00
|
|
|
PR libgfortran/22412
|
|
|
|
|
* io/write.c (otoa): Bias p by SCRATCH_SIZE, not
|
|
|
|
|
sizeof (SCRATCH_SIZE).
|
|
|
|
|
(btoa): Same.
|
2005-07-10 01:40:31 +02:00
|
|
|
|
|
|
|
|
2005-07-09 Jerry DeLisle <jvdelisle@verizon.net>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21875 (FM111.f)
|
2005-08-12 08:00:46 +02:00
|
|
|
* io/read.c (next_char): Return a ' ' character when BLANK_ZERO or
|
2005-07-10 01:40:31 +02:00
|
|
|
BLANK_NULL are active.
|
|
|
|
|
(read_decimal): Interpret ' ' character correctly for BZ or BN.
|
|
|
|
|
(read_radix): Interpret ' ' character correctly for BZ or BN.
|
|
|
|
|
(read_f): Interpret ' ' character correctly for BZ or BN.
|
|
|
|
|
* gfortran.dg/test (fmt_read_bz_bn.f90): New test case.
|
|
|
|
|
|
2005-07-09 11:33:31 +02:00
|
|
|
2005-07-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22217
|
|
|
|
|
* io/write.c (extract_unit): New function; extract
|
|
|
|
|
ints as unsigned signed int of the correct size.
|
2005-07-24 12:37:48 +02:00
|
|
|
(write_int): Use it.
|
2005-07-09 11:33:31 +02:00
|
|
|
* runtime/error.c: Adjust copyright years.
|
|
|
|
|
Adjust size of buffer to maximum that can occur.
|
|
|
|
|
|
libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by 'size_t offset'.
* libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
'size_t offset'.
* intrinsics/cshift0.c, intrinsics/eoshift0.c,
intrinsics/eoshift2.c,intrinsics/pack_generic.c,
intrinsics/reshape_generic.c, intrinsics/spread_generic.c,
intrinsics/transpose_generic.c, intrinsics/unpack_generic,
m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4,
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4,
m4,transpose.m4: Set renamed field 'offset' to zero instead of
'base'.
* generated/all_l4.c, generated/all_l8.c,
generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c,
generated/count_4_l8.c, generated/count_8_l4.c,
generated/count_8_l8.c, generated/chift1_4.c,
generated/cshift1_8.c, generated/eoshift1_4.c,
generated/eoshift1_8.c, generated/eoshift3_4.c,
generated/eoshift3_8.c, generated/matmul_c4.c,
generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c,
generated/matmul_l4.c, generated/matmul_l8.c,
generated/matmul_r4.c, generated/matmul_r8.c,
generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c,
generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c,
generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c,
generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c,
generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c,
generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c,
generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c,
generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c,
generated/maxval_i4.c, generated/maxval_i8.c,
generated/maxval_r4.c, generated/maxval_r8.c,
generated/minloc0_4_i4.c, generated/minloc0_4_i8.c,
generated/minloc0_4_r4.c, generated/minloc0_4_r8.c,
generated/minloc0_8_i4.c, generated/minloc0_8_i8.c,
generated/minloc0_8_r4.c, generated/minloc0_8_r8.c,
generated/minloc1_4_i4.c, generated/minloc1_4_i8.c,
generated/minloc1_4_r4.c, generated/minloc1_4_r8.c,
generated/minloc1_8_i4.c, generated/minloc1_8_i8.c,
generated/minloc1_8_r4.c, generated/minloc1_8_r8.c,
generated/minval_i4.c, generated/minval_i8.c,
generated/minval_r4.c, generated/minval_r8.c,
generated/product_c4.c, generated/product_c8.c,
generated/product_i4.c, generated/product_i8.c,
generated/product_r4.c, generated/product_r8.c,
generated/reshape_c4.c, generated/reshape_c8.c,
generated/reshape_i4.c, generated/reshape_i8.c,
generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c,
generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c,
generated/transpose_c4.c, generated/transpose_c8.c,
generated/transpose_i4.c, generated/transpose_i8.c: Regenerate:
From-SVN: r101739
2005-07-08 00:08:06 +02:00
|
|
|
2005-07-07 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
|
|
|
|
|
'size_t offset'.
|
|
|
|
|
* intrinsics/cshift0.c, intrinsics/eoshift0.c,
|
|
|
|
|
intrinsics/eoshift2.c,intrinsics/pack_generic.c,
|
|
|
|
|
intrinsics/reshape_generic.c, intrinsics/spread_generic.c,
|
|
|
|
|
intrinsics/transpose_generic.c, intrinsics/unpack_generic,
|
|
|
|
|
m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4,
|
|
|
|
|
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4,
|
|
|
|
|
m4,transpose.m4: Set renamed field 'offset' to zero instead of
|
|
|
|
|
'base'.
|
|
|
|
|
* generated/all_l4.c, generated/all_l8.c,
|
|
|
|
|
generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c,
|
|
|
|
|
generated/count_4_l8.c, generated/count_8_l4.c,
|
|
|
|
|
generated/count_8_l8.c, generated/chift1_4.c,
|
|
|
|
|
generated/cshift1_8.c, generated/eoshift1_4.c,
|
|
|
|
|
generated/eoshift1_8.c, generated/eoshift3_4.c,
|
|
|
|
|
generated/eoshift3_8.c, generated/matmul_c4.c,
|
|
|
|
|
generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c,
|
|
|
|
|
generated/matmul_l4.c, generated/matmul_l8.c,
|
|
|
|
|
generated/matmul_r4.c, generated/matmul_r8.c,
|
|
|
|
|
generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c,
|
|
|
|
|
generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c,
|
|
|
|
|
generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c,
|
|
|
|
|
generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c,
|
|
|
|
|
generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c,
|
|
|
|
|
generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c,
|
|
|
|
|
generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c,
|
|
|
|
|
generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c,
|
|
|
|
|
generated/maxval_i4.c, generated/maxval_i8.c,
|
|
|
|
|
generated/maxval_r4.c, generated/maxval_r8.c,
|
|
|
|
|
generated/minloc0_4_i4.c, generated/minloc0_4_i8.c,
|
|
|
|
|
generated/minloc0_4_r4.c, generated/minloc0_4_r8.c,
|
|
|
|
|
generated/minloc0_8_i4.c, generated/minloc0_8_i8.c,
|
|
|
|
|
generated/minloc0_8_r4.c, generated/minloc0_8_r8.c,
|
|
|
|
|
generated/minloc1_4_i4.c, generated/minloc1_4_i8.c,
|
|
|
|
|
generated/minloc1_4_r4.c, generated/minloc1_4_r8.c,
|
|
|
|
|
generated/minloc1_8_i4.c, generated/minloc1_8_i8.c,
|
|
|
|
|
generated/minloc1_8_r4.c, generated/minloc1_8_r8.c,
|
|
|
|
|
generated/minval_i4.c, generated/minval_i8.c,
|
|
|
|
|
generated/minval_r4.c, generated/minval_r8.c,
|
|
|
|
|
generated/product_c4.c, generated/product_c8.c,
|
|
|
|
|
generated/product_i4.c, generated/product_i8.c,
|
|
|
|
|
generated/product_r4.c, generated/product_r8.c,
|
|
|
|
|
generated/reshape_c4.c, generated/reshape_c8.c,
|
|
|
|
|
generated/reshape_i4.c, generated/reshape_i8.c,
|
|
|
|
|
generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c,
|
|
|
|
|
generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c,
|
|
|
|
|
generated/transpose_c4.c, generated/transpose_c8.c,
|
|
|
|
|
generated/transpose_i4.c, generated/transpose_i8.c: Regenerate:
|
|
|
|
|
|
2005-07-08 00:01:41 +02:00
|
|
|
2005-07-07 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21594
|
|
|
|
|
* intrinsics/eoshift0.c: If abs(shift) > len, fill the
|
|
|
|
|
the whole array with the boundary value, but don't overrun it.
|
|
|
|
|
* intrinsics/eoshift2.c: Likewise.
|
|
|
|
|
* m4/eoshift1.m4: Likewise.
|
|
|
|
|
* m4/eoshift3.m4: Likewise.
|
|
|
|
|
* generated/eoshift1_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_8.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_8.c: Regenerated.
|
|
|
|
|
|
2005-07-07 09:54:58 +02:00
|
|
|
2005-07-07 Feng Wang <fengwang@nudt.edu.cn>
|
|
|
|
|
|
|
|
|
|
PR fortran/16531
|
|
|
|
|
* io/transfer.c (formatted_transfer): Enable FMT_A on other types to
|
|
|
|
|
support Hollerith constants.
|
|
|
|
|
|
2005-07-01 07:44:50 +02:00
|
|
|
2005-07-01 Andreas Jaeger <aj@suse.de>
|
|
|
|
|
|
|
|
|
|
* intrinsics/unpack_generic.c: Remove const from parameter.
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (formatted_transfer): Remove unused variable.
|
|
|
|
|
|
2005-06-29 01:07:20 +02:00
|
|
|
2005-06-28 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22142
|
|
|
|
|
* m4/eoshift1.m4: Correct bstride (it needs to be multiplied
|
|
|
|
|
by size since it's a char pointer).
|
|
|
|
|
* m4/eoshift1_4.c: Regenerated.
|
|
|
|
|
* m4/eoshift1_8.c: Regenerated.
|
|
|
|
|
|
2005-06-28 23:57:45 +02:00
|
|
|
2005-06-28 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22142
|
|
|
|
|
* m4/eoshift3.m4: Correct bstride (it needs to be multiplied
|
|
|
|
|
by size since it's a char pointer).
|
|
|
|
|
* m4/eoshift3_4.c: Regenerated.
|
|
|
|
|
* m4/eoshift3_8.c: Regenerated.
|
|
|
|
|
|
2005-06-28 12:43:23 +02:00
|
|
|
2005-06-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/22170
|
|
|
|
|
* io/transfer.c (formatted_transfer): Do not iterate on the
|
|
|
|
|
repeat count of a FMT_SLASH, since this is already done in
|
|
|
|
|
next_format().
|
|
|
|
|
|
2005-06-25 11:56:37 +02:00
|
|
|
2005-06-25 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
2005-07-24 12:37:48 +02:00
|
|
|
PR libfortran/22144
|
|
|
|
|
* m4/cshift1.m4: Remove const from argument ret.
|
|
|
|
|
Populate return array descriptor if ret->data is NULL.
|
|
|
|
|
* m4/eoshift1.m4: Likewise.
|
|
|
|
|
* m4/eoshift3.m4: Likewise.
|
|
|
|
|
* generated/cshift1_4.c: Regenerated.
|
|
|
|
|
* generated/cshift1_8.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_8.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_8.c: Regenerated.
|
2005-06-25 11:56:37 +02:00
|
|
|
|
2005-06-25 01:07:13 +02:00
|
|
|
2005-06-24 Jerry DeLisle <jvdelisle@verizon.net>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21915
|
2005-06-27 03:27:18 +02:00
|
|
|
* Makefile.am: Include intrinsics/hyper.c.
|
|
|
|
|
* c99_protos.h: Add prototypes for single precision versions of
|
|
|
|
|
acosh, asinh, and atanh for platforms that do not have these.
|
|
|
|
|
* config.h.in: Add #undef for wrappers.
|
|
|
|
|
* configure.ac: Add checks for single precision versions.
|
|
|
|
|
* aclocal.m4: Regenerated.
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
2005-07-01 07:44:50 +02:00
|
|
|
* intrinsics/hyper.c: New file, adds new wrapper functions.
|
2005-06-25 01:07:13 +02:00
|
|
|
|
2005-06-23 20:50:25 +02:00
|
|
|
2005-06-23 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* intrinsics/c99_functions.c (log10l): New log10l function for
|
|
|
|
|
systems where this is not available.
|
|
|
|
|
* c99_protos.h: Prototype for log10l function.
|
|
|
|
|
* libgfortran.h: Use generated kinds.h to define GFC_INTEGER_*,
|
|
|
|
|
GFC_UINTEGER_*, GFC_LOGICAL_*, GFC_REAL_*, GFC_COMPLEX_*. Update
|
|
|
|
|
prototypes for gfc_itoa and xtoa.
|
|
|
|
|
* io/io.h: Update prototypes for set_integer and max_value.
|
|
|
|
|
* io/list_read.c (convert_integer): Use new
|
|
|
|
|
GFC_(INTEGER|REAL)_LARGEST type.
|
|
|
|
|
* io/read.c (set_integer): Likewise.
|
|
|
|
|
(max_value): Likewise.
|
|
|
|
|
(convert_real): Likewise.
|
|
|
|
|
(real_l): Likewise.
|
|
|
|
|
(next_char): Likewise.
|
|
|
|
|
(read_decimal): Likewise.
|
|
|
|
|
(read_radix): Likewise.
|
|
|
|
|
(read_f): Likewise.
|
|
|
|
|
* io/write.c (extract_int): Use new GFC_INTEGER_LARGEST type.
|
|
|
|
|
(extract_real): Use new GFC_REAL_LARGEST type.
|
|
|
|
|
(calculate_exp): Likewise.
|
|
|
|
|
(calculate_G_format): Likewise.
|
|
|
|
|
(output_float): Likewise. Use log10l for long double values.
|
|
|
|
|
Add comment for sprintf format. Use GFC_REAL_LARGEST_FORMAT.
|
|
|
|
|
(write_l): Use new GFC_INTEGER_LARGEST type.
|
|
|
|
|
(write_float): Use new GFC_REAL_LARGEST type.
|
|
|
|
|
(write_int): Remove useless special case for (len < 8).
|
|
|
|
|
(write_decimal): Use GFC_INTEGER_LARGEST.
|
|
|
|
|
(otoa): Use GFC_UINTEGER_LARGEST as argument.
|
|
|
|
|
(btoa): Use GFC_UINTEGER_LARGEST as argument.
|
|
|
|
|
* runtime/error.c (gfc_itoa): Use GFC_INTEGER_LARGEST as
|
|
|
|
|
argument.
|
|
|
|
|
(xtoa): Use GFC_UINTEGER_LARGEST as argument.
|
|
|
|
|
* Makefile.am: Use mk-kinds-h.sh to generate header kinds.h
|
|
|
|
|
with all Fortran kinds available.
|
|
|
|
|
* configure.ac: Check for strtold and log10l.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* aclocal.m4: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* mk-kinds-h.sh: Configuration script for available integer
|
|
|
|
|
and real kinds.
|
|
|
|
|
|
|
|
|
|
|
2005-06-18 22:09:28 +02:00
|
|
|
2005-06-18 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
|
|
|
|
|
* unix.c (stream_at_bof): Don't assume that all non-mmapped files
|
|
|
|
|
are non-seekable.
|
|
|
|
|
(stream_at_eof): Likewise.
|
|
|
|
|
|
2005-06-17 18:20:29 +02:00
|
|
|
2005-06-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19155
|
|
|
|
|
* io/read.c (convert_real): strtod can set errno to EINVAL on an
|
|
|
|
|
empty string, but we shouldn't have an error in that case.
|
|
|
|
|
|
2005-06-17 00:50:51 +02:00
|
|
|
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19216
|
|
|
|
|
* io/list_read.c (eat_separator): No need to call next_record,
|
|
|
|
|
even in non-namelist_mode.
|
|
|
|
|
|
2005-06-17 00:31:32 +02:00
|
|
|
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (formatted_transfer): Fix typo in error message.
|
|
|
|
|
|
2005-06-17 00:13:26 +02:00
|
|
|
2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/16436
|
|
|
|
|
* io/transfer.c (read_sf): Correct updating of bytes_left field.
|
|
|
|
|
(formatted_transfer): Correct updating of bytes_left field and
|
|
|
|
|
reformatting code (comments and whitespace).
|
|
|
|
|
* io/unix.c (move_pos_offset): "active" field should not be
|
|
|
|
|
changed here. Whitespace corrections.
|
|
|
|
|
|
2005-06-15 10:40:35 +02:00
|
|
|
2005-06-15 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21950
|
|
|
|
|
* intrinsics/c99_functions.c (scalbn): Provide fallback
|
|
|
|
|
implementation for scalbn.
|
|
|
|
|
* c99_protos.h: Prototype for scalbn.
|
|
|
|
|
* configure.ac: Add check for scalbn.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
|
2005-06-14 22:45:21 +02:00
|
|
|
2005-06-14 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
* intrinsics/eoshift0.c: Removed prototype for eoshift0.
|
|
|
|
|
* intrinsics/eoshift2.c: Removed prototype for eoshift2.
|
|
|
|
|
|
re PR libgcj/19877 (sometimes reconfiguring leads to incorrect config.h)
config/:
PR libgcj/19877:
* no-executables.m4: Call real AC_FUNC_MMAP when cache variable
is set but not 'no'.
libstdc++-v3/:
PR libgcj/19877:
* configure, aclocal.m4: Rebuilt.
* Makefile.in, include/Makefile.in, libmath/Makefile.in,
libsupc++/Makefile.in, po/Makefile.in, src/Makefile.in,
testsuite/Makefile.in: Likewise.
libjava/:
PR libgcj/19877:
* configure, aclocal.m4, Makefile.in: Rebuilt.
libgfortran/:
PR libgcj/19877:
* configure, aclocal.m4, Makefile.in: Rebuilt.
zlib/:
PR libgcj/19877:
* configure, aclocal.m4, Makefile.in: Rebuilt.
From-SVN: r100953
2005-06-14 22:05:59 +02:00
|
|
|
2005-06-14 Tom Tromey <tromey@redhat.com>
|
|
|
|
|
|
|
|
|
|
PR libgcj/19877:
|
|
|
|
|
* configure, aclocal.m4, Makefile.in: Rebuilt.
|
|
|
|
|
|
2005-06-14 00:37:39 +02:00
|
|
|
2005-06-12 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21594
|
|
|
|
|
* intrinsics/eoshift0.c: Add prototype for eoshift0.
|
|
|
|
|
* intrinsics/eoshift2.c: Add prototype for eoshift2.
|
|
|
|
|
|
2005-06-12 23:00:57 +02:00
|
|
|
2005-06-12 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/PR21797
|
|
|
|
|
* m4/cexp.m4 (csqrt`'q): Add type qualifyer to
|
|
|
|
|
sqrt and fabs.
|
|
|
|
|
* generated/exp_c4.c: Regenerated.
|
|
|
|
|
|
2005-06-12 21:59:17 +02:00
|
|
|
2005-06-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19155
|
|
|
|
|
* io/read.c (read_f): Take care of spaces after initial sign.
|
|
|
|
|
|
2005-06-12 22:27:59 +02:00
|
|
|
2005-06-11 Thomas Koenig <Thomas.Koenig@onlinde.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21333
|
|
|
|
|
* Makefile.am: Add in_pack_c4.c, in_pack_c8.c, in_unpack_c4.c
|
|
|
|
|
and in_unpack_c8.c.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* libgfortran.h: Declare internal_pack_c4, internal_pack_c8,
|
|
|
|
|
internal_unpack_c4 and internal_unpack_c8.
|
|
|
|
|
* m4/in_pack.m4: Use rtype_ccode insteald of rtype_kind
|
|
|
|
|
in function name.
|
|
|
|
|
Use sizeof (rtype_name) as size for memory allocation.
|
|
|
|
|
* m4/in_unpack.m4: Use rtype_ccode insteald of rtype_kind
|
|
|
|
|
in function name.
|
|
|
|
|
Use sizeof (rtype_name) for calculation of sizes for memcpy.
|
|
|
|
|
* runtime/in_pack_generic.c: For real, integer and logical
|
|
|
|
|
call internal_pack_4 if size==4 and internal_pack_8 if
|
|
|
|
|
size==8.
|
|
|
|
|
For complex, call internal_pack_c4 if size==8 and
|
|
|
|
|
internal_pack_c8 if size==16.
|
|
|
|
|
* runtime/in_unpack_generic.c: For real, integer and logical
|
2005-06-15 10:40:35 +02:00
|
|
|
call internal_unpack_4 if size==4 and internal_unpack_8 if
|
|
|
|
|
size==8.
|
|
|
|
|
For complex, call internal_unpack_c4 if size==8 and
|
|
|
|
|
internal_unpack_c8 if size==16.
|
2005-06-12 22:27:59 +02:00
|
|
|
* generated/in_pack_i4.c: Regenerated.
|
|
|
|
|
* generated/in_pack_i8.c: Regenerated.
|
|
|
|
|
* generated/in_unpack_i4.c: Regenerated.
|
|
|
|
|
* generated/in_unpack_i8.c: Regenerated.
|
|
|
|
|
* generated/in_pack_c4.c: New file.
|
|
|
|
|
* generated/in_pack_c8.c: New file.
|
|
|
|
|
* generated/in_unpack_c4.c: New file.
|
|
|
|
|
* generated/in_unpack_c8.c: New file.
|
|
|
|
|
|
2005-06-09 21:43:27 +02:00
|
|
|
2005-06-09 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21480
|
|
|
|
|
* m4/reshape.m4: Use sizeof (rtype_name) for sizes to be passed
|
|
|
|
|
to reshape_packed.
|
|
|
|
|
* generated/reshape_c4.c: Regenerated.
|
|
|
|
|
* generated/reshape_c8.c: Regenerated.
|
|
|
|
|
* generated/reshape_i4.c: Regenerated.
|
|
|
|
|
* generated/reshape_i8.c: Regenerated.
|
|
|
|
|
|
2005-06-07 22:46:17 +02:00
|
|
|
2005-06-07 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21926
|
|
|
|
|
* m4/matmul.m4: Correct zeroing of result for non-packed
|
|
|
|
|
arrays with lowest stride is one.
|
|
|
|
|
* generated/matmul_c4.c: Regenerated.
|
|
|
|
|
* generated/matmul_c8.c: Regenerated.
|
|
|
|
|
* generated/matmul_i4.c: Regenerated.
|
|
|
|
|
* generated/matmul_i8.c: Regenerated.
|
|
|
|
|
* generated/matmul_r4.c: Regenerated.
|
|
|
|
|
* generated/matmul_r8.c: Regenerated.
|
|
|
|
|
|
2005-05-30 09:41:23 +02:00
|
|
|
2005-05-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
2005-05-30 09:38:36 +02:00
|
|
|
|
|
|
|
|
PR libfortran/20179
|
|
|
|
|
* io/unix.c (fd_close): Add test so that we don't close()
|
|
|
|
|
stdout and stderr.
|
|
|
|
|
|
2005-05-29 14:22:49 +02:00
|
|
|
2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20006
|
|
|
|
|
* io/format.c (parse_format_list): Set repeat count of $ format
|
|
|
|
|
node to 1.
|
|
|
|
|
* io/transfer.c (read_sf): Add g.seen_dollar to the test
|
|
|
|
|
concerning advancing I/O.
|
|
|
|
|
(data_transfer_init): Likewise.
|
|
|
|
|
(finalize_transfer): Likewise.
|
2005-07-01 07:44:50 +02:00
|
|
|
|
2005-05-27 21:00:50 +02:00
|
|
|
2005-05-27 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
* runtime/in_pack_generic.c: Adjust copyright years.
|
|
|
|
|
(in_pack_generic): Change dimension of auxiliary arrays from
|
|
|
|
|
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
|
|
|
|
|
* runtime/in_unpack_generic.c: Adjust copyright years.
|
|
|
|
|
(in_unpack_generic): Change dimension of auxiliary arrays from
|
|
|
|
|
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
|
|
|
|
|
|
2005-05-26 08:26:17 +02:00
|
|
|
2005-05-26 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/17283
|
|
|
|
|
* intrinsics/unpack_generic.c: Fix name of routine
|
|
|
|
|
on top. Update copyright years.
|
|
|
|
|
(unpack1): Remove const from return array descriptor.
|
|
|
|
|
rs: New variable, for calculating return sizes.
|
|
|
|
|
Populate return array descriptor if ret->data is NULL.
|
|
|
|
|
|
2005-05-24 22:46:54 +02:00
|
|
|
2005-05-22 Peter Wainwright <prw@ceiriog1.demon.co.uk>
|
2005-05-22 23:17:42 +02:00
|
|
|
|
|
|
|
|
PR libfortran/21376
|
|
|
|
|
* io/write.c (output_float): Rework logic to avoid call to log10
|
|
|
|
|
with argument equal to zero.
|
|
|
|
|
|
2005-05-21 08:44:50 +02:00
|
|
|
2005-05-21 Eric Botcazou <ebotcazou@libertysurf.fr>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Check for trunc and truncf in libm.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Likewise.
|
|
|
|
|
* intrinsics/c99_functions.c (trunc, truncf): New functions.
|
|
|
|
|
* c99_protos.h (trunc, truncf): Declare them.
|
|
|
|
|
|
2005-05-18 22:35:25 +02:00
|
|
|
2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21127
|
|
|
|
|
* Makefile.am: Really commit.
|
|
|
|
|
* Makefile.in: Really commit.
|
|
|
|
|
|
2005-05-18 22:24:32 +02:00
|
|
|
2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21127
|
|
|
|
|
* Makefile.am: Add generated/reshape_c4.c and
|
|
|
|
|
generated/reshape_c8.c.
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
* m4/iparm.m4: Define rtype_ccode to be c4 or c8 for
|
|
|
|
|
complex types, 4 or 8 otherwise.
|
|
|
|
|
* m4/reshape.m4: Use rtype_ccode instead of rtype_kind
|
|
|
|
|
in function name.
|
|
|
|
|
* generated/reshape_c4.c: New file.
|
|
|
|
|
* generated/reshape_c8.c: New file.
|
|
|
|
|
|
2005-05-17 18:54:58 +02:00
|
|
|
2005-05-16 Andreas Jaeger <aj@suse.de>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Add additional warning flags.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
|
|
|
|
* io/write.c (calculate_G_format): Remove unused parameter.
|
|
|
|
|
(output_float): Remove unused parameter.
|
|
|
|
|
(write_float): Change callers.
|
|
|
|
|
(nml_write_obj): Avoid signed warning.
|
|
|
|
|
Make variable const to support -Wwrite-strings.
|
|
|
|
|
|
|
|
|
|
* io/unix.c (fd_alloc, mmap_open, mmap_sfree, mem_sfree,
|
|
|
|
|
mem_truncate): Mark argument as unused.
|
|
|
|
|
|
|
|
|
|
* io/unit.c (get_unit): Mark argument as unused.
|
|
|
|
|
(init_units): Avoid warning about signed comparision.
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (next_record_r): Remove unused parameter.
|
|
|
|
|
(next_record_w): Remove unused parameter.
|
|
|
|
|
(next_record): Change callers.
|
|
|
|
|
(iolength_transfer): Mark arguments as unused.
|
|
|
|
|
|
|
|
|
|
* io/open.c: Add initializer.
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (read_character): Mark argument as unused.
|
|
|
|
|
(nml_match_name): Add const to make compile with -Wwrite-strings.
|
|
|
|
|
|
|
|
|
|
* io/format.c: Add initializer.
|
|
|
|
|
|
2005-05-15 10:25:52 +02:00
|
|
|
2005-05-15 Andreas Jaeger <aj@suse.de>
|
|
|
|
|
|
2005-05-15 17:50:09 +02:00
|
|
|
* m4/eoshift1.m4: Initialize variables to avoid warnings.
|
|
|
|
|
* m4/eoshift3.m4: Initialize variables to avoid warnings.
|
|
|
|
|
* generated/eoshift1_4.c, generated/eoshift1_8.c,
|
|
|
|
|
generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.
|
|
|
|
|
|
|
|
|
|
* intrinsics/spread_generic.c (spread): Initialize variables to
|
|
|
|
|
avoid warnings.
|
|
|
|
|
|
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
|
|
|
|
|
warnings.
|
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
|
|
|
|
|
warnings.
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (nml_get_obj_data): Initialize variables to avoid
|
|
|
|
|
warnings.
|
|
|
|
|
|
2005-05-15 17:37:18 +02:00
|
|
|
* intrinsics/pack_generic.c (pack): Remove unneeded calculation.
|
|
|
|
|
|
|
|
|
|
* m4/matmull.m4 (matmul_): Remove unneeded calculations, fix
|
|
|
|
|
pointer cast to avoid warning.
|
|
|
|
|
* generated/matmul_l4.c: Regenerated.
|
|
|
|
|
* generated/matmul_l8.c: Regenerated.
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Remove AM_CFLAGS here.
|
|
|
|
|
* configure.ac: Define AM_CFLAGS and AM_FCFLAGS so that warnings
|
|
|
|
|
are set. Set additionally -Wstrict-prototypes for CFLAGS.
|
2005-05-15 17:38:21 +02:00
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
* aclocal.m4: Regenerated.
|
2005-05-15 17:37:18 +02:00
|
|
|
* configure: Regenerated.
|
|
|
|
|
|
2005-05-15 17:33:12 +02:00
|
|
|
* intrinsics/system_clock.c (system_clock_4, system_clock_8): Add
|
|
|
|
|
missing returns, reformat a bit.
|
|
|
|
|
|
|
|
|
|
* io/write.c (nml_write_obj): Use %d again - and cast to int,
|
|
|
|
|
st_sprintf does not handle %ld.
|
|
|
|
|
|
2005-05-15 15:25:19 +02:00
|
|
|
* io/unit.c (is_internal_unit): Add void as parameter list.
|
|
|
|
|
|
|
|
|
|
* io/transfer.c: Move prototype declarations before the functions.
|
|
|
|
|
|
normalize.c (almostone_r4, [...]): Fix parameter list.
* runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter
list.
* intrinsics/random.c (KISS_DEFAULT_SEED): Remove extra semicolon.
* io/transfer.c: Do not use empty initializers for global objects.
Add missing initializers.
* io/lock.c: Do not use empty initializers for global objects.
* io/close.c: Add missing initializers.
* runtime/environ.c: Add missing initializers. Do not use empty
initializers for global object.
(init_string): Mark argument as unused.
* runtime/main.c (cleanup): Fix parameter list.
* io/io.h: Fix parameter lists.
* m4/transpose.m4, m4/matmul.m4: Fix pointer cast to avoid
warning.
* generated/transpose_c4.c, generated/transpose_c8.c,
generated/transpose_i4.c, generated/transpose_i8.c,
generated/matmul_c4.c, generated/matmul_c8.c,
generated/matmul_i4.c, generated/matmul_i8.c,
generated/matmul_r4.c, generated/matmul_r8.c: Regenerated.
* io/write.c (nml_write_obj): Fix 64-bit problem.
* io/list_read.c (nml_get_obj_data): Add missing braces around
initializer to avoid warnings.
* intrinsics/etime.c (etime_sub): Remove unused variable.
From-SVN: r99719
2005-05-15 14:44:42 +02:00
|
|
|
* runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter
|
|
|
|
|
list.
|
|
|
|
|
|
|
|
|
|
* intrinsics/random.c (KISS_DEFAULT_SEED): Remove extra semicolon.
|
|
|
|
|
|
|
|
|
|
* io/transfer.c: Do not use empty initializers for global objects.
|
|
|
|
|
Add missing initializers.
|
|
|
|
|
|
|
|
|
|
* io/lock.c: Do not use empty initializers for global objects.
|
|
|
|
|
|
|
|
|
|
* io/close.c: Add missing initializers.
|
|
|
|
|
|
|
|
|
|
* runtime/environ.c: Add missing initializers. Do not use empty
|
|
|
|
|
initializers for global object.
|
|
|
|
|
(init_string): Mark argument as unused.
|
|
|
|
|
|
|
|
|
|
* runtime/main.c (cleanup): Fix parameter list.
|
|
|
|
|
|
|
|
|
|
* io/io.h: Fix parameter lists.
|
|
|
|
|
|
|
|
|
|
* m4/transpose.m4, m4/matmul.m4: Fix pointer cast to avoid
|
|
|
|
|
warning.
|
|
|
|
|
|
|
|
|
|
* generated/transpose_c4.c, generated/transpose_c8.c,
|
|
|
|
|
generated/transpose_i4.c, generated/transpose_i8.c,
|
|
|
|
|
generated/matmul_c4.c, generated/matmul_c8.c,
|
|
|
|
|
generated/matmul_i4.c, generated/matmul_i8.c,
|
|
|
|
|
generated/matmul_r4.c, generated/matmul_r8.c: Regenerated.
|
|
|
|
|
|
|
|
|
|
* io/write.c (nml_write_obj): Fix 64-bit problem.
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (nml_get_obj_data): Add missing braces around
|
|
|
|
|
initializer to avoid warnings.
|
|
|
|
|
|
|
|
|
|
* intrinsics/etime.c (etime_sub): Remove unused variable.
|
|
|
|
|
|
2005-05-15 10:25:52 +02:00
|
|
|
* intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
|
|
|
|
|
intrinsics/symlnk.c, intrinsics/perror.c: Include <string.h> for
|
|
|
|
|
prototypes.
|
|
|
|
|
|
|
|
|
|
* runtime/string.c (compare0): Remove unused variable.
|
|
|
|
|
* io/unit.c (init_units): Remove unused variables.
|
|
|
|
|
* intrinsics/getcwd.c (getcwd_i4_sub): Remove unused variable.
|
|
|
|
|
* intrinsics/unlink.c (unlink_i4_sub): Remove unused variable.
|
|
|
|
|
* intrinsics/stat.c (stat_i4_sub, fstat_i8_sub, fstat_i4_sub,
|
|
|
|
|
stat_i8_sub): Remove unused variable.
|
|
|
|
|
|
2005-05-12 19:50:33 +02:00
|
|
|
2005-05-12 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21324
|
|
|
|
|
* runtime/memory.c: Don't define GFC_CLEAR_MEMORY (it's a
|
|
|
|
|
performance hog).
|
|
|
|
|
* io/open.c (new_unit): Zero freshly allocated memory for
|
|
|
|
|
unit structure.
|
|
|
|
|
* io/unit.c (init_units): Zero freshly allocated memory for
|
|
|
|
|
STDIN, STDOUT and STDERR.
|
|
|
|
|
* io/unix.c (open_internal): Zero freshly allocated memory
|
|
|
|
|
for unix_stream.
|
|
|
|
|
(fd_to_stream): Likewise.
|
|
|
|
|
|
2005-05-11 12:34:05 +02:00
|
|
|
2005-05-11 Bud Davis <bdavis@gfortran.org>
|
|
|
|
|
|
|
|
|
|
PR fortran/19478
|
|
|
|
|
* io/unix.c (fd_truncate): update positions when ftruncate
|
|
|
|
|
fails (like writing to /dev/null).
|
|
|
|
|
|
2005-05-11 07:56:20 +02:00
|
|
|
2005-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21471
|
|
|
|
|
* open.c (new_unit): Take care of the case where POSITION_APPEND
|
|
|
|
|
is specified (sseek to the end, and set u>-endfile).
|
|
|
|
|
|
2005-05-11 00:06:55 +02:00
|
|
|
2005-05-10 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/20178
|
|
|
|
|
* Makefile.am (gfor_specific_src): Add 'intrinsics/f2c_intrinsics.F90'
|
|
|
|
|
to dependencies.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* intrinsics/f2c_specific.F90: New file.
|
|
|
|
|
|
2005-05-10 10:34:58 +02:00
|
|
|
2005-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20788
|
|
|
|
|
* io/unix.c (fd_to_stream): Add an avoid_mmap argument indicating
|
|
|
|
|
we don't we to mmap this stream. Use fd_open instead of mmap_open
|
|
|
|
|
in that case.
|
|
|
|
|
(open_external): Call fd_to_stream with avoid_mmap = 0.
|
|
|
|
|
(input_stream): Call fd_to_stream with avoid_mmap = 1.
|
|
|
|
|
(output_stream): Likewise.
|
|
|
|
|
(error_stream): Likewise.
|
|
|
|
|
|
2005-05-10 03:43:00 +02:00
|
|
|
2005-05-09 Mike Stump <mrs@apple.com>
|
|
|
|
|
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2005-05-09 13:21:01 +02:00
|
|
|
2005-05-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19155
|
|
|
|
|
* io/read.c (read_f): Accept 'e', 'E', 'd' and 'D' as first
|
|
|
|
|
non-blank characters of a real number.
|
|
|
|
|
|
2005-05-04 23:38:23 +02:00
|
|
|
2005-05-04 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21354
|
|
|
|
|
* m4/cshift1.m4: Change dimension of auxiliary arrays from
|
|
|
|
|
GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
|
|
|
|
|
* m4/eoshift1.m4: Likewise.
|
|
|
|
|
* m4/eoshift3.m4: Likewise.
|
|
|
|
|
* m4/ifunction.m4: Likewise.
|
|
|
|
|
* m4/in_pack.m4: Likewise.
|
|
|
|
|
* m4/in_unpack.m4: Likewise.
|
|
|
|
|
* intrinsics/cshift0.c: Likewise.
|
|
|
|
|
* intrinsics/eoshift0.c: Likewise.
|
|
|
|
|
* intrinsics/eoshift2.c: Likewise.
|
|
|
|
|
* intrinsics/random.c: Likewise.
|
|
|
|
|
* intrinsics/spread_generic.c: Likewise.
|
|
|
|
|
* intrinsics/stat.c: Likewise.
|
|
|
|
|
* generated/all_l4.c: Regenerated.
|
|
|
|
|
* generated/all_l8.c: Regenerated.
|
|
|
|
|
* generated/any_l4.c: Regenerated.
|
|
|
|
|
* generated/any_l8.c: Regenerated.
|
|
|
|
|
* generated/count_4_l4.c: Regenerated.
|
|
|
|
|
* generated/count_4_l8.c: Regenerated.
|
|
|
|
|
* generated/count_8_l4.c: Regenerated.
|
|
|
|
|
* generated/count_8_l8.c: Regenerated.
|
|
|
|
|
* generated/cshift1_4.c: Regenerated.
|
|
|
|
|
* generated/cshift1_8.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_8.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_8.c: Regenerated.
|
|
|
|
|
* generated/in_pack_i4.c: Regenerated.
|
|
|
|
|
* generated/in_pack_i8.c: Regenerated.
|
|
|
|
|
* generated/in_unpack_i4.c: Regenerated.
|
|
|
|
|
* generated/in_unpack_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
|
|
|
|
* generated/maxval_i4.c: Regenerated.
|
|
|
|
|
* generated/maxval_i8.c: Regenerated.
|
|
|
|
|
* generated/maxval_r4.c: Regenerated.
|
|
|
|
|
* generated/maxval_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
|
|
|
|
* generated/minval_i4.c: Regenerated.
|
|
|
|
|
* generated/minval_i8.c: Regenerated.
|
|
|
|
|
* generated/minval_r4.c: Regenerated.
|
|
|
|
|
* generated/minval_r8.c: Regenerated.
|
|
|
|
|
* generated/product_c4.c: Regenerated.
|
|
|
|
|
* generated/product_c8.c: Regenerated.
|
|
|
|
|
* generated/product_i4.c: Regenerated.
|
|
|
|
|
* generated/product_i8.c: Regenerated.
|
|
|
|
|
* generated/product_r4.c: Regenerated.
|
|
|
|
|
* generated/product_r8.c: Regenerated.
|
|
|
|
|
* generated/sum_c4.c: Regenerated.
|
|
|
|
|
* generated/sum_c8.c: Regenerated.
|
|
|
|
|
* generated/sum_i4.c: Regenerated.
|
|
|
|
|
* generated/sum_i8.c: Regenerated.
|
|
|
|
|
* generated/sum_r4.c: Regenerated.
|
|
|
|
|
* generated/sum_r8.c: Regenerated.
|
|
|
|
|
|
2005-04-30 22:51:39 +02:00
|
|
|
2005-04-30 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/18958
|
|
|
|
|
libgfortran.h: Change typedef of index_type from size_t
|
|
|
|
|
to ssize_t.
|
|
|
|
|
|
2005-04-30 20:17:54 +02:00
|
|
|
2005-04-30 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/18857
|
|
|
|
|
* generated/matmul_r8.c: Remove incorrect assertions.
|
|
|
|
|
* generated/matmul_c4.c: Regenerate
|
|
|
|
|
* generated/matmul_c8.c: Regenerate
|
|
|
|
|
* generated/matmul_i4.c: Regenerate
|
|
|
|
|
* generated/matmul_i8.c: Regenerate
|
|
|
|
|
* generated/matmul_r4.c: Regenerate
|
|
|
|
|
* generated/matmul_r8.c: Regenerate
|
|
|
|
|
|
2005-04-29 16:24:04 +02:00
|
|
|
2005-04-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Check for ftruncate and chsize.
|
|
|
|
|
* io/unix.c (fd_truncate): Provide chsize as alternative to
|
|
|
|
|
ftruncate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2005-04-29 02:46:36 +02:00
|
|
|
2004-04-29 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* intrinsics/rename.c: Add missing #includes.
|
|
|
|
|
|
2005-04-28 22:25:11 +02:00
|
|
|
2004-04-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* AUTHORS, COPYING, INSTALL, NEWS, README: Remove.
|
|
|
|
|
|
2005-04-26 21:27:11 +02:00
|
|
|
2005-04-26 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
2005-04-27 00:17:41 +02:00
|
|
|
PR libfortran/20930
|
2005-04-26 21:27:11 +02:00
|
|
|
* io/rewind.c (st_rewind): Flush the stream when resetting the mode
|
|
|
|
|
from WRITING to READING.
|
|
|
|
|
|
|
|
|
|
2005-04-22 Paul Thomas <pault@gcc.gnu.org>
|
2005-05-15 10:25:52 +02:00
|
|
|
Jerry DeLisle <jvdelisle@verizon.net>
|
2005-04-23 14:38:08 +02:00
|
|
|
|
|
|
|
|
* io/write.c (nml_write_obj): Provide 1 more byte for ext_name.
|
|
|
|
|
* io/list_read.c (nml_get_obj_data): Put extra brackets in get_mem
|
|
|
|
|
call for ext_name. These fix the bug reported by Jerry DeLisle to
|
|
|
|
|
the fortran list and are based on his suggested fix.
|
|
|
|
|
|
2005-04-22 22:02:44 +02:00
|
|
|
2005-04-22 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20074
|
|
|
|
|
PR libfortran/20436
|
|
|
|
|
PR libfortran/21108
|
|
|
|
|
* m4/reshape.m4 (reshape_`'rtype_kind): rs, rex: New
|
|
|
|
|
variables, to be used in calculation of return array sizes.
|
|
|
|
|
Populate return array descriptor if ret->data is NULL.
|
|
|
|
|
Fix condition for early return (it used to test something
|
|
|
|
|
undefined if order was used).
|
|
|
|
|
Remove duplicate check wether pad is used.
|
|
|
|
|
* intrinsics/reshape_generic.c (reshape_generic): Likewise.
|
|
|
|
|
Fix a few places where the wrong variables were set.
|
|
|
|
|
* generated/reshape_i4.c: Regenerated.
|
|
|
|
|
* generated/reshape_i8.c: Regenerated.
|
|
|
|
|
|
2005-04-30 20:17:54 +02:00
|
|
|
2005-04-18 Paul Thomas <pault@gcc.gnu.org>
|
2005-04-19 00:19:27 +02:00
|
|
|
|
|
|
|
|
* io/list_read.c (nml_touch_nodes, nml_read_obj,
|
|
|
|
|
nml_get_obj_data): Fix memory leaks in code for derived types.
|
|
|
|
|
|
2005-04-18 09:34:32 +02:00
|
|
|
2005-04-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20950
|
|
|
|
|
* io/inquire.c (inquire_via_unit): Check for the gfc_unit being
|
|
|
|
|
NULL when setting ioparm.sequential.
|
|
|
|
|
|
2005-04-17 22:26:57 +02:00
|
|
|
2005-04-17 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/21075
|
|
|
|
|
* m4/reshape.m4 (reshape_`'rtype_kind): Change dimension
|
|
|
|
|
of auxiliary arrays from GFC_MAX_DIMENSIONS - 1 to
|
|
|
|
|
GFC_MAX_DIMENSIONS.
|
|
|
|
|
* intrinsics/reshape_generic.c (reshape_generic): Likewise.
|
|
|
|
|
* generated/reshape_i4.c: Regenerated.
|
|
|
|
|
* generated/reshape_i8.c: Regenerated.
|
|
|
|
|
|
2005-04-17 22:09:37 +02:00
|
|
|
2005-04-17 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
2005-04-19 00:19:27 +02:00
|
|
|
* io/list_read.c (eat_separator): at_eol = 1 replaced
|
|
|
|
|
(zapped at some time?).
|
2005-04-17 22:09:37 +02:00
|
|
|
|
|
|
|
|
2005-04-17 Paul Thomas <pault@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/12884
|
|
|
|
|
PR libgfortran/17285
|
|
|
|
|
PR libgfortran/18122
|
|
|
|
|
PR libgfortran/18210
|
|
|
|
|
PR libgfortran/18392
|
|
|
|
|
PR libgfortran/18591
|
|
|
|
|
PR libgfortran/18879
|
|
|
|
|
* io/io.h (nml_ls): Declare.
|
|
|
|
|
(namelist_info): Modify for arrays.
|
|
|
|
|
* io/list_read.c (namelist_read): Reduced to call to new functions.
|
|
|
|
|
(match_namelist_name): Simplified.
|
|
|
|
|
(nml_query): Handles stdin queries ? and =?. New function.
|
|
|
|
|
(nml_get_obj_data): Parses object name. New function.
|
|
|
|
|
(touch_nml_nodes): Marks objects for read. New function.
|
|
|
|
|
(untouch_nml_nodes): Resets objects. New function.
|
|
|
|
|
(parse_qualifier): Parses and checks qualifiers. New function
|
|
|
|
|
(nml_read_object): Reads and stores object data. New function.
|
|
|
|
|
(eat_separator): No new_record on '/' in namelist.
|
|
|
|
|
(finish_separator): No new_record on '/' in namelist.
|
|
|
|
|
(read_logical): Error return for namelist.
|
|
|
|
|
(read_integer): Error return for namelist.
|
|
|
|
|
(read_complex): Error return for namelist.
|
|
|
|
|
(read_real): Error return for namelist.
|
|
|
|
|
* io/lock.c (library_end): Free extended namelist_info types.
|
|
|
|
|
* io/transfer.c (st_set_nml_var): Modified for arrays.
|
|
|
|
|
(st_set_nml_var_dim): Dimension descriptors. New function.
|
|
|
|
|
* io/write.c (namelist_write): Reduced to call to new functions.
|
|
|
|
|
(nml_write_obj): Writes output for object. New function.
|
|
|
|
|
(write_integer): Suppress leading blanks for repeat counts.
|
|
|
|
|
(write_int): Suppress leading blanks for repeat counts.
|
|
|
|
|
(write_float): Suppress leading blanks for repeat counts.
|
|
|
|
|
(output_float): Suppress leading blanks for repeat counts.
|
|
|
|
|
|
2005-04-15 22:06:17 +02:00
|
|
|
2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/18495
|
|
|
|
|
* intrinsics/spread_generic.c (spread): Remove const from
|
|
|
|
|
return array descriptor.
|
|
|
|
|
New variables: rrank (rank of return array), rs (for
|
|
|
|
|
calculating the size of the return array), srank (rank
|
|
|
|
|
of the source array).
|
|
|
|
|
Generate runtime error if the dim= argument is larger than
|
|
|
|
|
the rank of the return array.
|
|
|
|
|
Generate runtime error if the needed rank of the return
|
|
|
|
|
array is larger than 7.
|
|
|
|
|
If ret->data is null, populate the return array descriptor
|
|
|
|
|
and initialize the variables for the actual operation.
|
|
|
|
|
Otherwise, set ret->dim[0].stride to one if it is zero.
|
|
|
|
|
Change second, independent use of variable dim to srank.
|
|
|
|
|
|
2005-04-13 03:41:26 +02:00
|
|
|
2005-04-12 Mike Stump <mrs@apple.com>
|
|
|
|
|
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2005-04-13 00:57:10 +02:00
|
|
|
2005-04-13 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19106
|
|
|
|
|
* m4/iforeach.c (name`'rtype_qual`_'atype_code): Add TODO
|
|
|
|
|
that setting correct strides is a front end job.
|
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise. If mask has
|
|
|
|
|
a lowest stride of 0, adjust to 1.
|
|
|
|
|
* m4/ifunction.c (name`'rtype_qual`_'atype_code): Add TODO
|
|
|
|
|
that setting correct strides is a front end job.
|
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise. If mask has
|
|
|
|
|
a lowest stride of 0, adjust to 1.
|
|
|
|
|
* maxloc0_4_i4.c: Regenerated
|
|
|
|
|
* maxloc0_4_i8.c: Regenerated
|
|
|
|
|
* maxloc0_4_r4.c: Regenerated
|
|
|
|
|
* maxloc0_4_r8.c: Regenerated
|
|
|
|
|
* maxloc0_8_i4.c: Regenerated
|
|
|
|
|
* maxloc0_8_i8.c: Regenerated
|
|
|
|
|
* maxloc0_8_r4.c: Regenerated
|
|
|
|
|
* maxloc0_8_r8.c: Regenerated
|
|
|
|
|
* maxloc1_4_i4.c: Regenerated
|
|
|
|
|
* maxloc1_4_i8.c: Regenerated
|
|
|
|
|
* maxloc1_4_r4.c: Regenerated
|
|
|
|
|
* maxloc1_4_r8.c: Regenerated
|
|
|
|
|
* maxloc1_8_i4.c: Regenerated
|
|
|
|
|
* maxloc1_8_i8.c: Regenerated
|
|
|
|
|
* maxloc1_8_r4.c: Regenerated
|
|
|
|
|
* maxloc1_8_r8.c: Regenerated
|
|
|
|
|
* maxval_i4.c: Regenerated
|
|
|
|
|
* maxval_i8.c: Regenerated
|
|
|
|
|
* maxval_r4.c: Regenerated
|
|
|
|
|
* maxval_r8.c: Regenerated
|
|
|
|
|
* minloc0_4_i4.c: Regenerated
|
|
|
|
|
* minloc0_4_i8.c: Regenerated
|
|
|
|
|
* minloc0_4_r4.c: Regenerated
|
|
|
|
|
* minloc0_4_r8.c: Regenerated
|
|
|
|
|
* minloc0_8_i4.c: Regenerated
|
|
|
|
|
* minloc0_8_i8.c: Regenerated
|
|
|
|
|
* minloc0_8_r4.c: Regenerated
|
|
|
|
|
* minloc0_8_r8.c: Regenerated
|
|
|
|
|
* minloc1_4_i4.c: Regenerated
|
|
|
|
|
* minloc1_4_i8.c: Regenerated
|
|
|
|
|
* minloc1_4_r4.c: Regenerated
|
|
|
|
|
* minloc1_4_r8.c: Regenerated
|
|
|
|
|
* minloc1_8_i4.c: Regenerated
|
|
|
|
|
* minloc1_8_i8.c: Regenerated
|
|
|
|
|
* minloc1_8_r4.c: Regenerated
|
|
|
|
|
* minloc1_8_r8.c: Regenerated
|
|
|
|
|
* minval_i4.c: Regenerated
|
|
|
|
|
* minval_i8.c: Regenerated
|
|
|
|
|
* minval_r4.c: Regenerated
|
|
|
|
|
* minval_r8.c: Regenerated
|
|
|
|
|
* product_c4.c: Regenerated
|
|
|
|
|
* product_c8.c: Regenerated
|
|
|
|
|
* product_i4.c: Regenerated
|
|
|
|
|
* product_i8.c: Regenerated
|
|
|
|
|
* product_r4.c: Regenerated
|
|
|
|
|
* product_r8.c: Regenerated
|
|
|
|
|
* sum_c4.c: Regenerated
|
|
|
|
|
* sum_c8.c: Regenerated
|
|
|
|
|
* sum_i4.c: Regenerated
|
|
|
|
|
* sum_i8.c: Regenerated
|
|
|
|
|
* sum_r4.c: Regenerated
|
|
|
|
|
* sum_r8.c: Regenerated
|
|
|
|
|
|
2005-04-10 12:37:59 +02:00
|
|
|
2005-04-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20788
|
|
|
|
|
* runtime/environ.c (init_unsigned_integer): Function for
|
|
|
|
|
environment variables we want to be positive.
|
|
|
|
|
(init_integer): Function to allow negative environment
|
|
|
|
|
variables (e.g. for GFORTRAN_STDIN_UNIT).
|
2005-05-15 10:25:52 +02:00
|
|
|
|
2005-04-10 10:35:39 +02:00
|
|
|
2005-04-10 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/17992
|
|
|
|
|
PR libfortran/19568
|
|
|
|
|
PR libfortran/19595
|
|
|
|
|
PR libfortran/20005
|
|
|
|
|
PR libfortran/20092
|
|
|
|
|
PR libfortran/20131
|
|
|
|
|
PR libfortran/20661
|
|
|
|
|
PR libfortran/20744
|
|
|
|
|
* io/transfer.c (top level): eor_condition: New static variable.
|
|
|
|
|
(read_sf): Remove unnecessary zeroing of buffer (there is enough
|
|
|
|
|
information in its length).
|
|
|
|
|
Return a string of length 0 (to be padded by caller) if EOR was
|
|
|
|
|
seen previously.
|
|
|
|
|
Remove erroneous special casing of EOR for standard input.
|
|
|
|
|
Set eor_condition for non-advancing I/O if an end of line was
|
|
|
|
|
detected.
|
|
|
|
|
Increment ioparm.size if necessary.
|
|
|
|
|
(formatted_transfer): Skip the function if there is an EOR condition.
|
|
|
|
|
(data_transfer_init): Initialize eor_condition to zero (false).
|
|
|
|
|
(next_record_r): Clear sf_seen_eor if a \n has been seen already.
|
|
|
|
|
(finalize_transfer): If there is an EOR condition, raise the error.
|
|
|
|
|
|
2005-04-10 05:43:09 +02:00
|
|
|
2005-04-09 Bud Davis <bdavis@gfortran.org>
|
2005-07-24 12:37:48 +02:00
|
|
|
Steven G. Kargl <kargls@comcast.net>
|
2005-04-10 05:43:09 +02:00
|
|
|
|
|
|
|
|
PR fortran/19872
|
|
|
|
|
* io/transfer.c (data_transfer_init): truncate an existing
|
|
|
|
|
file on the first write.
|
|
|
|
|
|
2005-04-09 23:38:47 +02:00
|
|
|
2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19106
|
|
|
|
|
PR libfortran/19014
|
|
|
|
|
* m4/ifunction.m4 (name`'rtype_qual`_'atype_code): ditto.
|
|
|
|
|
If retarray->data is NULL (i.e. the front end does not
|
|
|
|
|
know the rank and dimenson of the array), fill in its
|
|
|
|
|
properties and allocate memory.
|
|
|
|
|
Change the assertions about rank and dimension of retarray into
|
|
|
|
|
runtime errors and only check them for retarray->data != NULL.
|
|
|
|
|
Do the same for correcting the stride from 0 to 1 in retarray.
|
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
|
* m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
|
Change assertion about rank of array to runtime error.
|
|
|
|
|
(`m'name`'rtype_qual`_'atype_code): Likewise.
|
|
|
|
|
* generated/all_l4.c: Regenerated.
|
|
|
|
|
* generated/all_l8.c: Regenerated.
|
|
|
|
|
* generated/any_l4.c: Regenerated.
|
|
|
|
|
* generated/any_l8.c: Regenerated.
|
|
|
|
|
* generated/count_4_l4.c: Regenerated.
|
|
|
|
|
* generated/count_4_l8.c: Regenerated.
|
|
|
|
|
* generated/count_8_l4.c: Regenerated.
|
|
|
|
|
* generated/count_8_l8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_4_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc0_8_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
|
|
|
|
* generated/maxval_i4.c: Regenerated.
|
|
|
|
|
* generated/maxval_i8.c: Regenerated.
|
|
|
|
|
* generated/maxval_r4.c: Regenerated.
|
|
|
|
|
* generated/maxval_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_4_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc0_8_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
|
|
|
|
* generated/minval_i4.c: Regenerated.
|
|
|
|
|
* generated/minval_i8.c: Regenerated.
|
|
|
|
|
* generated/minval_r4.c: Regenerated.
|
|
|
|
|
* generated/minval_r8.c: Regenerated.
|
|
|
|
|
* generated/product_c4.c: Regenerated.
|
|
|
|
|
* generated/product_c8.c: Regenerated.
|
|
|
|
|
* generated/product_i4.c: Regenerated.
|
|
|
|
|
* generated/product_i8.c: Regenerated.
|
|
|
|
|
* generated/product_r4.c: Regenerated.
|
|
|
|
|
* generated/product_r8.c: Regenerated.
|
|
|
|
|
* generated/sum_c4.c: Regenerated.
|
|
|
|
|
* generated/sum_c8.c: Regenerated.
|
|
|
|
|
* generated/sum_i4.c: Regenerated.
|
|
|
|
|
* generated/sum_i8.c: Regenerated.
|
|
|
|
|
* generated/sum_r4.c: Regenerated.
|
|
|
|
|
* generated/sum_r8.c: Regenerated.
|
|
|
|
|
|
2005-04-09 21:37:14 +02:00
|
|
|
2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20163
|
2005-05-15 10:25:52 +02:00
|
|
|
* runtime/string.c (compare0): Use fstrlen() to
|
2005-04-09 21:37:14 +02:00
|
|
|
strip trailing blanks from option string.
|
|
|
|
|
|
2005-04-09 20:44:07 +02:00
|
|
|
2005-04-09 Andrew Pinski <pinskia@physics.uc.edu>
|
|
|
|
|
|
|
|
|
|
PR fortran/13257
|
|
|
|
|
* format.c (parse_format_list): Allow an optional comma
|
|
|
|
|
between descriptors.
|
|
|
|
|
|
2005-04-08 21:07:54 +02:00
|
|
|
2005-04-08 Eric Botcazou <ebotcazou@libertysurf.fr>
|
|
|
|
|
|
|
|
|
|
* io/backspace.c (unformatted_backspace): Do not dereference
|
|
|
|
|
the pointer to the stream.
|
|
|
|
|
|
2005-04-07 23:06:27 +02:00
|
|
|
2005-04-07 Andrew Pinski <pinskia@physics.uc.edu>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20766
|
|
|
|
|
* configure.ac (extra_ldflags_libgfortran): Set for *-darwin* to
|
|
|
|
|
"-Wl,-single_module".
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* Makefile.am (libgfortran_la_LDFLAGS): Add extra_ldflags_libgfortran.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2005-04-05 16:20:10 +02:00
|
|
|
2005-04-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20755
|
|
|
|
|
* write.c (write_float): A G edit descriptor may locally change
|
|
|
|
|
the scale factor, but it needs to be restored afterwards.
|
|
|
|
|
|
2005-04-03 10:07:43 +02:00
|
|
|
2005-04-03 Dale Ranta <dir@lanl.gov>
|
2005-07-24 12:37:48 +02:00
|
|
|
Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
2005-04-03 10:07:43 +02:00
|
|
|
|
|
|
|
|
PR libfortran/20068
|
|
|
|
|
PR libfortran/20125
|
|
|
|
|
PR libfortran/20156
|
|
|
|
|
PR libfortran/20471
|
|
|
|
|
* io/backspace.c (unformatted_backspace): Fix error in arithmetic.
|
|
|
|
|
(st_backspace): When in WRITING mode, we flush and falling back
|
|
|
|
|
into READING mode. In all cases, correctly position the stream.
|
|
|
|
|
|
2005-03-31 17:30:06 +02:00
|
|
|
2005-03-31 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20660
|
|
|
|
|
* io/inquire.c (inquire_via_unit): Non-opened units should still be
|
|
|
|
|
reported by an INQUIRE statement as existing.
|
|
|
|
|
* io/transfer.c (data_transfer_init): Never accept negative units.
|
|
|
|
|
|
2005-03-29 10:37:32 +02:00
|
|
|
2005-03-29 Dale Ranta <dir@lanl.gov>
|
|
|
|
|
Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20163
|
|
|
|
|
* io/open.c (st_open): call library_end() before returning even if
|
|
|
|
|
an error arises.
|
|
|
|
|
|
2005-03-25 14:35:29 +01:00
|
|
|
2005-03-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19678
|
|
|
|
|
* list_read.c (next_char, eat_separator, finish_separator, read_real)
|
|
|
|
|
(namelist_read): Add support for '\r' as well as '\n' as EOL
|
|
|
|
|
character.
|
|
|
|
|
|
|
|
|
|
PR libfortran/19679
|
|
|
|
|
* list_read.c (read_sf): Add a '\r' in a test to support DOS
|
|
|
|
|
line-endings when line length is exceeded.
|
|
|
|
|
|
2005-03-25 08:04:27 +01:00
|
|
|
2005-03-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/15332
|
|
|
|
|
* io/format.c (parse_format_list): format node for colon edit
|
|
|
|
|
descriptor needs a repeat counter set to 1.
|
|
|
|
|
|
2005-03-24 18:55:31 +01:00
|
|
|
2005-02-24 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
|
2005-03-23 22:45:04 +01:00
|
|
|
2005-02-23 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
2005-03-23 22:42:10 +01:00
|
|
|
|
|
|
|
|
PR libfortran/18025
|
|
|
|
|
* write.c (output_float): Handling the "F0.d" format similarly as
|
|
|
|
|
commercial compilers.
|
|
|
|
|
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
2005-03-22 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Added new files.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* aclocal.m4: Regenerate.
|
|
|
|
|
* configure.ac: add checks for signal.h headers file, as well as
|
|
|
|
|
following functions: chdir, strerror, getlogin, gethostname, kill,
|
|
|
|
|
link, symlink, perror, sleep, time.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
|
|
|
|
|
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
|
|
|
|
|
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
|
|
|
|
|
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
|
|
|
|
|
implementend g77 intrinsics.
|
|
|
|
|
|
2005-03-21 18:46:19 +01:00
|
|
|
2005-03-21 Zack Weinberg <zack@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Do not invoke TL_AC_GCC_VERSION.
|
|
|
|
|
In all substitutions, leave gcc_version to be expanded by the Makefile.
|
|
|
|
|
* aclocal.m4, configure: Regenerate.
|
|
|
|
|
* Makefile.am: Set gcc_version.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2005-03-16 20:32:08 +01:00
|
|
|
2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20257
|
|
|
|
|
* open.c (new_unit): set record length to max_offset rather than
|
|
|
|
|
using a hard-coded limit (which was too low).
|
|
|
|
|
|
2005-03-16 19:09:03 +01:00
|
|
|
2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20480
|
|
|
|
|
* write.c (output_float): special check when writing 0.0 with
|
|
|
|
|
EN and ES formats.
|
|
|
|
|
|
2005-03-11 09:03:02 +01:00
|
|
|
2005-03-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20124
|
|
|
|
|
* write.c (output_float): Adds a nzero_real variable to store
|
|
|
|
|
the number of leading zeros whatever the format width is. Corrects
|
|
|
|
|
the rounding of numbers less than 10^(-width). Fixes typo in an
|
|
|
|
|
error message. Updates copyright years
|
|
|
|
|
|
2005-02-27 21:59:02 +01:00
|
|
|
2005-02-27 Toon Moene <toon@moene.indiv.nluug.nl>
|
|
|
|
|
|
|
|
|
|
* runtime/environ.c: Update copyright years.
|
|
|
|
|
|
2005-02-27 21:11:01 +01:00
|
|
|
2005-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* io/write.c: Update copyright years.
|
|
|
|
|
|
2005-02-27 20:47:12 +01:00
|
|
|
2005-02-27 Francois-Xavier Coudert <coudert@clipper.ens.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/20101
|
2005-02-27 21:11:01 +01:00
|
|
|
* io/write.c (output_float): Added special check for value 0.0 in
|
2005-02-27 20:47:12 +01:00
|
|
|
PE format.
|
|
|
|
|
|
2005-02-27 17:17:56 +01:00
|
|
|
2004-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* io/write.c (output_float): Fix typo in condition.
|
|
|
|
|
|
2005-02-27 21:59:02 +01:00
|
|
|
2005-02-25 Peter O'Gorman <peter@pogma.com>
|
2005-03-21 18:46:19 +01:00
|
|
|
Toon Moene <toon@moene.indiv.nluug.nl>
|
2005-02-26 19:33:11 +01:00
|
|
|
|
|
|
|
|
PR libgfortran/17748
|
|
|
|
|
* runtime/environ.c: Remove references to environ.
|
2005-03-21 18:46:19 +01:00
|
|
|
(show_variables): remove GFORTRAN_UNBUFFERED_* and
|
2005-02-26 19:33:11 +01:00
|
|
|
GFORTRAN_NAME_* because they require environ.
|
|
|
|
|
(pattern_scan): Remove function.
|
|
|
|
|
|
2005-02-23 05:09:17 +01:00
|
|
|
2004-02-22 Paul Thomas <paulthomas2@wannado.fr>
|
|
|
|
|
Bud Davis <bdavis@gfortran.org>
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (read_real): Handle separators properly
|
|
|
|
|
in list directed read.
|
|
|
|
|
|
2005-02-22 04:26:25 +01:00
|
|
|
2004-02-21 Bud Davis <bdavis@gfortran.org>
|
|
|
|
|
|
|
|
|
|
PR fortran/20086
|
|
|
|
|
* io/transfer.c (write_constant_string): accept an 'h' as
|
|
|
|
|
the start of a hollerith format string.
|
|
|
|
|
|
2005-02-21 22:39:33 +01:00
|
|
|
2005-02-21 Eric Botcazou <ebotcazou@libertysurf.fr>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19302
|
|
|
|
|
* intrinsics/c99_functions.c (nextafterf): Special-case infinite
|
|
|
|
|
numbers.
|
|
|
|
|
|
2005-02-21 20:59:58 +01:00
|
|
|
2005-02-21 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* io/write.c (output_float): Typo in error meesage.
|
|
|
|
|
|
2005-02-20 16:24:02 +01:00
|
|
|
2005-02-20 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
2005-03-21 18:46:19 +01:00
|
|
|
PR 20085
|
|
|
|
|
* intrinsic/args.c (iargc): Off by 1.
|
2005-02-20 16:24:02 +01:00
|
|
|
|
2005-02-19 19:06:00 +01:00
|
|
|
2005-02-19 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
2005-07-24 12:37:48 +02:00
|
|
|
* intrinsic/date_and_time.c: Fix conformance problems.
|
2005-02-19 19:06:00 +01:00
|
|
|
|
2005-02-01 10:06:22 +01:00
|
|
|
2005-02-01 Paul Thomas <paulthomas2@wanadoo.fr>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/19363
|
|
|
|
|
PR libgfortran/19691
|
|
|
|
|
* libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.
|
|
|
|
|
|
2005-01-30 14:16:19 +01:00
|
|
|
2005-01-30 Bud Davis <bdavis@gfortran.org>
|
|
|
|
|
|
|
|
|
|
PR fortran/19647
|
|
|
|
|
* io/inquire.c (inquire_via_unit): Use correct variable for
|
|
|
|
|
pad.
|
|
|
|
|
|
2005-01-29 16:45:17 +01:00
|
|
|
2005-01-29 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19595
|
|
|
|
|
* io/transfer.c (data_transfer_init): eor requires advance="NO".
|
|
|
|
|
|
2005-01-25 22:40:25 +01:00
|
|
|
2005-01-25 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19524
|
|
|
|
|
* io/read.c (read_f): Don't free uninitialized pointer.
|
|
|
|
|
|
2005-01-23 18:01:00 +01:00
|
|
|
2005-01-23 James A. Morrison <phython@gcc.gnu.org>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/19294
|
|
|
|
|
* Makefile.am: Add transpose_c4.c and transpose_c8.c.
|
|
|
|
|
* intrinsics/cshift0.c: Use separate optimized loops for complex types.
|
|
|
|
|
* m4/transpose.m4: Include type letter in function name.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* generated/transpose_*.c: Regenerate.
|
|
|
|
|
|
2005-01-23 03:18:33 +01:00
|
|
|
2005-01-22 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19451
|
|
|
|
|
* io/transfer.c (finalize_transfer): Don't do anything if
|
|
|
|
|
there is an error condition.
|
|
|
|
|
|
2005-01-23 01:14:31 +01:00
|
|
|
2005-01-22 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/19052
|
|
|
|
|
* libgfortran.h (options_t): Add stderr_unit.
|
|
|
|
|
* io/io.h (error_stream): Declare.
|
|
|
|
|
* io/open.c (new_unit): Do not terminate abnormally if opening
|
|
|
|
|
file preconnected to stdin, stdout, or stderr.
|
|
|
|
|
* io/unit.c (init_units): Initialize stderr_unit.
|
|
|
|
|
* io/unix.c (error_stream): New function.
|
|
|
|
|
* runtime/environ.c (GFORTRAN_STDERR_UNIT): New environment variable.
|
|
|
|
|
|
2005-01-22 20:49:18 +01:00
|
|
|
2005-01-22 Thomas Koenig <Thomas.Koenig@online.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/18982
|
|
|
|
|
* io/unix.c (regular_file): No need to change flags->action
|
2005-03-21 18:46:19 +01:00
|
|
|
if an error occurs. Document this.
|
2005-01-22 20:49:18 +01:00
|
|
|
No need to call stat() for STATUS_OLD, open() will
|
|
|
|
|
fail anyway.
|
|
|
|
|
For ACTION_UNSPECIFIED, try open for read-write, then for
|
|
|
|
|
read-only if open fails with EACCES, then for write-only
|
|
|
|
|
if that fails with EACCES again.
|
|
|
|
|
* io/unix.c (open_external): Document changed behavior of
|
|
|
|
|
regular_file.
|
|
|
|
|
|
2005-01-22 15:37:39 +01:00
|
|
|
2005-01-22 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
|
2005-03-21 18:46:19 +01:00
|
|
|
|
2005-01-22 15:37:39 +01:00
|
|
|
PR fortran/19194
|
|
|
|
|
* io/io.h (st_parameter): Use 'GFC_INTEGER_4' instead of 'int',
|
|
|
|
|
use CHARACTER macro for definition of string valued paramters.
|
2005-03-21 18:46:19 +01:00
|
|
|
|
2005-01-22 15:37:39 +01:00
|
|
|
2005-01-22 Bud Davis <bdavis9659@comcast.net>
|
2005-01-22 04:51:12 +01:00
|
|
|
|
|
|
|
|
PR fortran/19314
|
|
|
|
|
* io/inquire.c(inquire_via_unit): implement POSITION=.
|
2005-03-21 18:46:19 +01:00
|
|
|
* io/transfer.c(next_record): update position for
|
2005-01-22 04:51:12 +01:00
|
|
|
INQUIRE.
|
|
|
|
|
* io/rewind.c(st_rewind): update position for
|
|
|
|
|
INQUIRE.
|
|
|
|
|
|
2005-01-22 15:37:39 +01:00
|
|
|
2005-01-16 Bud Davis <bdavis9659@comcast.net>
|
2005-01-16 21:44:01 +01:00
|
|
|
|
|
|
|
|
PR fortran/18778
|
|
|
|
|
* io/transfer.c (us_read): no bytes available is not a
|
|
|
|
|
runtime error.
|
|
|
|
|
|
2005-01-15 09:10:23 +01:00
|
|
|
2005-01-15 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/18983
|
|
|
|
|
* io/transfer.c (st_write_done): only truncate when it
|
|
|
|
|
is required.
|
|
|
|
|
|
2005-01-12 22:27:33 +01:00
|
|
|
2005-01-12 Toon Moene <toon@moene.indiv.nluug.nl>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19280
|
|
|
|
|
c99_protos.h: License changed to GPL+exception.
|
|
|
|
|
libgfortran.h: Ditto.
|
|
|
|
|
intrinsics/abort.c: Ditto.
|
|
|
|
|
intrinsics/args.c: Ditto.
|
|
|
|
|
intrinsics/associated.c: Ditto.
|
|
|
|
|
intrinsics/bessel.c: Ditto.
|
|
|
|
|
intrinsics/c99_functions.c: Ditto.
|
|
|
|
|
intrinsics/cpu_time.c: Ditto.
|
|
|
|
|
intrinsics/cshift0.c: Ditto.
|
|
|
|
|
intrinsics/date_and_time.c: Ditto.
|
|
|
|
|
intrinsics/env.c: Ditto.
|
|
|
|
|
intrinsics/eoshift0.c: Ditto.
|
|
|
|
|
intrinsics/eoshift2.c: Ditto.
|
|
|
|
|
intrinsics/erf.c: Ditto.
|
|
|
|
|
intrinsics/etime.c: Ditto.
|
|
|
|
|
intrinsics/exit.c: Ditto.
|
|
|
|
|
intrinsics/flush.c: Ditto.
|
|
|
|
|
intrinsics/fnum.c: Ditto.
|
|
|
|
|
intrinsics/getXid.c: Ditto.
|
|
|
|
|
intrinsics/getcwd.c: Ditto.
|
|
|
|
|
intrinsics/ishftc.c: Ditto.
|
|
|
|
|
intrinsics/mvbits.c: Ditto.
|
|
|
|
|
intrinsics/pack_generic.c: Ditto.
|
|
|
|
|
intrinsics/rand.c: Ditto.
|
|
|
|
|
intrinsics/random.c: Ditto.
|
|
|
|
|
intrinsics/reshape_generic.c: Ditto.
|
|
|
|
|
intrinsics/reshape_packed.c: Ditto.
|
|
|
|
|
intrinsics/size.c: Ditto.
|
|
|
|
|
intrinsics/spread_generic.c: Ditto.
|
|
|
|
|
intrinsics/stat.c: Ditto.
|
|
|
|
|
intrinsics/string_intrinsics.c: Ditto.
|
|
|
|
|
intrinsics/system.c: Ditto.
|
|
|
|
|
intrinsics/system_clock.c: Ditto.
|
|
|
|
|
intrinsics/transpose_generic.c: Ditto.
|
|
|
|
|
intrinsics/umask.c: Ditto.
|
|
|
|
|
intrinsics/unlink.c: Ditto.
|
|
|
|
|
intrinsics/unpack_generic.c: Ditto.
|
|
|
|
|
io/backspace.c: Ditto.
|
|
|
|
|
io/close.c: Ditto.
|
|
|
|
|
io/endfile.c: Ditto.
|
|
|
|
|
io/format.c: Ditto.
|
|
|
|
|
io/inquire.c: Ditto.
|
|
|
|
|
io/io.h: Ditto.
|
|
|
|
|
io/list_read.c: Ditto.
|
|
|
|
|
io/lock.c: Ditto.
|
|
|
|
|
io/open.c: Ditto.
|
|
|
|
|
io/read.c: Ditto.
|
|
|
|
|
io/rewind.c: Ditto.
|
|
|
|
|
io/transfer.c: Ditto.
|
|
|
|
|
io/unit.c: Ditto.
|
|
|
|
|
io/unix.c: Ditto.
|
|
|
|
|
io/write.c: Ditto.
|
|
|
|
|
m4/all.m4: Ditto.
|
|
|
|
|
m4/any.m4: Ditto.
|
|
|
|
|
m4/cexp.m4: Ditto.
|
|
|
|
|
m4/chyp.m4: Ditto.
|
|
|
|
|
m4/count.m4: Ditto.
|
|
|
|
|
m4/cshift1.m4: Ditto.
|
|
|
|
|
m4/ctrig.m4: Ditto.
|
|
|
|
|
m4/dotprod.m4: Ditto.
|
|
|
|
|
m4/dotprodc.m4: Ditto.
|
|
|
|
|
m4/dotprodl.m4: Ditto.
|
|
|
|
|
m4/eoshift1.m4: Ditto.
|
|
|
|
|
m4/eoshift3.m4: Ditto.
|
|
|
|
|
m4/exponent.m4: Ditto.
|
|
|
|
|
m4/fraction.m4: Ditto.
|
|
|
|
|
m4/head.m4: Ditto.
|
|
|
|
|
m4/iforeach.m4: Ditto.
|
|
|
|
|
m4/ifunction.m4: Ditto.
|
|
|
|
|
m4/in_pack.m4: Ditto.
|
|
|
|
|
m4/in_unpack.m4: Ditto.
|
|
|
|
|
m4/iparm.m4: Ditto.
|
|
|
|
|
m4/matmul.m4: Ditto.
|
|
|
|
|
m4/matmull.m4: Ditto.
|
|
|
|
|
m4/maxloc0.m4: Ditto.
|
|
|
|
|
m4/maxloc1.m4: Ditto.
|
|
|
|
|
m4/maxval.m4: Ditto.
|
|
|
|
|
m4/minloc0.m4: Ditto.
|
|
|
|
|
m4/minloc1.m4: Ditto.
|
|
|
|
|
m4/minval.m4: Ditto.
|
|
|
|
|
m4/mtype.m4: Ditto.
|
|
|
|
|
m4/nearest.m4: Ditto.
|
|
|
|
|
m4/pow.m4: Ditto.
|
|
|
|
|
m4/product.m4: Ditto.
|
|
|
|
|
m4/reshape.m4: Ditto.
|
|
|
|
|
m4/set_exponent.m4: Ditto.
|
|
|
|
|
m4/shape.m4: Ditto.
|
|
|
|
|
m4/specific.m4: Ditto.
|
|
|
|
|
m4/specific2.m4: Ditto.
|
|
|
|
|
m4/sum.m4: Ditto.
|
|
|
|
|
m4/transpose.m4: Ditto.
|
|
|
|
|
m4/types.m4: Ditto.
|
|
|
|
|
runtime/environ.c: Ditto.
|
|
|
|
|
runtime/error.c: Ditto.
|
|
|
|
|
runtime/in_pack_generic.c: Ditto.
|
|
|
|
|
runtime/in_unpack_generic.c: Ditto.
|
|
|
|
|
runtime/main.c: Ditto.
|
|
|
|
|
runtime/memory.c: Ditto.
|
|
|
|
|
runtime/normalize.c: Ditto.
|
|
|
|
|
runtime/pause.c: Ditto.
|
|
|
|
|
runtime/select.c: Ditto.
|
|
|
|
|
runtime/stop.c: Ditto.
|
|
|
|
|
runtime/string.c: Ditto.
|
|
|
|
|
generated/_abs_c4.f90: Regenerated.
|
|
|
|
|
generated/_abs_c8.f90: Regenerated.
|
|
|
|
|
generated/_abs_i4.f90: Regenerated.
|
|
|
|
|
generated/_abs_i8.f90: Regenerated.
|
|
|
|
|
generated/_abs_r4.f90: Regenerated.
|
|
|
|
|
generated/_abs_r8.f90: Regenerated.
|
|
|
|
|
generated/_acos_r4.f90: Regenerated.
|
|
|
|
|
generated/_acos_r8.f90: Regenerated.
|
|
|
|
|
generated/_aint_r4.f90: Regenerated.
|
|
|
|
|
generated/_aint_r8.f90: Regenerated.
|
|
|
|
|
generated/_anint_r4.f90: Regenerated.
|
|
|
|
|
generated/_anint_r8.f90: Regenerated.
|
|
|
|
|
generated/_asin_r4.f90: Regenerated.
|
|
|
|
|
generated/_asin_r8.f90: Regenerated.
|
|
|
|
|
generated/_atan2_r4.f90: Regenerated.
|
|
|
|
|
generated/_atan2_r8.f90: Regenerated.
|
|
|
|
|
generated/_atan_r4.f90: Regenerated.
|
|
|
|
|
generated/_atan_r8.f90: Regenerated.
|
|
|
|
|
generated/_conjg_c4.f90: Regenerated.
|
|
|
|
|
generated/_conjg_c8.f90: Regenerated.
|
|
|
|
|
generated/_cos_c4.f90: Regenerated.
|
|
|
|
|
generated/_cos_c8.f90: Regenerated.
|
|
|
|
|
generated/_cos_r4.f90: Regenerated.
|
|
|
|
|
generated/_cos_r8.f90: Regenerated.
|
|
|
|
|
generated/_cosh_r4.f90: Regenerated.
|
|
|
|
|
generated/_cosh_r8.f90: Regenerated.
|
|
|
|
|
generated/_dim_i4.f90: Regenerated.
|
|
|
|
|
generated/_dim_i8.f90: Regenerated.
|
|
|
|
|
generated/_dim_r4.f90: Regenerated.
|
|
|
|
|
generated/_dim_r8.f90: Regenerated.
|
|
|
|
|
generated/_exp_c4.f90: Regenerated.
|
|
|
|
|
generated/_exp_c8.f90: Regenerated.
|
|
|
|
|
generated/_exp_r4.f90: Regenerated.
|
|
|
|
|
generated/_exp_r8.f90: Regenerated.
|
|
|
|
|
generated/_log10_r4.f90: Regenerated.
|
|
|
|
|
generated/_log10_r8.f90: Regenerated.
|
|
|
|
|
generated/_log_c4.f90: Regenerated.
|
|
|
|
|
generated/_log_c8.f90: Regenerated.
|
|
|
|
|
generated/_log_r4.f90: Regenerated.
|
|
|
|
|
generated/_log_r8.f90: Regenerated.
|
|
|
|
|
generated/_mod_i4.f90: Regenerated.
|
|
|
|
|
generated/_mod_i8.f90: Regenerated.
|
|
|
|
|
generated/_mod_r4.f90: Regenerated.
|
|
|
|
|
generated/_mod_r8.f90: Regenerated.
|
|
|
|
|
generated/_sign_i4.f90: Regenerated.
|
|
|
|
|
generated/_sign_i8.f90: Regenerated.
|
|
|
|
|
generated/_sign_r4.f90: Regenerated.
|
|
|
|
|
generated/_sign_r8.f90: Regenerated.
|
|
|
|
|
generated/_sin_c4.f90: Regenerated.
|
|
|
|
|
generated/_sin_c8.f90: Regenerated.
|
|
|
|
|
generated/_sin_r4.f90: Regenerated.
|
|
|
|
|
generated/_sin_r8.f90: Regenerated.
|
|
|
|
|
generated/_sinh_r4.f90: Regenerated.
|
|
|
|
|
generated/_sinh_r8.f90: Regenerated.
|
|
|
|
|
generated/_sqrt_c4.f90: Regenerated.
|
|
|
|
|
generated/_sqrt_c8.f90: Regenerated.
|
|
|
|
|
generated/_sqrt_r4.f90: Regenerated.
|
|
|
|
|
generated/_sqrt_r8.f90: Regenerated.
|
|
|
|
|
generated/_tan_r4.f90: Regenerated.
|
|
|
|
|
generated/_tan_r8.f90: Regenerated.
|
|
|
|
|
generated/_tanh_r4.f90: Regenerated.
|
|
|
|
|
generated/_tanh_r8.f90: Regenerated.
|
|
|
|
|
generated/all_l4.c: Regenerated.
|
|
|
|
|
generated/all_l8.c: Regenerated.
|
|
|
|
|
generated/any_l4.c: Regenerated.
|
|
|
|
|
generated/any_l8.c: Regenerated.
|
|
|
|
|
generated/count_4_l4.c: Regenerated.
|
|
|
|
|
generated/count_4_l8.c: Regenerated.
|
|
|
|
|
generated/count_8_l4.c: Regenerated.
|
|
|
|
|
generated/count_8_l8.c: Regenerated.
|
|
|
|
|
generated/cshift1_4.c: Regenerated.
|
|
|
|
|
generated/cshift1_8.c: Regenerated.
|
|
|
|
|
generated/dotprod_c4.c: Regenerated.
|
|
|
|
|
generated/dotprod_c8.c: Regenerated.
|
|
|
|
|
generated/dotprod_i4.c: Regenerated.
|
|
|
|
|
generated/dotprod_i8.c: Regenerated.
|
|
|
|
|
generated/dotprod_l4.c: Regenerated.
|
|
|
|
|
generated/dotprod_l8.c: Regenerated.
|
|
|
|
|
generated/dotprod_r4.c: Regenerated.
|
|
|
|
|
generated/dotprod_r8.c: Regenerated.
|
|
|
|
|
generated/eoshift1_4.c: Regenerated.
|
|
|
|
|
generated/eoshift1_8.c: Regenerated.
|
|
|
|
|
generated/eoshift3_4.c: Regenerated.
|
|
|
|
|
generated/eoshift3_8.c: Regenerated.
|
|
|
|
|
generated/exp_c4.c: Regenerated.
|
|
|
|
|
generated/exp_c8.c: Regenerated.
|
|
|
|
|
generated/exponent_r4.c: Regenerated.
|
|
|
|
|
generated/exponent_r8.c: Regenerated.
|
|
|
|
|
generated/fraction_r4.c: Regenerated.
|
|
|
|
|
generated/fraction_r8.c: Regenerated.
|
|
|
|
|
generated/hyp_c4.c: Regenerated.
|
|
|
|
|
generated/hyp_c8.c: Regenerated.
|
|
|
|
|
generated/in_pack_i4.c: Regenerated.
|
|
|
|
|
generated/in_pack_i8.c: Regenerated.
|
|
|
|
|
generated/in_unpack_i4.c: Regenerated.
|
|
|
|
|
generated/in_unpack_i8.c: Regenerated.
|
|
|
|
|
generated/matmul_c4.c: Regenerated.
|
|
|
|
|
generated/matmul_c8.c: Regenerated.
|
|
|
|
|
generated/matmul_i4.c: Regenerated.
|
|
|
|
|
generated/matmul_i8.c: Regenerated.
|
|
|
|
|
generated/matmul_l4.c: Regenerated.
|
|
|
|
|
generated/matmul_l8.c: Regenerated.
|
|
|
|
|
generated/matmul_r4.c: Regenerated.
|
|
|
|
|
generated/matmul_r8.c: Regenerated.
|
|
|
|
|
generated/maxloc0_4_i4.c: Regenerated.
|
|
|
|
|
generated/maxloc0_4_i8.c: Regenerated.
|
|
|
|
|
generated/maxloc0_4_r4.c: Regenerated.
|
|
|
|
|
generated/maxloc0_4_r8.c: Regenerated.
|
|
|
|
|
generated/maxloc0_8_i4.c: Regenerated.
|
|
|
|
|
generated/maxloc0_8_i8.c: Regenerated.
|
|
|
|
|
generated/maxloc0_8_r4.c: Regenerated.
|
|
|
|
|
generated/maxloc0_8_r8.c: Regenerated.
|
|
|
|
|
generated/maxloc1_4_i4.c: Regenerated.
|
|
|
|
|
generated/maxloc1_4_i8.c: Regenerated.
|
|
|
|
|
generated/maxloc1_4_r4.c: Regenerated.
|
|
|
|
|
generated/maxloc1_4_r8.c: Regenerated.
|
|
|
|
|
generated/maxloc1_8_i4.c: Regenerated.
|
|
|
|
|
generated/maxloc1_8_i8.c: Regenerated.
|
|
|
|
|
generated/maxloc1_8_r4.c: Regenerated.
|
|
|
|
|
generated/maxloc1_8_r8.c: Regenerated.
|
|
|
|
|
generated/maxval_i4.c: Regenerated.
|
|
|
|
|
generated/maxval_i8.c: Regenerated.
|
|
|
|
|
generated/maxval_r4.c: Regenerated.
|
|
|
|
|
generated/maxval_r8.c: Regenerated.
|
|
|
|
|
generated/minloc0_4_i4.c: Regenerated.
|
|
|
|
|
generated/minloc0_4_i8.c: Regenerated.
|
|
|
|
|
generated/minloc0_4_r4.c: Regenerated.
|
|
|
|
|
generated/minloc0_4_r8.c: Regenerated.
|
|
|
|
|
generated/minloc0_8_i4.c: Regenerated.
|
|
|
|
|
generated/minloc0_8_i8.c: Regenerated.
|
|
|
|
|
generated/minloc0_8_r4.c: Regenerated.
|
|
|
|
|
generated/minloc0_8_r8.c: Regenerated.
|
|
|
|
|
generated/minloc1_4_i4.c: Regenerated.
|
|
|
|
|
generated/minloc1_4_i8.c: Regenerated.
|
|
|
|
|
generated/minloc1_4_r4.c: Regenerated.
|
|
|
|
|
generated/minloc1_4_r8.c: Regenerated.
|
|
|
|
|
generated/minloc1_8_i4.c: Regenerated.
|
|
|
|
|
generated/minloc1_8_i8.c: Regenerated.
|
|
|
|
|
generated/minloc1_8_r4.c: Regenerated.
|
|
|
|
|
generated/minloc1_8_r8.c: Regenerated.
|
|
|
|
|
generated/minval_i4.c: Regenerated.
|
|
|
|
|
generated/minval_i8.c: Regenerated.
|
|
|
|
|
generated/minval_r4.c: Regenerated.
|
|
|
|
|
generated/minval_r8.c: Regenerated.
|
|
|
|
|
generated/nearest_r4.c: Regenerated.
|
|
|
|
|
generated/nearest_r8.c: Regenerated.
|
|
|
|
|
generated/pow_c4_i4.c: Regenerated.
|
|
|
|
|
generated/pow_c4_i8.c: Regenerated.
|
|
|
|
|
generated/pow_c8_i4.c: Regenerated.
|
|
|
|
|
generated/pow_c8_i8.c: Regenerated.
|
|
|
|
|
generated/pow_i4_i4.c: Regenerated.
|
|
|
|
|
generated/pow_i4_i8.c: Regenerated.
|
|
|
|
|
generated/pow_i8_i4.c: Regenerated.
|
|
|
|
|
generated/pow_i8_i8.c: Regenerated.
|
|
|
|
|
generated/pow_r4_i4.c: Regenerated.
|
|
|
|
|
generated/pow_r4_i8.c: Regenerated.
|
|
|
|
|
generated/pow_r8_i4.c: Regenerated.
|
|
|
|
|
generated/pow_r8_i8.c: Regenerated.
|
|
|
|
|
generated/product_c4.c: Regenerated.
|
|
|
|
|
generated/product_c8.c: Regenerated.
|
|
|
|
|
generated/product_i4.c: Regenerated.
|
|
|
|
|
generated/product_i8.c: Regenerated.
|
|
|
|
|
generated/product_r4.c: Regenerated.
|
|
|
|
|
generated/product_r8.c: Regenerated.
|
|
|
|
|
generated/reshape_i4.c: Regenerated.
|
|
|
|
|
generated/reshape_i8.c: Regenerated.
|
|
|
|
|
generated/set_exponent_r4.c: Regenerated.
|
|
|
|
|
generated/set_exponent_r8.c: Regenerated.
|
|
|
|
|
generated/shape_i4.c: Regenerated.
|
|
|
|
|
generated/shape_i8.c: Regenerated.
|
|
|
|
|
generated/sum_c4.c: Regenerated.
|
|
|
|
|
generated/sum_c8.c: Regenerated.
|
|
|
|
|
generated/sum_i4.c: Regenerated.
|
|
|
|
|
generated/sum_i8.c: Regenerated.
|
|
|
|
|
generated/sum_r4.c: Regenerated.
|
|
|
|
|
generated/sum_r8.c: Regenerated.
|
|
|
|
|
generated/transpose_i4.c: Regenerated.
|
|
|
|
|
generated/transpose_i8.c: Regenerated.
|
|
|
|
|
generated/trig_c4.c: Regenerated.
|
|
|
|
|
generated/trig_c8.c: Regenerated.
|
|
|
|
|
|
2005-01-07 04:25:47 +01:00
|
|
|
2005-01-07 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/18398
|
|
|
|
|
* transfer.c (next_record_r): always skip the
|
|
|
|
|
eol search if it was found during sf_read.
|
|
|
|
|
|
2004-12-27 17:43:25 +01:00
|
|
|
2004-12-27 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
2005-03-21 18:46:19 +01:00
|
|
|
* libgfortran/libgfortran.h (GFC_UINTEGER_1, GFC_UINTEGER_2):
|
2004-12-27 17:43:25 +01:00
|
|
|
Define.
|
|
|
|
|
* intrinsics/ishftc.c: Update copyright years.
|
|
|
|
|
(ishftc8): Change 'shift' and 'size' to GFC_INTEGER_4.
|
2004-12-27 17:43:47 +01:00
|
|
|
* intrinsics/mvbits.c: Correct non-ASCII character in my name.
|
2004-12-27 17:43:25 +01:00
|
|
|
Add implementations for GFC_INTEGER_1 and GFC_INTEGER_2.
|
|
|
|
|
|
2004-12-24 01:29:07 +01:00
|
|
|
2004-12-23 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/19071
|
2005-03-21 18:46:19 +01:00
|
|
|
* io/tranfer.c (formatted_transfer): moved check for
|
2004-12-24 01:29:07 +01:00
|
|
|
format reversion inside the processing loop.
|
|
|
|
|
|
2004-12-19 19:54:00 +01:00
|
|
|
2004-12-19 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19074
|
|
|
|
|
* libgfortran.h (itoa): Rename to gfc_itoa.
|
|
|
|
|
* io/write.c (itoa): Same.
|
|
|
|
|
* runtime/environ.c (itoa): Same.
|
|
|
|
|
* runtime/error.c (itoa): Same.
|
|
|
|
|
|
2004-12-15 13:42:39 +01:00
|
|
|
2004-12-15 Bud Davis <bdavis9659@comcast.net>
|
2005-03-21 18:46:19 +01:00
|
|
|
Steven G. Kargl <kargls@comcast.net>
|
2004-12-15 13:42:39 +01:00
|
|
|
|
|
|
|
|
PR fortran/17597
|
|
|
|
|
* io/list_read.c (read_real): do not push back a comma when
|
|
|
|
|
it delimits a real value without a decimal point
|
|
|
|
|
|
2004-12-14 17:34:08 +01:00
|
|
|
2004-12-14 Steve Ellcey <sje@cup.hp.com>
|
|
|
|
|
|
|
|
|
|
* libgfortran/io/transfer.c (us_read): Use memcpy/memset
|
|
|
|
|
instead of assignment to fill unaligned buffer.
|
|
|
|
|
(us_write): Ditto.
|
|
|
|
|
(next_record_w): Ditto.
|
|
|
|
|
|
2004-12-14 23:00:54 +01:00
|
|
|
2004-12-14 Steven G. Kargl <kargls@comcast.net>
|
2004-12-14 11:43:36 +01:00
|
|
|
|
|
|
|
|
PR libfortran/18966
|
|
|
|
|
* gfortran.h: typedef GFC_INTEGER_1 and GFC_INTEGER_2
|
|
|
|
|
* intrinsics/cshift0.c (cshift0_1,cshift0_2): New functions.
|
|
|
|
|
* intrinsics/eoshift0.c (eoshift0_1,eoshift0_2): New functions.
|
|
|
|
|
* intrinsics/eoshift2.c (eoshift2_1,eoshift2_2): New functions.
|
|
|
|
|
|
2004-12-13 17:06:57 +01:00
|
|
|
2004-12-13 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (read_sf): Change bitwise "and" to logical "and".
|
|
|
|
|
|
iresolve.c (gfc_resolve_all, [...]): Use PREFIX.
gcc/fortran/
* iresolve.c (gfc_resolve_all, gfc_resolve_any, gfc_resolve_count,
gfc_resolve_cshift, gfc_resolve_dot_product, gfc_resolve_eoshift,
gfc_resolve_matmul, gfc_resolve_maxloc, gfc_resolve_maxval,
gfc_resolve_minloc, gfc_resolve_minval, gfc_resolve_pack,
gfc_resolve_product, gfc_resolve_reshape, gfc_resolve_shape,
gfc_resolve_spread, gfc_resolve_sum, gfc_resolve_transpose,
gfc_resolve_unpack: Use PREFIX.
libgfortran/
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
intrinsics/pack_generic.c, intrinsics/reshape_generic.c,
intrinsics/spread_generic.c, intrinsics/transpose_generic.c,
intrinsics/unpack_generic.c, m4/cshift1.m4, m4/dotprod.m4,
m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4,
m4/iforeach.m4, m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4,
m4/reshape.m4, m4/shape.m4, m4/transpose.m4: Use standard prefix
instead of "__".
* generated/*: Rebuild.
From-SVN: r92075
2004-12-13 03:47:58 +01:00
|
|
|
2004-12-12 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
|
|
|
|
|
intrinsics/pack_generic.c, intrinsics/reshape_generic.c,
|
|
|
|
|
intrinsics/spread_generic.c, intrinsics/transpose_generic.c,
|
|
|
|
|
intrinsics/unpack_generic.c, m4/cshift1.m4, m4/dotprod.m4,
|
|
|
|
|
m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4,
|
|
|
|
|
m4/iforeach.m4, m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4,
|
|
|
|
|
m4/reshape.m4, m4/shape.m4, m4/transpose.m4: Use standard prefix
|
|
|
|
|
instead of "__".
|
|
|
|
|
* generated/*: Rebuild.
|
|
|
|
|
|
acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.
* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.
(LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT): New.
(LIBGFOR_CHECK_ATTRIBUTE_ALIAS): New.
* configure.ac: Use them.
* configure, config.h.in, aclocal.m4: Rebuild.
* libgfortran.h (prefix): Remove.
(PREFIX, IPREFIX): New.
(sym_rename, sym_rename1, sym_rename2): New.
(internal_proto, export_proto, export_proto_np): New.
(iexport_proto, iexport): New.
(iexport_data_proto, iexport_data): New.
* intrinsics/abort.c, intrinsics/args.c, intrinsics/associated.c,
intrinsics/cpu_time.c, intrinsics/cshift0.c,
intrinsics/date_and_time.c, intrinsics/env.c, intrinsics/eoshift0.c,
intrinsics/eoshift2.c, intrinsics/etime.c, intrinsics/exit.c,
intrinsics/flush.c, intrinsics/fnum.c, intrinsics/getXid.c,
intrinsics/getcwd.c, intrinsics/ishftc.c, intrinsics/mvbits.c,
intrinsics/pack_generic.c, intrinsics/rand.c, intrinsics/random.c,
intrinsics/reshape_generic.c, intrinsics/size.c,
intrinsics/spread_generic.c, intrinsics/stat.c,
intrinsics/string_intrinsics.c, intrinsics/system.c,
intrinsics/system_clock.c, intrinsics/transpose_generic.c,
intrinsics/umask.c, intrinsics/unlink.c, intrinsics/unpack_generic.c,
io/backspace.c, io/close.c, io/endfile.c, io/inquire.c, io/io.h,
io/open.c, io/rewind.c, io/transfer.c, libgfortran.h, m4/cshift1.m4,
m4/dotprod.m4, m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4,
m4/eoshift3.m4, m4/exponent.m4, m4/fraction.m4, m4/iforeach.m4,
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/nearest.m4,
m4/pow.m4, m4/reshape.m4, m4/set_exponent.m4, m4/shape.m4,
m4/transpose.m4, runtime/environ.c, runtime/error.c,
runtime/in_pack_generic.c, runtime/in_unpack_generic.c,
runtime/main.c, runtime/memory.c, runtime/pause.c, runtime/select.c,
runtime/stop.c: Use them to mark symbols internal or external.
* generated/*: Rebuild.
From-SVN: r92045
2004-12-12 09:59:05 +01:00
|
|
|
2004-12-12 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.
|
|
|
|
|
(LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT): New.
|
|
|
|
|
(LIBGFOR_CHECK_ATTRIBUTE_ALIAS): New.
|
|
|
|
|
* configure.ac: Use them.
|
|
|
|
|
* configure, config.h.in, aclocal.m4: Rebuild.
|
|
|
|
|
* libgfortran.h (prefix): Remove.
|
|
|
|
|
(PREFIX, IPREFIX): New.
|
|
|
|
|
(sym_rename, sym_rename1, sym_rename2): New.
|
|
|
|
|
(internal_proto, export_proto, export_proto_np): New.
|
|
|
|
|
(iexport_proto, iexport): New.
|
|
|
|
|
(iexport_data_proto, iexport_data): New.
|
|
|
|
|
* intrinsics/abort.c, intrinsics/args.c, intrinsics/associated.c,
|
|
|
|
|
intrinsics/cpu_time.c, intrinsics/cshift0.c,
|
|
|
|
|
intrinsics/date_and_time.c, intrinsics/env.c, intrinsics/eoshift0.c,
|
|
|
|
|
intrinsics/eoshift2.c, intrinsics/etime.c, intrinsics/exit.c,
|
|
|
|
|
intrinsics/flush.c, intrinsics/fnum.c, intrinsics/getXid.c,
|
|
|
|
|
intrinsics/getcwd.c, intrinsics/ishftc.c, intrinsics/mvbits.c,
|
|
|
|
|
intrinsics/pack_generic.c, intrinsics/rand.c, intrinsics/random.c,
|
|
|
|
|
intrinsics/reshape_generic.c, intrinsics/size.c,
|
|
|
|
|
intrinsics/spread_generic.c, intrinsics/stat.c,
|
|
|
|
|
intrinsics/string_intrinsics.c, intrinsics/system.c,
|
|
|
|
|
intrinsics/system_clock.c, intrinsics/transpose_generic.c,
|
|
|
|
|
intrinsics/umask.c, intrinsics/unlink.c, intrinsics/unpack_generic.c,
|
|
|
|
|
io/backspace.c, io/close.c, io/endfile.c, io/inquire.c, io/io.h,
|
|
|
|
|
io/open.c, io/rewind.c, io/transfer.c, libgfortran.h, m4/cshift1.m4,
|
|
|
|
|
m4/dotprod.m4, m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4,
|
|
|
|
|
m4/eoshift3.m4, m4/exponent.m4, m4/fraction.m4, m4/iforeach.m4,
|
|
|
|
|
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/nearest.m4,
|
|
|
|
|
m4/pow.m4, m4/reshape.m4, m4/set_exponent.m4, m4/shape.m4,
|
|
|
|
|
m4/transpose.m4, runtime/environ.c, runtime/error.c,
|
|
|
|
|
runtime/in_pack_generic.c, runtime/in_unpack_generic.c,
|
|
|
|
|
runtime/main.c, runtime/memory.c, runtime/pause.c, runtime/select.c,
|
|
|
|
|
runtime/stop.c: Use them to mark symbols internal or external.
|
|
|
|
|
* generated/*: Rebuild.
|
|
|
|
|
|
2004-12-09 17:31:19 +01:00
|
|
|
2004-12-09 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
|
|
|
|
PR bootstrap/18895
|
|
|
|
|
Revert 2004-12-07 change.
|
|
|
|
|
* Makefile.am (AM_MAKEFLAGS): Delete.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-12-08 01:43:34 +01:00
|
|
|
2004-12-07 Steve Ellcey <sje@cup.hp.com>
|
|
|
|
|
|
|
|
|
|
* libgfortran/Makefile.am (AM_MAKEFLAGS): New.
|
|
|
|
|
* libgfortran/Makefile.in: Regenerate
|
|
|
|
|
|
2004-12-08 01:32:39 +01:00
|
|
|
2004-12-07 Steve Ellcey <sje@cup.hp.com>
|
|
|
|
|
|
|
|
|
|
* io/io.h (open_external): Change prototype.
|
|
|
|
|
* io/unix.c (regular_file): Change prototype and set flags->action if
|
|
|
|
|
needed.
|
|
|
|
|
(open_external): Ditto.
|
|
|
|
|
* io/open.c (new_unit): Let open_external set flags->action.
|
|
|
|
|
|
2004-12-08 00:43:40 +01:00
|
|
|
2004-12-07 Eric Botcazou <ebotcazou@libertysurf.fr>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Check for ieeefp.h. Check for fabsf in libm.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Likewise.
|
|
|
|
|
* c99_protos.h: New file.
|
|
|
|
|
* libgfortran.h: Include c99_protos.h and conditionally ieeefp.h.
|
|
|
|
|
* intrinsics/c99_functions.c (fabsf): New function.
|
|
|
|
|
|
cshift0.c, [...]: Use internal_malloc_size instead of internal_malloc.
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
intrinsics/pack_generic.c, intrinsics/string_intrinsics.c,
intrinsics/transpose_generic.c, m4/ifunction.m4, m4/matmul.m4,
m4/matmull.m4, m4/transpose.m4: Use internal_malloc_size instead
of internal_malloc.
* generated/*: Rebuild.
From-SVN: r91799
2004-12-07 01:24:44 +01:00
|
|
|
2004-12-06 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
|
|
|
|
|
intrinsics/pack_generic.c, intrinsics/string_intrinsics.c,
|
|
|
|
|
intrinsics/transpose_generic.c, m4/ifunction.m4, m4/matmul.m4,
|
|
|
|
|
m4/matmull.m4, m4/transpose.m4: Use internal_malloc_size instead
|
|
|
|
|
of internal_malloc.
|
|
|
|
|
* generated/*: Rebuild.
|
|
|
|
|
|
c99_functions.c, [...]: Whitespace fixes.
* intrinsics/c99_functions.c, intrinsics/eoshift0.c,
intrinsics/eoshift2.c, intrinsics/exit.c, intrinsics/flush.c,
intrinsics/ishftc.c, intrinsics/mvbits.c, intrinsics/pack_generic.c,
intrinsics/random.c, intrinsics/reshape_generic.c, intrinsics/size.c,
intrinsics/spread_generic.c, intrinsics/stat.c,
intrinsics/string_intrinsics.c, intrinsics/system_clock.c,
intrinsics/transpose_generic.c, intrinsics/unlink.c,
intrinsics/unpack_generic.c, io/backspace.c, io/format.c,
io/list_read.c, io/lock.c, io/open.c, io/transfer.c, io/unix.c,
io/write.c, runtime/environ.c, runtime/error.c,
runtime/in_pack_generic.c, runtime/in_unpack_generic.c, runtime/main.c,
runtime/memory.c, runtime/pause.c, runtime/stop.c,
runtime/string.c: Whitespace fixes.
From-SVN: r91794
2004-12-07 01:01:01 +01:00
|
|
|
2004-12-06 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/c99_functions.c, intrinsics/eoshift0.c,
|
|
|
|
|
intrinsics/eoshift2.c, intrinsics/exit.c, intrinsics/flush.c,
|
|
|
|
|
intrinsics/ishftc.c, intrinsics/mvbits.c, intrinsics/pack_generic.c,
|
|
|
|
|
intrinsics/random.c, intrinsics/reshape_generic.c, intrinsics/size.c,
|
|
|
|
|
intrinsics/spread_generic.c, intrinsics/stat.c,
|
|
|
|
|
intrinsics/string_intrinsics.c, intrinsics/system_clock.c,
|
|
|
|
|
intrinsics/transpose_generic.c, intrinsics/unlink.c,
|
|
|
|
|
intrinsics/unpack_generic.c, io/backspace.c, io/format.c,
|
|
|
|
|
io/list_read.c, io/lock.c, io/open.c, io/transfer.c, io/unix.c,
|
|
|
|
|
io/write.c, runtime/environ.c, runtime/error.c,
|
|
|
|
|
runtime/in_pack_generic.c, runtime/in_unpack_generic.c, runtime/main.c,
|
|
|
|
|
runtime/memory.c, runtime/pause.c, runtime/stop.c,
|
|
|
|
|
runtime/string.c: Whitespace fixes.
|
|
|
|
|
|
2004-12-06 22:29:57 +01:00
|
|
|
2004-12-06 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Generate all m4 output under $(srcdir).
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-12-02 20:39:15 +01:00
|
|
|
2004-12-02 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/18710
|
|
|
|
|
* io/transfer.c (unformatted_read, unformatted_write): width of
|
|
|
|
|
a COMPLEX is twice its kind.
|
|
|
|
|
|
2004-12-02 12:05:13 +01:00
|
|
|
2004-12-02 Richard Sandiford <rsandifo@redhat.com>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Use TL_AC_GCC_VERSION to set gcc_version.
|
|
|
|
|
* configure, aclocal.m4, Makefile.in: Regenerate.
|
|
|
|
|
|
2004-12-02 05:29:00 +01:00
|
|
|
2004-12-02 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR libfortran/18284
|
|
|
|
|
* io/unix.c (fd_alloc_w_at): Update file_length when extending.
|
|
|
|
|
* io/backspace.c (formatted_backspace): Reset endfile after backspace.
|
|
|
|
|
|
2004-12-02 05:13:21 +01:00
|
|
|
2004-12-02 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* io/inquire.c (inquire_via_unit): do not allow a direct access
|
|
|
|
|
file to be opened for sequential I/O.
|
|
|
|
|
|
flush.c: New file.
2004-12-02 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
libgfortran/
* intrinsics/flush.c: New file.
* intrinsics/fnum.c: ditto
* intrinsics/stat.c: ditto
* io/io.h (unit_to_fd): Add prototype.
* io/unix.c (unit_to_fd): New function.
* configure.ac: Add test for members of struct stat. Check for
sys/types.h and sys/stat.h
* Makefile.am: Add intrinsics/{flush.c,fnum.c,stat.c}
* configure.in: Regenerate.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
fortran/
* check.c (gfc_check_flush, gfc_check_fnum): New functions.
(gfc_check_fstat, gfc_check_fstat_sub): New functions.
(gfc_check_stat, gfc_check_stat_sub): New functions.
* gfortran.h (GFC_ISYM_FNUM,GFC_ISYM_FSTAT,GFC_ISYM_STAT): New symbols
* intrinsic.c (add_functions,add_subroutines): Add flush, fnum,
fstat, and stat to intrinsics symbol tables.
* intrinsic.h (gfc_check_flush, gfc_resolve_stat_sub): Add prototypes.
(gfc_resolve_fstat_sub, gfc_resolve_stat): Ditto.
* iresolve.c (gfc_resolve_fnum, gfc_resolve_fstat): New functions.
(gfc_resolve_stat, gfc_resolve_flush): New functions.
(gfc_resolve_stat_sub,gfc_resolve_fstat_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Add new intrinsics.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r91609
2004-12-02 05:10:26 +01:00
|
|
|
2004-12-02 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/flush.c: New file.
|
|
|
|
|
* intrinsics/fnum.c: ditto
|
|
|
|
|
* intrinsics/stat.c: ditto
|
|
|
|
|
* io/io.h (unit_to_fd): Add prototype.
|
|
|
|
|
* io/unix.c (unit_to_fd): New function.
|
|
|
|
|
* configure.ac: Add test for members of struct stat. Check for
|
|
|
|
|
sys/types.h and sys/stat.h
|
|
|
|
|
* Makefile.am: Add intrinsics/{flush.c,fnum.c,stat.c}
|
|
|
|
|
* configure.in: Regenerate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-12-02 01:42:12 +01:00
|
|
|
2004-12-01 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
|
|
|
|
|
|
|
|
|
|
* Makefile.am (AM_CPPFLAGS): Use -iquote instead of -I.
|
|
|
|
|
|
2004-11-28 22:14:02 +01:00
|
|
|
2004-11-28 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (mmap_alloc_w_a): check for a write to a location
|
|
|
|
|
less than the mapped area.
|
|
|
|
|
|
2004-11-28 00:35:47 +01:00
|
|
|
2004-11-27 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/18364
|
|
|
|
|
* io/endfile.c (st_endfile): flush the stream before truncating.
|
|
|
|
|
|
2004-11-24 23:04:38 +01:00
|
|
|
2004-11-24 Kelley Cook <kcook@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* configure: Regenerate for libtool change.
|
|
|
|
|
|
2004-11-23 03:02:38 +01:00
|
|
|
2004-11-22 Steven Bosscher <stevenb@suse.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/15960
|
|
|
|
|
* configure.ac: Check for finite in libm.
|
|
|
|
|
* libgfortran.h: Define isfinite macro if not defined.
|
|
|
|
|
* intrinsics/c99_functions.c: Use defined(fpclassify) instead of
|
|
|
|
|
HAVE_FPCLASSIFY.
|
|
|
|
|
* io/write.c (write_float): Use isfinite instead of finite.
|
|
|
|
|
* configure, config.h.in: Rebuilt.
|
|
|
|
|
|
2004-11-21 06:08:14 +01:00
|
|
|
2004-11-20 Roger Sayle <roger@eyesopen.com>
|
|
|
|
|
|
|
|
|
|
* io/write.c (write_float, list_formatted_write): Fix indentation.
|
|
|
|
|
|
2004-11-20 14:15:17 +01:00
|
|
|
2004-11-20 Eric Botcazou <ebotcazou@libertysurf.fr>
|
|
|
|
|
|
|
|
|
|
PR target/16135
|
|
|
|
|
* acinclude.m4 (LIBGFOR_TARGET_ILP32): New check.
|
|
|
|
|
* configure.ac: Include LIBGFOR_TARGET_ILP32.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Likewise.
|
|
|
|
|
* libgfortran.h: Provide default definitions for C99 types
|
|
|
|
|
on ILP32 targets that don't have them.
|
|
|
|
|
|
|
|
|
|
PR target/17999
|
|
|
|
|
* configure.ac: Check for snprintf.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Likewise.
|
|
|
|
|
* intrinsics/date_and_time.c (date_and_time): Do not
|
|
|
|
|
use snprinf if it is not available.
|
|
|
|
|
* io/write.c (output_float): Likewise.
|
|
|
|
|
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
2004-11-20 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
|
|
|
|
|
* Makefile.in: Regenerated
|
|
|
|
|
* intrinsics/umask.c: New file
|
|
|
|
|
* intrinsics/unlink.c: ditto
|
|
|
|
|
* intrinsics/exit.c: ditto
|
|
|
|
|
|
2004-11-18 09:45:11 +01:00
|
|
|
2004-11-18 Victor Leikehman <lei@il.ibm.com>
|
|
|
|
|
|
|
|
|
|
* m4/matmul.m4: Loops reordered to improve cache behavior.
|
|
|
|
|
* generated/matmul_??.c: Regenerated.
|
2005-03-21 18:46:19 +01:00
|
|
|
|
2004-11-10 03:19:27 +01:00
|
|
|
2004-11-10 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/18218
|
|
|
|
|
* configure.ac: Check for strtof.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* io/read.c (convert_real): Use strtof if available.
|
|
|
|
|
(convert_precision_real): Remove.
|
|
|
|
|
(read_f): Avoid poor exponentiation algorithm.
|
|
|
|
|
|
2004-11-05 13:50:53 +01:00
|
|
|
2004-11-05 Andreas Schwab <schwab@suse.de>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Use AC_PROG_FC, FC and FCFLAGS instead of
|
|
|
|
|
AC_PROG_F77, F77 and FFLAGS.
|
|
|
|
|
* Makefile.am (selected_int_kind.inc, selected_real_kind.inc): Use
|
|
|
|
|
FCCOMPILE instead of F77COMPILE.
|
|
|
|
|
* configure, Makefile.in: Regenerate.
|
|
|
|
|
|
2004-11-05 04:49:25 +01:00
|
|
|
2004-11-05 Kelley Cook <kcook@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* acinclude.m4: Properly quote AC_CACHE_CHECK.
|
|
|
|
|
* Makefile.am: Add in ACLOCAL_AMFLAGS.
|
|
|
|
|
* aclocal.m4, configure, Makefile.in: Regenerate.
|
|
|
|
|
|
2004-10-30 18:23:23 +02:00
|
|
|
2004-10-30 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
|
|
|
|
|
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* configure.ac (AC_CHECK_FUNCS): Add mkstemp.
|
|
|
|
|
* io/unix.c (S_IRGRP): Define if undefined.
|
|
|
|
|
(S_IWGRP): Same.
|
|
|
|
|
(S_IROTH): Same.
|
|
|
|
|
(S_IWOTH): Same.
|
|
|
|
|
(tempfile): Use mktemp if mkstemp missing, fix typos.
|
|
|
|
|
|
2004-10-30 17:04:20 +02:00
|
|
|
2004-10-30 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/system.c ("libgfortran.h"): Move after system headers.
|
|
|
|
|
|
2004-10-30 16:18:34 +02:00
|
|
|
2004-10-30 Canqun Yang <canqun@nudt.edu.cn>
|
|
|
|
|
|
|
|
|
|
* intrinsics/rand.c (irand): Handle NULL argument.
|
|
|
|
|
|
2004-10-07 23:30:50 +02:00
|
|
|
2004-10-07 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (finalize_transfer): Free internal streams.
|
|
|
|
|
* io/unix.c (mem_close): Free stream object.
|
|
|
|
|
|
2004-10-07 22:19:32 +02:00
|
|
|
2004-10-07 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsics.c (string_verify): Fix off by one
|
|
|
|
|
error.
|
|
|
|
|
|
2004-10-06 20:27:58 +02:00
|
|
|
2004-10-06 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR libfortran/17709
|
|
|
|
|
* io/transfer.c (data_transfer_init): Reset sf_seen_eor.
|
|
|
|
|
|
2004-10-05 04:31:10 +02:00
|
|
|
2004-10-04 Andrew Pinski <pinskia@physics.uc.edu>
|
|
|
|
|
|
|
|
|
|
* intrinsics/mvbits.c: Commit the file.
|
|
|
|
|
|
2004-10-04 21:27:29 +02:00
|
|
|
2004-10-04 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/17283
|
|
|
|
|
* intrinsics/pack_generic.c (__pack): Allocate memory for return array
|
|
|
|
|
if not done by caller.
|
|
|
|
|
(__pack_s): New function.
|
|
|
|
|
* runtime/memory.c (internal_malloc, internal_malloc64): Allow
|
|
|
|
|
allocating zero memory.
|
|
|
|
|
|
2004-10-04 22:49:39 +02:00
|
|
|
PR fortran/17631
|
|
|
|
|
* Makefile.am (gfor_helper_src): Add intrinsics/mvbits.h.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* intrinsics/mvbits.h: New file.
|
|
|
|
|
|
2004-10-04 23:30:32 +02:00
|
|
|
PR fortran/17776
|
|
|
|
|
* intrinsics/system.c: New file.
|
|
|
|
|
* Makefile.am: Add dependency for the new file.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-10-04 17:32:13 +02:00
|
|
|
2004-10-04 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/17706
|
|
|
|
|
PR fortran/16434
|
|
|
|
|
* io/format.c (parse_format_list): Set repeat count for S, SP, SS,
|
|
|
|
|
BN and BZ formats.
|
|
|
|
|
* io/write.c (output_float): Don't output minus zero.
|
|
|
|
|
|
2004-10-03 14:04:15 +02:00
|
|
|
2004-10-03 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/abort.c ("libgfortran.h"): Move.
|
|
|
|
|
* intrinsics/date_and_time.c ("libgfortran.h"): Same.
|
|
|
|
|
* intrinsics/write.c ("libgfortran.h"): Same.
|
|
|
|
|
|
2004-09-26 16:52:04 +02:00
|
|
|
2004-09-26 Tobias Schlueter <tobis.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/16137
|
|
|
|
|
* config.h.in (HAVE_POWF): Undefine.
|
|
|
|
|
* configure.ac: Check for 'powf' in library.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* intrinsics/c99_functions.c (powf): New function.
|
|
|
|
|
|
2004-09-24 18:49:10 +02:00
|
|
|
2004-09-24 Tobias Schlueter <tobis.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* intrinsics/etime.c (etime_): New function.
|
|
|
|
|
|
2004-09-21 14:38:34 +02:00
|
|
|
2004-09-21 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h: define gfc_alloca()
|
|
|
|
|
* intrinsics/env.c (getenv, get_environment_variable_i4): Use it.
|
|
|
|
|
|
2004-09-21 13:22:47 +02:00
|
|
|
2004-09-21 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/17286
|
2005-03-21 18:46:19 +01:00
|
|
|
* io/list_read.c (namelist_read): ignore spaces after
|
2004-09-21 13:22:47 +02:00
|
|
|
the '=' for namelist reads.
|
|
|
|
|
|
2004-09-19 01:55:22 +02:00
|
|
|
2004-09-15 Aaron W. LaFramboise <aaronavay62@aaronwl.com>
|
|
|
|
|
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* configure.ac (AC_CHECK_HEADERS): Check for sys/mman.h.
|
|
|
|
|
* unix.c: Include stdio.h.
|
|
|
|
|
(HAVE_SYS_MMAN_H): Check.
|
|
|
|
|
(PROT_READ, PROT_WRITE): Provide default definitions.
|
|
|
|
|
|
2004-09-15 16:17:26 +02:00
|
|
|
2004-09-15 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* intrincics/getcwd.c: New file.
|
|
|
|
|
* Makefile.am: Add getcwd.c.
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
|
2004-09-15 14:59:22 +02:00
|
|
|
2004-09-15 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/env.c (getenv, get_environmental_variable): Remove
|
2004-09-15 15:02:08 +02:00
|
|
|
trailing white space. Use alloca. Honour trim_name.
|
2004-09-15 14:59:22 +02:00
|
|
|
|
2004-09-14 02:56:46 +02:00
|
|
|
2004-09-13 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/17090
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (list_formatted_read): Handle trailing spaces
|
|
|
|
|
at end of line.
|
|
|
|
|
|
2004-09-06 18:58:16 +02:00
|
|
|
2004-09-06 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* io/write.c (output_float): Typo in comment. Remove debugging
|
|
|
|
|
printf. Fix format for FP of form 1e10.
|
|
|
|
|
|
2004-09-03 21:03:43 +02:00
|
|
|
2004-09-03 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/cshift0.c (DEF_COPY_LOOP, copy_loop_int, copy_loop_long,
|
|
|
|
|
copy_loop_double, copy_loop_ldouble): New.
|
|
|
|
|
(__cshift0): Make shift type ssize_t. Use % operator instead of
|
|
|
|
|
div. Use specialized versions of copy loop depending on the shape.
|
|
|
|
|
|
2004-09-02 03:33:01 +02:00
|
|
|
2004-09-02 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/format.c (parse_format_list): Set repeat count for P descriptors.
|
|
|
|
|
* write.c (output_float): Fix condition. Correctly handle nonzero
|
|
|
|
|
scale factor.
|
|
|
|
|
|
2004-09-01 19:51:42 +02:00
|
|
|
2004-09-01 Eric Botcazou <ebotcazou@libertysurf.fr>
|
|
|
|
|
|
|
|
|
|
* mk-sik-inc.sh: Use a temporary string instead of 'echo -n'.
|
|
|
|
|
* mk-srk-inc.sh: Likewise.
|
|
|
|
|
|
2004-09-01 01:43:21 +02:00
|
|
|
2004-09-01 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* runtime/error.c (generate_error): Set both iostat and
|
|
|
|
|
library_return.
|
|
|
|
|
|
2004-08-31 22:37:43 +02:00
|
|
|
2004-08-31 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR libfortran/16805
|
|
|
|
|
* io/list_read.c (next_char): Don't signal EOF for internal files.
|
|
|
|
|
* io/unix.c (mem_alloc_r_at): Don't return NULL for incomplete reads.
|
|
|
|
|
|
2004-08-31 21:49:33 +02:00
|
|
|
2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* io/unit.c: Separate copyright years by ','.
|
|
|
|
|
(compare, insert_unit, delete_unit, is_internal_unit, close_units):
|
|
|
|
|
Remove blank line in beginning of function.
|
|
|
|
|
(get_unit): Simplify code.
|
|
|
|
|
|
2004-08-31 20:59:42 +02:00
|
|
|
2004-08-31 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/unit.c (get_unit): Remove superfluous if.
|
|
|
|
|
|
2004-08-31 17:53:31 +02:00
|
|
|
2004-08-31 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (read_sf): Rename uinty to readlen. Detect EOF.
|
|
|
|
|
(finalize_transfer): Move setjmp after namlist IO.
|
|
|
|
|
* io/unix.c (mem_alloc_r_at): Calculate remaining length correctly.
|
|
|
|
|
|
2004-08-31 16:56:09 +02:00
|
|
|
2004-08-31 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* list_read.c (eat_separator): Set at_eo when a '/' is seen.
|
|
|
|
|
|
2004-08-31 16:06:48 +02:00
|
|
|
2004-08-31 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h: Replace 'gfc_strlen_type' by
|
|
|
|
|
'gfc_charlen_type'. Update comment accordingly.
|
|
|
|
|
* intrinsics/args.c, intrinsics/env.c, io/io.h, io/transfer.c:
|
|
|
|
|
Replace all occurences of 'gfc_strlen_type' by 'gfc_charlen_type'.
|
|
|
|
|
|
2004-08-31 01:28:56 +02:00
|
|
|
2004-08-31 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h: Add comments.
|
|
|
|
|
|
2004-08-30 23:34:37 +02:00
|
|
|
2004-08-30 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* Makefile.am (gfor_helper_src): Split selected_kind.f90.
|
|
|
|
|
(gfor_built_src): Add selected_int_kind.inc selected_real_kind.inc.
|
|
|
|
|
(selected_int_kind.inc selected_real_kind.inc): New rules.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* mk-sik-inc.sh, mk-srk-inc.sh: New files.
|
|
|
|
|
* intrinsics/selected_int_kind.f90: Split from selected_kind.f90,
|
|
|
|
|
include table of detected kinds.
|
|
|
|
|
* intrinsics/selected_real_kind.f90: Similarly.
|
|
|
|
|
|
check.c (gfc_check_besn, [...]): New functions.
2004-08-29 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
* check.c (gfc_check_besn, gfc_check_g77_math1): New functions.
* f95-lang.c (DO_DEFINE_MATH_BUILTIN): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
(build_builtin_fntypes): New function.
(gfc_init_builtin_functions): Use it.
* gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_{J,Y}{0,1,N}
and GFC_ISYM_ERF{,C}.
(gfc_c_int_kind): Declare.
* intrinsic.c (add_functions): Add [d]bes* and [d]erf*.
* intrinsic.h (gfc_check_besn, gfc_check_g77_math1, gfc_resolve_besn,
gfc_resolve_g77_math1): Add prototypes.
* resolve.c (gfc_resolve_besn, gfc_resolve_g77_math1): New functions.
* mathbuiltins.def: Add comment. Change third argument. Use
DEFINE_MATH_BUILTIN_C. Add bessel and error functions.
* trans-intrinsic.c (BUILT_IN_FUNCTION): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
* trans-types.c (gfc_c_int_kind): Declare.
(gfc_init_kinds): Set it.
testsuite/
* gfortran.dg/g77/README: Update.
* gfortran.dg/g77/erfc.f: Copy from g77.f-torture.
* gfortran.dg/g77/intrinsic-unix-bessel.f: Ditto.
* gfortran.dg/g77/intrinsic-unix-erf.f: Ditto.
libgfortran/
* intrinsics/bessel.c: New file.
* intrinsics/erf.c: New file.
* Makefie.am: Add intrinsics/bessel.c and intrinsics/erf.c.
* configure.ac: Test for C99 Bessel and Error functions.
* Makefile.in: Regenerate.
* config.h.in: Regenerate.
* configure: Regenerate.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r86727
2004-08-29 17:58:16 +02:00
|
|
|
2004-08-29 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/bessel.c: New file.
|
|
|
|
|
* intrinsics/erf.c: New file.
|
|
|
|
|
* Makefie.am: Add intrinsics/bessel.c and intrinsics/erf.c.
|
|
|
|
|
* configure.ac: Test for C99 Bessel and Error functions.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2004-08-29 01:43:41 +02:00
|
|
|
2004-08-29 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Add intrinsics/getXid.c.
|
|
|
|
|
* configure.ac: Add tests for get{g,p,u}id.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2004-08-28 21:48:02 +02:00
|
|
|
2004-08-28 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR libfortran/17195
|
|
|
|
|
* libgfortran.h (rtoa): Remove prototype.
|
|
|
|
|
* runtime/error.c (rtoa): Remove.
|
|
|
|
|
* io/write.c (calculate_G_format): Don't add blanks if E format is
|
|
|
|
|
used. Add correct number of blanks when exponent width is specified.
|
|
|
|
|
(output_float): Rewrite.
|
|
|
|
|
|
2004-08-27 15:44:52 +02:00
|
|
|
2004-08-27 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/rewind.c (st_rewind): Reset unit to read mode.
|
|
|
|
|
|
2004-08-27 09:59:30 +02:00
|
|
|
2004-08-27 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/16597
|
|
|
|
|
* io/io.h: created typedef for unit_mode.
|
|
|
|
|
* io/io.h (gfc_unit): added mode to unit structure.
|
|
|
|
|
* io/transfer.c (data_transfer_init): flush if a write then
|
|
|
|
|
read is done on a unit (direct access files).
|
|
|
|
|
* io/rewind.c (st_rewind): Used unit mode instead of global.
|
|
|
|
|
|
2004-08-25 02:31:33 +02:00
|
|
|
2004-08-24 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
2005-03-21 18:46:19 +01:00
|
|
|
PR fortran/17143
|
2004-08-25 02:31:33 +02:00
|
|
|
* runtime/error.c (itoa): keep from overflowing during
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
mod operation by using unsigned variable.
|
2004-08-25 02:31:33 +02:00
|
|
|
|
2004-08-25 02:14:07 +02:00
|
|
|
2004-08-24 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/17164
|
|
|
|
|
* runtime/string_intrinsics.c (string_index):check for
|
|
|
|
|
substring longer than string.
|
|
|
|
|
|
2004-08-24 17:20:52 +02:00
|
|
|
2004-08-24 David Edelsohn <edelsohn@gnu.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am (libgfortran_la_LDFLAGS): Add -lm.
|
|
|
|
|
* Makefile.in: Rebuilt.
|
|
|
|
|
|
2004-08-26 15:25:16 +02:00
|
|
|
2004-08-23 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* io/io.h, io/list_read.c, io/open.c, io/transfer.c, io/write.c:
|
|
|
|
|
Fix formatting issues, update copyright years.
|
|
|
|
|
|
2004-08-21 13:20:29 +02:00
|
|
|
2004-08-21 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR 16908
|
|
|
|
|
* io/transfer.c (next_record_w): Do not blank pad.
|
|
|
|
|
* io/transfer.c (next_record): Take into account partial records.
|
|
|
|
|
|
2004-08-18 03:20:06 +02:00
|
|
|
2004-08-18 Victor Leikehman <lei@il.ibm.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/13278
|
|
|
|
|
* io/transfer.c (st_set_nml_var)
|
|
|
|
|
* io/write.c (namelist_write): Allow var_name and var_name_len to be
|
|
|
|
|
null. For strings, use string_length field instead of len.
|
|
|
|
|
* io/io.h (struct namelist_type): New field string_length.
|
|
|
|
|
(st_set_nml_var_char): New argument string_length.
|
|
|
|
|
|
2004-08-14 00:01:02 +02:00
|
|
|
2004-08-13 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
2004-08-14 00:25:06 +02:00
|
|
|
PR gfortran/16935
|
2004-08-14 00:01:02 +02:00
|
|
|
* io/open.c (st_open): use flags instead of the unit structure.
|
|
|
|
|
|
2004-08-10 15:34:04 +02:00
|
|
|
2004-08-10 Victor Leikehman <lei@il.ibm.com>
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (namelist_read): Convert variable names
|
|
|
|
|
to lower case, so that mixed-case names are recognized.
|
|
|
|
|
Don't read beyond terminating slash.
|
|
|
|
|
|
2004-08-09 23:09:41 +02:00
|
|
|
2004-08-09 Richard Henderson <rth@redhat.com>
|
|
|
|
|
Roger Sayle <roger@eyesopen.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/c99_functions.c (nextafterf): New implementation that
|
|
|
|
|
works correctly with denormalized numbers.
|
|
|
|
|
|
|
|
|
|
2004-08-09 Victor Leikehman <lei@il.ibm.com>
|
2004-08-09 16:34:39 +02:00
|
|
|
|
|
|
|
|
* m4/matmul.m4, m4/matmull.m4, intrinsics/eoshift0.c,
|
|
|
|
|
intrinsics/eoshift2.c, intrinsics/transpose_generic.c:
|
|
|
|
|
Allocate space if return value has NULL in its data field.
|
|
|
|
|
* generated/*.c: Regenerate.
|
|
|
|
|
|
2004-08-06 23:47:03 +02:00
|
|
|
2004-08-06 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
|
|
|
|
|
* intrinsics/env.c: New file.
|
|
|
|
|
* Makefile.am: Add env.c to build.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-08-05 10:37:42 +02:00
|
|
|
2004-08-05 Victor Leikehman <lei@il.ibm.com>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/16704
|
|
|
|
|
* io/read.c (read_radix): Understand letters f and F as hex digits.
|
|
|
|
|
|
2004-08-04 16:30:46 +02:00
|
|
|
2004-08-04 Victor Leikehman <lei@il.ibm.com>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h (array_t, size0) New declarations.
|
|
|
|
|
* m4/ifunction.m4, m4/transpose.m4, intrinsics/cshift0.c: Allocate
|
|
|
|
|
space if return value descriptor has NULL in its data field,
|
|
|
|
|
and initialize bounds and stride.
|
|
|
|
|
* intrinsics/size.c (array_t, size0): Declarations moved to
|
|
|
|
|
libgfortran.h.
|
|
|
|
|
* generated/*.c: Regenerate.
|
|
|
|
|
|
re PR libfortran/16137 (Fortran compiler unable to produce executables as libfortran depends on C99 math functions)
PR libgfortran/16137
* configure.ac: Add tests for acosf, asinf, atan2f, atanf, ceilf,
copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f,
scalbnf, sinf, sinhf, sqrtf, tanf and tanhf in libm.
* config.h.in: Regenerate.
* configure: Regenerate.
* instrinsics/c99_functions.c (acosf, asinf, atan2f, atanf, ceilf,
copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f,
nextafterf, scalbnf, sinf, sinhf, sqrtf, tanf, tanhf): New stub
implementations for targets that don't support C99 float functions.
From-SVN: r85473
2004-08-03 15:28:26 +02:00
|
|
|
2004-08-03 Roger Sayle <roger@eyesopen.com>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/16137
|
|
|
|
|
* configure.ac: Add tests for acosf, asinf, atan2f, atanf, ceilf,
|
|
|
|
|
copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f,
|
|
|
|
|
scalbnf, sinf, sinhf, sqrtf, tanf and tanhf in libm.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
|
|
|
|
* instrinsics/c99_functions.c (acosf, asinf, atan2f, atanf, ceilf,
|
|
|
|
|
copysignf, cosf, coshf, expf, floorf, frexpf, hypotf, logf, log10f,
|
|
|
|
|
nextafterf, scalbnf, sinf, sinhf, sqrtf, tanf, tanhf): New stub
|
|
|
|
|
implementations for targets that don't support C99 float functions.
|
|
|
|
|
|
2004-08-01 15:40:52 +02:00
|
|
|
2004-08-01 Roger Sayle <roger@eyesopen.com>
|
|
|
|
|
|
|
|
|
|
* io/write.c (write_float): Use the slightly more portable isnan
|
|
|
|
|
in preference to isinf.
|
|
|
|
|
|
2004-07-18 14:46:39 +02:00
|
|
|
2004-07-18 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
2005-03-21 18:46:19 +01:00
|
|
|
* configure.ac: Add check for LFS support.
|
2004-07-18 14:46:39 +02:00
|
|
|
* configure: Regenerate
|
|
|
|
|
|
2004-07-11 18:05:08 +02:00
|
|
|
2004-07-11 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/16303
|
|
|
|
|
* m4/cexp.m4 (carg): Return -pi to pi.
|
|
|
|
|
* generated/exp_c?.c: Regenerate.
|
|
|
|
|
|
2004-07-08 21:58:56 +02:00
|
|
|
2004-07-08 Andreas Krebbel <krebbel1@de.ibm.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/16291
|
|
|
|
|
* libgfortran/io/write.c: (write_float): Added length check.
|
|
|
|
|
Remove pointless memset calls.
|
|
|
|
|
|
2004-07-05 03:19:08 +02:00
|
|
|
2004-07-04 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/15472
|
|
|
|
|
* io/transfer.c(us_write): set recl for seq unform writes to max size.
|
|
|
|
|
* io/transfer.c(data_transfer_init): handle un-opened seq unform unit.
|
2005-03-21 18:46:19 +01:00
|
|
|
* io/unix.c(fd_alloc_w_at): handle requests at start, fd_flush at
|
2004-07-08 21:58:56 +02:00
|
|
|
right time.
|
2004-07-05 03:19:08 +02:00
|
|
|
* io/unix.c(is_seekable): set based upon the file/device, not the
|
2004-07-08 21:58:56 +02:00
|
|
|
method being used to access it (fd or mmap).
|
2004-07-05 03:19:08 +02:00
|
|
|
* io/unix.c(fd_flush): don't set file_size if !seekable.
|
|
|
|
|
* io/unix.c(fd_truncate: ditto.
|
|
|
|
|
|
2004-07-04 19:00:12 +02:00
|
|
|
2004-07-04 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/15280
|
|
|
|
|
PR fortran/15665
|
|
|
|
|
* libgfortran.h (gfc_strlen_type): Define.
|
|
|
|
|
* intrinsics/args.c (getarg): Rename ...
|
|
|
|
|
(getarg_i4): ... to this.
|
|
|
|
|
(getarg_i8, get_command_argument_i4, get_command_argument_i8,
|
|
|
|
|
get_command_i4, get_command_i8): New functions.
|
|
|
|
|
|
2004-07-04 11:06:54 +02:00
|
|
|
2004-07-04 Matthias Klose <doko@debian.org>
|
|
|
|
|
|
|
|
|
|
* libtool-version: New.
|
|
|
|
|
* Makefile.am (libgfortran_la_LDFLAGS): Use -version-info for soname.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* configure.ac: Remove libtool_VERSION macro
|
|
|
|
|
* configure: Regenerate
|
|
|
|
|
|
2004-06-30 10:21:54 +02:00
|
|
|
2004-06-30 Steve Kargl <sgk@troutmask.apl.washington.edu>
|
|
|
|
|
Steven Bosscher <stevenb@suse.de>
|
|
|
|
|
|
|
|
|
|
* intrinsics/rand.c (rand): Wrap the irand() call from the previous
|
|
|
|
|
commit in prefix.
|
|
|
|
|
|
2004-06-30 00:52:58 +02:00
|
|
|
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* runtime/normalize.c (normalize_r4_i4, normalize_r8_i8): Fix
|
|
|
|
|
comments.
|
|
|
|
|
* intrinsics/rand.c (rand): Call irand() in call to normalize_r4_i4.
|
|
|
|
|
|
2004-06-28 03:30:26 +02:00
|
|
|
2004-06-27 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/12839
|
|
|
|
|
* io/write.c (write_float): check signbit for Infinity.
|
|
|
|
|
|
2004-06-26 13:49:06 +02:00
|
|
|
2004-06-26 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/16196
|
|
|
|
|
* unix.c(regular_file): create file if it does not exist.
|
|
|
|
|
|
2004-06-24 19:53:07 +02:00
|
|
|
2004-06-24 Andrew Pinski <apinski@apple.com>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Remove check for libmx.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2004-06-22 02:43:55 +02:00
|
|
|
2004-06-22 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
|
|
|
|
|
PR fortran/15750
|
|
|
|
|
* inquire.c (st_inquire): Add comment
|
|
|
|
|
* io.h (st_parameter): Add iolength.
|
|
|
|
|
(st_iolength, st_iolength_done): Declare.
|
|
|
|
|
* transfer.c (iolength_transfer, iolength_transfer_init,
|
|
|
|
|
st_iolength, st_iolength_done): New functions.
|
|
|
|
|
|
2004-06-22 00:25:12 +02:00
|
|
|
2004-06-21 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* etime.c (etime_sub): Remove array rank check;
|
|
|
|
|
Add check for sufficient space.
|
|
|
|
|
|
2004-06-19 19:03:16 +02:00
|
|
|
2004-06-19 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/16080
|
|
|
|
|
* io/list_read.c(set_value): fixed spelling.
|
|
|
|
|
|
2004-06-19 18:42:05 +02:00
|
|
|
2004-06-19 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/16080
|
|
|
|
|
* io/list_read.c(set_value): don't copy if the string is null.
|
|
|
|
|
|
2004-06-14 19:27:20 +02:00
|
|
|
2004-06-14 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/15292
|
|
|
|
|
* intrinsics/c99_functions.c: Use fpclassify if it exists.
|
|
|
|
|
|
2004-06-14 00:58:30 +02:00
|
|
|
2004-06-13 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* Makefile.am (gfor_helper_src): Add runtime/normalize.f90.
|
|
|
|
|
* configure.ac: Add checks for nextafter and nextafterf.
|
|
|
|
|
* Makefile.in, config.h.in, configure: Regenerate.
|
|
|
|
|
* libgfortran.h (normalize_r4_i4, normalize_r8_i8): Declare.
|
|
|
|
|
* intrinsics/rand.c (rand): Use normalize_r4_i4.
|
|
|
|
|
* intrinsics/random.c (random_r4): Use normalize_r4_i4.
|
|
|
|
|
(random_r8): Use normalize_r8_i8.
|
|
|
|
|
* runtime/normalize.c: New file.
|
|
|
|
|
|
2004-06-13 20:25:53 +02:00
|
|
|
2004-06-13 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
2005-03-21 18:46:19 +01:00
|
|
|
* random.c: Fix several spelling and formatting mistakes in
|
2004-06-13 20:25:53 +02:00
|
|
|
comments.
|
|
|
|
|
(random_r8): Fix loop to make random numbers range in [0,1(.
|
2005-03-21 18:46:19 +01:00
|
|
|
|
2004-06-13 20:25:53 +02:00
|
|
|
|
2004-06-13 19:48:23 +02:00
|
|
|
2004-06-13 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* random.c (random_r4): Burn a random number.
|
|
|
|
|
(random_r8): fix infinite loop.
|
2005-03-21 18:46:19 +01:00
|
|
|
|
2004-06-13 19:48:23 +02:00
|
|
|
2004-06-12 Bud Davis <bdavis9659@comcast.net>
|
2005-07-24 12:37:48 +02:00
|
|
|
Steve Kargl <sgk@troutmask.apl.washington.edu>
|
2004-06-12 19:59:30 +02:00
|
|
|
|
|
|
|
|
PR gfortran/15292
|
|
|
|
|
* intrinsics/c99_functions.c: New file.
|
|
|
|
|
* Makefile.am: Add new file.
|
|
|
|
|
* configure.ac: Added test for round/roundf.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
* configure.h.in: Regenerate.
|
|
|
|
|
|
check.c (gfc_check_second_sub, [...]): New functions.
* check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand
gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions.
* gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME,
GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND.
* trans-intrinsic.c: Use symbols.
* intrinsic.c (add_sym_2s): New function.
* intrinsic.c: Add etime, dtime, irand, rand, second, srand.
* intrinsic.h: Function prototypes.
* iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub
gfc_resolve_srand): New functions.
libgfortran
* Makefile.am: Add rand.c and etime.c
* Makefile.in: Regenerated.
* aclocal.in: Regenerated.
* cpu_time.c (second_sub, second): New functions.
* rand.c (irand, rand, srand): New file.
* etime.c (etime_sub, etime): New file.
From-SVN: r83034
2004-06-12 19:34:47 +02:00
|
|
|
2004-06-12 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Add rand.c and etime.c
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
* aclocal.in: Regenerated.
|
|
|
|
|
* cpu_time.c (second_sub, second): New functions.
|
|
|
|
|
* rand.c (irand, rand, srand): New file.
|
|
|
|
|
* etime.c (etime_sub, etime): New file.
|
|
|
|
|
|
2004-06-12 17:15:41 +02:00
|
|
|
2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
Steven Bosscher <stevenb@suse.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/14923
|
|
|
|
|
* intrinsics/date_and_time.c: New file.
|
|
|
|
|
* Makefile.am (gfor_helper_src): Add intrinsics/date_and_time.c.
|
|
|
|
|
* Makefile.in, aclocal.m4: Regenerate.
|
|
|
|
|
* libgfortran.h: Prototype date_and_time().
|
|
|
|
|
|
2004-06-12 15:42:46 +02:00
|
|
|
2004-06-12 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
2004-06-12 16:50:49 +02:00
|
|
|
PR fortran/15665
|
2004-06-12 15:42:46 +02:00
|
|
|
* intrinsics/args.c: Implement GETARG and IARGC.
|
|
|
|
|
* Makefile.am: Add it.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-06-12 14:50:54 +02:00
|
|
|
2004-06-12 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/12839
|
2004-06-12 15:42:46 +02:00
|
|
|
* io/write.c(write_float): Format inf and nan IAW F2003.
|
2004-06-12 14:50:54 +02:00
|
|
|
|
2004-06-09 03:03:02 +02:00
|
|
|
2004-06-09 Bud Davis <bdavis9659@comcaste.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/14897
|
|
|
|
|
* io/transfer.c (formatted_transfer): position is unique
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
for T and TL edit descriptors.
|
2004-06-12 15:42:46 +02:00
|
|
|
(data_transfer_init): set record length to size of internal
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
file.
|
2004-06-09 03:03:02 +02:00
|
|
|
|
2004-06-09 02:55:04 +02:00
|
|
|
2004-06-09 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/15755
|
|
|
|
|
* io/backspace.c(st_backspace): call correct routine for
|
|
|
|
|
formatted and un-formatted units.
|
|
|
|
|
|
2004-05-30 23:58:10 +02:00
|
|
|
2004-05-30 Andreas Jaeger <aj@suse.de>, Steven Bosscher <stevenb@suse.de>
|
|
|
|
|
|
|
|
|
|
PR gfortran/11800
|
|
|
|
|
* Makefile.am (AM_CPPFLAGS): Renamed from INCLUDES.
|
|
|
|
|
(lib_LTLIBRARIES): Rename to ...
|
|
|
|
|
(toolexeclib_LTLIBRARIES): this for multilib support.
|
|
|
|
|
* configure.in: Rename to ...
|
|
|
|
|
* configure.ac: this. Update to modern autoconf style, enable
|
|
|
|
|
multilibs, support --enable-version-specific-runtime-libs.
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* aclocal.m4: Regenerated.
|
|
|
|
|
|
2004-05-30 12:49:50 +02:00
|
|
|
2004-05-30 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h (random_seed): Update prototype.
|
|
|
|
|
* intrinsics/random.c: Disable old implementation and add new one.
|
|
|
|
|
|
2004-05-30 11:53:10 +02:00
|
|
|
2004-05-30 Andreas Jaeger <aj@suse.de>
|
|
|
|
|
|
|
|
|
|
* intrinsics/random.c: Include unistd.h for close and read
|
|
|
|
|
prototypes, remove unneeded inclusion of assert.h.
|
|
|
|
|
|
|
|
|
|
* intrinsics/abort.c: Include stdlib.h for abort prototype, remove
|
|
|
|
|
unneeded inclusion of assert.h.
|
|
|
|
|
|
2004-05-27 15:05:23 +02:00
|
|
|
2004-05-27 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/15234
|
|
|
|
|
* intrinsics/associated.c: Remove enum.
|
|
|
|
|
(associated): Replace TRUE/FALSE by 1/0.
|
|
|
|
|
|
2004-05-23 18:18:22 +02:00
|
|
|
2004-05-23 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* random.c (random_seed): Use correct variable.
|
|
|
|
|
|
2004-05-22 14:47:42 +02:00
|
|
|
2004-05-22 Steven G. Kargl <kargls@comcast.net>
|
|
|
|
|
|
|
|
|
|
* intrinsics/system_clock: New file.
|
|
|
|
|
* Makefile.am: Add intrinsics/system_clock.c.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2004-05-21 23:37:25 +02:00
|
|
|
2004-05-21 Roger Sayle <roger@eyesopen.com>
|
|
|
|
|
|
|
|
|
|
* io/format.c (parse_format_list): Allow the comma after a string
|
|
|
|
|
literal to be optional.
|
|
|
|
|
|
2004-05-19 02:34:59 +02:00
|
|
|
2004-05-18 Paul Brook <paul@codesourcery.com>
|
2004-05-19 12:41:38 +02:00
|
|
|
Feng Wang <fengwang@nudt.edu.cn>
|
2004-05-19 02:34:59 +02:00
|
|
|
|
|
|
|
|
* Makefile.am (i_pow_c): Set it. Add build rule.
|
|
|
|
|
(gfor_built_src): Use it.
|
|
|
|
|
(m4_files): add m4/pow.m4.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* m4/pow.m4: New file.
|
|
|
|
|
* generated/pow_*.c: Regenerate.
|
|
|
|
|
|
Makefile.am: Remove references to types.m4.
* Makefile.am: Remove references to types.m4.
* m4/iparm.m4: Merge with types.m4.
* m4/types.m4: Remove.
* m4/cshift1.m4, m4/dotprod.m4, m4/dotprodc.m4, m4/dotprodl.m4,
m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4, m4/ifunction.m4,
m4/in_pack.m4, m4/in_unpack.m4, m4/iparm.m4, m4/matmul.m4,
m4/matmull.m4, m4/maxloc0.m4, m4/maxloc1.m4, m4/maxval.m4,
m4/minloc0.m4, m4/minloc1.m4, m4/minval.m4, m4/reshape.m4,
m4/shape.m4, m4/specific.m4, m4/specific2.m4, m4/transpose.m4):
Update to use new iparm.m4.
* generated/*.c: Regenerate.
From-SVN: r82003
2004-05-18 21:03:26 +02:00
|
|
|
2004-05-18 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Remove references to types.m4.
|
|
|
|
|
* m4/iparm.m4: Merge with types.m4.
|
|
|
|
|
* m4/types.m4: Remove.
|
|
|
|
|
* m4/cshift1.m4, m4/dotprod.m4, m4/dotprodc.m4, m4/dotprodl.m4,
|
|
|
|
|
m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4, m4/ifunction.m4,
|
|
|
|
|
m4/in_pack.m4, m4/in_unpack.m4, m4/iparm.m4, m4/matmul.m4,
|
|
|
|
|
m4/matmull.m4, m4/maxloc0.m4, m4/maxloc1.m4, m4/maxval.m4,
|
|
|
|
|
m4/minloc0.m4, m4/minloc1.m4, m4/minval.m4, m4/reshape.m4,
|
|
|
|
|
m4/shape.m4, m4/specific.m4, m4/specific2.m4, m4/transpose.m4):
|
|
|
|
|
Update to use new iparm.m4.
|
|
|
|
|
* generated/*.c: Regenerate.
|
|
|
|
|
|
re PR libfortran/15235 (libgfortran doesn't build on Solaris 10)
PR fortran/15235
* gfortran.h (offset_t): Rename to ...
(gfc_offset): ... this.
* io/backspace.c (formatted_backspace, unformatted_backspace),
io/io.h (stream, gfc_unit, global_t, file_length, file_position),
transfer.c (us_read, us_write, next_record_r, next_record_w),
io/unit.c (init_units), unix.c (unix_stream, fd_alloc,
fd_alloc_r_at, fd_alloc_w_at, fd_seek, mmap_alloc,
mmap_alloc_r_at, mmap_alloc_w_at, mmap_seek, mem_alloc_r_at,
mem_alloc_w_at, mem_seek, file_length, file_position): Replace all
occurences of offset_t by gfc_offset.
From-SVN: r81994
2004-05-18 18:06:09 +02:00
|
|
|
2004-05-18 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/15235
|
|
|
|
|
* gfortran.h (offset_t): Rename to ...
|
|
|
|
|
(gfc_offset): ... this.
|
|
|
|
|
* io/backspace.c (formatted_backspace, unformatted_backspace),
|
|
|
|
|
io/io.h (stream, gfc_unit, global_t, file_length, file_position),
|
|
|
|
|
transfer.c (us_read, us_write, next_record_r, next_record_w),
|
|
|
|
|
io/unit.c (init_units), unix.c (unix_stream, fd_alloc,
|
|
|
|
|
fd_alloc_r_at, fd_alloc_w_at, fd_seek, mmap_alloc,
|
|
|
|
|
mmap_alloc_r_at, mmap_alloc_w_at, mmap_seek, mem_alloc_r_at,
|
|
|
|
|
mem_alloc_w_at, mem_seek, file_length, file_position): Replace all
|
|
|
|
|
occurences of offset_t by gfc_offset.
|
|
|
|
|
|
2004-05-16 22:17:04 +02:00
|
|
|
2004-05-16 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/format.c (write_real): Don't include padding in format.
|
|
|
|
|
|
2004-05-16 20:21:42 +02:00
|
|
|
2004-05-16 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/format.c (format_lex): Make c an int.
|
|
|
|
|
|
2004-05-16 16:07:58 +02:00
|
|
|
2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/write.c (write_logical): Don't print extra blank.
|
|
|
|
|
(write_integer): Base field width on kind.
|
|
|
|
|
(list_formatted_write): Output initial blank.
|
|
|
|
|
|
2004-05-16 15:27:48 +02:00
|
|
|
2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi>
|
|
|
|
|
|
|
|
|
|
* io/io.h (flush): Add prototype.
|
|
|
|
|
* io/transfer.c (finalize_transfer): Flush partial records.
|
|
|
|
|
* io/unix.c (flush): New function.
|
|
|
|
|
|
re PR libfortran/15234 (libgfortran doesn't compile on Tru64 UNIX V4.0F)
PR fortran/15234
* io/io.h (unit_t): Rename to ...
(gfc_unit) ... this.
(unit_root, current_unit, find_file, find_unit, get_unit): Now
of type gfc_unit.
(delete_file, insert_unit, close_unit): Argument now of type
gfc_unit.
* backspace.c (st_backspace), close.c (st_close), endfile.c
(st_endfile), inquire.c (inquire_via_unit, st_inquire), open.c
(test_endfile, edit_modes, new_unit, already_open, st_open),
rewind.c (st_rewind), transfer.c (current_unit), unit.c
(internal_unit, unit_cache, rotate_left, rotate_right, insert,
insert_unit, delete_root, delete_treap, delete_unit, find_unit,
get_unit, init_units, close_unit), unix.c (find_file0,
find_file, delete_file): Replace all occurences of unit_t by
gfc_unit.
From-SVN: r81903
2004-05-15 22:44:38 +02:00
|
|
|
2004-05-15 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/15234
|
|
|
|
|
* io/io.h (unit_t): Rename to ...
|
|
|
|
|
(gfc_unit) ... this.
|
|
|
|
|
(unit_root, current_unit, find_file, find_unit, get_unit): Now
|
|
|
|
|
of type gfc_unit.
|
|
|
|
|
(delete_file, insert_unit, close_unit): Argument now of type
|
|
|
|
|
gfc_unit.
|
|
|
|
|
* backspace.c (st_backspace), close.c (st_close), endfile.c
|
|
|
|
|
(st_endfile), inquire.c (inquire_via_unit, st_inquire), open.c
|
|
|
|
|
(test_endfile, edit_modes, new_unit, already_open, st_open),
|
|
|
|
|
rewind.c (st_rewind), transfer.c (current_unit), unit.c
|
|
|
|
|
(internal_unit, unit_cache, rotate_left, rotate_right, insert,
|
|
|
|
|
insert_unit, delete_root, delete_treap, delete_unit, find_unit,
|
|
|
|
|
get_unit, init_units, close_unit), unix.c (find_file0,
|
|
|
|
|
find_file, delete_file): Replace all occurences of unit_t by
|
|
|
|
|
gfc_unit.
|
|
|
|
|
|
2004-05-15 20:35:39 +02:00
|
|
|
2004-05-15 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/15311
|
|
|
|
|
* io/write.c (write_a): right justify A edit output.
|
|
|
|
|
|
2004-05-14 14:21:22 +02:00
|
|
|
2004-05-14 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/15149
|
|
|
|
|
* libgfortan.h,intrinsics/random.c: Made random_seed visible.
|
|
|
|
|
* runtime/main.c(init): Call random_seed as part of MAIN init.
|
|
|
|
|
|
2005-04-08 21:07:54 +02:00
|
|
|
2004-05-13 Tobias Schlter <tobias.schlueter@physik.uni-muenchen.de>
|
2004-05-14 01:36:16 +02:00
|
|
|
|
|
|
|
|
* io/format.c: (parse_format_list): No comma is required after
|
|
|
|
|
P descriptor.
|
|
|
|
|
|
2004-05-13 12:11:02 +02:00
|
|
|
2004-05-13 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
2004-05-14 00:41:37 +02:00
|
|
|
PR fortran/15204
|
|
|
|
|
* io/intrinsic/string_intrinsics.c (adjustr): rework logic.
|
2004-05-13 12:11:02 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
2004-05-06 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
|
|
|
|
|
Steven Bosscher <stevenb@suse.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/15234
|
|
|
|
|
* libgfortran.h: Include <inttypes.h> if available.
|
|
|
|
|
|
|
|
|
|
2004-05-03 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (MAP_FAILED): Define if missing.
|
|
|
|
|
(mmap_alloc): Cast MAP_FAILED to char *.
|
|
|
|
|
(mmap_open): Likewise.
|
|
|
|
|
|
|
|
|
|
2004-04-26 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* generated/_abs_i8.f90: New file.
|
|
|
|
|
* generated/_abs_c4.f90: New file.
|
|
|
|
|
* generated/_abs_c8.f90: New file.
|
|
|
|
|
* Makefile.am: Add them.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
`
|
|
|
|
|
2004-04-26 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/14056
|
|
|
|
|
* generated/_abs_i4.f90: New file.
|
|
|
|
|
* Makefile.am: Add it.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2004-04-25 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/14942
|
|
|
|
|
* io/list_read.c(list_formatted_read): finish consuming the
|
|
|
|
|
spaces and seperators at eoln to get ready for next item.
|
|
|
|
|
|
|
|
|
|
2004-04-23 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/15113
|
|
|
|
|
* io/read.c(read_a): Handle field width > destination and no field width.
|
|
|
|
|
|
|
|
|
|
2004-04-22 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/14906
|
|
|
|
|
* io/format.c (format_item): gracefully handle a ')'
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
when it is the first character encountered in the string.
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
|
2004-04-11 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/14904
|
|
|
|
|
* io/transfer.c (next_record): Update last_record when
|
|
|
|
|
more than one record is written to a direct access file
|
|
|
|
|
with one write statement.
|
|
|
|
|
|
|
|
|
|
2004-04-11 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR fortran/14901
|
|
|
|
|
* io/transfer.c (next_record_w) : No '\n' if internal.
|
|
|
|
|
* io/unix.c (empty_internal_buffer) : Init to spaces, not '\n'.
|
|
|
|
|
|
|
|
|
|
2004-04-11 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* io.h (ioparm): Interface from FE is 32 bit, irregardless of offset_t.
|
|
|
|
|
Will need to change this later to support direct access files > 2gb.
|
|
|
|
|
|
|
|
|
|
2004-04-03 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/14762
|
|
|
|
|
* io/transfer.c (next_record_r) : Skip to next record.
|
|
|
|
|
|
|
|
|
|
2004-04-03 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/14836
|
|
|
|
|
* io/transfer.c (next_record): Update last_record for DIRECT
|
|
|
|
|
|
|
|
|
|
2004-04-03 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/14837
|
|
|
|
|
* io/unix.c (find_file0): Use fd field of struct
|
|
|
|
|
|
|
|
|
|
2004-04-03 Bud Davis <bdavis9659@comcast.net>
|
2004-05-30 11:53:10 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
PR 14831
|
|
|
|
|
* io/inquire.c (inquire_via_unit): Changed return string for
|
|
|
|
|
BLANK=NULL. Use correct variable for ACTION.
|
|
|
|
|
|
|
|
|
|
2004-04-01 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR 14746
|
|
|
|
|
* io/read.c (read_f): Allow a decimal without a leading digit.
|
|
|
|
|
* io/write.c (output_float): remove a leading '0' to keep from
|
|
|
|
|
overflowing the field (F edit descriptor).
|
|
|
|
|
|
|
|
|
|
2004-04-01 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR gfortran/14565
|
|
|
|
|
* io/open.c (new_unit),
|
|
|
|
|
* io/io.h : new_unit is now visible
|
|
|
|
|
* io/transfer.c (data_transfer_init): open unit if no OPEN statement.
|
|
|
|
|
* io/transfer.c (data_transfer_init): remove compile warnings.
|
|
|
|
|
* io/rewind.c (st_rewind): ftruncate if writing.
|
|
|
|
|
|
|
|
|
|
2004-03-24 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* write.c (write_l): Use extract_int for 'L' edit descriptor.
|
|
|
|
|
|
|
|
|
|
2004-03-24 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR 13919
|
|
|
|
|
* io/io.h (global_t):
|
|
|
|
|
* io/list_read.c (next_char,list_formatted_read,ist_formatted_read):
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
Move eof_jmp to a global structure.
|
2004-05-13 08:41:07 +02:00
|
|
|
* io/transfer.c(finalize_transfer) : Set up eof_jump for callers.
|
|
|
|
|
|
|
|
|
|
2004-03-24 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* m4/cexp.m4 (csqrt): Actually use the passed value.
|
|
|
|
|
* generated/exp_c?.c: Regenerate.
|
|
|
|
|
|
|
|
|
|
2004-03-24 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
PR 12921
|
|
|
|
|
* io.h, transfer.c, open.c : recl_in changed from ptr to variable.
|
|
|
|
|
* open.c (new_unit): Moved test for positioned direct access error.
|
|
|
|
|
(init_units): Corrected calculation of max records.
|
|
|
|
|
|
|
|
|
|
2004-02-06 Feng Wang <fengwang@nudt.edu.cn>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Add m4/dotprodc.m4. And fix spelling.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* m4/dotprodc.m4: New file. Implement complex dot_product.
|
|
|
|
|
* m4/dotprod.m4: Delete the complex implementation.
|
|
|
|
|
* generated/dotprod_*: Update.
|
|
|
|
|
|
|
|
|
|
2004-02-07 Bud Davis <bdavis9659@comcast.net>
|
|
|
|
|
|
|
|
|
|
* transfer.c (write_constant_string): Do not delete H's in hollerith
|
|
|
|
|
formats.
|
|
|
|
|
|
|
|
|
|
2004-01-05 Andrew Pinski <apinski@apple.com>
|
|
|
|
|
|
|
|
|
|
* configure.in: Check for csin in -lmx also.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
|
|
|
|
2004-01-01 Paul Brook <paul@codesourcery.com>
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (find_nml_node): Make static.
|
|
|
|
|
(match_namelist_name): Ditto.
|
|
|
|
|
* io/read.c (convert_precision_real): Make static, fix spelling.
|
|
|
|
|
* io/transfer.c (extract_real): Remove unused prototype.
|
|
|
|
|
(st_set_nml_var): Make static.
|
|
|
|
|
* io/write.c (extract_real): Make static.
|
|
|
|
|
|
|
|
|
|
2003-12-12 Huang Chun <chunhuang73@hotmal.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsics.c (string_index): Fix logics thinko.
|
|
|
|
|
|
|
|
|
|
2003-12-05 Melvin Hadasht <melvin.hadasht@free.fr>
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (data_transfer_init): Give a runtime error for list
|
|
|
|
|
formatted reads and writes from/to files opened for unformatted IO.
|
|
|
|
|
|
|
|
|
|
2003-11-30 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* runtime/memory.c (push_context): Remove.
|
|
|
|
|
(pop_context): Remove.
|
|
|
|
|
* libgfortran.h: Remove prototypes.
|
|
|
|
|
|
|
|
|
|
2003-11-27 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* runtime/memory.c (deallocate): Nullify pointer after freeing.
|
|
|
|
|
|
|
|
|
|
2003-11-27 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsics.c: Use new memory allocation interface.
|
|
|
|
|
* libgfortran.h: Ditto.
|
|
|
|
|
* m4/in_pack.m4: Ditto.
|
|
|
|
|
* runtime/in_pack_generic.c: Ditto.
|
|
|
|
|
* runtime/memory.c: Ditto.
|
|
|
|
|
|
|
|
|
|
2003-11-26 Richard Henderson <rth@redhat.com>
|
|
|
|
|
|
|
|
|
|
* m4/exponent.m4, m4/fraction.m4: New.
|
|
|
|
|
* m4/nearest.m4, m4/set_exponent.m4: New.
|
|
|
|
|
* generated/*: Update.
|
|
|
|
|
* Makefile.am: Add them.
|
|
|
|
|
(AM_CFLAGS): New. Use -std=gnu99.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2003-11-08 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
PR fortran/12704
|
|
|
|
|
* m4/maxloc0.m4: Use default value of 1. Handle zero sized arrays.
|
|
|
|
|
* m4/maxloc1.m4: Ditto.
|
|
|
|
|
* m4/minloc0.m4: Ditto.
|
|
|
|
|
* m4/minloc1.m4: Ditto.
|
|
|
|
|
* m4/ifunction.m4: Set return value for zero sized arrays.
|
|
|
|
|
* m4/iforeach.m4: Ditto.
|
2004-05-30 11:53:10 +02:00
|
|
|
* m4/all.m4, m4/any.m4, m4/count.m4, m4/maxloc1.m4, m4/minloc1.m4,
|
2004-05-13 08:41:07 +02:00
|
|
|
m4/mxaval.m4, m4/minval.m4, m4/product.m4, m4/sum.m4: Ditto.
|
|
|
|
|
* generated/*: Update.
|
|
|
|
|
|
|
|
|
|
2003-10-30 Toon Moene <toon@moene.indiv.nluug.nl>
|
|
|
|
|
|
|
|
|
|
PR fortran/12702
|
|
|
|
|
* io/list_read.c (eat_spaces): Treat tab as space.
|
|
|
|
|
|
|
|
|
|
2003-10-30 Lars Segerlund <Lars.Segerlund@comsys.se>
|
|
|
|
|
|
|
|
|
|
* intrinsics/random.c: Add reference to paper containing algorithm.
|
|
|
|
|
(random_seed): Extra error checking and proper handling of arrays.
|
|
|
|
|
(arandom_r4, arandom_r8): Implement.
|
|
|
|
|
|
|
|
|
|
2003-10-29 Toon Moene <toon@moene.indiv.nluug.nl>
|
|
|
|
|
|
|
|
|
|
PR fortran/12703
|
|
|
|
|
* runtime/memory.c (allocate_size): Allow allocation
|
|
|
|
|
of zero-sized objects.
|
|
|
|
|
|
|
|
|
|
2003-10-29 Toon Moene <toon@moene.indiv.nluug.nl>
|
|
|
|
|
|
|
|
|
|
PR fortran/12701
|
|
|
|
|
* open.c (new_unit): Open without a file name opens
|
|
|
|
|
a file with name fort.<unit>.
|
|
|
|
|
|
|
|
|
|
2003-10-12 Feng Wang <wf_cs@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/cshift0.c: New file.
|
|
|
|
|
* m4/cshift1.m4: New file
|
|
|
|
|
* generated/cshift*.c: New files.
|
|
|
|
|
* Makefile.am: Add them.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2003-10-12 XiaoQiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* io/list_read.c (read_character): Remove unwanted call to free_saved.
|
|
|
|
|
|
|
|
|
|
2003-10-11 Huang Chun <jiwang@mail.edu.cn>
|
|
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsics.c (string_trim): New function.
|
|
|
|
|
(string_repeat): New function.
|
|
|
|
|
|
|
|
|
|
2003-10-11 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/dprod_r8.f90: New file.
|
|
|
|
|
* Makefile.am (gfor_specific_src): Add it.
|
|
|
|
|
(gfor_built_specific_src): Rename from gfor_build_specific_c.
|
|
|
|
|
Add new intrinsics.
|
|
|
|
|
(gfor_specific2_src): Rename from gfor_built_specific2_c.
|
|
|
|
|
Add new intrinsics.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* generated/_aint_*.f90: New files.
|
|
|
|
|
* generated/_anint*.f90: New files.
|
|
|
|
|
* generated/_atan2*.f90: New files.
|
|
|
|
|
* generated/_mod*.f90: New files.
|
|
|
|
|
|
|
|
|
|
2003-09-20 Kejia Zhao <kejia_zh@yahoo.com.cn>
|
2004-05-30 11:53:10 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
* intrinsics/selected_kind.f90: New file.
|
|
|
|
|
* Makefile.am: Add it.
|
|
|
|
|
* Makefile.in: regenerate.
|
|
|
|
|
|
|
|
|
|
2003-09-19 Lars Segerlund <Lars.Segerlund@comsys.se>
|
|
|
|
|
Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/random.c: New file.
|
|
|
|
|
* Makefile.am (gfor_hemper_src): Add it.
|
|
|
|
|
(gfor_specific_c): Fix typo.
|
|
|
|
|
|
|
|
|
|
2003-09-19 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* All: rename g95->gfc.
|
|
|
|
|
|
|
|
|
|
2003-09-18 XiaoQiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* io/write.c (output_float): Fix bug of FMT_E, Add comments.
|
|
|
|
|
|
|
|
|
|
2003-09-09 XiaoQiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* io/write.c (write_float): Dectection of positive infinite number,
|
|
|
|
|
Not a Number(NaN) and negative infinite number.
|
|
|
|
|
(ioutput_float): Bug fix for FMT_E and FMT_D processing to
|
|
|
|
|
output a very_very small number ( < 0.1e-100 ).
|
|
|
|
|
|
|
|
|
|
2003-09-07 XiaoQiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h (xtoa, itoa): Parameter modified.
|
|
|
|
|
* io/io.h (namelist_info): Declaration to support namelist I/O
|
|
|
|
|
(st_parameter): Add namelist related component
|
2004-05-30 11:53:10 +02:00
|
|
|
(ionml, empty_internal_buffer, st_set_nml_var_int,
|
2004-05-13 08:41:07 +02:00
|
|
|
st_set_nml_var_float, st_set_nml_var_char, st_set_nml_var_complex,
|
|
|
|
|
st_set_nml_var_log): Declaration
|
|
|
|
|
(set_integer, set_integer): Parameter changed
|
|
|
|
|
* io/format.c (free_nodes): Fix annoying bug of lefting "deallocated"
|
|
|
|
|
fnodes
|
|
|
|
|
(parse_format_list): Fix bug about FMT_SLASH
|
|
|
|
|
* io/list_read.c (push_char): Totally clear old saved_string, zeroize
|
|
|
|
|
newly allocated saved_string
|
|
|
|
|
(next_char): Add detection of End_Of_Line support
|
|
|
|
|
(convert_integer): Now can process 64 bits interger
|
|
|
|
|
(read_real): Bug fixed
|
2004-05-30 11:53:10 +02:00
|
|
|
(init_at_eol, find_nml_node, match_namelist_name): Add new functions
|
2004-05-13 08:41:07 +02:00
|
|
|
(match_namelist_name): New implemention
|
|
|
|
|
* io/lock.c (ionml): New global variable
|
|
|
|
|
(library_end): Free memory in ionml
|
|
|
|
|
* io/open.c (st_open): Variable initializtion
|
|
|
|
|
* io/read.c (max_value): 64 bits interger support
|
|
|
|
|
(convert_precsion_real): New procedure to replace "strtod" with more
|
|
|
|
|
features
|
|
|
|
|
(read_f, read_radix): Input bug fix
|
|
|
|
|
* io/transfer.c: (sf_seen_eor): New static variable
|
2004-05-30 11:53:10 +02:00
|
|
|
(read_sf): Zeroize base buffer; fix bugs: single read statement can
|
2004-05-13 08:41:07 +02:00
|
|
|
not get input in mutli line when read from stdin
|
|
|
|
|
(formatted_transfer): Fix bug of FMT_O, FMT_B, FMT_Z for INTEGER type
|
|
|
|
|
request
|
2004-05-30 11:53:10 +02:00
|
|
|
(data_transfer_init): Clear internal buffer for Internel File I/O.
|
2004-05-13 08:41:07 +02:00
|
|
|
Internal File now worked. Detect some error condition for namelist.
|
|
|
|
|
Some minor bug fix
|
|
|
|
|
(next_record_w): Internal file and Namelist I/O support.
|
|
|
|
|
(st_set_nml_var, st_set_nml_var_float, st_set_nml_var_char,
|
|
|
|
|
st_set_nml_var_complex, st_set_nml_var_log): Implemention.
|
|
|
|
|
* io/unit.c (implicit_unit): Deletion
|
|
|
|
|
(get_unit): Now cannot open a unit implicitly.
|
|
|
|
|
* io/unix.c (mmap_alloc): Fix fatal error in calculating the length of
|
|
|
|
|
mapped buffer.
|
|
|
|
|
(mem_alloc_r_at): Internal file I/O support added
|
|
|
|
|
(empty_internal_buffer): New function
|
|
|
|
|
* io/write.c (extract_int): Support 64 bits interger processing
|
|
|
|
|
(output_float): Varibale initialization
|
|
|
|
|
(write_float): Infinite real number detection.
|
|
|
|
|
(write_int): 64 bits integer I/O support
|
|
|
|
|
(write_decimal): New function to output decimal number
|
|
|
|
|
(otoa, btoa): Better implemention and 64 bits interger support
|
|
|
|
|
(namelist_write): New function
|
2004-05-30 11:53:10 +02:00
|
|
|
* runtime/error.c (itoa, xtoa): Better implemention and 64 bits
|
2004-05-13 08:41:07 +02:00
|
|
|
interger support
|
|
|
|
|
|
|
|
|
|
2003-08-15 Arnaud Desitter <arnaud.desitter@geography.oxford.ac.uk>
|
|
|
|
|
|
|
|
|
|
* libgfortran.h (os_error, runtime_error,internal_error, sys_exit,
|
|
|
|
|
get_mem ): Add attribute.
|
|
|
|
|
* intrinsics/spread_generic.c (__spread): Fix spelling.
|
|
|
|
|
* io/inquire.c (inquire_via_filename): Add const.
|
|
|
|
|
* io/io.h (sys_exit): Add attribute.
|
|
|
|
|
* io/io.h (move_pos_offset): Add move_pos_offset.
|
|
|
|
|
* io/io.h (compare_file_filename, inquire_sequential, inquire_direct,
|
|
|
|
|
inquire_formatted, inquire_unformatted, inquire_read, inquire_write,
|
|
|
|
|
inquire_readwrite, convert_real, write_a, write_b, write_d, write_e,
|
|
|
|
|
write_en, write_es, write_f, write_i, write_l, write_o, write_x,
|
|
|
|
|
write_z): Add const.
|
|
|
|
|
* io/read.c (convert_real): Add const.
|
|
|
|
|
* io/transfer.c (type_name): Add const.
|
|
|
|
|
* io/unix.c (unpack_filename, compare_file_filename,inquire_sequential,
|
|
|
|
|
inquire_direct, inquire_formatted, inquire_unformatted, inquire_access,
|
|
|
|
|
inquire_read, inquire_write, inquire_readwrite): Add const.
|
|
|
|
|
* io/write.c (output_float): Remove unused variable.
|
|
|
|
|
* io/write.c (write_a, extract_int, extract_real, output_float,
|
|
|
|
|
write_float, write_int, write_i, write_b, write_o, write_z, write_d,
|
|
|
|
|
write_e, write_f, write_en, write_es, write_logical, write_integer,
|
|
|
|
|
write_character, write_real, write_complex): Add const.
|
|
|
|
|
* runtime/error.c (rtoa): Remove unused variable.
|
|
|
|
|
* runtime/select.c (select_string): Add const.
|
|
|
|
|
* runtime/stop.c (stop_string): Add const.
|
|
|
|
|
|
|
|
|
|
2003-08-10 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am (gfor_helper_src): Add intrinsics/abort.c.
|
|
|
|
|
(FFLAGS): Add -fno-underscoring.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* intrinsics/abort.c: New file.
|
|
|
|
|
|
|
|
|
|
2003-08-10 Erik Schnetter <schnetter@uni-tuebingen.de>
|
|
|
|
|
|
|
|
|
|
* fmain.c (main): Do not call init and cleanup; call set_args instead.
|
|
|
|
|
* libgfortran.h (init, cleanup): Remove declarations.
|
|
|
|
|
(set_args): Add declaration.
|
|
|
|
|
* runtime/main.c (init, cleanup): Make them static, and give them
|
|
|
|
|
the constructor and destructor attributes.
|
|
|
|
|
(set_args): New function.
|
|
|
|
|
|
|
|
|
|
2003-08-10 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/strinf_intrinsics.c (compare_string): Return value based
|
|
|
|
|
on which string is longest.
|
|
|
|
|
|
|
|
|
|
2003-08-10 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am (EXTRA_DIST): Remove old files.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2003-07-26 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
Rename library to libgfortran.
|
|
|
|
|
* libgfortran.h: Change prefix to _libgfortran_.
|
|
|
|
|
|
|
|
|
|
2003-07-24 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* configure.in: Don't pull in system libtool. Use toplevel
|
|
|
|
|
auxiliary files.
|
|
|
|
|
|
|
|
|
|
2003-07-22 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
Regenerate all configury files.
|
|
|
|
|
|
|
|
|
|
2003-07-09 Chun Huang <compiler@sohu.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/string_intrinsic.c (string_scan): New function.
|
|
|
|
|
(string_verify): New function.
|
|
|
|
|
|
|
|
|
|
2003-06-25 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (mem_alloc_r_at, mem_alloc_w_at): Advance logical_offset.
|
|
|
|
|
(mem_seek): Don't bother setting physical_offset.
|
|
|
|
|
|
|
|
|
|
2003-06-20 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* libgfor.h (stop_numeric): Declare.
|
|
|
|
|
* runtime/pause.c: New file.
|
|
|
|
|
* Makefile.am: Add it.
|
|
|
|
|
|
|
|
|
|
2003-06-08 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* m4/cexp.m4 (cabs): Use correct typed version.
|
|
|
|
|
(csqrt): New function.
|
|
|
|
|
|
|
|
|
|
2003-06-07 Canqun Yang <canqun@yahoo.com.cn>
|
|
|
|
|
|
|
|
|
|
Spotted by Benjamin and Tobias:
|
|
|
|
|
* io/list_read.c: Add Separator '\t'.
|
|
|
|
|
(parse_real, read_real): Accept real values starting with an optional
|
|
|
|
|
sign follows a decimal point.
|
2004-05-30 11:53:10 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
2003-06-06 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Don't put cmath objects in subdir.
|
|
|
|
|
* configure.in: Rename MATHOBJ to MATH_OBJ.
|
|
|
|
|
|
|
|
|
|
2003-06-02 Kejia Zhao <Kejia_zh@yahoo.com.cn>
|
|
|
|
|
|
|
|
|
|
* intrinsics/associated.c: New file.
|
|
|
|
|
* Makefile.am: Add it. Regenerate Makefile.in.
|
|
|
|
|
* libgfor.h: Define g95_array_void, G95_DESCRIPTOR_DATA, and
|
|
|
|
|
G95_DESCRIPTOR_DTYPE.
|
|
|
|
|
|
|
|
|
|
2003-06-01 Canqun Yang <canqun@yahoo.com.cn>
|
|
|
|
|
|
|
|
|
|
* io/write.c (calcuate_exp): Rewrite it to avoid overflow.
|
|
|
|
|
(calculate_G_format): Rewrite it to eliminate an infinte loop and set
|
|
|
|
|
the scale_factor to 0 for F editing.
|
|
|
|
|
|
2005-04-08 21:07:54 +02:00
|
|
|
2003-05-11 Tobias Schlter <innenminister@gmx.de>
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
|
* libgfor.h: Only include stdint.h if it exists.
|
|
|
|
|
|
|
|
|
|
2003-05-07 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* libgfor.h: Use stdint.h types.
|
|
|
|
|
* intrinsics/ishift.c: Ditto.
|
|
|
|
|
* runtime/memory.c (malloc_t): Reorder fields for better alignment.
|
|
|
|
|
|
|
|
|
|
2003-05-05 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* libgfor.h (offsetof): Define if nobody else does.
|
|
|
|
|
* runtime/memory.c (HEADER_SIZE): Use it.
|
|
|
|
|
|
2005-04-08 21:07:54 +02:00
|
|
|
2003-05-01 Tobias Schlter <innenminister@gmx.de>
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
|
* configure.in: Require autoconf 2.54.
|
|
|
|
|
|
2005-04-08 21:07:54 +02:00
|
|
|
2003-04-28 Tobias Schlter <innenminister@gmx.de>
|
2004-05-13 08:41:07 +02:00
|
|
|
Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/reshape_generic.c: Copy the whole element, not just the
|
|
|
|
|
first byte.
|
|
|
|
|
* m4/transpose.m4: New file.
|
|
|
|
|
* Makefile.am: Add them.
|
|
|
|
|
Regenerate generated files.
|
|
|
|
|
|
|
|
|
|
2003-04-18 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* io/format.c (parse_format_list): Allow 'X' without integer
|
|
|
|
|
prefix. This is an extension. Interpretation is '1X'.
|
|
|
|
|
|
2005-04-08 21:07:54 +02:00
|
|
|
2003-04-18 Tobias Schlter <Tobias.Schlueter@physik.uni-muenchen.de>
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
|
* io/format.c (parse_format_list): Allow '0P'.
|
|
|
|
|
|
|
|
|
|
2003-04-18 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.in: Re-regenerate for automake 1.7.3.
|
|
|
|
|
|
|
|
|
|
2003-04-18 Canqun Yang <canqun@yahoo.com.cn>
|
|
|
|
|
|
|
|
|
|
Port implementation for CHARACTER SELECT from Andy's tree.
|
|
|
|
|
* runtime/select.c: New file
|
|
|
|
|
* Makefile.am: Add it.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2003-04-17 Xiaoqiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* io/transfer.c (formatted_transfer): Modified
|
|
|
|
|
* io/unix.c (move_pos_offset): New Function.
|
|
|
|
|
* io/format.c (parse_format_list): Modified.
|
|
|
|
|
|
|
|
|
|
2003-04-15 Xiaoqiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
|
|
|
|
* io/write.c (write_float,write_real): New implemention of
|
|
|
|
|
FMT_G and default float editing.
|
|
|
|
|
(calculate_exp,calculate_G_format,output_float): New Function.
|
|
|
|
|
(write_float,write_real,write_logical): Modified
|
|
|
|
|
* libgfor.h (default_rtoa): Remove Declaration.
|
|
|
|
|
* runtime/error.c (default_rtoa): Remove Function.
|
|
|
|
|
|
|
|
|
|
2003-04-15 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
Spotted by Yang:
|
|
|
|
|
* io/write.c (extract_real): Add missing break statement.
|
|
|
|
|
|
|
|
|
|
2003-04-13 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* cpu_time.c: Make sure we have a definition of HZ. Don't
|
|
|
|
|
rely on CLOCKS_PER_SEC, it is always 1000000, on any system.
|
|
|
|
|
|
|
|
|
|
2003-04-13 Steven Bosscher <steven@gcc.gnu.org>
|
|
|
|
|
Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* configure.in: Check for process time headers and GETTIMEOFDAY.
|
|
|
|
|
* makefile.am: Add intrinsics/cpu_time.c.
|
|
|
|
|
* acinclude.m4: New file.
|
|
|
|
|
* intrinsics/cpu_time.c: New file.
|
|
|
|
|
* m4/dotprodl.m4: Fix typo.
|
|
|
|
|
Regenerate generated files.
|
|
|
|
|
|
|
|
|
|
2003-04-11 Xiaoqiang Zhang <zhangapache@yahoo.com>
|
|
|
|
|
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
* io/write.c (extract_real): Ouput floating point value.
|
|
|
|
|
(write_float): New Function.
|
|
|
|
|
(write_e, write_f, write_en, write_es): Modified
|
|
|
|
|
* io/transfer.c (formatted_transfer): Modified.
|
|
|
|
|
* libgfor.h (default_rtoa): Declaration.
|
|
|
|
|
(rtoa): Declaration.
|
|
|
|
|
* runtime/error.c (default_rtoa): New Function.
|
|
|
|
|
(rtoa): New Function.
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
|
2003-04-05 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/spread_generic.c: New file.
|
|
|
|
|
* Makefile.am: Add it. Regenerate Makefile.in.
|
|
|
|
|
|
|
|
|
|
2003-03-29 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/pack_generic.c: New file.
|
|
|
|
|
* intrinsics/unpack_generic.c: New file.
|
|
|
|
|
* Makefile.am: Add them. Regenerate Makefile.in.
|
|
|
|
|
|
|
|
|
|
2003-03-25 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/eoshift0.c: New file.
|
|
|
|
|
* intrinsics/eoshift2.c: New file.
|
|
|
|
|
* m4/eoshift1.m4: New file.
|
|
|
|
|
* m4/eoshift3.m4: New file.
|
|
|
|
|
* Makefile.am: Add them.
|
|
|
|
|
* in_unpack_generic.c: Initialize src.
|
|
|
|
|
Regenerate generated files.
|
|
|
|
|
|
|
|
|
|
2003-03-14 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* m4/shape.m4: Work properly with array temporaries.
|
|
|
|
|
* m4/in_pack.m4: Skip redundant checks for array temporaries.
|
|
|
|
|
* runtime/in_pack_generic.c: Ditto.
|
|
|
|
|
|
|
|
|
|
2003-03-12 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* m4/shape.m4: Work properly with noncontiguous arrays.
|
|
|
|
|
|
|
|
|
|
2003-03-08 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* m4/in_pack.m4: Correctly handle zero sized and assumed size arrays.
|
|
|
|
|
* runtime/in_pack_generic.c: Ditto.
|
|
|
|
|
|
|
|
|
|
2003-02-08 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/reshape_generic.c: Use runtime_error to report errors.
|
|
|
|
|
* io/close.c (st_close): Return void.
|
|
|
|
|
* io/open.c (st_open): Return void.
|
|
|
|
|
* libgfor.h (g95_array_char): Declare.
|
|
|
|
|
(internal_malloc_size): Ditto.
|
|
|
|
|
(internal_pack*, internal_unpack*): Ditto.
|
|
|
|
|
* m4/in_pack.m4: Allocate storage if neccessary. Fix logic for packed
|
|
|
|
|
arrays.
|
|
|
|
|
* m4/in_unpack.m4: Include file fixes.
|
|
|
|
|
* m4/reshape.m4: Increment the correct source pointer.
|
|
|
|
|
* Makefile.am (maxloc): Fix typo.
|
|
|
|
|
* runtime/in_pack_generic.c: Call optimized functions. Allocate
|
|
|
|
|
storage if neccessary. Fix logic for packed arrays.
|
|
|
|
|
* runtime/in_unpack_generic.c: Call optimized functions.
|
|
|
|
|
* runtime/main.c: Use runtime_error to report errors.
|
|
|
|
|
* memory.c (internal_malloc_size): Make non-static.
|
|
|
|
|
|
|
|
|
|
2003-02-02 Arnaud Desitter <arnaud.desitter@geography.oxford.ac.uk>
|
|
|
|
|
|
|
|
|
|
* reshape_packed.c, lock.c: Add #include <string.h>.
|
2004-05-30 11:53:10 +02:00
|
|
|
* libgfor.h, format.c, inquire.c, io.h, transfer.c, unix.c,
|
2004-05-13 08:41:07 +02:00
|
|
|
environ.c, error.c, memory.c, string.c: Add const.
|
|
|
|
|
* error.c (show_locus): Add void.
|
|
|
|
|
|
|
|
|
|
2003-02-21 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* m4/in_pack.m4: Avoid returning const * parameter.
|
|
|
|
|
* Makefile.am: Only regenerate files in maintainer mode.
|
|
|
|
|
|
|
|
|
|
2003-02-20 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
Add array repacking support functions.
|
|
|
|
|
* m4/in_pack.m4, m4/in_unpack.m4: New files.
|
|
|
|
|
* runtime/in_pack_generic.c, runtime/in_unpack_generic.c: New files.
|
|
|
|
|
* Makefile.am: Build them. Regenerate configury files.
|
|
|
|
|
* generated/: New directory for generated files (need to move
|
|
|
|
|
everything else there).
|
|
|
|
|
|
|
|
|
|
2003-02-07 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
|
|
|
|
|
|
|
|
|
|
* m4/cexp.m4: Fix typo.
|
|
|
|
|
|
|
|
|
|
2003-01-26 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/: Add missing generated files.
|
|
|
|
|
|
|
|
|
|
2003-01-26 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Put -I before the filename.
|
|
|
|
|
|
|
|
|
|
2003-01-24 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* configure.in: Add AM_MAINTAINER_MODE.
|
|
|
|
|
|
|
|
|
|
2003-01-23 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* configure.in, Makefile.am: Modify to work with unmodified autoconf
|
|
|
|
|
and auotmake.
|
|
|
|
|
Also regenerate other configury files.
|
|
|
|
|
|
|
|
|
|
2003-01-21 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* io/read.c: Don't use stdint.h, it doesn't exist on cygwin.
|
|
|
|
|
|
|
|
|
|
2003-01-20 Steven Bosscher <s.bosscher@student.tudelft.nl>
|
|
|
|
|
|
|
|
|
|
* io/read.c (read_f): Don't use alloca, but safe get_mem instead.
|
|
|
|
|
Don't include "alloca.h".
|
|
|
|
|
|
|
|
|
|
2003-01-20 Steven Bosscher <s.bosscher@student.tudelft.nl>
|
|
|
|
|
|
|
|
|
|
* intrinsics/string.c: Rename to intrinsics/string_intrinsics.c.
|
|
|
|
|
* Makefile.am: Adjust file name.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* gfortypes.h: Kill, include everything in...
|
|
|
|
|
* libgfor.h: ...here. Include config.h
|
2004-05-30 11:53:10 +02:00
|
|
|
* fmain.c, intrinsics/ishftc.c, intrinsic/reshape_generic.c,
|
2004-05-13 08:41:07 +02:00
|
|
|
intrinsics/reshape_i4.c, intrinsics/reshape_i8.c,
|
|
|
|
|
intrinsics/reshape_packed.c, intrinsics/size.c,
|
|
|
|
|
m4/reshape.m4, runtime/main.c, runtime/memory.c: Use macro
|
|
|
|
|
for prefix for all functions instead of hardcoded.
|
|
|
|
|
|
|
|
|
|
2003-01-19 Steven Bosscher <s.bosscher@student.tudelft.nl>
|
|
|
|
|
|
|
|
|
|
* io/lock.c (library_end): Propagate library return
|
|
|
|
|
code.
|
2004-05-30 11:53:10 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
2003-01-19 Steven Bosscher <s.bosscher@student.tudelft.nl>
|
|
|
|
|
|
|
|
|
|
Port fixes from Andy's tree:
|
|
|
|
|
* io/read.c (read_decimal): Reverse sense of overflow
|
|
|
|
|
comparison during integer reads.
|
|
|
|
|
* io/format.c (revert): Fix comment.
|
|
|
|
|
(next_format): Fix format revision.
|
|
|
|
|
* io/unix.c: Fix and simplify mmap version of stream
|
|
|
|
|
functions.
|
|
|
|
|
|
|
|
|
|
2003-01-11 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* configure, Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2003-01-11 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* runtime/stop.c: Rewrite.
|
|
|
|
|
|
|
|
|
|
2003-01-08 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* configure, Makefile.in: Regenerate.
|
|
|
|
|
|
|
|
|
|
2003-01-05 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* (*.m4) Move to m4/.
|
|
|
|
|
* intrinsics/string.c (_gfor_string_index): New Function.
|
|
|
|
|
|
|
|
|
|
2002-12-29 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/reshape.*: New files.
|
|
|
|
|
* gcc_config.patch: Update to new GCC configure system.
|
|
|
|
|
|
|
|
|
|
2002-10-10 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/size.c: New file.
|
|
|
|
|
* intrinsics/shape.m4: New file.
|
|
|
|
|
* Makefile.am: Add above files.
|
|
|
|
|
|
|
|
|
|
2002-10-02 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* fmain.c (main): Move here.
|
|
|
|
|
* libgfor.c: From here.
|
|
|
|
|
* libgfor.h (gfor_init, gfor_runtime_cleanup): Declare.
|
|
|
|
|
* Makefile.am: Build libgforbegin.
|
|
|
|
|
* gcc_config.patch: Remove stray -march=athlon.
|
|
|
|
|
* dotprodl.m4: Fix use of L8_TO_L4 macro.
|
|
|
|
|
* ifunction.m4: Move variable declarations to allow compilation with
|
|
|
|
|
gcc < 3.0
|
|
|
|
|
* specific.m4, specific4.m4: Fix typo typecode->type_code.
|
|
|
|
|
* README: Document use of patch -p1.
|
|
|
|
|
|
|
|
|
|
2002-09-12 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* math/*: Add complex math library functions.
|
|
|
|
|
* intrinsics/specific(2).m4: Generate Specific intrinsic functions.
|
|
|
|
|
* Makefile.am: Add details for above.
|
|
|
|
|
* configure.in: Use AC_PROG_F95. Test for the presence of csin.
|
|
|
|
|
|
|
|
|
|
2002-09-09 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* libgfor.c (determine_endianness): Use an array rather than a struct.
|
|
|
|
|
* intrinsics/dotprod*, matmul*: Implement DOT_PRODUCT and MATMUL.
|
|
|
|
|
|
|
|
|
|
2002-09-09 Steven Bosscher <s.bosscher@student.tudelft.nl>
|
|
|
|
|
|
|
|
|
|
* libgfor.c: Add fatal signal handler.
|
|
|
|
|
Romove superfluous abort() calls.
|
|
|
|
|
|
|
|
|
|
2002-09-07 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am, intrinsics: Major rewrite.
|
|
|
|
|
|
|
|
|
|
2002-09-02 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Added -I$(srcdir) to m4 rule.
|
|
|
|
|
|
|
|
|
|
2002-08-30 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* io/*: Integrated libgforio.
|
|
|
|
|
* Makefile.am, configure.in: Make compatable with GCC. Build code for
|
|
|
|
|
intrinsics in the intrisics directory.
|
|
|
|
|
* intrinsics/intrinsics.m4: Move here. Strip directories from the
|
|
|
|
|
filename. Add 'and' and 'all' intrinsics.
|
|
|
|
|
|
|
|
|
|
2002-08-17 Paul Brook <paul@nowt.org>
|
|
|
|
|
|
|
|
|
|
* ALL: First release as more than just a single file
|