libgfortran/ChangeLog

   1 2010-08-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   2
   3         PR libfortran/44931
   4         * io/inquire.c (inquire_via_unit): Add special case for __MINGW32__ to
   5         return special file names CONIN$, CONOUT$, and CONERR$.
   6
   7 2010-08-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
   8
   9         PR libfortran/45143
  10         * io/format.c: Remove fnode storage structure definitions, moving these
  11         to format.h. (parse_format_list): Add check for data descriptors,
  12         taking care of nested formats. Adjust calling parameters to pass a
  13         check flag. (parse_format): Likewise.
  14         * io/format.h: Add structures moved from format.c.
  15
  16 2010-08-02  Janne Blomqvist  <jb@gcc.gnu.org>
  17
  18         * io/unit.c (update_position): Don't update the position flag for
  19         non-seekable files, check for stell() error.
  20
  21 2010-08-01  Janne Blomqvist  <jb@gcc.gnu.org>
  22
  23         * io/unix.c (file_exists): Use access(2) instead of stat(2) to
  24         test file existence.
  25         (fallback_access): Move up in file, implement F_OK.
  26
  27 2010-07-31  David Edelsohn  <edelsohn@gnu.org>
  28
  29         * io/inquire.c: Include io.h before string.h.
  30
  31 2010-07-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  32
  33         PR libfortran/44931
  34         * io/inquire.c (inquire_via_unit): Use ttyname to return actual device
  35         file name for stdin, stdout, and stderr.  If ttyname does not succeed
  36         fall back to default names for these units. Include string.h to allow
  37         using strlen function.
  38         * unix.c: Remove typedef of unix_stream structure, move to unix.h.
  39         * unix.h: Add typedef of unix_stream structure so that it is
  40         accessible to inquire.c.
  41
  42 2010-07-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  43
  44         PR libfortran/44953
  45         * io/unix.c (mem_alloc_w4): Return gfc_char4_t instead of char type
  46         pointer. (mem_write4): Remove cast to gfc_char4_t.
  47         * io/transfer.c (write_block): Use a gfc_char4_t pointer.
  48         (memset4): New helper function. (next_record_w): Use new helper
  49         function rather than sset for internal units.  Don't attempt to pad
  50         with spaces if it is not needed.
  51         * io/unix.h: Update prototype for mem_alloc_w4.
  52         * io/write.c (memset4): Use gfc_char4_t pointer and chracter type.
  53         Don't use multiply by 4 to compute offset. (memcpy4): Likewise.
  54         (write_default_char4): Use a gfc_char4_t pointer and update memset4
  55         and memcpy calls. (write_a): Likewise. (write_l): Likewise.
  56         (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise.
  57         (write_char): Add support for character(kind=4) internal units that
  58         was previously missed. (write_integer): Use a gfc_char4_t pointer and
  59         update memset4 and memcpy calls. (write_character): Likewise.
  60         (write_separator): Add support for character(kind=4) internal units
  61         that was previously missed.
  62         * write_float.def (output_float): Use a gfc_char4_t pointer and
  63         update memset4 and memcpy calls. (write_infnan): Likewise.
  64         (output_float_FMT_G_): Likewise.
  65
  66 2010-07-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  67
  68         PR libfortran/37077
  69         * io/read.c (read_default_char4): Add support for reading into a
  70         kind-4 character variable from a character(kind=4) internal unit.
  71         * io/io.h (read_block_form4): Add prototype.
  72         * io/unit.c (get_internal_unit): Add call to fbuf_init.
  73         (free_internal_unit): Add call to fbuf_destroy. (get_unit): Fix
  74         whitespace.
  75         * io/transfer.c (read_sf_internal): Use fbuf_alloc to allocate a string
  76         to recieve the wide characters translated to single byte chracters.
  77         (read_block_form): Fix whitespace. (read_block_form4): New function to
  78         read from a character(kind=4) internal unit into a character(kind=4)
  79         variable. (read_block_direct): Fix whitespace. (write_block): Fix
  80         whitespace. (formatted_transfer_scalar_read): Likewise.
  81         (formatted_transfer_scalar_write): Likewise.
  82         * io/write.c (write_character): Add support for list directed write of
  83         a kind=1 character string to a character(kind=4) internal unit.
  84
  85 2010-07-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  86
  87         PR libfortran/44934
  88         * io/file_pos.c (st_endfile): Correctly set unit flags for form.
  89         * io/transfer.c (data_transfer_init): Fix indentation of whitespace.
  90
  91 2010-07-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  92
  93         PR libfortran/37077
  94         * io/read.c: Fix comment.
  95         * io/io.h (is_char4_unit): New macro.
  96         * io/unit.c (get_internal_unit): Call new function open_internal4.
  97         * io/unix.c (mem_alloc_r4): New function. (mem_alloc_w4): New function.
  98         (mem_read4): New function, temporary stub. (mem_write4): New function.
  99         (open_internal4): New function to set stream pointers to use the new
 100         mem functions.
 101         * io/transfer.c (write_block): Use new mem_alloc_w4 to access internal
 102         units of kind=4.
 103         * io/unix.h: Add prototypes for open_internal4, mem_alloc_w4, and
 104         mem_alloc_r4.
 105         * io/write.c (memset4): New helper function. (memcpy4): New helper
 106         function. (write_default_char4): Use new helper functions.
 107         (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise.
 108         (write_decimal): Likewise. (write_x): Likewise.
 109         (write_integer): Likewise.
 110         * io/write_float.def (output_float): Add code blocks to handle internal
 111         unit kind=4 output utilizing gfc_char4_t pointers. (write_infnan): Use
 112         new helper functions. (OUTPUT_FLOAT_FMT_G): Update this macro likewise.
 113
 114 2010-07-12  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 115
 116         * config/fpu-387.h [__sun__ && __svr4__] Include <signal.h>,
 117         <ucontext.h>.
 118         (sigill_caught): New.
 119         (sigill_hdlr): New function
 120         (has_sse) [__sun__ && __svr4__]: Check if SSE instruction causes
 121         SIGILL.
 122
 123 2010-07-11  Kai Tietz  <kai.tietz@onevision.com>
 124
 125         PR libfortran/44698
 126         * io/unix.c (flush_buf): Add _commit for WIN32.
 127
 128 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 129
 130         PR fortran/43298
 131         * list_read.c (parse_real): Do not pass (..) on for NAN(..).
 132         * read.c (convert_real): Fix comment about NAN/INF.
 133
 134 2010-07-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 135
 136         * configure.ac (gfortran_use_symver): Only check for Sun-style symbol
 137         versioning on Solaris 2.
 138         * configure: Regenerate.
 139
 140 2010-07-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 141
 142         * configure.ac: Check for Sun symbol versioning.
 143         * configure: Regenerate.
 144
 145         * Makefile.am [LIBGFOR_USE_SYMVER]: Protect version_arg with
 146         LIBGFOR_USE_SYMVER_GNU.
 147         Add version_dep.
 148         [LIBGFOR_USE_SYMVER_SUN]: Handle Sun symbol versioning.
 149         [!LIBGFOR_USE_SYMVER]: Add version_dep.
 150         (libgfortran_la_DEPENDENCIES): Set to $(version_dep).
 151         * Makefile.in: Regenerate.
 152
 153 2010-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 154
 155         PR libfortran/43298
 156         * io/read.c: Add code to parse and read Inf, Infinity, NaN, and Nan with
 157         optional parenthesis.
 158
 159 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 160
 161         PR fortran/43298
 162         * list_read.c (parse_real, read_real): Support NAN(alphanum).
 163
 164 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 165
 166         * intrinsics/selected_real_kind.f90
 167         (_gfortran_selected_real_kind2008): Add function.
 168         (_gfortran_selected_real_kind): Stub which calls
 169         _gfortran_selected_real_kind2008.
 170         * gfortran.map (GFORTRAN_1.4): Add
 171         _gfortran_selected_real_kind2008.
 172         * mk-srk-inc.sh: Save also RADIX.
 173
 174 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 175
 176         * runtime/compile_options.c (init_compile_options): Update
 177         compile_options.allow_std for GFC_STD_F2008_OBS.
 178         * io/transfer.c (formatted_transfer_scalar_read,
 179         formatted_transfer_scalar_write): Fix allow_std check.
 180         * io/list_read.c (nml_parse_qualifier): Ditto.
 181
 182 2010-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 183
 184         PR libfortran/44477
 185         * io/file_pos.c (st_endfile): Add check for ENDFILE when file is
 186         already positioned after the EOF marker. Use find_or_create_unit
 187         instead of find_unit. If unit is not connected, connect it and create
 188         the file with default settings.
 189         * io/transfer.c (data_transfer_init):  Add check for attempted READ or
 190         WRITE when file is already positioned after the EOF marker.
 191
 192 2010-06-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 193
 194         * intrinsics/selected_char_kind.c (selected_char_kind): Fix
 195         return value for ISO_10646.
 196
 197 2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 198
 199         * mk-kinds-h.sh: Define GFC_REAL_*_LITERAL_SUFFIX and
 200         GFC_REAL_*_LITERAL macros for each kind.
 201         * intrinsics/cpu_time.c (cpu_time_4, cpu_time_8, cpu_time_10,
 202         cpu_time_16): Use them.
 203         * intrinsics/random.c (rnumber_4, rnumber_8, rnumber_10,
 204         rnumber_16): Likewise.
 205
 206 2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 207
 208         * intrinsics/system_clock.c (system_clock_4, system_clock_8):
 209         Undefine TCK.
 210
 211 2010-06-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 212
 213         PR libfortran/34670
 214         * intrinsics/date_and_time.c:  Replace assert with runtime_error
 215         when VALUE is too small.
 216
 217 2010-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 218
 219         PR fortran/43851
 220         * runtime/stop.c (stop_string): Make sure nothing is emitted for
 221         blank stop.
 222
 223 2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 224
 225         PR fortran/43851
 226         * runtime/stop.c (error_stop_numeric): New function and updated comment.
 227         Add declaration for stop_numeric and remove declaration for stop_string.
 228         (stop_string): Use for blank STOP.
 229         (stop_numeric): Remove use of special -1 stop code.
 230         * runtime/pause.c (do_pause): Use stop_string for blank stop.
 231         (pause_numeric): Remove use of special -1 pause code.
 232         * gfortran.map: Add new symbol to run-time library.
 233         * libgfortran.h: Move declaration for stop_string to here to make
 234         function visible for do_pause. Remove declaration for stop_numeric.
 235
 236 2010-05-08  Janne Blomqvist  <jb@gcc.gnu.org>
 237
 238         * io/unix.h (mem_alloc_r): Fix typo to reduce visibility.
 239
 240 2010-05-07  Janne Blomqvist  <jb@gcc.gnu.org>
 241
 242         * libgfortran.h (free_mem): Remove prototype.
 243         * runtime/memory.c (free_mem): Remove function.
 244         * intrinsics/date_and_time.c (secnds): Replace free_mem() with
 245         free().
 246         * io/fbuf.c (fbuf_destroy): Likewise.
 247         * io/format.c (free_format_hash_table): Likewise.
 248         (save_parsed_format): Likewise.
 249         (free_format_data): Likewise.
 250         * io/list_read.c (free_saved): Likewise.
 251         (free_line): Likewise.
 252         (nml_touch_nodes): Likewise.
 253         (nml_read_obj): Likewise
 254         * io/lock.c (free_ionml): Likewise.
 255         * io/open.c (new_unit): Likewise.
 256         (already_open): Likewise.
 257         * io/unit.c (destroy_unit_mutex): Likewise.
 258         (free_internal_unit): Likewise.
 259         (close_unit_1): Likewise.
 260         * io/unix.c (raw_close): Likewise.
 261         (buf_close): Likewise.
 262         (mem_close): Likewise.
 263         (tempfile): Likewise.
 264         * io/write.c (nml_write_obj): Likewise.
 265         * io/write_float.def (output_float_FMT_G_##): Likewise.
 266         * runtime/error.c (show_locus): Likewise.
 267
 268 2010-05-04  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 269
 270         PR other/43620
 271         * configure.ac (AM_INIT_AUTOMAKE): Add no-dist.
 272         * configure: Regenerate.
 273         * Makefile.in: Regenerate.
 274
 275 2010-04-30  Kai Tietz  <kai.tietz@onevision.com>
 276
 277         PR/43844
 278         * io/unix.c (raw_truncate): Explicit cast from integer-scalar
 279         to pointer.
 280         (tempfile): Use for mingw GetTempPath and avoid double slash
 281         for path.
 282
 283 2010-04-24  Kai Tietz  <kai.tietz@onevision.com>
 284
 285         PR/43844
 286         * io/unix.c (tempfile): Correct logic for mktemp case.
 287
 288 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 289
 290         PR fortran/39997
 291         * runtime/stop.c (error_stop_string): New function.
 292         * gfortran.map (_gfortran_error_stop_string): Add.
 293
 294 2010-04-02  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 295
 296         * Makefile.in: Regenerate.
 297         * aclocal.m4: Regenerate.
 298
 299 2010-04-01  Janne Blomqvist  <jb@gcc.gnu.org>
 300
 301         PR libfortran/43605
 302         * io/intrinsics.c (gf_ftell): New function, seek to correct offset.
 303         (ftell): Call gf_ftell.
 304         (FTELL_SUB): Likewise.
 305
 306 2010-04-01  Paul Thomas  <pault@gcc.gnu.org>
 307
 308         * io/transfer.c : Update copyright.
 309         * io/unix.c : ditto
 310         * io/read.c : ditto
 311         * io/io.h : ditto
 312         * io/unix.h : ditto
 313         * io/inquire.c : ditto
 314         * io/format.c : ditto
 315         * io/list_read.c : ditto
 316         * runtime/error.c : ditto
 317         * libgfortran.h : ditto
 318         * intrinsics/date_and_time.c: ditto
 319         * intrinsics/args.c : ditto
 320
 321 2010-04-01  Janne Blomqvist  <jb@gcc.gnu.org>
 322
 323         PR libfortran/43605
 324         * io/intrinsics.c (ftell): Reset fbuf, correct offset.
 325         (FTELL_SUB): Likewise.
 326
 327 2010-03-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 328
 329         PR libfortran/43265
 330         * io/transfer.c (next_record_r): Only call hit_eof for specific
 331         conditions when an EOF is encountered.
 332
 333 2010-03-29  Tobias Burnus  <burnus@net-b.de>
 334
 335         PR fortran/43551
 336         * io/unix.c (buf_write): Set physical_offset after lseek.
 337
 338 2010-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 339
 340         PR libfortran/43517
 341         * io/read.c (read_x): Return if seen EOR condition.
 342
 343 2010-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 344
 345         PR fortran/43409
 346         * io/io.h: Fix type of size in st_parameter_inquire structure.
 347
 348 2010-03-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 349
 350         PR fortran/43409
 351         * io/unix.h: Add prototype for new function to return file size.
 352         * io/unix.c (file_size): New function.
 353         * io/inquire.c (inquire_via_unit): Use new function.
 354         (inquire_via_filename): Use new function.
 355
 356 2010-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 357
 358         * io/transfer.c (read_sf_internal): Remove stray function declaration
 359         used during debugging.
 360
 361 2010-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 362
 363         PR libfortran/43265
 364         * io/io.h: Delete prototype for read_sf, making it static.
 365         * io/read.c (read_x): Modify to call hit_eof if PAD="no".
 366         * io/transfer.c (read_sf_internal): New static function extracted from
 367         read_sf for use on internal units only. Handle empty string case.
 368         (read_sf): New factoring of this function, make it static.  Add special
 369         conditions for EOF based on ADVANCE="no", PAD="no", and whether any
 370         bytes have been previously read from the record.
 371         (read_block_form): Modify to call read_sf or read_sf_internal.
 372         (next_record_r): Add a done flag similar to next_record_w. Call hit_eof
 373         if internal array unit next record returns finished, meaning an EOF was
 374         found and not done, ie not the last record expected.  For external
 375         units call hit_eof if item_count is 1 or there are no pending spaces.
 376         (next_record): Update call to next_record_r.
 377
 378 2010-03-12  Kai Tietz  <kai.tietz@onevision.com>
 379
 380         PR/42950
 381         * io/format.c (parse_format_list): Add to ERROR, WARNING,
 382         SILENT enumerators NOTIFICATION_ prefix.
 383         * runtime/error.c (notification_std): Likewise.
 384         * libgfortran.h (notification): Likewise.
 385         (GFC_LARGEST_BUF): Check for HAVE_GFC_INTEGER_16.
 386
 387 2010-03-11  Tobias Burnus  <burnus@net-b.de>
 388
 389         PR fortran/43228
 390         * io/list_read.c (nml_parse_qualifier): Disable expanded_read
 391         for array sections.
 392
 393 2010-03-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 394
 395         PR libfortran/43320
 396         * io/transfer.c (next_record_r): Add hit_eof based on item_count
 397         condition.
 398
 399 2010-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 400
 401         PR libfortran/43265
 402         * io/read.c: Include fbuf.h and unix.h to enable lower level I/O for
 403         read_x. (read_x): Replace the use of read_sf with equivalent lower level
 404         I/O, eliminating unneeded code and handling EOF and EOR conditions.
 405         * io/io.h: Revise prototype for read_sf.
 406         * io/transfer.c (read_sf): Delete no_error parameter and all uses of it.
 407         (read_block_form): Likewise.
 408         (next_record_r): Delete wrong code call to hit_eof.
 409
 410 2010-03-08  Kai TIetz  <kai.tietz@onevision.com>
 411
 412         PR/42950
 413         * libgfortran.h (_POSIX): Define if __MINGW32__ is defined.
 414         (gfc_printf): Define to gnu_printf for __MINGW32__ case,
 415         otherwise to __printf__.
 416         (gfc_strtof,gfc_strtod,gfc_strtold): Define for mingw case
 417         to POSIX compatible converter functions.
 418         (runtime_error): Use instead gfc_printf as formatter
 419         attribute name.
 420         (runtime_error_at): Likewise.
 421         (runtime_warning_at): Likewise.
 422         (st_printf): Likewise.
 423         * intrinsics/date_and_time.c (localtime_r): Undefine
 424         possible defined macro.
 425         (gmtime_r): Likewise.
 426         * io/read.c (convert_real): Use gfc_strtof, gfc_strtod,
 427         and gfc_strtold.
 428
 429 2010-02-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 430
 431         PR libfortran/43155
 432         * io/transfer.c (require_type): Subtract one from item_count for output
 433         of error message.  Add comment before formatted_transfer function
 434         explaining why the item_count is off by one.
 435
 436 2010-02-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 437
 438         * io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
 439
 440 2010-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 441
 442         * io/list_read.c (list_formatted_read_scalar): Remove duplicate code.
 443
 444 2010-02-09  Tobias Burnus  <burnus@net-b.de>
 445
 446         PR fortran/42996
 447         * intrinsics/args.c (get_command_argument_i4): Always return
 448         commandline-argument length for length parameter.
 449
 450 2010-02-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 451
 452         PR libfortran/42742
 453         * io/format.c (reset_fnode_counters): Use the correct pointer to the
 454         head of the fnode list. (parse_format): Remove previous hack that set
 455         limit on size of format string for caching.
 456
 457 2010-02-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 458
 459         PR libfortran
 460         * io/transfer.c (read_sf): Handle EOR and EOF conditions for
 461         ADVANCE="no" with PAD="yes" or PAD="no".
 462
 463 2010-02-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 464
 465         PR libfortran/42901
 466         * io/list_read.c (nml_get_obj_data): Add new qualifier flag, clean up
 467         code, and adjust logic to set namelist info pointer correctly for array
 468         qualifiers of derived type components.
 469
 470 2010-01-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 471
 472         PR libfortran/42742
 473         * io/format.c (parse_format): Set limit on size of format strings that
 474         will be cached.
 475
 476 2010-01-05  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 477
 478         * configure: Regenerate.
 479
 480 2010-01-03  Janne Blomqvist  <jb@gcc.gnu.org>
 481
 482         PR libfortran/42420
 483         * io/unix.c: Defines for MINGW stat and fstat.
 484         (gfstat_t): New typedef.
 485         (id_from_fd): Use gfstat_t instead of struct stat.
 486         (fd_to_stream): Likewise.
 487         (compare_file_filename): Likewise.
 488         (find_file): Likewise.
 489         (file_exists): Likewise.
 490         (inquire_sequential): Likewise.
 491         (inquire_direct): Likewise.
 492         (inquire_formatted): Likewise.
 493
 494 \f
 495 Copyright (C) 2010 Free Software Foundation, Inc.
 496
 497 Copying and distribution of this file, with or without modification,
 498 are permitted in any medium without royalty provided the copyright
 499 notice and this notice are preserved.