libgfortran/ChangeLog

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