summaryrefslogtreecommitdiffstats
path: root/libgfortran/io
Commit message (Collapse)AuthorAgeFilesLines
...
* 2005-09-14 Jerry DeLisle <jvdelisle@verizon.netjvdelisle2005-09-144-33/+103
| | | | | | | | | | | | | | | | | | | | | | | | | | | 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104276 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/20179fxcoudert2005-09-113-1/+15
| | | | | | | | | | | * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104141 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-09-10 Janne Blomqvist <jblomqvi@cc.hut.fi>tobi2005-09-101-209/+6
| | | | | | | * io/unix.c: Remove mmap code. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104127 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/23784fxcoudert2005-09-091-0/+3
| | | | | | | * io/close.c (st_close): Call library_end even in case of error. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104108 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-09-091-0/+3
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104102 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/23262fxcoudert2005-09-072-1/+21
| | | | | | | | | | | | | | | * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104009 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/23419sje2005-09-071-14/+70
| | | | | | | | | * io/write.c (extract_int): Use memcpy to access buffer. (extract_uint): Ditto. (extract_real): Ditto. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@104000 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-09-05 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-09-051-1/+1
| | | | | | | | * io/list_read.c: Adjust size of of value to 32 (to hold kind=16 complex values). git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103918 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-09-04 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-09-041-1/+14
| | | | | | | | | | | | | | PR libfortran/23321 * io/transfer.c(data_transfer_init): Check for a too-large record number. Return if sseek failed. 2005-09-04 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/23321 * gfortran.dg/direct_io_4.f90: New test case. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103835 138bc75d-0d04-0410-961f-82ee72b054a4
* * io/read.c (read_x): Take int argument instead of fnode * andjakub2005-09-033-11/+4
| | | | | | | | | | | | 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. * gfortran.dg/fmt_t_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103811 138bc75d-0d04-0410-961f-82ee72b054a4
* * io/unix.c (stream_ttyname): Protect use of ttyname byfxcoudert2005-09-021-0/+4
| | | | | | | | | | HAVE_TTYNAME macro. * configure.ac: Add check for ttyname. * config.h.in: Regenerate. * configure: Regenerate. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103794 138bc75d-0d04-0410-961f-82ee72b054a4
* * libgfortran.h: Add prototype for init_compile_options.aj2005-09-021-0/+4
| | | | | | | * io/io.h: Add prototype for notify_std. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103778 138bc75d-0d04-0410-961f-82ee72b054a4
* * io/read.c (set_integer): Use memcpy to fill buffer.sje2005-08-311-5/+20
| | | | git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103687 138bc75d-0d04-0410-961f-82ee72b054a4
* PR target/23556sje2005-08-311-6/+18
| | | | | | | * io/read.c (convert_real): Use memcpy to fill buffer. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103685 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-08-291-1/+1
| | | | | | | | | | | | | | PR libfortran/23598 * io/lock.c(library_start): If ioparm.iostat is present, clear it unconditionally. 2005-02-29 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/23598 * gfortran.dg/iostat_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103613 138bc75d-0d04-0410-961f-82ee72b054a4
* * acinclude.m4 (LIBGFOR_CHECK_UNLINK_OPEN_FILE): Add check to seefxcoudert2005-08-273-2/+30
| | | | | | | | | | | | | | | | | 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 HAVE_UNLINK_OPEN_FILE is not defined. * io/unix.c (unpack_filename): Unlink scratch file after opening it only if HAVE_UNLINK_OPEN_FILE is defined. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103566 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-08-17 Kelley Cook <kcook@gcc.gnu.org>kcook2005-08-1713-26/+26
| | | | | | | * All files: Update FSF address. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103194 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-08-16 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-08-161-3/+7
| | | | | | | | | | | | | | | PR libfortran/23428 * io/transfer.c (iolength_transfer): Remove __attribute__ ((unused)) from type. Return correct length for inquire(iolength=) for complex variables. 2005-08-16 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/23428 * gfortran.dg/inquire-complex.f90: New test case. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103168 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/20006fxcoudert2005-08-111-0/+1
| | | | | | | | | | | | | | | | | | | | | | | | | | * gfortran.h: Add is_main_program member to symbol_attribute. * trans-decl: Add a gfor_fndecl_set_std tree. (gfc_build_builtin_function_decls): Create it. (gfc_generate_function_code): Add this call at the beginning of the main program. * trans.c (gfc_generate_code): Move main_program and attr. * trans.h: Add declaration for gfor_fndecl_set_std. * 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. * gfortran.dg/runtime_warning_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102990 138bc75d-0d04-0410-961f-82ee72b054a4
* * check.c (gfc_check_ttynam_sub, gfc_check_isatty): Add checkfxcoudert2005-08-092-0/+18
| | | | | | | | | | | | | | | | | | | | | | | functions for new intrinsics TTYNAM and ISATTY. * intrinsic.c (add_functions, add_subroutines): Add new intrinsics. * intrinsic.h: Add prototypes for new check and resolve functions. * iresolve.c (gfc_resolve_isatty, gfc_resolve_ttynam_sub): New resolve functions for intrinsics TTYNAM and ISATTY. * gfortran.h (gfc_generic_isym_id): Add symbol for ISATTY. * trans-intrinsic.c: Add case for GFC_ISYM_ISATTY. * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102915 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-08-08 Jerry DeLisle <jvdelisle@verizon.net>jvdelisle2005-08-091-1/+3
| | | | | | | | | PR libfortran/23154 * io/transfer.c (data_transfer_init): Initialize current_unit->bytes_left for a read. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102893 138bc75d-0d04-0410-961f-82ee72b054a4
* Forgot to remove and add these files in the previous commit.kargl2005-08-073-162/+117
| | | | | | | | | | * io/backspace.c: File removed, contents moved to ... * io/endfile.c: Ditto. * io/rewind.c: Ditto. * io/file_pos.c: New file, ... here. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102836 138bc75d-0d04-0410-961f-82ee72b054a4
* * io/io.h: Change DEFAULT_TEMPDIR to /tmp instead of /var/tmp.fxcoudert2005-08-062-2/+4
| | | | | | | | * io/unix.c (tempfile): Look at the TEMP environment variable to find the temporary files directory. Whitespace correction. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102822 138bc75d-0d04-0410-961f-82ee72b054a4
* * io/unix.c: Add O_RDWR to open() call.fxcoudert2005-08-061-1/+1
| | | | git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102811 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-08-04 Paul Thomas <pault@gcc.gnu.org>pault2005-08-041-1/+1
| | | | | | | | | * transfer.c (data_transfer_init): Truncate file in sequential WRITE when last_record == 0, rather than current_record. Cures problem on RH9. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102746 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/22436fxcoudert2005-07-301-5/+20
| | | | | | | | * io/write.c (write_real): Add default formats for real(10) and real(16). git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102590 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-30 Paul Thomas <pault@gcc.gnu.org>pault2005-07-301-17/+25
| | | | | | | | | | | | | | | | 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. PR fortran/22570 an related issues. * gfortran.dg/x_slash_1.f: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102583 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-23 Jerry DeLisle <jvdelisle@verizon.net>jvdelisle2005-07-241-4/+34
| | | | | | | | * io/write.c (write_float): Revise output of IEEE exceptional values to comply with F95 and F2003 standards. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102324 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>pault2005-07-221-3/+3
| | | | | | | | | PR libfortran/22570 * io/unit.c (init_units): Replace BLANK_ZERO with BLANK_UNSPECIFIED. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102288 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>pault2005-07-222-26/+56
| | | | | | | | | | | | | | | | | | | | | | | | | 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, zero counters for FMT_SLASH, (data_transfer_init) Zero X- and T-editing counters unconditionally. (next_record_w) Zero X- and T-editing counters. unconditionally. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102284 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-14 Jerry DeLisle <jvdelisle@verizon.net>jvdelisle2005-07-171-3/+3
| | | | | | | | | * io/write.c (write_float): Fix field width checks for printing 'Infinity' or 'Inf'. (output_float): Fix typo in comment. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102115 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-12 Paul Thomas <pault@gcc.gnu.org>pault2005-07-143-117/+163
| | | | | | | | | | | | | | | | | | | | | 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-12 Paul Thomas <pault@gcc.gnu.org> PR libfortran/16435 * gfortran.dg/tl_editting.f90: New. * gfortran.dg/g77/f77-edit-x-out.f: Remove XFAIL. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102008 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-13 Paul Thomas <pault@gcc.gnu.org>pault2005-07-132-2/+20
| | | | | | | | | | | | | | | | * 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-13 Paul Thomas <pault@gcc.gnu.org> * gfortran.dg/past_eor.f90: New. * gfortran.dg/complex_read.f90: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101984 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-12 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-07-121-4/+8
| | | | | | | | | | | | | | io/unix.c: Add member special_file to type unix_stream. (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 Thomas Koenig <Thomas.Koenig@online.de> gfortran.dg/dev_null.f90: Remove targets. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101937 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libgfortran/22412dje2005-07-121-3/+3
| | | | | | | | | * io/write.c (otoa): Bias p by SCRATCH_SIZE, not sizeof (SCRATCH_SIZE). (btoa): Same. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101908 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-09 Jerry DeLisle <jvdelisle@verizon.net>jvdelisle2005-07-091-19/+39
| | | | | | | | | | | | | 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. * gfortran.dg/test (fmt_read_bz_bn.f90): New test case. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101837 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-07-07 Francois-Xavier Coudert <coudert@clipper.ens.fr>tkoenig2005-07-091-1/+35
| | | | | | | | | | | | | | | | | | | 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. * io/write.c (write_int): Use it. * runtime/error.c: Adjust copyright years. Adjust size of buffer to maximum that can occur. 2005-07-07 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/22217 * gfortran.dg/negative-z-descriptor.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101829 138bc75d-0d04-0410-961f-82ee72b054a4
* For the 60th anniversary of Chinese people��s Anti-Japan war victory.fengwang2005-07-071-2/+0
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 2005-07-07 Feng Wang <fengwang@nudt.edu.cn> PR fortran/16531 PR fortran/15966 PR fortran/18781 * arith.c (gfc_hollerith2int, gfc_hollerith2real, gfc_hollerith2complex, gfc_hollerith2character, gfc_hollerith2logical): New functions. (eval_intrinsic): Don't evaluate if Hollerith constant arguments exist. * arith.h (gfc_hollerith2int, gfc_hollerith2real, gfc_hollerith2complex, gfc_hollerith2character, gfc_hollerith2logical): Add prototypes. * expr.c (free_expr0): Free memery allocated for Hollerith constant. (gfc_copy_expr): Allocate and copy string if Expr is from Hollerith. (gfc_check_assign): Enable conversion from Hollerith to other. * gfortran.h (bt): Add BT_HOLLERITH. (gfc_expr): Add from_H flag. * intrinsic.c (gfc_type_letter): Return 'h' for BT_HOLLERITH. (add_conversions): Add conversions from Hollerith constant to other. (do_simplify): Don't simplify if Hollerith constant arguments exist. * io.c (resolve_tag): Enable array in FORMAT tag under GFC_STD_GNU. * misc.c (gfc_basetype_name): Return "HOLLERITH" for BT_HOLLERITH. (gfc_type_name): Print "HOLLERITH" for BT_HOLLERITH. * primary.c (match_hollerith_constant): New function. (gfc_match_literal_constant): Add match Hollerith before Integer. * simplify.c (gfc_convert_constant): Add conversion from Hollerith to other. * trans-const.c (gfc_conv_constant_to_tree): Use VIEW_CONVERT_EXPR to convert Hollerith constant to tree. * trans-io.c (gfc_convert_array_to_string): Get array's address and length to set string expr. (set_string): Deal with array assigned Hollerith constant and character array. * gfortran.texi: Document Hollerith constants as extention support. 2005-07-07 Feng Wang <fengwang@nudt.edu.cn> PR fortran/16531 PR fortran/15966 PR fortran/18781 * gfortran.dg/hollerith.f90: New. * gfortran.dg/hollerith2.f90: New. * gfortran.dg/hollerith3.f90: New. * gfortran.dg/hollerith4.f90: New. * gfortran.dg/hollerith_f95.f90: New. * gfortran.dg/hollerith_legacy.f90: New. * gfortran.dg/g77/cpp4.F: New. Port from g77. 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101688 138bc75d-0d04-0410-961f-82ee72b054a4
* * intrinsics/unpack_generic.c: Remove const from parameter.aj2005-07-011-1/+1
| | | | | | | * io/transfer.c (formatted_transfer): Remove unused variable. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101499 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/22170fxcoudert2005-06-281-3/+1
| | | | | | | | | * io/transfer.c (formatted_transfer): Do not iterate on the repeat count of a FMT_SLASH, since this is already done in next_format(). git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101377 138bc75d-0d04-0410-961f-82ee72b054a4
* * intrinsics/c99_functions.c (log10l): New log10l function forfxcoudert2005-06-234-67/+136
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | 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. * lib/target-supports.exp: Add check_effective_target_fortran_large_real and check_effective_target_fortran_large_int to check for corresponding effective targets. * gfortran.dg/large_integer_kind_1.f90: New test. * gfortran.dg/large_real_kind_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101274 138bc75d-0d04-0410-961f-82ee72b054a4
* * unix.c (stream_at_bof): Don't assume that all non-mmapped filesfxcoudert2005-06-181-6/+6
| | | | | | | | are non-seekable. (stream_at_eof): Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101164 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/19155fxcoudert2005-06-171-1/+1
| | | | | | | | * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101128 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/19216fxcoudert2005-06-161-5/+0
| | | | | | | | | | * io/list_read.c (eat_separator): No need to call next_record, even in non-namelist_mode. * gfortran.dg/pr19216.f: Add correct space between brackets and dg directive. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101105 138bc75d-0d04-0410-961f-82ee72b054a4
* * io/transfer.c (formatted_transfer): Fix typo in error message.fxcoudert2005-06-161-1/+1
| | | | git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101102 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/16436fxcoudert2005-06-162-24/+18
| | | | | | | | | | | | * 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. * gfortran.dg/g77/f77-edit-t-in.f: Not XFAIL-ed any more. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101100 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/19155fxcoudert2005-06-121-20/+22
| | | | | | | | * io/read.c (read_f): Take care of spaces after initial sign. * gfortran.dg/pr19155.f: Add test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100861 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/20179fxcoudert2005-05-301-2/+5
| | | | | | | | * io/unix.c (fd_close): Add test so that we don't close() stdout and stderr. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100353 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/20006fxcoudert2005-05-292-3/+5
| | | | | | | | | | | | | | * io.c (format_item_1): Add check and extension warning for $ edit descriptor. * 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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100314 138bc75d-0d04-0410-961f-82ee72b054a4
* PR libfortran/21376fxcoudert2005-05-221-2/+5
| | | | | | | | * io/write.c (output_float): Rework logic to avoid call to log10 with argument equal to zero. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100068 138bc75d-0d04-0410-961f-82ee72b054a4
OpenPOWER on IntegriCloud