libgfortran/ChangeLog

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