2011-07-23 13:06:04 +02:00
|
|
|
|
2011-07-23 Andreas Schwab <schwab@linux-m68k.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/ctime.c: Include <stdlib.h>.
|
|
|
|
|
* intrinsics/getlog.c: Likewise.
|
|
|
|
|
* runtime/stop.c: Likewise.
|
|
|
|
|
|
2011-07-23 00:44:20 +02:00
|
|
|
|
2011-07-23 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/49791
|
|
|
|
|
* io/list_read.c (nml_parse_qualifier): Remove check to
|
|
|
|
|
enabled extended read for another case.
|
|
|
|
|
|
2011-07-16 00:39:03 +02:00
|
|
|
|
2011-07-15 Daniel Carrera <dcarrera@gmail.com>
|
|
|
|
|
|
|
|
|
|
* caf/mpi.c (caf_runtime_error): Change fprintf to vfprintf.
|
|
|
|
|
* caf/single.c (caf_runtime_error): Ditto.
|
|
|
|
|
|
2011-07-14 17:49:00 +02:00
|
|
|
|
2011-07-14 Daniel Carrera <dcarrera@gmail.com>
|
|
|
|
|
|
|
|
|
|
* caf/single.c: Include stdarg.h header.
|
|
|
|
|
(caf_runtime_error): New function. Use "exit(EXIT_FAILURE)".
|
|
|
|
|
(_gfortran_caf_register): Use caf_runtime_error.
|
|
|
|
|
(_gfortran_caf_sync_images): Use "exit(EXIT_FAILURE)".
|
|
|
|
|
* caf/mpi.c (caf_runtime_error): Remove "error" parameter.
|
|
|
|
|
Return EXIT_FAILURE instead.
|
|
|
|
|
(_gfortran_caf_register): Update call to caf_runtime_error.
|
|
|
|
|
(_gfortran_caf_sync_all): Ditto.
|
|
|
|
|
(_gfortran_caf_sync_images): Ditto.
|
|
|
|
|
(_gfortran_caf_error_stop_str): Use "exit(EXIT_FAILURE)".
|
|
|
|
|
|
2011-07-13 20:46:44 +02:00
|
|
|
|
2011-07-13 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/49296
|
|
|
|
|
* io/list_read.c (read_logical): Don't error out if a valid value
|
|
|
|
|
is followed by EOF instead of a normal separator.
|
|
|
|
|
(read_integer): Likewise.
|
|
|
|
|
|
2011-07-09 23:22:44 +02:00
|
|
|
|
2011-07-09 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
* runtime/error.c (sys_abort): Change argument list
|
|
|
|
|
from "()" to "(void)".
|
|
|
|
|
|
2011-07-09 16:29:50 +02:00
|
|
|
|
2011-07-09 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
Daniel Carrera <dcarrera@gmail.com>
|
|
|
|
|
|
|
|
|
|
* caf/mpi.c (runtime_error): New function.
|
|
|
|
|
(_gfortran_caf_register): Use it.
|
|
|
|
|
(_gfortran_caf_sync_all): Use it, add STAT_STOPPED_IMAGE
|
|
|
|
|
as possible status value.
|
|
|
|
|
(_gfortran_caf_sync_images): Ditto.
|
|
|
|
|
|
2011-07-07 14:46:18 +02:00
|
|
|
|
2011-07-07 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
* libcaf.h (__attribute__, unlikely, likely): New macros.
|
|
|
|
|
(caf_register_t): Update comment.
|
|
|
|
|
(_gfortran_caf_register): Add stat, errmsg, errmsg_len arguments.
|
|
|
|
|
* single.c (_gfortran_caf_register): Ditto; add error diagnostics.
|
|
|
|
|
* mpi.c (_gfortran_caf_register): Ditto.
|
|
|
|
|
(caf_is_finalized): New global variable.
|
|
|
|
|
(_gfortran_caf_finalize): Use it.
|
|
|
|
|
|
2011-07-05 20:16:17 +02:00
|
|
|
|
2011-07-05 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* runtime/memory.c (internal_malloc_size): If size is zero,
|
|
|
|
|
allocate a single byte.
|
|
|
|
|
* m4/pack.m4 (pack_'rtype_code`): Don't check for zero size
|
|
|
|
|
for the argument of internal_malloc_size.
|
|
|
|
|
* m4/spread.m4 (spread_'rtype_code`): Likewise.
|
|
|
|
|
* m4/eoshift1.m4 (eoshift1): Don't allocate twice. Don't check
|
|
|
|
|
for zero size for the argument of internal_malloc_size.
|
|
|
|
|
* m4/eoshift3.m4: Don't check for zero size for the argument of
|
|
|
|
|
internal_malloc_size.
|
|
|
|
|
* intrinsics/pack_generic.c (pack_internal): Likewise.
|
|
|
|
|
(pack_s_internal): Likewise.
|
|
|
|
|
* intrinsics/cshift0.c (cshift0): Likewise.
|
|
|
|
|
* intrinsics/spread_generic.c (spread_internal): Likewise.
|
|
|
|
|
* intrinsics/eoshift0.c (eoshift0): Likewise.
|
|
|
|
|
* intrinsics/eoshift2.c (eoshift2): Likewise.
|
|
|
|
|
* generated/eoshift1_16.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift1_8.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_16.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_4.c: Regenerated.
|
|
|
|
|
* generated/eoshift3_8.c: Regenerated.
|
|
|
|
|
* generated/pack_c10.c: Regenerated.
|
|
|
|
|
* generated/pack_c16.c: Regenerated.
|
|
|
|
|
* generated/pack_c4.c: Regenerated.
|
|
|
|
|
* generated/pack_c8.c: Regenerated.
|
|
|
|
|
* generated/pack_i16.c: Regenerated.
|
|
|
|
|
* generated/pack_i1.c: Regenerated.
|
|
|
|
|
* generated/pack_i2.c: Regenerated.
|
|
|
|
|
* generated/pack_i4.c: Regenerated.
|
|
|
|
|
* generated/pack_i8.c: Regenerated.
|
|
|
|
|
* generated/pack_r10.c: Regenerated.
|
|
|
|
|
* generated/pack_r16.c: Regenerated.
|
|
|
|
|
* generated/pack_r4.c: Regenerated.
|
|
|
|
|
* generated/pack_r8.c: Regenerated.
|
|
|
|
|
* generated/spread_c10.c: Regenerated.
|
|
|
|
|
* generated/spread_c16.c: Regenerated.
|
|
|
|
|
* generated/spread_c4.c: Regenerated.
|
|
|
|
|
* generated/spread_c8.c: Regenerated.
|
|
|
|
|
* generated/spread_i16.c: Regenerated.
|
|
|
|
|
* generated/spread_i1.c: Regenerated.
|
|
|
|
|
* generated/spread_i2.c: Regenerated.
|
|
|
|
|
* generated/spread_i4.c: Regenerated.
|
|
|
|
|
* generated/spread_i8.c: Regenerated.
|
|
|
|
|
* generated/spread_r10.c: Regenerated.
|
|
|
|
|
* generated/spread_r16.c: Regenerated.
|
|
|
|
|
* generated/spread_r4.c: Regenerated.
|
|
|
|
|
* generated/spread_r8.c: Regenerated.
|
|
|
|
|
|
2011-06-28 20:59:04 +02:00
|
|
|
|
2011-06-28 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR fortran/49479
|
|
|
|
|
* m4/reshape.m4: If source allocation is smaller than one, set it
|
|
|
|
|
to one.
|
|
|
|
|
* intrinsics/reshape_generic.c: Likewise.
|
|
|
|
|
* generated/reshape_r16.c: Regenerated.
|
|
|
|
|
* generated/reshape_c4.c: Regenerated.
|
|
|
|
|
* generated/reshape_c16.c: Regenerated.
|
|
|
|
|
* generated/reshape_c8.c: Regenerated.
|
|
|
|
|
* generated/reshape_r4.c: Regenerated.
|
|
|
|
|
* generated/reshape_i4.c: Regenerated.
|
|
|
|
|
* generated/reshape_r10.c: Regenerated.
|
|
|
|
|
* generated/reshape_r8.c: Regenerated.
|
|
|
|
|
* generated/reshape_c10.c: Regenerated.
|
|
|
|
|
* generated/reshape_i8.c: Regenerated.
|
|
|
|
|
* generated/reshape_i16.c: Regenerated.
|
|
|
|
|
|
2011-06-18 09:53:09 +02:00
|
|
|
|
2011-06-18 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/49296
|
|
|
|
|
* io/list_read.c (read_character): Accept EOF as a separator when
|
|
|
|
|
reading string.
|
|
|
|
|
|
2011-06-17 01:09:36 +02:00
|
|
|
|
2011-06-17 Daniel Carrera <dcarrera@gmail.com>
|
|
|
|
|
|
|
|
|
|
* caf/single.c (_gfortran_caf_register): Store the address
|
|
|
|
|
of all static coarrays in a linked list.
|
|
|
|
|
(_gfortran_caf_finalize): Free memory of staic coarrays.
|
|
|
|
|
* caf/mpi.c (_gfortran_caf_register): Store the address
|
|
|
|
|
of all static coarrays in a linked list. Initialize MPI
|
|
|
|
|
if necessary.
|
|
|
|
|
(_gfortran_caf_finalize): Free memory of staic coarrays.
|
|
|
|
|
(_gfortran_caf_init): Check if MPI is already initialized
|
|
|
|
|
before initializing again.
|
|
|
|
|
* caf/libcaf.h: Add a type to caf_register_t to distinguish
|
|
|
|
|
static coarrays and add the type caf_static_t to make the
|
|
|
|
|
linked list of static coarrays.
|
|
|
|
|
|
2011-06-11 12:52:18 +02:00
|
|
|
|
2011-06-11 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (buf_seek): Return error if file is not seekable.
|
|
|
|
|
(buf_tell): Call buf_seek.
|
|
|
|
|
|
2011-06-11 12:19:49 +02:00
|
|
|
|
2011-06-11 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (fd_to_stream): Figure out if a fd is seekable by
|
|
|
|
|
trying lseek().
|
|
|
|
|
|
2011-06-10 12:22:24 +02:00
|
|
|
|
2011-06-10 Daniel Carrera <dcarrera@gmail.com>
|
|
|
|
|
|
|
|
|
|
* caf/mpi.c (_gfortran_caf_sync_all,
|
|
|
|
|
_gfortran_caf_sync_images): Functions have void return type
|
|
|
|
|
and move status into parameter list.
|
|
|
|
|
* caf/single.c (_gfortran_caf_sync_all,
|
|
|
|
|
_gfortran_caf_sync_images): Functions have void return type
|
|
|
|
|
and move status into parameter list.
|
|
|
|
|
* caf/libcaf.h (_gfortran_caf_sync_all,
|
|
|
|
|
_gfortran_caf_sync_images): Functions have void return type
|
|
|
|
|
and move status into parameter list.
|
|
|
|
|
|
2011-06-03 19:36:21 +02:00
|
|
|
|
2011-06-03 Richard Henderson <rth@redhat.com>
|
|
|
|
|
Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
|
|
|
|
|
|
|
|
|
|
* config/fpu-387.h [__sun__ && __svr4__] (sigill_hdlr): Correct
|
|
|
|
|
insn, insn size.
|
|
|
|
|
(has_sse) [!__x86_64__ && __sun__ && __svr4__]: Use movaps.
|
|
|
|
|
|
2011-05-29 22:13:52 +02:00
|
|
|
|
2011-05-29 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
2011-06-10 12:22:24 +02:00
|
|
|
|
PR libfortran/48931
|
|
|
|
|
* libgfortran.h (find_addr2line): New prototype.
|
|
|
|
|
* runtime/backtrace.c (show_backtrace): Use async-signal-safe
|
|
|
|
|
execve and stored path of addr2line.
|
|
|
|
|
* runtime/compile_options.c (maybe_find_addr2line): New function.
|
|
|
|
|
(set_options): Call maybe_find_addr2line if backtracing is enabled.
|
|
|
|
|
* runtime/main.c (find_addr2line): New function.
|
|
|
|
|
(init): Call find_addr2line if backtracing is enabled.
|
|
|
|
|
(cleanup): Free addr2line_path.
|
2011-05-29 22:13:52 +02:00
|
|
|
|
|
2011-05-29 15:17:17 +02:00
|
|
|
|
2011-05-29 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/49214
|
|
|
|
|
* runtime/backtrace.c (fd_gets): Return NULL if nothing was read.
|
|
|
|
|
|
2011-05-29 10:59:44 +02:00
|
|
|
|
2011-05-29 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/19155
|
|
|
|
|
* io/read.c (convert_real): Check for invalid input by comparing
|
|
|
|
|
endptr instead of EINVAL.
|
|
|
|
|
(read_f): Fixup floating point input without significand.
|
|
|
|
|
|
2011-05-22 21:34:16 +02:00
|
|
|
|
2011-05-22 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
* runtime/stop.c (stop_string,error_stop_string): Minor cleanup.
|
|
|
|
|
|
2011-05-22 18:38:05 +02:00
|
|
|
|
2011-05-22 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
2011-05-22 21:34:16 +02:00
|
|
|
|
PR libfortran/48931
|
|
|
|
|
* configure.ac: Check for backtrace_symbols_fd instead of
|
2011-05-22 18:38:05 +02:00
|
|
|
|
backtrace_symbols, check for readlink.
|
2011-05-22 21:34:16 +02:00
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* runtime/backtrace.c (local_strcasestr): Remove.
|
|
|
|
|
(bt_header): New function.
|
|
|
|
|
(dump_glibc_backtrace): Remove.
|
|
|
|
|
(fd_gets): New function.
|
|
|
|
|
(show_backtrace): Rework to use backtrace_symbols_fd and pipes
|
2011-05-22 18:38:05 +02:00
|
|
|
|
avoiding functions that are not async-signal-safe, reformat
|
|
|
|
|
output.
|
2011-05-22 21:34:16 +02:00
|
|
|
|
* runtime/main.c (store_exe_path): Try to check /proc/self/exe
|
2011-05-22 18:38:05 +02:00
|
|
|
|
first.
|
|
|
|
|
|
2011-05-20 16:45:51 +02:00
|
|
|
|
2011-05-20 Janne Blomqvist <jb@gcc.gnu.org>
|
2011-05-22 21:34:16 +02:00
|
|
|
|
Uros Bizjak <ubizjak@gmail.com>
|
2011-05-20 16:45:51 +02:00
|
|
|
|
|
2011-05-22 21:34:16 +02:00
|
|
|
|
PR libfortran/48977
|
|
|
|
|
* configure.host: Swap order of glibc and x86 tests.
|
2011-05-20 16:45:51 +02:00
|
|
|
|
|
2011-05-20 14:55:45 +02:00
|
|
|
|
2011-05-20 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
2011-05-22 21:34:16 +02:00
|
|
|
|
* config/fpu-387.h (set_fpu): Use renamed inexact macro.
|
|
|
|
|
* config/fpu-aix.h (set_fpu): Clarify error messages, use renamed
|
|
|
|
|
inexact macro, set TRP_INEXACT for inexact exception instead of
|
|
|
|
|
TRP_UNDERFLOW.
|
|
|
|
|
* config/fpu-generic.h (set_fpu): Clarify error messages, use
|
|
|
|
|
renamed inexact macro.
|
|
|
|
|
* config/fpu-glibc.h (set_fpu): Likewise.
|
|
|
|
|
* config/fpu-sysv.h (set_fpu): Likewise.
|
2011-05-20 14:55:45 +02:00
|
|
|
|
|
2011-05-14 18:02:07 +02:00
|
|
|
|
2011-05-14 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
* runtime/stop.c (error_stop_string, error_stop_numeric):
|
|
|
|
|
Do not backtrace for ERROR STOP.
|
|
|
|
|
|
2011-05-14 10:44:09 +02:00
|
|
|
|
2011-05-14 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
2011-05-14 18:02:07 +02:00
|
|
|
|
PR libfortran/48915
|
|
|
|
|
* intrinsics/abort.c (abort): Call sys_abort().
|
|
|
|
|
* io/unix.c (st_vprintf): Call sys_abort().
|
|
|
|
|
* libgfortran.h (options_t): Remove dump_core member.
|
|
|
|
|
(handler): Rename to backtrace_handler.
|
|
|
|
|
(compile_options_t): Remove dump_core member.
|
|
|
|
|
(sys_exit): Remove.
|
|
|
|
|
(sys_abort): New function.
|
|
|
|
|
* runtime/backtrace.c (show_backtrace): Print a message if
|
2011-05-14 10:44:09 +02:00
|
|
|
|
backtrace is not available on target, update filter symbol name
|
|
|
|
|
due to backtrace_handler renaming.
|
2011-05-14 18:02:07 +02:00
|
|
|
|
* runtime/compile_options.c (backtrace_handler): New
|
2011-05-14 10:44:09 +02:00
|
|
|
|
implementation based on example in Glibc manual.
|
2011-05-14 18:02:07 +02:00
|
|
|
|
(set_options): Remove dump_core handling, make signal handler
|
2011-05-14 10:44:09 +02:00
|
|
|
|
handle more signals.
|
2011-05-14 18:02:07 +02:00
|
|
|
|
(init_compile_options): Remove dump_core.
|
|
|
|
|
* runtime/environ.c (variable_table[]): Remove
|
2011-05-14 10:44:09 +02:00
|
|
|
|
GFORTRAN_ERROR_DUMPCORE element.
|
2011-05-14 18:02:07 +02:00
|
|
|
|
(show_variables): Update name, call exit().
|
|
|
|
|
* runtime/error.c (sys_exit): Remove.
|
|
|
|
|
(sys_abort): New function.
|
|
|
|
|
(recursion_check): Call sys_abort().
|
|
|
|
|
(os_error): Call exit().
|
|
|
|
|
(runtime_error): Likewise.
|
|
|
|
|
(runtime_error_at): Likewise.
|
|
|
|
|
(internal_error): Likewise.
|
|
|
|
|
(generate_error): Likewise.
|
|
|
|
|
(notify_std): Likewise.
|
|
|
|
|
* runtime/stop.c (stop_numeric): Call exit().
|
|
|
|
|
(stop_numeric_f08): Likewise.
|
|
|
|
|
(stop_string): Likewise.
|
|
|
|
|
(error_stop_string): Call sys_abort().
|
|
|
|
|
(error_stop_numeric): Print backtrace, exit with provided code.
|
2011-05-14 10:44:09 +02:00
|
|
|
|
|
2011-05-14 09:55:51 +02:00
|
|
|
|
2011-05-14 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
2011-05-14 18:02:07 +02:00
|
|
|
|
* io/unix.c (st_vprintf,st_printf): Move to runtime/error.c.
|
|
|
|
|
* libgfortran.h (struct options_t): Remove use_stderr field.
|
|
|
|
|
(st_vprintf,st_printf): Move prototypes.
|
|
|
|
|
(estr_write): New prototype.
|
|
|
|
|
* runtime/error.c (sys_exit): Use estr_write instead of st_printf.
|
|
|
|
|
(estr_write): New function.
|
|
|
|
|
(st_vprintf): Move from io/unix.c, use stack allocated buffer,
|
|
|
|
|
always output to stderr.
|
|
|
|
|
(st_printf): Move from io/unix.c.
|
|
|
|
|
(show_locus): Use a local variable instead of static.
|
|
|
|
|
(os_error): Use estr_write instead of st_printf.
|
|
|
|
|
(runtime_error): Likewise.
|
|
|
|
|
(runtime_error_at): Likewise.
|
|
|
|
|
(runtime_warning_at): Likewise.
|
|
|
|
|
(internal_error): Likewise.
|
|
|
|
|
(generate_error): Likewise.
|
|
|
|
|
(generate_warning): Likewise.
|
|
|
|
|
(notify_std): Likewise.
|
|
|
|
|
* runtime/pause.c (do_pause): Likewise.
|
|
|
|
|
(pause_string): Likewise.
|
|
|
|
|
* runtime/stop.c (stop_string): Likewise.
|
|
|
|
|
(error_stop_string): Likewise.
|
|
|
|
|
* config/fpu_aix.h (set_fpu): Likewise.
|
|
|
|
|
* config/fpu_generic.h (set_fpu): Likewise.
|
|
|
|
|
* config/fpu_glibc.h (set_fpu): Likewise.
|
|
|
|
|
* config/fpu-sysv.h (set_fpu): Likewise.
|
|
|
|
|
* runtime/backtrace.c (dump_glibc_backtrace): Likewise.
|
|
|
|
|
(show_backtrace): Likewise.
|
|
|
|
|
* runtime/environ.c (print_spaces): Likewise.
|
|
|
|
|
(show_string): Likewise.
|
|
|
|
|
(show_variables): Likewise.
|
|
|
|
|
(variable_table[]): Remove GFORTRAN_USE_STDERR entry.
|
2011-05-14 09:55:51 +02:00
|
|
|
|
|
2011-05-14 08:35:18 +02:00
|
|
|
|
2011-05-14 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/48961
|
|
|
|
|
* intrinsics/execute_command_line.c (set_cmdstat): Don't abort if
|
|
|
|
|
synchronously executing with WAIT=.false.
|
|
|
|
|
(execute_command_line): Fix setting of cmdstat and exitstat.
|
|
|
|
|
|
2011-05-06 20:35:00 +02:00
|
|
|
|
2011-05-06 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/18918
|
|
|
|
|
* caf/libcaf.h: Cleanup headers.
|
|
|
|
|
(_gfortran_caf_critical, _gfortran_caf_end_critical): Make stub.
|
|
|
|
|
(caf_register_t): New enum.
|
|
|
|
|
(_gfortran_caf_register, _gfortran_caf_deregister): New prototype.
|
|
|
|
|
* caf/single.c (_gfortran_caf_critical,
|
|
|
|
|
_gfortran_caf_end_critical): Remove.
|
|
|
|
|
(_gfortran_caf_register, _gfortran_caf_deregister): New functions.
|
|
|
|
|
* caf/mpi.c (_gfortran_caf_critical,
|
|
|
|
|
_gfortran_caf_end_critical): Remove.
|
|
|
|
|
(_gfortran_caf_register, _gfortran_caf_deregister): New functions.
|
|
|
|
|
(caf_world_window): Remove global variable.
|
|
|
|
|
(_gfortran_caf_init): Fix off-by-one error of this_image.
|
|
|
|
|
|
2011-05-05 03:19:30 +02:00
|
|
|
|
2011-05-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48787
|
|
|
|
|
* io/write_float.def (output_float): Adjust up and down rounding for
|
|
|
|
|
cases where 'd' = 0. Gather common code to one location.
|
|
|
|
|
|
2011-05-01 14:32:18 +02:00
|
|
|
|
2011-05-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48787
|
|
|
|
|
* io/write_float.def (output_float): Gather up integer declarations and
|
|
|
|
|
add new 'p' for scale factor. Use 'p' in place of the 'dtp' reference
|
|
|
|
|
everywhere. For ROUND_UP scan the digit string and only perform
|
|
|
|
|
rounding if something other than '0' is found.
|
|
|
|
|
|
2011-04-29 18:09:45 +02:00
|
|
|
|
2011-04-29 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* io/unix.c (min): New macro.
|
|
|
|
|
(unpack_filename): Return errno number for errors.
|
|
|
|
|
(regular_file): Use appropriately sized buffer for path.
|
|
|
|
|
(compare_file_filename): Likewise.
|
|
|
|
|
(find_file): Likewise.
|
|
|
|
|
(delete_file): Likewise.
|
|
|
|
|
(file_exists): Likewise.
|
|
|
|
|
(file_size): Likewise.
|
|
|
|
|
(inquire_sequential): Likewise.
|
|
|
|
|
(inquire_direct): Likewise.
|
|
|
|
|
(inquire_formatted): Likewise.
|
|
|
|
|
(inquire_access): Likewise.
|
|
|
|
|
|
2011-04-29 17:58:20 +02:00
|
|
|
|
2011-04-29 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/48488
|
|
|
|
|
* io/write.c (write_real, write_real_g0): Update comments.
|
|
|
|
|
|
2011-04-29 16:56:02 +02:00
|
|
|
|
2011-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48488
|
|
|
|
|
PR libgfortran/48602
|
|
|
|
|
PR libgfortran/48615
|
|
|
|
|
PR libgfortran/48684
|
|
|
|
|
PR libgfortran/48787
|
|
|
|
|
* io/write.c (write_d, write_e, write_f, write_en,
|
|
|
|
|
write_es): Add precision compemsation parameter to call.
|
|
|
|
|
(set_fnode_default): Adjust default widths to assure
|
|
|
|
|
round trip on write and read. (write_real): Adjust call to write_float.
|
|
|
|
|
(write_real_g0): Calculate compensation for extra precision and adjust
|
2011-04-29 18:11:36 +02:00
|
|
|
|
call to write_float.
|
2011-04-29 16:56:02 +02:00
|
|
|
|
* io/write_float.def (output_float_FMT_G_): Use volatile rather than
|
|
|
|
|
asm volatile to avoid optimization issue. Correctly calculate the
|
|
|
|
|
number of blanks (nb) to be appended and simplify calculation logic.
|
|
|
|
|
(write_float): Increase MIN_FIELD_WIDTH by one to accomodate the new
|
|
|
|
|
default widths. Eliminate the code that attempted to reduce the
|
|
|
|
|
the precision used in later sprintf functions. Add call parameter to
|
|
|
|
|
compensate for extra precision.
|
2011-04-29 18:11:36 +02:00
|
|
|
|
|
2011-04-20 20:19:03 +02:00
|
|
|
|
2011-04-20 Jim Meyering <meyering@redhat.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/move_alloc.c (move_alloc): Remove useless
|
|
|
|
|
if-before-free test.
|
|
|
|
|
* io/fbuf.c (fbuf_destroy): Likewise.
|
|
|
|
|
* io/format.c (save_parsed_format): Likewise.
|
|
|
|
|
* io/open.c (already_open): Likewise.
|
|
|
|
|
* io/unit.c (free_internal_unit, close_unit_1): Likewise.
|
|
|
|
|
* io/unix.c (mem_close): Likewise.
|
|
|
|
|
|
2011-04-20 06:18:25 +02:00
|
|
|
|
2011-04-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48602
|
|
|
|
|
* io/write_float.def (output_float_FMT_G): Fix reversal in conditional.
|
|
|
|
|
Use asm volatile to mark temp variable, avoiding optimization errors.
|
|
|
|
|
|
2011-04-18 05:48:25 +02:00
|
|
|
|
2011-04-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48602
|
|
|
|
|
* io/write_float.def (output_float_FMT_G): Use current rounding mode
|
|
|
|
|
to set the rounding parameters. (output_float): Skip rounding
|
|
|
|
|
if value is zero.
|
2011-05-20 16:45:51 +02:00
|
|
|
|
|
2011-04-16 19:43:03 +02:00
|
|
|
|
2011-04-16 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/date_and_time.c (date_and_time): Remove sprintf CPP
|
|
|
|
|
branch.
|
|
|
|
|
* io/format.c (format_error): Use snprintf instead of sprintf.
|
|
|
|
|
* io/list_read.c: Move snprintf fallback macro to libgfortran.h.
|
|
|
|
|
(convert_integer): Use snprintf instead of sprintf.
|
|
|
|
|
(parse_repeat): Likewise.
|
|
|
|
|
(read_logical): Likewise.
|
|
|
|
|
(read_integer): Likewise.
|
|
|
|
|
(read_character): Likewise.
|
|
|
|
|
(parse_real): Likewise.
|
|
|
|
|
(read_complex): Likewise.
|
|
|
|
|
(read_real): Likewise.
|
|
|
|
|
(check_type): Likewise.
|
|
|
|
|
(nml_parse_qualifier): Add string length argument, use snprintf
|
|
|
|
|
instead of sprintf.
|
|
|
|
|
(nml_get_obj_data): Use snprintf instead of sprintf.
|
|
|
|
|
* io/open.c (new_unit): Remove sprintf CPP branch, use snprintf
|
|
|
|
|
instead of sprintf.
|
|
|
|
|
* io/transfer.c (require_type): Use snprintf instead of sprintf.
|
|
|
|
|
* io/unix.c (tempfile): Likewise.
|
|
|
|
|
* io/write.c (nml_write_obj): Likewise.
|
|
|
|
|
* io/write_float.def (output_float): Remove sprintf CPP branch,
|
|
|
|
|
use snprintf instead of sprintf.
|
|
|
|
|
* libgfortran.h: Add fallback snprintf macro from io/list_read.c.
|
|
|
|
|
* runtime/backtrace.c (show_backtrace): Remove sprintf CPP branch.
|
|
|
|
|
* runtime/main.c (store_exe_path): Use snprintf instead of
|
|
|
|
|
sprintf.
|
|
|
|
|
|
2011-04-15 18:29:44 +02:00
|
|
|
|
2011-04-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48589
|
|
|
|
|
* io/write_float.def (write_infnan): Set width properly for G0.
|
|
|
|
|
|
2011-04-15 18:13:28 +02:00
|
|
|
|
2011-04-15 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/18918
|
|
|
|
|
* Makefile.am: Build and install caf/single.c as
|
|
|
|
|
libcaf_single.a.
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
|
2011-04-15 06:21:19 +02:00
|
|
|
|
2011-04-15 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47571
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* acinclude.m4: Add alpha*-dec-osf* to gthread blacklist.
|
|
|
|
|
* configure.ac: Use separate symbol for clock_gettime in librt.
|
|
|
|
|
* intrinsics/system_clock.c: Use weakrefs only when needed and
|
|
|
|
|
supported.
|
|
|
|
|
|
2011-04-12 21:27:49 +02:00
|
|
|
|
2011-04-12 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Use AC_TYPE_* to make sure we have (u)intptr_t,
|
|
|
|
|
check for ptrdiff_t.
|
|
|
|
|
* libgfortran.h: Remove (u)intptr_t definitions, use ptrdiff_t for
|
|
|
|
|
index_type, change cshift0* prototypes.
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* intrinsics/cshift0.c (cshift0): Use ptrdiff_t instead of ssize_t.
|
|
|
|
|
* io/io.h (array_loop_spec): Use index_type instead of ssize_t.
|
|
|
|
|
* io/list_read.c (nml_parse_qualifier): Likewise.
|
|
|
|
|
* io/write.c (nml_write_obj): Likewise.
|
|
|
|
|
* m4/cshift0.c (cshift0_'rtype_code`): Likewise.
|
|
|
|
|
* generated/cshift0_*.c: Regenerated.
|
|
|
|
|
|
2011-04-12 20:10:28 +02:00
|
|
|
|
2011-04-12 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* Makefile.am: Remove _GNU_SOURCE from AM_CPPFLAGS.
|
|
|
|
|
* Makefile.in: Regenerated.
|
|
|
|
|
|
2011-04-06 20:29:55 +02:00
|
|
|
|
2011-04-06 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/18918
|
|
|
|
|
* caf/mpi.c (_gfortran_caf_init, _gfortran_caf_finalize):
|
|
|
|
|
Add global variable caf_mpi_initialized and use it for when
|
|
|
|
|
finalizing.
|
|
|
|
|
|
2011-04-03 17:44:02 +02:00
|
|
|
|
2011-04-04 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
* unix.c: Adapt stat DEFINEs since MinGW64 supports LFS.
|
|
|
|
|
(fallback_access, open_internal4, compare_file_filename,
|
|
|
|
|
find_file, file_size, inquire_sequential, inquire_direct,
|
|
|
|
|
inquire_formatted): Use "struct stat" instead of gfstat_t.
|
|
|
|
|
|
2011-03-27 11:01:34 +02:00
|
|
|
|
2011-03-27 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/18918
|
|
|
|
|
* caf/libcaf.h: New - coarray communication library.
|
|
|
|
|
* caf/mpi.c: New.
|
|
|
|
|
* caf/single.c: New.
|
|
|
|
|
|
2011-03-24 02:48:57 +01:00
|
|
|
|
2011-03-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48030
|
|
|
|
|
* io/read.c (read_x): Re-implement using fbuf_getc.
|
|
|
|
|
|
2011-03-21 13:24:17 +01:00
|
|
|
|
2011-03-21 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
|
|
|
|
|
|
|
|
|
|
PR bootstrap/48135
|
|
|
|
|
* configure.ac (gfortran_use_symver): Handle --disable-symvers.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2011-03-19 18:25:18 +01:00
|
|
|
|
2011-03-19 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
|
|
|
|
|
|
|
|
|
|
PR fortran/35667
|
|
|
|
|
* io/io.h (convert_infnan): Declare.
|
|
|
|
|
* io/read.c (convert_infnan): New.
|
|
|
|
|
(read_f): Use convert_infnan to convert INFs and NANs.
|
|
|
|
|
* list_read.c (parse_real, read_real): Likewise.
|
|
|
|
|
|
2011-03-19 13:09:27 +01:00
|
|
|
|
2011-03-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47439
|
|
|
|
|
* io/unix.c (tempfile): Work around poor mktemp() implementations.
|
|
|
|
|
|
2011-03-16 18:43:41 +01:00
|
|
|
|
2011-03-16 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47883
|
|
|
|
|
* acinclude.m4: Don't use AC_TRY_ macros.
|
|
|
|
|
* configure.ac: Likewise.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2011-03-12 23:39:33 +01:00
|
|
|
|
2011-03-12 Thomas Koenig <tkoenig@gcc.gnu.org>
|
|
|
|
|
|
2011-03-13 00:13:56 +01:00
|
|
|
|
PR libfortran/48066
|
2011-03-12 23:39:33 +01:00
|
|
|
|
* m4/ifunction.m4: If return array is empty, return.
|
|
|
|
|
* m4/ifunction_logical.m4: Likewise.
|
|
|
|
|
* generated/all_l16.c: Regenerated.
|
|
|
|
|
* generated/all_l1.c: Regenerated.
|
|
|
|
|
* generated/all_l2.c: Regenerated.
|
|
|
|
|
* generated/all_l4.c: Regenerated.
|
|
|
|
|
* generated/all_l8.c: Regenerated.
|
|
|
|
|
* generated/any_l16.c: Regenerated.
|
|
|
|
|
* generated/any_l1.c: Regenerated.
|
|
|
|
|
* generated/any_l2.c: Regenerated.
|
|
|
|
|
* generated/any_l4.c: Regenerated.
|
|
|
|
|
* generated/any_l8.c: Regenerated.
|
|
|
|
|
* generated/count_16_l.c: Regenerated.
|
|
|
|
|
* generated/count_1_l.c: Regenerated.
|
|
|
|
|
* generated/count_2_l.c: Regenerated.
|
|
|
|
|
* generated/count_4_l.c: Regenerated.
|
|
|
|
|
* generated/count_8_l.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_i16.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_i1.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_i2.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_r10.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_r16.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_16_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i16.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i1.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i2.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r10.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r16.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_4_r8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i16.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i1.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i2.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_i8.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r10.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r16.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r4.c: Regenerated.
|
|
|
|
|
* generated/maxloc1_8_r8.c: Regenerated.
|
|
|
|
|
* generated/maxval_i16.c: Regenerated.
|
|
|
|
|
* generated/maxval_i1.c: Regenerated.
|
|
|
|
|
* generated/maxval_i2.c: Regenerated.
|
|
|
|
|
* generated/maxval_i4.c: Regenerated.
|
|
|
|
|
* generated/maxval_i8.c: Regenerated.
|
|
|
|
|
* generated/maxval_r10.c: Regenerated.
|
|
|
|
|
* generated/maxval_r16.c: Regenerated.
|
|
|
|
|
* generated/maxval_r4.c: Regenerated.
|
|
|
|
|
* generated/maxval_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_i16.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_i1.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_i2.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_r10.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_r16.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_16_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i16.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i1.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i2.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r10.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r16.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_4_r8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i16.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i1.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i2.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_i8.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r10.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r16.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r4.c: Regenerated.
|
|
|
|
|
* generated/minloc1_8_r8.c: Regenerated.
|
|
|
|
|
* generated/minval_i16.c: Regenerated.
|
|
|
|
|
* generated/minval_i1.c: Regenerated.
|
|
|
|
|
* generated/minval_i2.c: Regenerated.
|
|
|
|
|
* generated/minval_i4.c: Regenerated.
|
|
|
|
|
* generated/minval_i8.c: Regenerated.
|
|
|
|
|
* generated/minval_r10.c: Regenerated.
|
|
|
|
|
* generated/minval_r16.c: Regenerated.
|
|
|
|
|
* generated/minval_r4.c: Regenerated.
|
|
|
|
|
* generated/minval_r8.c: Regenerated.
|
|
|
|
|
* generated/product_c10.c: Regenerated.
|
|
|
|
|
* generated/product_c16.c: Regenerated.
|
|
|
|
|
* generated/product_c4.c: Regenerated.
|
|
|
|
|
* generated/product_c8.c: Regenerated.
|
|
|
|
|
* generated/product_i16.c: Regenerated.
|
|
|
|
|
* generated/product_i1.c: Regenerated.
|
|
|
|
|
* generated/product_i2.c: Regenerated.
|
|
|
|
|
* generated/product_i4.c: Regenerated.
|
|
|
|
|
* generated/product_i8.c: Regenerated.
|
|
|
|
|
* generated/product_r10.c: Regenerated.
|
|
|
|
|
* generated/product_r16.c: Regenerated.
|
|
|
|
|
* generated/product_r4.c: Regenerated.
|
|
|
|
|
* generated/product_r8.c: Regenerated.
|
|
|
|
|
* generated/sum_c10.c: Regenerated.
|
|
|
|
|
* generated/sum_c16.c: Regenerated.
|
|
|
|
|
* generated/sum_c4.c: Regenerated.
|
|
|
|
|
* generated/sum_c8.c: Regenerated.
|
|
|
|
|
* generated/sum_i16.c: Regenerated.
|
|
|
|
|
* generated/sum_i1.c: Regenerated.
|
|
|
|
|
* generated/sum_i2.c: Regenerated.
|
|
|
|
|
* generated/sum_i4.c: Regenerated.
|
|
|
|
|
* generated/sum_i8.c: Regenerated.
|
|
|
|
|
* generated/sum_r10.c: Regenerated.
|
|
|
|
|
* generated/sum_r16.c: Regenerated.
|
|
|
|
|
* generated/sum_r4.c: Regenerated.
|
|
|
|
|
* generated/sum_r8.c: Regenerated.
|
|
|
|
|
|
2011-03-12 01:49:51 +01:00
|
|
|
|
2011-03-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/48047
|
|
|
|
|
* io/write_float.def (write_float): Change MIN_FIELD_WIDTH to 48.
|
|
|
|
|
|
2011-03-04 20:07:49 +01:00
|
|
|
|
2011-03-04 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47802
|
|
|
|
|
* intrinsics/ctime.c (strctime): Use builtins to check localtime_r
|
|
|
|
|
return type.
|
|
|
|
|
|
2011-03-04 18:52:10 +01:00
|
|
|
|
2011-03-04 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47802
|
|
|
|
|
* intrinsics/ctime.c (strctime): Don't use return value of
|
|
|
|
|
localtime_r.
|
|
|
|
|
|
2011-03-01 03:24:50 +01:00
|
|
|
|
2011-02-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47567
|
|
|
|
|
* io/write_float.def (output_float): Move handling of w = 0 to after
|
|
|
|
|
output rounding. Check for zero and set zero_flag accordingly. Set
|
|
|
|
|
width according to zero_flag. Add better comments.
|
|
|
|
|
|
2011-02-27 21:06:10 +01:00
|
|
|
|
2011-02-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47778
|
|
|
|
|
* io/list_read.c (namelist_read): Intialize the error string buffere.
|
|
|
|
|
If pprev_nl was used during the previous namelist read and the rank
|
|
|
|
|
was zero, reset the pointer to NULL for the next namelist read.
|
|
|
|
|
|
2011-02-26 16:21:45 +01:00
|
|
|
|
2011-02-26 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/45165
|
|
|
|
|
* unix.c (fallback_access): Fix file descriptor leaks.
|
|
|
|
|
|
2011-02-25 18:56:04 +01:00
|
|
|
|
2011-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_FPSETMASK): Set shell variable
|
|
|
|
|
tested in configure.host.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2011-02-24 22:51:39 +01:00
|
|
|
|
2011-02-24 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47802
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* configure.ac: Remove checks for ctime and ctime_r, add check for
|
|
|
|
|
strftime.
|
|
|
|
|
* intrinsics/date_and_time.c (localtime_r): Move fallback
|
|
|
|
|
implementation to time_1.h.
|
|
|
|
|
* intrinsics/time_1.h (localtime_r): Fallback implementation.
|
|
|
|
|
* intrinsics/ctime.c: Include time_1.h.
|
|
|
|
|
(ctime_r): Remove fallback implementation.
|
|
|
|
|
(strctime): New function.
|
|
|
|
|
(fdate): Use strctime instead of ctime_r.
|
|
|
|
|
(fdate_sub): Likewise.
|
|
|
|
|
(ctime): Likewise.
|
|
|
|
|
(ctime_sub): Likewise.
|
|
|
|
|
|
2011-02-24 21:13:57 +01:00
|
|
|
|
2011-02-24 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/47878
|
|
|
|
|
* io/transfer.c (read_sf): Call fbuf_getptr only at the end,
|
|
|
|
|
and subtract n, dtp->u.p.sf_seen_eor and seen_comma from it.
|
|
|
|
|
|
2011-02-24 15:51:17 +01:00
|
|
|
|
2011-02-24 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47802
|
|
|
|
|
* configure.ac: Add test for POSIX getpwuid_r.
|
|
|
|
|
* intrinsics/getlog.c (getlog): CPP test for
|
|
|
|
|
HAVE_POSIX_GETPWUID_R.
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
|
2011-02-24 05:52:00 +01:00
|
|
|
|
2011-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47567
|
|
|
|
|
* io/write_float.def (output_float): Remove special case handling of
|
|
|
|
|
zero with width 1.
|
|
|
|
|
|
2011-02-23 07:59:51 +01:00
|
|
|
|
2011-02-23 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47694
|
|
|
|
|
* io/fbuf.h (fbuf_getptr): New inline function.
|
|
|
|
|
* io/transfer.c (read_sf): Use fbuf_getptr and fbuf_getc to scan
|
|
|
|
|
through the string instead of fbuf_read.
|
|
|
|
|
|
2011-02-22 13:37:12 +01:00
|
|
|
|
2011-02-22 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
Kai-Uwe Eckhardt <kuehro@gmx.de>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47830
|
|
|
|
|
* intrinsics/c99_functions.c (roundl): Make C valid for
|
|
|
|
|
HAVE_NEXTAFTERL.
|
|
|
|
|
|
2011-02-19 16:10:55 +01:00
|
|
|
|
2011-02-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
2011-02-17 06:19:50 +01:00
|
|
|
|
|
|
|
|
|
PR libgfortran/47567
|
2011-02-19 16:10:55 +01:00
|
|
|
|
* io/write_float.def (output_float): Adjust width for F0.d to
|
|
|
|
|
allow space for negative signs on zero.
|
|
|
|
|
|
|
|
|
|
2011-02-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47667
|
2011-02-17 06:19:50 +01:00
|
|
|
|
* io/list_read.c (read_logical): Check for end of line before calling
|
|
|
|
|
eat_line. (read_integer): Likewise. (parse_real): Don't unget the
|
|
|
|
|
separator. Check for end of line before calling eat_line.
|
|
|
|
|
(read_complex): Allow line-end before and after parenthesis and comma.
|
|
|
|
|
Check for end of line before calling eat_line. (read_real): Check for
|
|
|
|
|
end of line before calling eat_line.
|
|
|
|
|
|
2011-02-16 18:18:41 +01:00
|
|
|
|
2011-02-16 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47757
|
|
|
|
|
* gfortran.map (GFORTRAN_1.4): Export
|
|
|
|
|
_gfortran_{m,s}i{all,any,parity}_i{1,2,4,8,16} and
|
|
|
|
|
_gfortran_{cshift0,eoshift{0,2}}_16_char4.
|
|
|
|
|
|
2011-02-15 22:30:43 +01:00
|
|
|
|
2011-02-15 Tobias Burnus <burnus@net-b.de>
|
|
|
|
|
|
|
|
|
|
PR fortran/47716
|
|
|
|
|
PR fortran/47648
|
|
|
|
|
* acinclude.m4 (LIBGFOR_CHECK_FLOAT128): Use check from
|
|
|
|
|
libquadmath, which uses more features.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
re PR fortran/47642 (real(kind=16) - libquadmath - segfault on amd64 FreeBSD)
PR fortran/47642
* libquadmath.texi (quadmath_snprintf): Document.
(quadmath_flt128tostr): Remove.
* Makefile.am (libquadmath_la_SOURCES): Add printf/*.c.
Remove quadmath_io.c, gdtoa/gdtoa.c, gdtoa/g__fmt.c,
gdtoa/g_Qfmt.c, gdtoa/dmisc.c and gdtoa/ulp.c.
* quadmath.h (quadmath_snprintf): New prototype.
(quadmath_flt128tostr): Remove.
* quadmath_weak.h (quadmath_snprintf): Add.
(quadmath_flt128tostr): Remove.
* configure.ac: New AC_CHECK_HEADERS headers: langinfo.h, wchar.h,
wctype.h, limits.h, ctype.h, printf.h, errno.h.
(AC_USE_SYSTEM_EXTENSIONS): Add.
(HAVE_HIDDEN_VISIBILITY, HAVE_PRINTF_HOOKS,
USE_LOCALE_SUPPORT, USE_I18N_NUMBER_H): New checks.
* quadmath.map (QUADMATH_1.0): Add quadmath_snprintf. Remove
quadmath_flt128tostr.
* printf/printf_fphex.c: New file.
* printf/_itowa.h: New file.
* printf/mul_n.c: New file.
* printf/quadmath-printf.h: New file.
* printf/submul_1.c: New file.
* printf/quadmath-printf.c: New file.
* printf/gmp-impl.h: New file.
* printf/lshift.c: New file.
* printf/fpioconst.h: New file.
* printf/add_n.c: New file.
* printf/cmp.c: New file.
* printf/sub_n.c: New file.
* printf/mul.c: New file.
* printf/divrem.c: New file.
* printf/addmul_1.c: New file.
* printf/printf_fp.c: New file.
* printf/_itoa.h: New file.
* printf/fpioconst.c: New file.
* printf/_i18n_number.h: New file.
* printf/flt1282mpn.c: New file.
* printf/rshift.c: New file.
* printf/mul_1.c: New file.
* quadmath_io.c: Removed.
* gdtoa/gdtoa.c: Removed.
* gdtoa/g__fmt.c: Removed.
* gdtoa/g_Qfmt.c: Removed.
* gdtoa/dmisc.c: Removed.
* gdtoa/ulp.c: Removed.
* config.h.in: Regenerated.
* configure: Regenerated.
* Makefile.in: Regenerated.
* io/write_float.def (DTOAQ): Use quadmath_snprintf instead of
quadmath_flt128tostr.
* io/transfer128.c (tmp2): Initialize to quadmath_snprintf instead
of quadmath_flt128tostr.
From-SVN: r170135
2011-02-14 16:34:44 +01:00
|
|
|
|
2011-02-14 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/47642
|
|
|
|
|
* io/write_float.def (DTOAQ): Use quadmath_snprintf instead of
|
|
|
|
|
quadmath_flt128tostr.
|
|
|
|
|
* io/transfer128.c (tmp2): Initialize to quadmath_snprintf instead
|
|
|
|
|
of quadmath_flt128tostr.
|
|
|
|
|
|
2011-02-13 12:45:53 +01:00
|
|
|
|
2011-02-13 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
|
|
|
|
|
|
|
|
|
|
* Makefile.in: Regenerate.
|
|
|
|
|
* aclocal.m4: Likewise.
|
|
|
|
|
* configure: Likewise.
|
|
|
|
|
|
2011-02-05 18:58:48 +01:00
|
|
|
|
2011-02-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47567
|
|
|
|
|
* io/write_float.def (output_float): Eliminate some redundant code.
|
|
|
|
|
Adjust width for case of F0.X for values of zero and all other values.
|
|
|
|
|
Expand cases where '*' is set to give cleaner results.
|
|
|
|
|
|
2011-02-05 17:22:04 +01:00
|
|
|
|
2011-02-05 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47571
|
|
|
|
|
* intrinsics/time_1.h (GF_CLOCK_MONOTONIC): Move to system_clock.c.
|
|
|
|
|
(weak_gettime): Likewise.
|
|
|
|
|
(gf_gettime): Change API, move weak_gettime() usage to
|
|
|
|
|
system_clock.c
|
|
|
|
|
* intrinsics/system_clock.c (GTHREAD_USE_WEAK): Define.
|
|
|
|
|
(gf_gettime_mono): New function.
|
|
|
|
|
(system_clock_4): Use gf_gettime_mono().
|
|
|
|
|
(system_clock_8): Likewise.
|
|
|
|
|
* intrinsics/date_and_time.c (date_and_time): Update gf_gettime()
|
|
|
|
|
usage.
|
|
|
|
|
|
2011-02-02 09:48:24 +01:00
|
|
|
|
2011-02-02 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47571
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* configure.ac: Don't add librt to LIBS.
|
|
|
|
|
* intrinsics/time_1.h (weak_gettime): Weakref trickery for
|
|
|
|
|
clock_gettime().
|
|
|
|
|
(gf_gettime): Use weak_gettime() instead of clock_gettime().
|
|
|
|
|
|
2011-02-01 09:27:55 +01:00
|
|
|
|
2011-02-01 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/time_1.h: Include errno.h needed by fallbacks.
|
|
|
|
|
|
2011-01-31 21:58:41 +01:00
|
|
|
|
2011-01-31 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* intrinsics/time_1.h: Fix definition of GF_CLOCK_MONOTONIC macro.
|
|
|
|
|
|
2011-01-31 21:52:00 +01:00
|
|
|
|
2011-01-31 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
* configure.ac: Check for clock_gettime().
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* intrinsics/time_1.h (__time_1): Rename to gf_cputime, add
|
|
|
|
|
times() fallback.
|
|
|
|
|
(gf_gettime): New function.
|
|
|
|
|
* intrinsics/cpu_time.c (__cpu_time_1): Update to call gf_cputime.
|
|
|
|
|
* intrinsics/date_and_time.c (date_and_time): Use gf_gettime.
|
|
|
|
|
* intrinsics/dtime.c (dtime_sub): Use gf_cputime.
|
|
|
|
|
* intrinsics/etime.c (etime_sub): Use gf_cputime.
|
|
|
|
|
* intrinsics/system_clock.c (system_clock_4): Use gf_gettime.
|
|
|
|
|
(system_clock_8): Use gf_gettime, increase count rate to allow
|
|
|
|
|
nanosecond precision, remove overflow prone branch.
|
|
|
|
|
|
2011-01-29 18:31:04 +01:00
|
|
|
|
2011-01-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47434
|
|
|
|
|
* io/write_float.def (write_infnan): Use calculate_sign to determine
|
|
|
|
|
if the sign should be given and check field widths accordingly.
|
|
|
|
|
|
2011-01-29 18:20:13 +01:00
|
|
|
|
2011-01-29 Kai Tietz <kai.tietz@onevision.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/ctime.c (ctime_r): Improve implementation.
|
|
|
|
|
|
2011-01-27 21:22:37 +01:00
|
|
|
|
2011-01-27 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47431
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* configure.ac: Add check for ctime_r().
|
|
|
|
|
* intrinsics/ctime.c (ctime_r): Fallback implementation.
|
|
|
|
|
(fdate): Use ctime_r() instead of ctime().
|
|
|
|
|
(fdate_sub): Likewise.
|
|
|
|
|
(ctime): Likewise.
|
|
|
|
|
(ctime_sub): Likewise.
|
|
|
|
|
|
2011-01-27 21:05:45 +01:00
|
|
|
|
2011-01-27 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47432
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* configure.ac: Add check for ttyname_r.
|
|
|
|
|
* io/unix.h: Add TTY_NAME_MAX, change stream_ttyname prototype.
|
|
|
|
|
* io/unix.c (stream_ttyname): Use ttyname_r if available, conform
|
|
|
|
|
to new prototype.
|
|
|
|
|
* io/inquire.c (inquire_via_unit): Use changed stream_ttyname.
|
|
|
|
|
* io/intrinsics.c (ttynam_sub): Likewise.
|
|
|
|
|
(ttynam): Likewise.
|
|
|
|
|
|
2011-01-27 18:34:14 +01:00
|
|
|
|
2011-01-27 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47491
|
|
|
|
|
* configure.ac: Call AC_USE_SYSTEM_EXTENSIONS to enable common
|
|
|
|
|
extensions.
|
|
|
|
|
* config.h.in: Regenerate.
|
|
|
|
|
* configure: Regenerate.
|
|
|
|
|
|
2011-01-29 18:31:04 +01:00
|
|
|
|
2011-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47285
|
|
|
|
|
* io/write_float.def (write_infnan): Adjust processor selected width
|
|
|
|
|
to 3 if NaN.
|
|
|
|
|
|
2011-01-27 03:16:18 +01:00
|
|
|
|
2011-01-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47285
|
|
|
|
|
* io/write_float.def (output_float): Return SUCCESS or FAILURE and use
|
|
|
|
|
the result to set the padding.
|
|
|
|
|
|
2011-01-26 10:14:01 +01:00
|
|
|
|
2011-01-26 Kai Tietz <kai.tietz@onevision.com>
|
|
|
|
|
|
|
|
|
|
* intrinsics/getlog.c (getlog): Fix label/statement issue.
|
|
|
|
|
|
2011-01-25 17:46:00 +01:00
|
|
|
|
2011-01-25 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47375
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* configure.ac: Add check for getpwuid_r.
|
|
|
|
|
* intrinsics/getlog.c (getlog): Use getpwuid_r() if available.
|
|
|
|
|
|
2011-01-21 23:42:17 +01:00
|
|
|
|
2011-01-22 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/46267
|
|
|
|
|
* config.h.in: Regenerated.
|
|
|
|
|
* configure: Regenerated.
|
|
|
|
|
* configure.ac: Check presence of strerror_r.
|
|
|
|
|
* intrinsics/gerror.c (gerror): Use gf_strerror, modify logic.
|
|
|
|
|
* io/unix.c (get_oserror): Remove.
|
|
|
|
|
* libgfortran.h (gf_strerror): Add prototype.
|
|
|
|
|
(get_oserror): Remove prototype.
|
|
|
|
|
* runtime/error.c (gf_strerror): New function.
|
|
|
|
|
(os_error): Use gf_strerror instead of get_oserror.
|
|
|
|
|
(generate_errror): Likewise.
|
|
|
|
|
|
2011-01-17 06:48:10 +01:00
|
|
|
|
2011-01-17 Janne Blomqvist <jb@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libfortran/47296
|
|
|
|
|
* io/unix.c (tempfile): Set opp->file and opp->file_len also if an
|
|
|
|
|
error occurs.
|
|
|
|
|
|
re PR fortran/46625 (libquadmath: Mangle internal symbols; rename __float128 <-> string functions)
PR fortran/46625
* quadmath.map (QUADMATH_1.0): Remove quadmath_strtopQ
and quadmath_dtoaq. Add strtoflt128 and quadmath_flt128tostr.
* quadmath_weak.h (quadmath_strtopQ, quadmath_dtoaq): Remove.
(strtoflt128, quadmath_flt128tostr): Add.
* gdtoa/strtopQ.c (quadmath_strtopQ): Rename to...
(strtoflt128): ... this. Return __float128, instead of writing
to memory pointed by last argument.
* quadmath.h: Use C style comments instead of C++ style.
(quadmath_strtopQ, quadmath_dtoaq): Remove prototypes.
(strtoflt128, quadmath_flt128tostr): Add prototypes.
* libquadmath.texi (quadmath_dtoaq): Rename to quadmath_flt128tostr.
(quadmath_strtopQ): Rename to strtoflt128. Adjust prototype,
adjust examples.
* quadmath_io.c (quadmath_dtoaq): Rename to...
(quadmath_flt128tostr): ... this.
libgfortran/
* io/write_float.def (DTOAQ): Use quadmath_flt128tostr
instead of quadmath_dtoa.
* io/transfer128.c (tmp1, tmp2): New variables, bring in
strtoflt128 and quadmath_flt128tostr.
(transfer_real128, transfer_real128_write, transfer_complex128,
transfer_complex128_write): Remove tmp1/tmp2 variables.
* io/read.c (convert_real): Use strtoflt128 instead of
quadmath_strtopQ, adjust for the changed arguments and return
value.
From-SVN: r168856
2011-01-16 17:55:27 +01:00
|
|
|
|
2011-01-16 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/46625
|
|
|
|
|
* io/write_float.def (DTOAQ): Use quadmath_flt128tostr
|
|
|
|
|
instead of quadmath_dtoa.
|
|
|
|
|
* io/transfer128.c (tmp1, tmp2): New variables, bring in
|
|
|
|
|
strtoflt128 and quadmath_flt128tostr.
|
|
|
|
|
(transfer_real128, transfer_real128_write, transfer_complex128,
|
|
|
|
|
transfer_complex128_write): Remove tmp1/tmp2 variables.
|
|
|
|
|
* io/read.c (convert_real): Use strtoflt128 instead of
|
|
|
|
|
quadmath_strtopQ, adjust for the changed arguments and return
|
|
|
|
|
value.
|
|
|
|
|
|
2011-01-15 07:42:30 +01:00
|
|
|
|
2011-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47296
|
|
|
|
|
* io/unix.c (unpack_filename): Return non-zero if the filename passed
|
|
|
|
|
in is NULL.
|
|
|
|
|
|
2011-01-05 04:53:15 +01:00
|
|
|
|
2011-01-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
|
|
|
|
|
|
|
|
|
|
PR libgfortran/47154
|
|
|
|
|
* io/list_read.c (namelist_read): Remove calls to hit_eof to avoid the
|
|
|
|
|
duplicate calls via next_record.
|
|
|
|
|
|
2010-01-04 09:59:59 +01:00
|
|
|
|
|
2011-01-02 17:22:05 +01:00
|
|
|
|
Copyright (C) 2011 Free Software Foundation, Inc.
|
2010-01-04 09:59:59 +01:00
|
|
|
|
|
|
|
|
|
Copying and distribution of this file, with or without modification,
|
|
|
|
|
are permitted in any medium without royalty provided the copyright
|
|
|
|
|
notice and this notice are preserved.
|