gcc-4_9/libgfortran/ChangeLog

   1 2014-04-22  Release Manager
   2
   3         * GCC 4.9.0 released.
   4
   5 2014-04-12  Jerry DeLisle  <jvdelisle@gcc.gnu>
   6
   7         PR libfortran/60810
   8         io/unit.c (is_trim_ok): If internal unit is array, do not trim.
   9
  10 2014-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu>
  11
  12         PR libfortran/60148
  13         * io/transfer.c (data_transfer_init): If std= was specified, set
  14         delim status to DELIM_NONE if no other was specified.
  15
  16 2014-03-18  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
  17
  18         * configure.ac: Check for presence of fcntl.
  19         * configure: Regenerate.
  20         * config.h.in: Regenerate.
  21         * io/unix.c (set_close_on_exec): Check for HAVE_FCNTL.
  22
  23 2014-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu>
  24
  25         PR libfortran/48600
  26         * io/list_read.c (list_formatted_read_scalar): Do not use
  27         eat_separator. Explicitly set the comma and end-of-line flags.
  28         Check for END condition from finish_separator.
  29
  30 2014-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu>
  31
  32         PR libfortran/58324
  33         * io/list_read.c (finish_list_read): Read one character to check
  34         for the end of the file.  If it is the end, then issue the file
  35         end error message.  If not, use eat_line to reach the end
  36         without giving error.  The next attempt to read will then
  37         issue the error as described above.
  38
  39 2014-03-12  Jerry DeLisle  <jvdelisle@gcc.gnu>
  40
  41         PR libfortran/38199
  42         * io/read.c (read_decimal): Quickly skip spaces to avoid calls
  43         to next_char.
  44         * io/unit.c (is_trim_ok): New helper function to check various
  45         conditions to see if its OK to trim the internal unit string.
  46         (get_internal_unit): Use LEN_TRIM to shorten selected internal
  47         unit strings for optimizing READ. Enable this optimization for
  48         formatted READ.
  49         * io/list_read.c (finish_list_read): Don't call eat_line for
  50         internal units.
  51
  52 2014-03-08  Jerry DeLisle  <jvdelisle@gcc.gnu>
  53
  54         PR libfortran/38199
  55         * io/list_read.c (next_char): Mark unlikely error checks.
  56         (eat_spaces): For character array reading, skip ahead over
  57         spaces rather than call next_char multiple times.
  58
  59 2014-03-08  Tobias Burnus  <burnus@net-b.de>
  60
  61         * libgfortran.h (unlikely, likely): Add usage comment.
  62
  63 2014-03-08  Dominique d'Humieres  <dominiq@lps.ens.fr>
  64
  65         PR libgfortran/60128
  66         * io/write_float.def (output_float): Remove unused variable
  67         nzero_real. Replace a double space with a single one.
  68         (determine_en_precision): Fix wrong handling of the EN format.
  69
  70 2014-03-03  Jerry DeLisle  <jvdelisle@gcc.gnu>
  71
  72         PR libfortran/60148
  73         * io/inquire.c (inquire_via_unit): In the case of
  74         DELIM_UNSPECIFIED set inquire return string to "NONE".
  75         * io/list_read.c (read_character): In the case of DELIM_NONE and
  76         namelists, complete the character read using the namelist
  77         variable length.
  78         * io/open.c (new_unit): Don't set delim status to none if not
  79         specified so that DELIM_UNSPECIFIED can be used later.
  80         * io/transfer.c (data_transfer_init): For namelist I/O, if the
  81         unit delim status is unspecified set the current status to quote.
  82         Otherwise, set current status to the unit status.
  83         * io/unit.c (get_internel_unit, init_unit): Remember to set
  84         flags_delim initially to DELIM_UNSPECIFIED so defaults come out
  85         correctly.
  86         * io/write.c (write_character): Add a new function argument
  87         "mode" to signify that raw output is to be used vs output with
  88         delimiters. If the mode is set to DELIM (1) proceed with
  89         delimiters. (list_formatted_write_scalar): Write the separator
  90         only if a delimiter was previously specified. Update the call to
  91         write_character with the mode argument given.
  92         (namelist_write_newline): Use the mode argument. (nml_write_obj):
  93         Use the mode argument. Remove use of tmp_delim. Write the
  94         semi-colon or comma correctly only when needed with using
  95         delimiters. Cleanup whitespace.
  96         (namelist_write): If delim is not specified in namelist I/O,
  97         default to using quotes. Get rid of the tmp_delim variable and
  98         use the new mode argument in write_character.
  99
 100 2014-02-21  Tobias Burnus  <burnus@net-b.de>
 101
 102         PR fortran/60286
 103         * libgfortran/io/inquire.c (yes, no): New static const char vars.
 104         (inquire_via_unit): Use them. Use OPEN mode instead of using
 105         POSIX's access to query about write=, read= and readwrite=.
 106
 107 2014-01-20  Jerry DeLisle  <jvdelisle@gcc.gnu>
 108             Dominique d'Humieres  <dominiq@lps.ens.fr>
 109
 110         * io/write_float.def (output_float): Remove inadvertent test
 111         code from previous patch.
 112
 113 2014-01-19  Jerry DeLisle  <jvdelisle@gcc.gnu>
 114             Dominique d'Humieres  <dominiq@lps.ens.fr>
 115
 116         PR libfortran/59771
 117         PR libfortran/59774
 118         PR libfortran/59836
 119         * io/write_float.def (output_float): Fix wrong handling of the
 120         Fw.0 format.
 121         (output_float_FMT_G_): Fixes rounding issues with -m32.
 122
 123 2014-01-11  Jerry DeLisle  <jvdelisle@gcc.gnu>
 124             Dominique d'Humieres  <dominiq@lps.ens.fr>
 125             Steven G. Kargl  <kargl@gcc.gnu.org>
 126
 127         PR libfortran/59700
 128         PR libfortran/59764
 129         * io/io.h (struct st_parameter_dt): Assign expanded_read flag to
 130         unused bit. Define new variable line_buffer_pos.
 131         * io/list_read.c (free_saved, next_char, l_push_char,
 132         read_logical, read_real): Replace use of item_count with
 133         line_buffer_pos for line_buffer look ahead.
 134         (read_logical, read_integer, parse_real, read_real, check_type):
 135         Adjust location of free_line to after generating error messages
 136         to retain the correct item count for the message.
 137
 138 2014-01-02  Richard Sandiford  <rdsandiford@googlemail.com>
 139
 140         Update copyright years
 141
 142 2013-12-18  Steven G. Kargl  <kargl@gcc.gnu.org>
 143
 144         * io/read.c (read_f): Convert assert to runtime error.
 145
 146 2013-12-17  Andreas Tobler  <andreast@gcc.gnu.org>
 147
 148         * io/unix.c (tempfile_open): Only use the needed flag O_CLOEXEC.
 149
 150 2013-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu>
 151
 152         PR libfortran/59419
 153         * io/file_pos.c (st_rewind): Do proper return after
 154         generate_error.
 155         * io/open.c (edit_modes): Move action code inside block that
 156         checks for library ok. (new_unit): Do cleanup after error.
 157         (st_open): Do proper return after error.
 158         * io/transfer.c (data_transfer_init): Likewise.
 159
 160 2013-12-11  Tobias Burnus  <burnus@net-b.de>
 161
 162         * config/fpu-387.h (sigill_hdlr, get_fpu_rounding_mode): Emit SSE
 163         instructions when __SSE_MATH__ is defined.
 164
 165 2013-12-06  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 166
 167         * intrinsics/erfc_scaled.c (_M_2_SQRTPI): Define if missing.
 168
 169 2013-12-01  Uros Bizjak  <ubizjak@gmail.com>
 170
 171         PR libfortran/59313
 172         * intrinsics/erfc_scaled.c (erfc_scaled_r16): Also provide for
 173         quadruple precision long double variant.
 174
 175 2013-11-20  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 176
 177         * intrinsics/erfc_scaled.c (erfc_scaled_r16): Don't define if
 178         __float128 is not available.
 179
 180 2013-11-20  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 181
 182         PR libfortran/49024
 183         * intrinsics/erfc_scaled.c (erfc_scaled_r16): New function.
 184         * intrinsics/erfc_scaled_inc.c: Do not provide quadruple
 185         precision variant.
 186
 187 2013-11-18  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 188
 189         PR libfortran/51828
 190         * intrinsics/unpack_generic.c (unpack_internal): Let the compiler
 191         know that dim > 0 to avoid warnings.
 192
 193 2013-11-15  Janne Blomqvist  <jb@gcc.gnu.org>
 194             Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 195
 196         PR fortran/59108
 197         * io/unix.c (regular_file): Don't set O_CREAT when opening a file
 198         read-only with unknown status. Mask out O_CREAT when falling back
 199         to opening read-only if ACTION= is not set and read-write fails.
 200
 201 2013-11-15  Steve Ellcey  <sellcey@mips.com>
 202
 203         * configure.ac: Do not define HAVE_STRTOLD.
 204         * configure: Regenerate.
 205
 206 2013-11-10  Janne Blomqvist  <jb@gcc.gnu.org>
 207
 208         * configure.ac: Check presence of mkostemp.
 209         * io/unix.c (set_close_on_exec): New function.
 210         (tempfile_open): Use mkostemp and O_CLOEXEC if available, fallback
 211         to calling set_close_on_exec.
 212         (regular_file): Add O_CLOEXEC to flags if defined.
 213         (open_external): Call set_close_on_exec if O_CLOEXEC is not
 214         defined.
 215         * config.h.in: Regenerated.
 216         * configure: Regenerated.
 217         * Makefile.in: Regenerated.
 218         * aclocal.m4: Regenerated.
 219
 220 2013-10-01  Tobias Burnus  <burnus@net-b.de>
 221
 222         PR fortran/55469
 223         * io/list_read (parse_repeat, read_integer, read_character,
 224         parse_real, read_real, check_type, list_formatted_read_scalar,
 225         finish_list_read): Call list_free.
 226
 227 2013-09-20  Alan Modra  <amodra@gmail.com>
 228
 229         * configure: Regenerate.
 230
 231 2013-07-23  Uros Bizjak  <ubizjak@gmail.com>
 232
 233         * config/fpu-387.h (get_fpu_rounding_mode): Read rounding mode
 234         from SSE mxcsr register on x86_64.
 235
 236 2013-07-21  Ondřej Bílka  <neleai@seznam.cz>
 237
 238         * io/transfer.c: Fix comment typos.
 239
 240 2013-07-21  Tobias Burnus  <burnus@net-b.de>
 241
 242         PR fortran/35862
 243         * config/fpu-387.h (set_fpu_rounding_mode,
 244         get_fpu_rounding_mode): Add missing _ to fix build.
 245
 246 2013-07-21  Tobias Burnus  <burnus@net-b.de>
 247             Uros Bizjak  <ubizjak@gmail.com>
 248
 249         PR fortran/35862
 250         * libgfortran.h (set_fpu_rounding_mode,
 251         get_fpu_rounding_mode): New prototypes.
 252         * config/fpu-387.h (set_fpu_rounding_mode,
 253         get_fpu_rounding_mode): New functions.
 254         * config/fpu-aix.h (set_fpu_rounding_mode,
 255         get_fpu_rounding_mode): Ditto.
 256         * config/fpu-generic.h (set_fpu_rounding_mode,
 257         get_fpu_rounding_mode): Ditto.
 258         * config/fpu-glibc.h (set_fpu_rounding_mode,
 259         get_fpu_rounding_mode): Ditto.
 260         * config/fpu-sysv.h (set_fpu_rounding_mode,
 261         get_fpu_rounding_mode): Ditto.
 262         * configure.ac: Check for fp_rnd and fp_rnd_t.
 263         * io/io.h (enum unit_round): Use GFC_FPE_* for the value.
 264         * io/read.c (convert_real): Set FP ronding mode.
 265         * Makefile.in: Regenerate.
 266         * aclocal.m4: Regenerate.
 267         * config.h.in: Regenerate.
 268         * configure: Regenerate.
 269
 270 2013-06-24  Tobias Burnus  <burnus@net-b.de>
 271
 272         * configure.ac: Check for fp_except and fp_except_t.
 273         * config/fpu-sysv.h: Conditionally use either type.
 274         * configure: Regenerate.
 275         * config.h.in: Regenerate.
 276
 277 2013-06-21  Eric Botcazou  <ebotcazou@adacore.com>
 278
 279         * config/fpu-sysv.h (get_fpu_except_flags): Fix typo.
 280
 281 2013-06-20  Uros Bizjak  <ubizjak@gmail.com>
 282
 283         * config/fpu-387.h (_FPU_MASK_ALL): New.
 284         (_FPU_EX_ALL): Ditto.
 285         (set_fpu): Use fstcw to store x87 FPU control word. Use fnclex to
 286         clear stalled exception flags.  Correctly clear stalled SSE
 287         exception flags.  Simplify code.
 288         (get_fpu_except_flags): Simplify code.
 289
 290 2013-06-20  Tobias Burnus  <burnus@net-b.de>
 291
 292         PR fortran/57633
 293         * io/list_read.c (next_char, eat_separator): Don't set EOL for \r.
 294
 295 2013-06-19  Uros Bizjak  <ubizjak@gmail.com>
 296
 297         * config/fpu-387.h: Use __asm__ and __volatile__ consistently.
 298         (get_fpu_except_flags): Initialize result.
 299
 300 2013-06-17  Tobias Burnus  <burnus@net-b.de>
 301
 302         * libgfortran.h (compile_options_t) Add fpe_summary.
 303         (get_fpu_except_flags): New prototype.
 304         * runtime/compile_options.c (set_options, init_compile_options):
 305         Handle fpe_summary.
 306         * runtime/stop.c (report_exception): New function.
 307         (stop_numeric, stop_numeric_f08, stop_string, error_stop_string,
 308         error_stop_numeric): Call it.
 309         * config/fpu-387.h (get_fpu_except_flags): New function.
 310         * config/fpu-aix.h (get_fpu_except_flags): New function.
 311         * config/fpu-generic.h (get_fpu_except_flags): New function.
 312         * config/fpu-glibc.h (get_fpu_except_flags): New function.
 313         * config/fpu-sysv.h (get_fpu_except_flags): New function.
 314         * configure.ac: Check for fpxcp.h.
 315         * configure: Regenerate.
 316         * config.h.in: Regenerate.
 317
 318 2013-06-01  Tobias Burnus  <burnus@net-b.de>
 319
 320         PR fortran/57496
 321         * io/write_float.def (ISFINITE2Q, ISFINITE2, ISFINITE2L, ISFINITE,
 322         SIGNBIT2Q, SIGNBIT2, SIGNBIT2L, SIGNBIT, ISNAN2Q, ISNAN2, ISNAN2L,
 323         ISNAN): New macros.
 324         (output_float_FMT_G_,WRITE_FLOAT): Use them.
 325
 326 2013-05-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 327
 328         * acinclude.m4 (libgfor_cv_have_as_needed): Check for -z ignore, too.
 329         * configure: Regenerate.
 330
 331 2013-05-05  David Edelsohn  <dje.gcc@gmail.com>
 332
 333         * caf/libcaf.h (_gfortran_caf_critical): Add a prototype.
 334         (_gfortran_caf_end_critical): Same.
 335
 336 2013-05-04  David Edelsohn  <dje.gcc@gmail.com>
 337
 338         * runtime/environ.c: Include unistd.h.
 339         * runtime/pause.c: Test HAVE_UNISTD_H.
 340         * runtime/stop.c: Same.
 341         * io/open.c: Same.
 342         * io/unix.c: Same.
 343         * io/read.c (si_max): Protect declaration of value.
 344
 345 2013-04-29  Janne Blomqvist  <jb@gcc.gnu.org>
 346
 347         * intrinsics/system_clock (gf_gettime_mono): Use variable
 348         resolution for fractional seconds argument.
 349         (system_clock_4): Simplify, update for gf_gettime_mono change.
 350         (system_clock_8): Likewise.
 351
 352 2013-04-29  Janne Blomqvist  <jb@gcc.gnu.org>
 353
 354         PR fortran/56981
 355         * io/transfer.c (next_record_w_unf): First fix head marker, then
 356         write tail.
 357         (next_record): Call flush_if_unbuffered.
 358         * io/unix.c (struct unix_stream): Add field unbuffered.
 359         (flush_if_unbuffered): New function.
 360         (fd_to_stream): New argument.
 361         (open_external): Fix fd_to_stream call.
 362         (input_stream): Likewise.
 363         (output_stream): Likewise.
 364         (error_stream): Likewise.
 365         * io/unix.h (flush_if_unbuffered): New prototype.
 366
 367 2013-04-28  Janne Blomqvist  <jb@gcc.gnu.org>
 368
 369         * intrinsics/system_clock.c (system_clock_4): Fix sign error in
 370         Windows version.
 371
 372 2013-04-15  Tobias Burnus  <burnus@net-b.de>
 373
 374         * list_read.c (finish_separator): Initialize variable.
 375
 376 2013-04-15  Janne Blomqvist  <jb@gcc.gnu.org>
 377
 378         PR fortran/56919
 379         * intrinsics/time_1.h: Check __CYGWIN__ in addition to
 380         __MINGW32__.
 381         * intrinsics/system_clock.c (GF_CLOCK_MONOTONIC): Check
 382         _POSIX_MONOTONIC_CLOCK as well.
 383         (system_clock_4): Use GetTickCount on Windows.
 384         (system_clock_8): Use QueryPerformanceCounter and
 385         QueryPerformanceCounterFrequency on Windows.
 386
 387 2013-04-04  Tobias Burnus  <burnus@net-b.de>
 388
 389         PR fortran/56810
 390         * io/list_read.c (check_type): Fix kind checking for COMPLEX.
 391
 392 2013-04-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 393
 394         PR libfortran/56660
 395         * io/list_read.c (nml_read_obj): Do not reset the read error flag
 396         inside nml_read_obj. If the read error flag is found set just exit.
 397         Fix some whitespace on comments.
 398         (nml_read_obj_data): Reset the read error flag before the first call
 399         to nml_read_object.
 400
 401 2013-03-31  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 402
 403         PR libfortran/56786
 404         * io/list_read.c (nml_parse_qualifier): Remove spurious next_char call
 405         when checking for EOF. Use error return mechanism when EOF detected.
 406         Do not return false unless parse_err_msg and parse_err_msg_size have
 407         been set. Use hit_eof.
 408         (nml_get_obj_data): Likewise use the correct error mechanism.
 409         * io/transfer.c (hit_eof): Do not set AFTER_ENDFILE if in namelist
 410         mode.
 411
 412 2013-03-29  Tobias Burnus  <burnus@net-b.de>
 413
 414         PR fortran/56737
 415         * io/format.c (parse_format_list): Also cache FMT_STRING.
 416         (parse_format): Update call.
 417
 418 2013-03-29  Tobias Burnus  <burnus@net-b.de>
 419
 420         PR fortran/56737
 421         * io/format.c (parse_format): With caching, copy
 422         dtp->format string.
 423         (save_parsed_format): Use dtp->format directy without
 424         copying.
 425
 426 2013-03-29  Tobias Burnus  <burnus@net-b.de>
 427
 428         PR fortran/56735
 429         * io/list_read.c (nml_query): Only abort when
 430         an error occured.
 431         (namelist_read): Add goto instead of falling through.
 432
 433 2013-03-25  Tilo Schwarz  <tilo@tilo-schwarz.de>
 434
 435         PR libfortran/52512
 436         * io/list_read.c (nml_parse_qualifier): To check for a derived type
 437         don't use the namelist head element type but the current element type.
 438         (nml_get_obj_data): Add current namelist element type to
 439         nml_parse_qualifier call.
 440
 441 2013-03-24  Tobias Burnus  <burnus@net-b.de>
 442
 443         PR fortran/56696
 444         * io/list_read.c (read_real): Fix EOF diagnostic.
 445
 446 2013-03-20  Tilo Schwarz  <tilo@tilo-schwarz.de>
 447
 448         PR libfortran/51825
 449         * io/list_read.c (nml_read_obj): Don't end the component loop on a
 450         nested derived type, but continue with the next loop iteration.
 451         (nml_get_obj_data): Don't move the first_nl pointer further in the
 452         list if a qualifier was found.
 453
 454 2013-03-20  Tilo Schwarz  <tilo@tilo-schwarz.de>
 455
 456         PR libfortran/48618
 457         * io/open.c (st_open): Raise error for unit number < 0 only if
 458         unit number does not exist already.
 459
 460 2013-03-19  Janne Blomqvist  <jb@gcc.gnu.org>
 461
 462         * libgfortran.h: Include stdbool.h.
 463         (enum try): Remove.
 464         (notify_std): Change return type to bool.
 465         * intrinsics/chmod.c: Don't include stdbool.h.
 466         * intrinsics/execute_command_line.c: Likewise.
 467         * io/format.c: Likewise.
 468         * io/list_read.c (nml_parse_qualifier): Change return type to bool.
 469         (nml_read_obj): Likewise.
 470         (nml_get_obj_data): Likewise.
 471         * io/transfer.c (read_block_form): Fix comment.
 472         (write_buf): Change return type to bool.
 473         * io/write.c: Don't include stdbool.h.
 474         * io/write_float.def (output_float): Change return type to bool.
 475         (output_float_FMT_G_ ## x): Change type of result variable.
 476         * runtime/error.c (notify_std): Change return type to bool.
 477
 478 2013-03-11  Tobias Burnus  <burnus@net-b.de>
 479
 480         * io/transfer.c (read_block_direct): Correct condition.
 481         * intrinsics/execute_command_line.c (execute_command_line):
 482         Remove dead code for the HAVE_FORK case.
 483
 484 2013-02-21  Janne Blomqvist  <jb@gcc.gnu.org>
 485
 486         PR libfortran/30162
 487         * io/open.c (test_endfile): Call stell only if size != 0.
 488         * io/unix.c (raw_tell): Revert r194679.
 489         (raw_size): Return size field only for regular files, otherwise 0.
 490
 491 2013-02-19  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
 492
 493         PR target/56347
 494         * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_POWF): Remove check for
 495         broken powf.
 496         * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_POWF): Likewise.
 497         * intrinsics/c99_functions.c: Likewise.
 498         * configure: Rebuilt.
 499         * config.h.in: Rebuilt.
 500
 501 2013-02-06  Janus Weil  <janus@gcc.gnu.org>
 502
 503         PR fortran/55978
 504         * runtime/in_pack_generic.c (internal_pack): Return if base_addr is
 505         NULL.
 506
 507 2013-01-23  Janne Blomqvist  <jb@gcc.gnu.org>
 508
 509         * io/file_pos.c (unformatted_backspace): Use __builtin_bswapXX
 510         instead of reverse_memcpy.
 511         * io/io.h (reverse_memcpy): Remove prototype.
 512         * io/transfer.c (reverse_memcpy): Make static, move towards
 513         beginning of file.
 514         (bswap_array): New function.
 515         (unformatted_read): Use bswap_array to byte swap the data
 516         in-place.
 517         (unformatted_write): Use a larger temp buffer and bswap_array.
 518         (us_read): Use __builtin_bswapXX instead of reverse_memcpy.
 519         (write_us_marker): Likewise.
 520
 521 2013-01-14  Richard Sandiford  <rdsandiford@googlemail.com>
 522
 523         Update copyright years.
 524
 525 2013-01-06  Tobias Burnus  <burnus@net-b.de>
 526
 527         PR fortran/54678
 528         * intrinsics/env.c (get_environment_variable_i8): Don't use
 529         uninitialized variable.
 530
 531 2013-01-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 532
 533         PR libfortran/55818
 534         * io/list_read.c (read_real): Do not call hit_eof when EOF can be
 535         treated as a value separator.
 536         (parse_real): Likewise.
 537         (read_logical): Likewise.
 538         (read_character): Likewise.
 539         (read_complex): Likewise.
 540 \f
 541 Copyright (C) 2013-2014 Free Software Foundation, Inc.
 542
 543 Copying and distribution of this file, with or without modification,
 544 are permitted in any medium without royalty provided the copyright
 545 notice and this notice are preserved.