libgfortran/ChangeLog

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