libgfortran/ChangeLog

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