libgfortran/ChangeLog

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