2010-07-19 Jerry DeLisle PR libfortran/44953 * io/unix.c (mem_alloc_w4): Return gfc_char4_t instead of char type pointer. (mem_write4): Remove cast to gfc_char4_t. * io/transfer.c (write_block): Use a gfc_char4_t pointer. (memset4): New helper function. (next_record_w): Use new helper function rather than sset for internal units. Don't attempt to pad with spaces if it is not needed. * io/unix.h: Update prototype for mem_alloc_w4. * io/write.c (memset4): Use gfc_char4_t pointer and chracter type. Don't use multiply by 4 to compute offset. (memcpy4): Likewise. (write_default_char4): Use a gfc_char4_t pointer and update memset4 and memcpy calls. (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise. (write_char): Add support for character(kind=4) internal units that was previously missed. (write_integer): Use a gfc_char4_t pointer and update memset4 and memcpy calls. (write_character): Likewise. (write_separator): Add support for character(kind=4) internal units that was previously missed. * write_float.def (output_float): Use a gfc_char4_t pointer and update memset4 and memcpy calls. (write_infnan): Likewise. (output_float_FMT_G_): Likewise. 2010-07-16 Jerry DeLisle PR libfortran/37077 * io/read.c (read_default_char4): Add support for reading into a kind-4 character variable from a character(kind=4) internal unit. * io/io.h (read_block_form4): Add prototype. * io/unit.c (get_internal_unit): Add call to fbuf_init. (free_internal_unit): Add call to fbuf_destroy. (get_unit): Fix whitespace. * io/transfer.c (read_sf_internal): Use fbuf_alloc to allocate a string to recieve the wide characters translated to single byte chracters. (read_block_form): Fix whitespace. (read_block_form4): New function to read from a character(kind=4) internal unit into a character(kind=4) variable. (read_block_direct): Fix whitespace. (write_block): Fix whitespace. (formatted_transfer_scalar_read): Likewise. (formatted_transfer_scalar_write): Likewise. * io/write.c (write_character): Add support for list directed write of a kind=1 character string to a character(kind=4) internal unit. 2010-07-14 Jerry DeLisle PR libfortran/44934 * io/file_pos.c (st_endfile): Correctly set unit flags for form. * io/transfer.c (data_transfer_init): Fix indentation of whitespace. 2010-07-12 Jerry DeLisle PR libfortran/37077 * io/read.c: Fix comment. * io/io.h (is_char4_unit): New macro. * io/unit.c (get_internal_unit): Call new function open_internal4. * io/unix.c (mem_alloc_r4): New function. (mem_alloc_w4): New function. (mem_read4): New function, temporary stub. (mem_write4): New function. (open_internal4): New function to set stream pointers to use the new mem functions. * io/transfer.c (write_block): Use new mem_alloc_w4 to access internal units of kind=4. * io/unix.h: Add prototypes for open_internal4, mem_alloc_w4, and mem_alloc_r4. * io/write.c (memset4): New helper function. (memcpy4): New helper function. (write_default_char4): Use new helper functions. (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise. (write_integer): Likewise. * io/write_float.def (output_float): Add code blocks to handle internal unit kind=4 output utilizing gfc_char4_t pointers. (write_infnan): Use new helper functions. (OUTPUT_FLOAT_FMT_G): Update this macro likewise. 2010-07-12 Rainer Orth * config/fpu-387.h [__sun__ && __svr4__] Include , . (sigill_caught): New. (sigill_hdlr): New function (has_sse) [__sun__ && __svr4__]: Check if SSE instruction causes SIGILL. 2010-07-11 Kai Tietz PR libfortran/44698 * io/unix.c (flush_buf): Add _commit for WIN32. 2010-06-28 Tobias Burnus PR fortran/43298 * list_read.c (parse_real): Do not pass (..) on for NAN(..). * read.c (convert_real): Fix comment about NAN/INF. 2010-07-02 Rainer Orth * configure.ac (gfortran_use_symver): Only check for Sun-style symbol versioning on Solaris 2. * configure: Regenerate. 2010-07-02 Rainer Orth * configure.ac: Check for Sun symbol versioning. * configure: Regenerate. * Makefile.am [LIBGFOR_USE_SYMVER]: Protect version_arg with LIBGFOR_USE_SYMVER_GNU. Add version_dep. [LIBGFOR_USE_SYMVER_SUN]: Handle Sun symbol versioning. [!LIBGFOR_USE_SYMVER]: Add version_dep. (libgfortran_la_DEPENDENCIES): Set to $(version_dep). * Makefile.in: Regenerate. 2010-06-29 Jerry DeLisle PR libfortran/43298 * io/read.c: Add code to parse and read Inf, Infinity, NaN, and Nan with optional parenthesis. 2010-06-28 Tobias Burnus PR fortran/43298 * list_read.c (parse_real, read_real): Support NAN(alphanum). 2010-06-25 Tobias Burnus * intrinsics/selected_real_kind.f90 (_gfortran_selected_real_kind2008): Add function. (_gfortran_selected_real_kind): Stub which calls _gfortran_selected_real_kind2008. * gfortran.map (GFORTRAN_1.4): Add _gfortran_selected_real_kind2008. * mk-srk-inc.sh: Save also RADIX. 2010-06-25 Tobias Burnus * runtime/compile_options.c (init_compile_options): Update compile_options.allow_std for GFC_STD_F2008_OBS. * io/transfer.c (formatted_transfer_scalar_read, formatted_transfer_scalar_write): Fix allow_std check. * io/list_read.c (nml_parse_qualifier): Ditto. 2010-06-18 Jerry DeLisle PR libfortran/44477 * io/file_pos.c (st_endfile): Add check for ENDFILE when file is already positioned after the EOF marker. Use find_or_create_unit instead of find_unit. If unit is not connected, connect it and create the file with default settings. * io/transfer.c (data_transfer_init): Add check for attempted READ or WRITE when file is already positioned after the EOF marker. 2010-06-10 Francois-Xavier Coudert * intrinsics/selected_char_kind.c (selected_char_kind): Fix return value for ISO_10646. 2010-06-09 Francois-Xavier Coudert * mk-kinds-h.sh: Define GFC_REAL_*_LITERAL_SUFFIX and GFC_REAL_*_LITERAL macros for each kind. * intrinsics/cpu_time.c (cpu_time_4, cpu_time_8, cpu_time_10, cpu_time_16): Use them. * intrinsics/random.c (rnumber_4, rnumber_8, rnumber_10, rnumber_16): Likewise. 2010-06-09 Francois-Xavier Coudert * intrinsics/system_clock.c (system_clock_4, system_clock_8): Undefine TCK. 2010-06-04 Thomas Koenig PR libfortran/34670 * intrinsics/date_and_time.c: Replace assert with runtime_error when VALUE is too small. 2010-05-20 Jerry DeLisle PR fortran/43851 * runtime/stop.c (stop_string): Make sure nothing is emitted for blank stop. 2010-05-19 Jerry DeLisle PR fortran/43851 * runtime/stop.c (error_stop_numeric): New function and updated comment. Add declaration for stop_numeric and remove declaration for stop_string. (stop_string): Use for blank STOP. (stop_numeric): Remove use of special -1 stop code. * runtime/pause.c (do_pause): Use stop_string for blank stop. (pause_numeric): Remove use of special -1 pause code. * gfortran.map: Add new symbol to run-time library. * libgfortran.h: Move declaration for stop_string to here to make function visible for do_pause. Remove declaration for stop_numeric. 2010-05-08 Janne Blomqvist * io/unix.h (mem_alloc_r): Fix typo to reduce visibility. 2010-05-07 Janne Blomqvist * libgfortran.h (free_mem): Remove prototype. * runtime/memory.c (free_mem): Remove function. * intrinsics/date_and_time.c (secnds): Replace free_mem() with free(). * io/fbuf.c (fbuf_destroy): Likewise. * io/format.c (free_format_hash_table): Likewise. (save_parsed_format): Likewise. (free_format_data): Likewise. * io/list_read.c (free_saved): Likewise. (free_line): Likewise. (nml_touch_nodes): Likewise. (nml_read_obj): Likewise * io/lock.c (free_ionml): Likewise. * io/open.c (new_unit): Likewise. (already_open): Likewise. * io/unit.c (destroy_unit_mutex): Likewise. (free_internal_unit): Likewise. (close_unit_1): Likewise. * io/unix.c (raw_close): Likewise. (buf_close): Likewise. (mem_close): Likewise. (tempfile): Likewise. * io/write.c (nml_write_obj): Likewise. * io/write_float.def (output_float_FMT_G_##): Likewise. * runtime/error.c (show_locus): Likewise. 2010-05-04 Ralf Wildenhues PR other/43620 * configure.ac (AM_INIT_AUTOMAKE): Add no-dist. * configure: Regenerate. * Makefile.in: Regenerate. 2010-04-30 Kai Tietz PR/43844 * io/unix.c (raw_truncate): Explicit cast from integer-scalar to pointer. (tempfile): Use for mingw GetTempPath and avoid double slash for path. 2010-04-24 Kai Tietz PR/43844 * io/unix.c (tempfile): Correct logic for mktemp case. 2010-04-06 Tobias Burnus PR fortran/39997 * runtime/stop.c (error_stop_string): New function. * gfortran.map (_gfortran_error_stop_string): Add. 2010-04-02 Ralf Wildenhues * Makefile.in: Regenerate. * aclocal.m4: Regenerate. 2010-04-01 Janne Blomqvist PR libfortran/43605 * io/intrinsics.c (gf_ftell): New function, seek to correct offset. (ftell): Call gf_ftell. (FTELL_SUB): Likewise. 2010-04-01 Paul Thomas * io/transfer.c : Update copyright. * io/unix.c : ditto * io/read.c : ditto * io/io.h : ditto * io/unix.h : ditto * io/inquire.c : ditto * io/format.c : ditto * io/list_read.c : ditto * runtime/error.c : ditto * libgfortran.h : ditto * intrinsics/date_and_time.c: ditto * intrinsics/args.c : ditto 2010-04-01 Janne Blomqvist PR libfortran/43605 * io/intrinsics.c (ftell): Reset fbuf, correct offset. (FTELL_SUB): Likewise. 2010-03-29 Jerry DeLisle PR libfortran/43265 * io/transfer.c (next_record_r): Only call hit_eof for specific conditions when an EOF is encountered. 2010-03-29 Tobias Burnus PR fortran/43551 * io/unix.c (buf_write): Set physical_offset after lseek. 2010-03-25 Jerry DeLisle PR libfortran/43517 * io/read.c (read_x): Return if seen EOR condition. 2010-03-21 Jerry DeLisle PR fortran/43409 * io/io.h: Fix type of size in st_parameter_inquire structure. 2010-03-20 Jerry DeLisle PR fortran/43409 * io/unix.h: Add prototype for new function to return file size. * io/unix.c (file_size): New function. * io/inquire.c (inquire_via_unit): Use new function. (inquire_via_filename): Use new function. 2010-03-17 Jerry DeLisle * io/transfer.c (read_sf_internal): Remove stray function declaration used during debugging. 2010-03-17 Jerry DeLisle PR libfortran/43265 * io/io.h: Delete prototype for read_sf, making it static. * io/read.c (read_x): Modify to call hit_eof if PAD="no". * io/transfer.c (read_sf_internal): New static function extracted from read_sf for use on internal units only. Handle empty string case. (read_sf): New factoring of this function, make it static. Add special conditions for EOF based on ADVANCE="no", PAD="no", and whether any bytes have been previously read from the record. (read_block_form): Modify to call read_sf or read_sf_internal. (next_record_r): Add a done flag similar to next_record_w. Call hit_eof if internal array unit next record returns finished, meaning an EOF was found and not done, ie not the last record expected. For external units call hit_eof if item_count is 1 or there are no pending spaces. (next_record): Update call to next_record_r. 2010-03-12 Kai Tietz PR/42950 * io/format.c (parse_format_list): Add to ERROR, WARNING, SILENT enumerators NOTIFICATION_ prefix. * runtime/error.c (notification_std): Likewise. * libgfortran.h (notification): Likewise. (GFC_LARGEST_BUF): Check for HAVE_GFC_INTEGER_16. 2010-03-11 Tobias Burnus PR fortran/43228 * io/list_read.c (nml_parse_qualifier): Disable expanded_read for array sections. 2010-03-10 Jerry DeLisle PR libfortran/43320 * io/transfer.c (next_record_r): Add hit_eof based on item_count condition. 2010-03-09 Jerry DeLisle PR libfortran/43265 * io/read.c: Include fbuf.h and unix.h to enable lower level I/O for read_x. (read_x): Replace the use of read_sf with equivalent lower level I/O, eliminating unneeded code and handling EOF and EOR conditions. * io/io.h: Revise prototype for read_sf. * io/transfer.c (read_sf): Delete no_error parameter and all uses of it. (read_block_form): Likewise. (next_record_r): Delete wrong code call to hit_eof. 2010-03-08 Kai TIetz PR/42950 * libgfortran.h (_POSIX): Define if __MINGW32__ is defined. (gfc_printf): Define to gnu_printf for __MINGW32__ case, otherwise to __printf__. (gfc_strtof,gfc_strtod,gfc_strtold): Define for mingw case to POSIX compatible converter functions. (runtime_error): Use instead gfc_printf as formatter attribute name. (runtime_error_at): Likewise. (runtime_warning_at): Likewise. (st_printf): Likewise. * intrinsics/date_and_time.c (localtime_r): Undefine possible defined macro. (gmtime_r): Likewise. * io/read.c (convert_real): Use gfc_strtof, gfc_strtod, and gfc_strtold. 2010-02-24 Jerry DeLisle PR libfortran/43155 * io/transfer.c (require_type): Subtract one from item_count for output of error message. Add comment before formatted_transfer function explaining why the item_count is off by one. 2010-02-24 Rainer Orth * io/write_float.def (WRITE_FLOAT): Use __builtin_signbit. 2010-02-22 Jerry DeLisle * io/list_read.c (list_formatted_read_scalar): Remove duplicate code. 2010-02-09 Tobias Burnus PR fortran/42996 * intrinsics/args.c (get_command_argument_i4): Always return commandline-argument length for length parameter. 2010-02-06 Jerry DeLisle PR libfortran/42742 * io/format.c (reset_fnode_counters): Use the correct pointer to the head of the fnode list. (parse_format): Remove previous hack that set limit on size of format string for caching. 2010-02-06 Jerry DeLisle PR libfortran * io/transfer.c (read_sf): Handle EOR and EOF conditions for ADVANCE="no" with PAD="yes" or PAD="no". 2010-02-03 Jerry DeLisle PR libfortran/42901 * io/list_read.c (nml_get_obj_data): Add new qualifier flag, clean up code, and adjust logic to set namelist info pointer correctly for array qualifiers of derived type components. 2010-01-15 Jerry DeLisle PR libfortran/42742 * io/format.c (parse_format): Set limit on size of format strings that will be cached. 2010-01-05 Rainer Orth * configure: Regenerate. 2010-01-03 Janne Blomqvist PR libfortran/42420 * io/unix.c: Defines for MINGW stat and fstat. (gfstat_t): New typedef. (id_from_fd): Use gfstat_t instead of struct stat. (fd_to_stream): Likewise. (compare_file_filename): Likewise. (find_file): Likewise. (file_exists): Likewise. (inquire_sequential): Likewise. (inquire_direct): Likewise. (inquire_formatted): Likewise. Copyright (C) 2010 Free Software Foundation, Inc. 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.