aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/io
AgeCommit message (Collapse)AuthorFilesLines
2012-03-15re PR libfortran/52434 (Insufficient number of digits in floating point ↵Janne Blomqvist2-117/+316
formatting) 2012-03-15 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/52434 PR libfortran/48878 PR libfortran/38199 * io/unit.c (get_internal_unit): Default to ROUND_UNSPECIFIED. (init_units): Likewise. * io/write_float.def (determine_precision): New function. (output_float): Take into account buffer with %f format, no need for our own rounding if unspecified or processor specified rounding. (DTOA): Simplify format string, add parameters. (FDTOA): New macros similar to DTOA, but using %f format. (OUTPUT_FLOAT_FMT_G): Stack allocate newf, determine correct precision and fill buffer. (EN_PREC): New macro. (determine_en_precision): New function. (WRITE_FLOAT): For G format, move buffer filling into output_float_FMT_G, use FDTOA for F format. (write_float): Increase buffer due to F format. testsuite ChangeLog: 2012-03-15 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/52434 PR libfortran/48878 PR libfortran/38199 * gfortran.dg/edit_real_1.f90: Don't assume roundTiesToAway. * gfortran.dg/round_1.f03: Likewise. From-SVN: r185433
2011-12-22PR 51646 Use POSIX mode flags in open() argument.Janne Blomqvist1-2/+2
2011-12-22 Janne Blomqvist <jb@gcc.gnu.org> Tobias Burnus <burnus@net-b.de> PR libfortran/51646 * acinclude.m4 (LIBGFOR_CHECK_UNLINK_OPEN_FILE): Use POSIX mode flags, omit mode argument when flags argument does not have O_CREAT. * io/unix.c (tempfile): Use POSIX mode flags. * configure: Regenerate. Co-Authored-By: Tobias Burnus <burnus@net-b.de> From-SVN: r182638
2011-12-08re PR fortran/50815 (ICE on allocation of deferred length character scalar ↵Tobias Burnus1-0/+37
dummy argument when -fbounds-check) 2011-12-08 Tobias Burnus <burnus@net-b.de> PR fortran/50815 * trans-decl.c (add_argument_checking): Skip bound checking for deferred-length strings. 2011-12-08 Tobias Burnus <burnus@net-b.de> PR fortran/50815 * gfortran.dg/bounds_check_16.f90: New. From-SVN: r182134
2011-11-10Let the compiler decide whether to inline.Janne Blomqvist5-20/+14
2011-11-10 Janne Blomqvist <jb@gcc.gnu.org> * intrinsics/cpu_time.c (__cpu_time_1): Don't force inlining. * intrinsics/random.c (rnumber_4): Remove inline attribute. (rnumber_8, rnumber_10, rnumber_16): Likewise. * intrinsics/system_clock.c (gf_gettime_mono): Likewise. * intrinsics/time_1.h (ATTRIBUTE_ALWAYS_INLINE): Remove macro. (gf_cputime): Add inline attribute for MingW version. * io/format.c (format_hash): Remove inline attribute. * io/io.h (memset4): Inline function from transfer.c and write.c moved here. * io/transfer.c (min_off): Remove inline attribute. (memset4): Move to io.h. * io/write.c (memset4): Likewise. (memcpy4): Remove inline attribute. * io/write_float.def (calculate_exp): Likewise. From-SVN: r181260
2011-11-09Configure cleanup.Janne Blomqvist1-4/+1
2011-11-09 Janne Blomqvist <jb@gcc.gnu.org> * configure.ac (AC_STDC_HEADERS): Remove. (AC_HEADER_TIME): Remove. (AC_HAVE_HEADERS, AC_CHECK_HEADERS): Move into a single invocation of AC_CHECK_HEADERS_ONCE, don't check for presence of C89 headers. (AC_CHECK_MEMBERS): Use single invocation. (AC_CHECK_FUNCS): Move into single invocation of AC_CHEC_FUNCS_ONCE, don't check for presence of C89 functions. * config.h.in: Regenerate. * configure: Regenerate. * intrinsics/clock.c: Include time.h. (mclock): Assume clock() is present. (mclock8): Likewise. * intrinsics/ctime.c (strctime): Assume strftime is present. (fdate): Assume time() is present. (fdate_sub): Likewise. (ctime): Likewise. * intrinsics/date_and_time.c: Don't provide abs macro. (HAVE_NO_DATE_TIME): Remove code related to macro which is never set. * intrinsics/execute_command_line.c: Assume stdlib.h is present. * intrinsics/exit.c: Likewise. * intrinsics/extends_type_of.c: Likewise. * intrinsics/gerror.c: Assume strerror() is present. * intrinsics/kill.c: Assume signal.h is present. * intrinsics/malloc.c: Assume stdlib.h is present. * intrinsics/move_alloc.c: Likewise. * intrinsics/perror.c: Assume perror() is present. * intrinsics/signal.c: Assume signal.h is present. * intrinsics/stat.c: Assume stdlib.h is present. * intrinsics/system.c: Likewise. * intrinsics/time.c: Include time.h, assume time() is present. * intrinsics/time_1.h: Conditionally include sys/time.h, unconditionally time.h. (gf_cputime): Do division in double, fallback using clock(). (gf_gettime): Assume time() is present. * intrinsics/umask.c: Assume stdlib.h is present. * runtime/backtrace.c: Likewise. * runtime/compile_options.c: Assume signal.h is present, assume C89 signals are present. * runtime/error.c: Assume signal.h and stdlib.h are present. From-SVN: r181227
2011-11-09PR 50016 Slow I/O on MingW due to _commitJanne Blomqvist2-5/+4
frontend ChangeLog: 2011-11-09 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/50016 * gfortran.texi (Data consistency and durability): New section. testsuite ChangeLog: 2011-11-09 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/50016 * gfortran.dg/inquire_size.f90: Don't flush the unit. libgfortran ChangeLog: 2011-11-09 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/50016 * io/inquire.c (inquire_via_unit): Flush the unit and use ssize. * io/unix.c (buf_flush): Don't call _commit. From-SVN: r181207
2011-11-07Revert previous fix for PR 45723.Janne Blomqvist1-1/+1
libgfortran ChangeLog: 2011-11-07 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/45723 * io/open.c (new_unit): Don't check file size before attempting seek. testsuite ChangeLog: 2011-11-07 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/45723 * gfortran.dg/open_dev_null.F90: Remove testcase. From-SVN: r181085
2011-11-01Copyright years and whitespace fix for r180734Janne Blomqvist2-3/+4
From-SVN: r180736
2011-11-01Cleanup NEWUNIT allocation.Janne Blomqvist2-10/+8
2011-11-01 Janne Blomqvist <jb@gcc.gnu.org> * io/io.h (next_available_newunit): Remove prototype. * io/unit.h (next_available_newunit): Make variable static, initialize it. (init_units): Don't initialize next_available_newunit. (get_unique_unit_number): Use atomic builtin if available. From-SVN: r180734
2011-10-31Update file position for inquire lazily.Janne Blomqvist4-43/+33
libgfortran ChangeLog: 2011-10-31 Janne Blomqvist <jb@gcc.gnu.org> * io/inquire.c (inquire_via_unit): Check whether we're at the beginning or end if the position is unspecified. If the position is not one of the 3 standard ones, return unspecified. * io/io.h (update_position): Remove prototype. * io/transfer.c (next_record): Set the position to unspecified, letting inquire figure it out more exactly when needed. * io/unit.c (update_position): Remove function. testsuite ChangeLog: 2011-10-31 Janne Blomqvist <jb@gcc.gnu.org> * gfortran.dg/inquire_5.f90: Update testcase to match the standard and current implementation. From-SVN: r180703
2011-10-31Introduce a size member function to struct stream.Janne Blomqvist6-24/+37
2011-10-31 Janne Blomqvist <jb@gcc.gnu.org> * io/unix.h (struct stream): Add size function pointer. (ssize): New inline function. (file_length): Remove prototype. * io/unix.c (raw_size): New function. (raw_init): Initialize st.size pointer. (buf_size): New function. (buf_init): Initialize st.size pointer. (open_internal): Likewise. (open_internal4): Likewise. (file_length): Remove function. * io/file_pos.c (st_rewind): Use ssize instead of file_length. * io/open.c (test_endfile): Likewise. * io/transfer.c (data_transfer_init): Likewise. (next_record_r): Likewise. (next_record_w): Likewise. * io/unit.c (update_position): Likewise. From-SVN: r180702
2011-10-31Simplify handling of special files.Janne Blomqvist6-117/+43
2011-10-31 Janne Blomqvist <jb@gcc.gnu.org> * io/file_pos.c (st_rewind): Handle regular and special files identically. * io/intrinsics.c (fseek_sub): Don't check whether we think the file is seekable, just do what the caller says. * io/transfer.c (skip_record): First try to seek, then fallback to reading and throwing away what we read. * io/unit.c (update_position): Don't check whether file is seekable, just try to do what we're told. (unit_truncate): Likewise. * io/unix.c (struct unix_stream): Remove special_file flag. (buf_flush): Remove code for handling unseekable files. (buf_seek): Likewise. (fd_to_stream): Use buffered IO only for regular files. (file_length): Remove is_seekable() call. (is_seekable): Remove function. (is_special): Likewise. * io/unix.h: Remove prototypes for is_seekable and is_special. From-SVN: r180701
2011-08-18re PR fortran/50109 (Formatted namelist read with multiple "!" fails with: ↵Tobias Burnus1-10/+1
Cannot match namelist object name !) 2011-08-18 Tobias Burnus <burnus@net-b.de> PR fortran/50109 * io/list_read.c (eat_separator): Fix skipping over "!" lines. 2011-08-18 Tobias Burnus <burnus@net-b.de> PR fortran/50109 * gfortran.dg/namelist_73.f90: New. From-SVN: r177858
2011-07-23re PR libfortran/49791 (Formatted namelist reads fails with: Cannot match ↵Tobias Burnus1-1/+0
namelist object) 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-23 Tobias Burnus <burnus@net-b.de> PR fortran/49791 * gfortran.dg/namelist_72.f: New. From-SVN: r176661
2011-07-13PR 49296 List read, EOF without preceding separatorJanne Blomqvist1-6/+6
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. testsuite: 2011-07-13 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/49296 * gfortran.dg/read_list_eof_1.f90: Add tests for integer, real, and logical reads. From-SVN: r176245
2011-06-18PR 49296 List directed read of string ending in EOF.Janne Blomqvist1-9/+9
libgfortran ChangeLog entry: 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. testsuite ChangeLog entry: 2011-06-18 Janne Blomqvist <jb@gcc.gnu.org> PR libfortran/48296 * gfortran.dg/read_list_eof_1.f90: New test. From-SVN: r175166
2011-06-11Return error when trying to seek a non-seekable buffered fileJanne Blomqvist1-1/+6
From-SVN: r174947
2011-06-11Figure out whether a file is seekable with lseek()Janne Blomqvist1-6/+6
From-SVN: r174946
2011-05-29PR 19155 Check for strtod failure via endptrJanne Blomqvist1-15/+23
From-SVN: r174393
2011-05-14Error printing thread safety, remove GFORTRAN_USE_STDERRJanne Blomqvist1-55/+0
From-SVN: r173749
2011-05-05re PR libfortran/48787 (Invalid UP/DOWN rounding with F editing)Jerry DeLisle1-12/+18
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. From-SVN: r173408
2011-05-01re PR libfortran/48787 (Invalid UP/DOWN rounding with F editing)Jerry DeLisle1-19/+21
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. From-SVN: r173231
2011-04-29Fix path handlingJanne Blomqvist1-16/+26
From-SVN: r173172
2011-04-29PR 48488 TypoJanne Blomqvist1-1/+1
From-SVN: r173171
2011-04-29PR 48488 Fix commentsJanne Blomqvist1-8/+11
From-SVN: r173170
2011-04-29PR 48488 Fix commentsJanne Blomqvist1-4/+11
From-SVN: r173169
2011-04-29re PR libfortran/48488 (Wrong default format for real numbers)Jerry DeLisle2-57/+41
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 call to write_float. * 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. Co-Authored-By: Janne Blomqvist <jb@gcc.gnu.org> From-SVN: r173166
2011-04-20remove useless if-before-free testsJim Meyering5-14/+7
Change "if (E) free (E);" to "free (E);" everywhere except in the libgo/, intl/, zlib/ and classpath/ directories. Also transform equivalent variants like "if (E != NULL) free (E);" and allow an extra cast on the argument to free. Otherwise, the tested and freed "E" expressions must be identical, modulo white space. From-SVN: r172785
2011-04-20re PR libfortran/48602 (Invalid F conversion of G descriptor for values ↵Jerry DeLisle1-2/+4
close to powers of 10) 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. From-SVN: r172753
2011-04-18re PR libfortran/48602 (Invalid F conversion of G descriptor for values ↵Jerry DeLisle1-5/+24
close to powers of 10) 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. From-SVN: r172634
2011-04-16Replace sprintf with snprintfJanne Blomqvist7-94/+92
From-SVN: r172590
2011-04-15re PR libfortran/48589 (Invalid G0/G0.d editing for NaN/infinity)Jerry DeLisle1-2/+2
2011-04-15 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/48589 * io/write_float.def (write_infnan): Set width properly for G0. From-SVN: r172502
2011-04-12Cleanup memsize typesJanne Blomqvist3-16/+15
From-SVN: r172340
2011-04-03unix.c: Adapt stat DEFINEs since MinGW64 supports LFS.Tobias Burnus1-13/+14
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. From-SVN: r171911
2011-03-24re PR libfortran/48030 (Implement read_x using fbuf_getc)Jerry DeLisle1-36/+17
2011-03-23 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/48030 * io/read.c (read_x): Re-implement using fbuf_getc. From-SVN: r171378
2011-03-19re PR libfortran/35667 (HP-UX 10 has broken strtod)John David Anglin3-4/+93
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. From-SVN: r171182
2011-03-19re PR libfortran/47439 (Fun with scratch files on Windows MKTEMP only ↵Francois-Xavier Coudert1-5/+33
allows for 26 files) PR libfortran/47439 * io/unix.c (tempfile): Work around poor mktemp() implementations. * gfortran.dg/scratch_1.f90: New test. From-SVN: r171178
2011-03-12re PR libfortran/48047 (Incorrect output rounding of double precision numbers)Jerry DeLisle1-1/+1
2011-03-11 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/48047 * io/write_float.def (write_float): Change MIN_FIELD_WIDTH to 48. From-SVN: r170895
2011-03-01re PR libfortran/47567 (Wrong output for small absolute values with F editing)Jerry DeLisle1-14/+18
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. From-SVN: r170585
2011-02-27re PR fortran/47778 (reading two arrays of structures from namelist fails)Jerry DeLisle1-0/+10
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. From-SVN: r170548
2011-02-26re PR libfortran/45165 (unix.c:fallback_access() leaks file descriptors)Francois-Xavier Coudert1-2/+6
PR libfortran/45165 * unix.c (fallback_access): Fix file descriptor leaks. From-SVN: r170517
2011-02-24re PR fortran/47878 (187.facerec miscompares)Jakub Jelinek1-6/+7
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. * gfortran.dg/pr47878.f90: New test. From-SVN: r170476
2011-02-24re PR libfortran/47567 (Wrong output for small absolute values with F editing)Jerry DeLisle1-19/+0
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. From-SVN: r170458
2011-02-23PR 47694 Read from named pipe failsJanne Blomqvist2-20/+22
Co-Authored-By: Jerry DeLisle <jvdelisle@gcc.gnu.org> From-SVN: r170432
2011-02-19re PR libfortran/47567 (Wrong output for small absolute values with F editing)Jerry DeLisle1-1/+1
2011-02-19 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/47567 * io/write_float.def (output_float): Adjust width for F0.d to allow space for negative signs on zero. From-SVN: r170318
2011-02-17re PR libfortran/47567 (Wrong output for small absolute values with F editing)Jerry DeLisle1-11/+26
2011-02-16 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/47567 * 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. From-SVN: r170239
2011-02-14re PR fortran/47642 (real(kind=16) - libquadmath - segfault on amd64 FreeBSD)Jakub Jelinek2-5/+7
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-05re PR libfortran/47567 (Wrong output for small absolute values with F editing)Jerry DeLisle1-7/+7
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. From-SVN: r169853
2011-01-29re PR libfortran/47434 (Wrong field width for NaN with (F0.n) formatting)Jerry DeLisle1-14/+32
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. From-SVN: r169390
2011-01-27PR 47432 Use ttyname_r() if availableJanne Blomqvist4-30/+54
From-SVN: r169337
generated by cgit v1.1 at 2025-09-21 16:40:38 +0000