libgfortran/ChangeLog

   1 2010-12-06  Dave Korn  <dave.korn.cygwin@gmail.com>
   2
   3         PR target/40125
   4         PR lto/46695
   5         * configure.ac: Invoke ACX_LT_HOST_FLAGS.
   6         * Makefile.am (LTLDFLAGS): Use lt_host_flags.
   7         * aclocal.m4: Regenerate.
   8         * configure: Regenerate.
   9         * Makefile.in: Regenerate.
  10
  11 2010-11-16  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
  12             Tobias Burnus  <burnus@net-b.de>
  13
  14         PR fortran/32049
  15         * Makefile.am: Add missing pow_r16_i4.c, add transfer128.c,
  16         link libquadmath, if used.
  17         * acinclude.m4 (LIBGFOR_CHECK_FLOAT128): Add.
  18         * configure.ac: Use it, touch spec file.
  19         * gfortran.map: Add pow_r16_i4 and
  20         transfer_(real,complex)128(,write) functions.
  21         * intrinsics/cshift0.c (cshift0): Handle __float128 type.
  22         * intrinsics/erfc_scaled_inc.c: Ditto.
  23         * intrinsics/pack_generic.c (pack): Ditto
  24         * intrinsics/spread_generic.c (spread): Ditto.
  25         * intrinsics/unpack_generic.c (unpack1): Ditto.
  26         * io/read.c (convert_real): Ditto.
  27         * io/transfer.c: Update comments.
  28         * io/transfer128.c: New file.
  29         * io/write_float.def (write_float): Handle __float128 type.
  30         * libgfortran.h: #include quadmath_weak.h, define __builtin_infq
  31         and nanq.
  32         * m4/mtype.m4: Handle __float128 type.
  33         * runtime/in_pack_generic.c (internal_pack): Ditto.
  34         * runtime/in_unpack_generic.c (internal_unpack): Ditto.
  35         * kinds-override.h: New file.
  36         * libgfortran.spec.in: Ditto.
  37         * generated/pow_r16_i4.c: Generated.
  38         * Makefile.in: Regenerate.
  39         * configure: Regenerate.
  40         * config.h: Regenerate.
  41         * bessel_r10.c: Regenerate.
  42         * bessel_r16.c: Regenerate.
  43         * bessel_r4.c: Regenerate.
  44         * bessel_r8.c: Regenerate.
  45         * exponent_r16.c: Regenerate.
  46         * fraction_r16.c: Regenerate.
  47         * nearest_r16.c: Regenerate.
  48         * norm2_r10.c: Regenerate.
  49         * norm2_r16.c: Regenerate.
  50         * norm2_r4.c: Regenerate.
  51         * norm2_r8.c: Regenerate.
  52         * rrspacing_r16.c: Regenerate.
  53         * set_exponent_r16.c: Regenerate.
  54         * spacing_r16.c: Regenerate.
  55
  56 2010-11-09  Janne Blomqvist  <jb@gcc.gnu.org>
  57
  58         * io/unix.c (struct unix_stream): Add st_dev and st_ino members.
  59         (fd_to_stream): Avoid unnecessary lseek() call, test isatty()
  60         last. Make a token effort to support block devices.
  61         (compare_file_filename): Use cached stat values.
  62         (find_file0): Likewise.
  63         (find_file): Likewise.
  64
  65 2010-11-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  66
  67         PR libgfortran/46373
  68         * io/transfer.c (data_transfer_init): Do not call flush_if_preconnected
  69         if this is an internal unit.
  70
  71 2010-11-04  Janne Blomqvist  <jb@gcc.gnu.org>
  72
  73         PR libfortran/44931
  74         * io/inquire.c (inquire_via_unit): Use stream_ttyname() instead of
  75         calling ttyname() directly.
  76         * io/unix.h (unix_stream): Move struct to unix.c.
  77         * io/unix.c: Move struct unix_stream here.
  78         (stream_ttyname): Don't mark the argument as unused if it is used.
  79
  80 2010-11-04  Janne Blomqvist  <jb@gcc.gnu.org>
  81
  82         * io/unix.h (struct unix_stream): Remove prot member.
  83         * io/unix.c: Remove PROT_READ and PROT_WRITE constants.
  84         (fd_to_stream): Remove prot from argument list, don't set prot.
  85         (open_external): Don't set prot flag.
  86         (input_stream): Remove prot from argument list.
  87         (output_stream): Likewise.
  88         (error_stream): Likewise.
  89
  90 2010-11-03  Janne Blomqvist  <jb@gcc.gnu.org>
  91
  92         * io/unix.h: Remove empty_internal_buffer prototype.
  93         * io/unix.c (empty_internal_buffer): Remove unused function.
  94
  95 2010-11-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
  96
  97         PR libgfortran/43899
  98         * runtime/error.c (generate_warning): New function to generate a run
  99         time warning message. Fix some whitespace.
 100         * libgfortran.h: Add prototype for new function.
 101         * io/list_read.c (nml_read_obj): Use new function to warn when a
 102         character namelist object is truncated.  Only warn if compiled
 103         with -fbounds-check.
 104
 105 2010-11-02  Janne Blomqvist  <jb@gcc.gnu.org>
 106
 107         PR libfortran/45629
 108         * io/io.h: Remove setjmp.h include.
 109         (st_parameter_dt): Change last_char to int, remove eof_jump.
 110         * io/list_read.c (next_char): Return EOF instead of jumping.
 111         (unget_char): Use int to be able to handle EOF.
 112         (eat_spaces): Handle EOF return from next_char.
 113         (eat_line): Likewise.
 114         (eat_separator): Handle EOF return from next_char, eat_spaces,
 115         eat_line.
 116         (finish_separator): Likewise.
 117         (convert_integer): Likewise.
 118         (read_logical): Likewise.
 119         (read_integer): Likewise.
 120         (read_character): Likewise.
 121         (parse_real): Likewise.
 122         (read_complex): Likewise.
 123         (read_real): Likewise.
 124         (list_formatted_read_scalar): Likewise.
 125         (list_formatted_read): Likewise.
 126         (finish_list_read): Likewise.
 127         (nml_parse_qualifier): Likewise.
 128         (nml_match_name): Likewise.
 129         (nml_get_obj_data): Likewise.
 130         (namelist_read): Likewise.
 131         * io/transfer.c (data_transfer_init): Initialize last_char.
 132         (finalize_transfer): Remove jmp_buf setup.
 133
 134 2010-10-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 135
 136         PR libgfortran/46010
 137         * io/list_read.c (nml_parse_qualifier): Add additional conditions for
 138         setting the end index for loop specification. Fix some whitespace.
 139         * io/write.c (write_default_char4): Const-ify the source argument.
 140
 141 2010-10-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 142
 143         PR fortran/46007
 144         * m4/shape.m4 (shape_'rtype_kind`):  Use variable for rank.
 145         Allocate return array if unallocated.
 146         * generated/shape_i4.c:  Regenerated.
 147         * generated/shape_i8.c:  Regenerated.
 148         * generated/shape_i16.c:  Regenerated.
 149
 150 2010-10-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 151
 152         PR libgfortran/46079
 153         * runtime/stop.c (stop_numeric_f08): New function.
 154         (stop_numeric): Restore to previous behavior.
 155         * gfortran.map: Add symbol _gfortran_stop_numeric_f08.
 156
 157 2010-10-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 158
 159         * io/io.h: Remove definition of the BT enumerator.
 160         * libgfortran.h: Replace GFC_DTYPE enumerator with BT.
 161         * intrinsics/iso_c_generated_procs.c: Likewise
 162         * intrinsics/date_and_time.c: Likewise.
 163         * intrinsics/iso_c_binding.c: Likewise.
 164         * io/list_read.c: Likewise.
 165         * io/transfer.c: Likewise.
 166         * io/write.c: Likewise.
 167
 168 2010-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
 169
 170         PR fortran/20165
 171         PR fortran/31593
 172         PR fortran/43665
 173         * gfortran.map:  Add _gfortran_transfer_array_write,
 174         _gfortran_transfer_array_write, _gfortran_transfer_character_write,
 175         _gfortran_transfer_character_wide_write,
 176         _gfortran_transfer_complex_write,
 177         _gfortran_transfer_integer_write,
 178         _gfortran_transfer_logical_write and
 179         _gfortran_transfer_real_write.
 180         * io/transfer.c (transfer_integer_write):  Add prototype and
 181         function body as call to the original function, without the
 182         _write.
 183         (transfer_real_write):  Likewise.
 184         (transfer_logical_write):  Likewise.
 185         (transfer_character_write):  Likewise.
 186         (transfer_character_wide_write):  Likewise.
 187         (transfer_complex_write):  Likewise.
 188         (transfer_array_write):  Likewise.
 189
 190 2010-09-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 191
 192         PR libfortran/45710
 193         * io/write.c (namelist_write_newline): Pad character array internal
 194         unit records with spaces.
 195
 196 2010-09-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 197
 198         PR libfortran/45723
 199         * io/open.c (new_unit): On POSITION_APPEND don't seek if file length is
 200         zero.
 201
 202 2010-09-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 203
 204         PR libfortran/45532
 205         * io/list_read.c (nml_get_obj_data): Set first_nl if the previous
 206         is NULL.
 207
 208 2010-09-12  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 209
 210         * intrinsics/pack_generic.c (pack): Add missing return and fix
 211         whitespace.
 212         * intrinsics/cshift0.c (cshift0): Fix whitespace.
 213         * intrinsics/unpack_generic.c (unpack1, unpack0): Fix whitespace.
 214
 215 2010-09-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 216
 217         * runtime/string.c (compare0): Remove.
 218         (find_option): Inline string comparison
 219
 220 2010-09-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 221
 222         * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE,
 223         LIBGFOR_CHECK_FOR_BROKEN_ISNAN,
 224         LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): Remove.
 225         * configure.ac: Remove above checks.
 226         * libgfortran.h: Define isnan, isinf, isfinite, isnormal and
 227         signbit in terms of the respective built-ins.
 228         * io/write_float.def (WRITE_FLOAT): Use signbit() instead of
 229         __builtin_signbit().
 230         * intrinsics/c99_functions.c (tgamma): Use isnan() instead of
 231         __builtin_isnan().
 232         * config.h.in: Regenerate.
 233         * configure: Regenerate.
 234
 235 2010-09-06  Tobias Burnus  <burnus@net-b.de>
 236
 237         PR fortran/38282
 238         * gfortran.map: Add new iany, iall and iparity intrinsics.
 239         * Makefile.am: Ditto.
 240         * m4/iany.m4: New.
 241         * m4/iall.m4: New.
 242         * m4/iparity.m4: New.
 243         * Makefile.in: Regenerate.
 244         * generated/iall_i1.c: Generate.
 245         * generated/iall_i2.c: Generate.
 246         * generated/iall_i4.c: Generate.
 247         * generated/iall_i8.c: Generate.
 248         * generated/iall_i16.c: Generate.
 249         * generated/iany_i1.c: Generate.
 250         * generated/iany_i2.c: Generate.
 251         * generated/iany_i4.c: Generate.
 252         * generated/iany_i8.c: Generate.
 253         * generated/iany_i16.c: Generate.
 254         * generated/iparity_i1.c: Generate.
 255         * generated/iparity_i2.c: Generate.
 256         * generated/iparity_i4.c: Generate.
 257         * generated/iparity_i8.c: Generate.
 258         * generated/iparity_i16.c: Generate.
 259
 260 2010-09-05  Tobias Burnus  <burnus@net-b.de>
 261
 262         * m4/bessel.m4: Fix printf warning by casting to (long int).
 263         * generated/bessel_r4.c:Regenerated.
 264         * generated/bessel_r8.c: Regenerated.
 265         * generated/bessel_r10.c: Regenerated.
 266         * generated/bessel_r16.c: Regenerated.
 267
 268 2010-09-01  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 269
 270         * intrinsics/execute_command_line.c: New file.
 271         * gfortran.map (_gfortran_execute_command_line_i4,
 272         _gfortran_execute_command_line_i8): New symbols.
 273         * Makefile.am: Add new file intrinsics/execute_command_line.c.
 274         * Makefile.in: Regenerated.
 275
 276 2010-08-29  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 277
 278         * m4/mtype.m4 (upcase, hasmathfunc, mathfunc_macro): New macros.
 279         * m4/fraction.m4: Use new macros to support quad-float types.
 280         * m4/set_exponent.m4: Likewise.
 281         * m4/spacing.m4: Likewise.
 282         * m4/exponent.m4: Likewise.
 283         * m4/nearest.m4: Likewise.
 284         * m4/norm2.m4: Likewise.
 285         * m4/bessel.m4: Likewise.
 286         * m4/rrspacing.m4: Likewise.
 287         * generated/bessel_r4.c:Regenerated.
 288         * generated/bessel_r8.c: Regenerated.
 289         * generated/bessel_r10.c: Regenerated.
 290         * generated/bessel_r16.c: Regenerated.
 291         * generated/exponent_r4.c: Regenerated.
 292         * generated/exponent_r8.c: Regenerated.
 293         * generated/exponent_r10.c: Regenerated.
 294         * generated/exponent_r16.c: Regenerated.
 295         * generated/fraction_r4.c: Regenerated.
 296         * generated/fraction_r8.c: Regenerated.
 297         * generated/fraction_r10.c: Regenerated.
 298         * generated/fraction_r16.c: Regenerated.
 299         * generated/nearest_r4.c: Regenerated.
 300         * generated/nearest_r8.c: Regenerated.
 301         * generated/nearest_r10.c: Regenerated.
 302         * generated/nearest_r16.c: Regenerated.
 303         * generated/norm2_r4.c: Regenerated.
 304         * generated/norm2_r8.c: Regenerated.
 305         * generated/norm2_r10.c: Regenerated.
 306         * generated/norm2_r16.c: Regenerated.
 307         * generated/rrspacing_r4.c: Regenerated.
 308         * generated/rrspacing_r8.c: Regenerated.
 309         * generated/rrspacing_r10.c: Regenerated.
 310         * generated/rrspacing_r16.c: Regenerated.
 311         * generated/set_exponent_r4.c: Regenerated.
 312         * generated/set_exponent_r8.c: Regenerated.
 313         * generated/set_exponent_r10.c: Regenerated.
 314         * generated/set_exponent_r16.c: Regenerated.
 315         * generated/spacing_r4.c: Regenerated.
 316         * generated/spacing_r8.c: Regenerated.
 317         * generated/spacing_r10.c: Regenerated.
 318         * generated/spacing_r16.c: Regenerated.
 319
 320 2010-08-28  Tobias Burnus  <burnus@net-b.de>
 321
 322         * mk-kinds-h.sh: Disable REAL(16) if REAL(10) is available.
 323
 324 2010-08-27  Tobias Burnus  <burnus@net-b.de>
 325
 326         PR fortran/33197
 327         * libgfortran/m4/ifunction.m4 (FINISH_ARRAY_FUNCTION,
 328         ARRAY_FUNCTION): Allow expression after loop.
 329         * libgfortran/m4/norm2.m4: New for _gfortran_norm2_r{4,8,10,16}.
 330         * libgfortran/m4/parity.m4: New for _gfortran_parity_l{1,2,4,8,16}.
 331         * libgfortran/gfortran.map: Add new functions.
 332         * libgfortran/Makefile.am: Ditto.
 333         * libgfortran/m4/minloc1.m4: Add empty argument for ARRAY_FUNCTION.
 334         * libgfortran/m4/maxloc1.m4: Ditto.
 335         * libgfortran/m4/all.m4: Ditto.
 336         * libgfortran/m4/minval.m4: Ditto.
 337         * libgfortran/m4/maxval.m4: Ditto.
 338         * libgfortran/m4/count.m4: Ditto.
 339         * libgfortran/m4/product.m4: Ditto.
 340         * libgfortran/m4/any.m4: Ditto.
 341         * Makefile.in: Regenerated.
 342         * generated/minval_r8.c: Regenerated.
 343         * generated/maxloc1_4_r8.c: Regenerated.
 344         * generated/minloc1_16_r16.c: Regenerated.
 345         * generated/norm2_r4.c: Regenerated.
 346         * generated/sum_i8.c: Regenerated.
 347         * generated/parity_l2.c: Regenerated.
 348         * generated/any_l16.c: Regenerated.
 349         * generated/maxval_i2.c: Regenerated.
 350         * generated/any_l2.c: Regenerated.
 351         * generated/product_r4.c: Regenerated.
 352         * generated/maxloc1_8_i4.c: Regenerated.
 353         * generated/parity_l16.c: Regenerated.
 354         * generated/all_l1.c: Regenerated.
 355         * generated/product_i2.c: Regenerated.
 356         * generated/minloc1_8_r16.c: Regenerated.
 357         * generated/maxloc1_8_r16.c: Regenerated.
 358         * generated/sum_r16.c: Regenerated.
 359         * generated/sum_i1.c: Regenerated.
 360         * generated/minloc1_4_r8.c: Regenerated.
 361         * generated/maxloc1_16_r16.c: Regenerated.
 362         * generated/minloc1_16_i4.c: Regenerated.
 363         * generated/maxloc1_16_i4.c: Regenerated.
 364         * generated/maxval_r16.c: Regenerated.
 365         * generated/product_c10.c: Regenerated.
 366         * generated/minloc1_8_i4.c: Regenerated.
 367         * generated/all_l2.c: Regenerated.
 368         * generated/product_c4.c: Regenerated.
 369         * generated/sum_r4.c: Regenerated.
 370         * generated/all_l16.c: Regenerated.
 371         * generated/minloc1_16_r10.c: Regenerated.
 372         * generated/sum_i2.c: Regenerated.
 373         * generated/maxloc1_8_r8.c: Regenerated.
 374         * generated/minval_i16.c: Regenerated.
 375         * generated/parity_l4.c: Regenerated.
 376         * generated/maxval_i4.c: Regenerated.
 377         * generated/any_l4.c: Regenerated.
 378         * generated/minval_i8.c: Regenerated.
 379         * generated/maxloc1_4_i8.c: Regenerated.
 380         * generated/minloc1_4_i16.c: Regenerated.
 381         * generated/maxloc1_4_i16.c: Regenerated.
 382         * generated/minloc1_8_r10.c: Regenerated.
 383         * generated/product_i4.c: Regenerated.
 384         * generated/maxloc1_8_r10.c: Regenerated.
 385         * generated/sum_c16.c: Regenerated.
 386         * generated/minloc1_16_r8.c: Regenerated.
 387         * generated/maxloc1_16_r8.c: Regenerated.
 388         * generated/count_4_l.c: Regenerated.
 389         * generated/sum_r10.c: Regenerated.
 390         * generated/count_8_l.c: Regenerated.
 391         * generated/sum_c4.c: Regenerated.
 392         * generated/maxloc1_16_r10.c: Regenerated.
 393         * generated/minloc1_8_r8.c: Regenerated.
 394         * generated/maxval_r10.c: Regenerated.
 395         * generated/minval_i1.c: Regenerated.
 396         * generated/maxloc1_4_i1.c: Regenerated.
 397         * generated/minloc1_4_i8.c: Regenerated.
 398         * generated/product_i16.c: Regenerated.
 399         * generated/all_l4.c: Regenerated.
 400         * generated/norm2_r16.c: Regenerated.
 401         * generated/minval_r4.c: Regenerated.
 402         * generated/maxloc1_4_r4.c: Regenerated.
 403         * generated/sum_i4.c: Regenerated.
 404         * generated/maxval_r8.c: Regenerated.
 405         * generated/norm2_r8.c: Regenerated.
 406         * generated/minloc1_4_i1.c: Regenerated.
 407         * generated/minval_r16.c: Regenerated.
 408         * generated/minval_i2.c: Regenerated.
 409         * generated/maxloc1_4_i2.c: Regenerated.
 410         * generated/product_r8.c: Regenerated.
 411         * generated/maxloc1_8_i8.c: Regenerated.
 412         * generated/sum_c10.c: Regenerated.
 413         * generated/minloc1_4_r16.c: Regenerated.
 414         * generated/maxloc1_4_r16.c: Regenerated.
 415         * generated/count_1_l.c: Regenerated.
 416         * generated/minloc1_4_r4.c: Regenerated.
 417         * generated/minloc1_16_i8.c: Regenerated.
 418         * generated/maxloc1_16_i8.c: Regenerated.
 419         * generated/minloc1_4_i2.c: Regenerated.
 420         * generated/maxloc1_8_i1.c: Regenerated.
 421         * generated/minloc1_8_i8.c: Regenerated.
 422         * generated/product_r16.c: Regenerated.
 423         * generated/product_c8.c: Regenerated.
 424         * generated/sum_r8.c: Regenerated.
 425         * generated/norm2_r10.c: Regenerated.
 426         * generated/minloc1_16_i16.c: Regenerated.
 427         * generated/maxloc1_8_r4.c: Regenerated.
 428         * generated/minloc1_16_i1.c: Regenerated.
 429         * generated/maxloc1_16_i1.c: Regenerated.
 430         * generated/minval_r10.c: Regenerated.
 431         * generated/count_16_l.c: Regenerated.
 432         * generated/parity_l8.c: Regenerated.
 433         * generated/minloc1_8_i1.c: Regenerated.
 434         * generated/minval_i4.c: Regenerated.
 435         * generated/maxloc1_4_i4.c: Regenerated.
 436         * generated/maxloc1_8_i2.c: Regenerated.
 437         * generated/maxval_i8.c: Regenerated.
 438         * generated/any_l8.c: Regenerated.
 439         * generated/minloc1_4_r10.c: Regenerated.
 440         * generated/minloc1_8_i16.c: Regenerated.
 441         * generated/maxloc1_4_r10.c: Regenerated.
 442         * generated/maxloc1_8_i16.c: Regenerated.
 443         * generated/minloc1_16_r4.c: Regenerated.
 444         * generated/maxloc1_16_r4.c: Regenerated.
 445         * generated/product_i8.c: Regenerated.
 446         * generated/sum_i16.c: Regenerated.
 447         * generated/count_2_l.c: Regenerated.
 448         * generated/maxloc1_16_i16.c: Regenerated.
 449         * generated/minloc1_8_r4.c: Regenerated.
 450         * generated/sum_c8.c: Regenerated.
 451         * generated/minloc1_16_i2.c: Regenerated.
 452         * generated/maxloc1_16_i2.c: Regenerated.
 453         * generated/parity_l1.c: Regenerated.
 454         * generated/maxval_i16.c: Regenerated.
 455         * generated/maxval_i1.c: Regenerated.
 456         * generated/minloc1_4_i4.c: Regenerated.
 457         * generated/any_l1.c: Regenerated.
 458         * generated/minloc1_8_i2.c: Regenerated.
 459         * generated/product_c16.c: Regenerated.
 460         * generated/product_r10.c: Regenerated.
 461         * generated/product_i1.c: Regenerated.
 462         * generated/all_l8.c: Regenerated.
 463         * generated/maxval_r4.c: Regenerated.
 464
 465 2010-08-26  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 466
 467         * config/fpu-387.h (has_sse): Remove cw_sse, unused.
 468         Use fixed-length asm.
 469
 470 2010-08-23  Tobias Burnus  <burnus@net-b.de>
 471
 472         PR fortran/45323
 473         * io/write.c (nml_write_obj, namelist_write): Cast argument
 474         of toupper to int.
 475
 476 2010-08-21  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 477
 478         * configure: Regenerate.
 479
 480 2010-08-19  Tobias Burnus  <burnus@net-b.de>
 481
 482         PR fortran/36158
 483         PR fortran/33197
 484         * m4/bessel.m4: Implement bessel_jn and bessel_yn.
 485         * gfortran.map: Add the generated bessel_jn_r{4,8,10,16}
 486         and bessel_yn_r{4,8,10,16}.
 487         * Makefile.am: Add bessel.m4.
 488         * Makefile.in: Regenerated.
 489         * generated/bessel_r4.c: Generated.
 490         * generated/bessel_r16.c: Generated.
 491         * generated/bessel_r8.c: Generated.
 492         * generated/bessel_r10.c: Generated.
 493
 494 2010-08-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 495
 496         PR libfortran/45108
 497         * io/list_read.c (namelist_read): If namelist reading fails, use
 498         generate_error and then continue the read loop.
 499
 500 2010-08-17  Jakub Jelinek  <jakub@redhat.com>
 501
 502         PR fortran/45308
 503         * intrinsics/date_and_time.c (date_and_time): Pass __{zone,time,date}_len
 504         instead of {ZONE,TIME,DATE}_LEN as second argument to fstrcpy.  Drop
 505         asserts.  Adjust comment to the F2003 wording from the F95 wording.
 506
 507 2010-08-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 508
 509         PR libfortran/44931
 510         * io/inquire.c (inquire_via_unit): Add special case for __MINGW32__ to
 511         return special file names CONIN$, CONOUT$, and CONERR$.
 512
 513 2010-08-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 514
 515         PR libfortran/45143
 516         * io/format.c: Remove fnode storage structure definitions, moving these
 517         to format.h. (parse_format_list): Add check for data descriptors,
 518         taking care of nested formats. Adjust calling parameters to pass a
 519         check flag. (parse_format): Likewise.
 520         * io/format.h: Add structures moved from format.c.
 521
 522 2010-08-02  Janne Blomqvist  <jb@gcc.gnu.org>
 523
 524         * io/unit.c (update_position): Don't update the position flag for
 525         non-seekable files, check for stell() error.
 526
 527 2010-08-01  Janne Blomqvist  <jb@gcc.gnu.org>
 528
 529         * io/unix.c (file_exists): Use access(2) instead of stat(2) to
 530         test file existence.
 531         (fallback_access): Move up in file, implement F_OK.
 532
 533 2010-07-31  David Edelsohn  <edelsohn@gnu.org>
 534
 535         * io/inquire.c: Include io.h before string.h.
 536
 537 2010-07-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 538
 539         PR libfortran/44931
 540         * io/inquire.c (inquire_via_unit): Use ttyname to return actual device
 541         file name for stdin, stdout, and stderr.  If ttyname does not succeed
 542         fall back to default names for these units. Include string.h to allow
 543         using strlen function.
 544         * unix.c: Remove typedef of unix_stream structure, move to unix.h.
 545         * unix.h: Add typedef of unix_stream structure so that it is
 546         accessible to inquire.c.
 547
 548 2010-07-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 549
 550         PR libfortran/44953
 551         * io/unix.c (mem_alloc_w4): Return gfc_char4_t instead of char type
 552         pointer. (mem_write4): Remove cast to gfc_char4_t.
 553         * io/transfer.c (write_block): Use a gfc_char4_t pointer.
 554         (memset4): New helper function. (next_record_w): Use new helper
 555         function rather than sset for internal units.  Don't attempt to pad
 556         with spaces if it is not needed.
 557         * io/unix.h: Update prototype for mem_alloc_w4.
 558         * io/write.c (memset4): Use gfc_char4_t pointer and chracter type.
 559         Don't use multiply by 4 to compute offset. (memcpy4): Likewise.
 560         (write_default_char4): Use a gfc_char4_t pointer and update memset4
 561         and memcpy calls. (write_a): Likewise. (write_l): Likewise.
 562         (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise.
 563         (write_char): Add support for character(kind=4) internal units that
 564         was previously missed. (write_integer): Use a gfc_char4_t pointer and
 565         update memset4 and memcpy calls. (write_character): Likewise.
 566         (write_separator): Add support for character(kind=4) internal units
 567         that was previously missed.
 568         * write_float.def (output_float): Use a gfc_char4_t pointer and
 569         update memset4 and memcpy calls. (write_infnan): Likewise.
 570         (output_float_FMT_G_): Likewise.
 571
 572 2010-07-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 573
 574         PR libfortran/37077
 575         * io/read.c (read_default_char4): Add support for reading into a
 576         kind-4 character variable from a character(kind=4) internal unit.
 577         * io/io.h (read_block_form4): Add prototype.
 578         * io/unit.c (get_internal_unit): Add call to fbuf_init.
 579         (free_internal_unit): Add call to fbuf_destroy. (get_unit): Fix
 580         whitespace.
 581         * io/transfer.c (read_sf_internal): Use fbuf_alloc to allocate a string
 582         to recieve the wide characters translated to single byte chracters.
 583         (read_block_form): Fix whitespace. (read_block_form4): New function to
 584         read from a character(kind=4) internal unit into a character(kind=4)
 585         variable. (read_block_direct): Fix whitespace. (write_block): Fix
 586         whitespace. (formatted_transfer_scalar_read): Likewise.
 587         (formatted_transfer_scalar_write): Likewise.
 588         * io/write.c (write_character): Add support for list directed write of
 589         a kind=1 character string to a character(kind=4) internal unit.
 590
 591 2010-07-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 592
 593         PR libfortran/44934
 594         * io/file_pos.c (st_endfile): Correctly set unit flags for form.
 595         * io/transfer.c (data_transfer_init): Fix indentation of whitespace.
 596
 597 2010-07-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 598
 599         PR libfortran/37077
 600         * io/read.c: Fix comment.
 601         * io/io.h (is_char4_unit): New macro.
 602         * io/unit.c (get_internal_unit): Call new function open_internal4.
 603         * io/unix.c (mem_alloc_r4): New function. (mem_alloc_w4): New function.
 604         (mem_read4): New function, temporary stub. (mem_write4): New function.
 605         (open_internal4): New function to set stream pointers to use the new
 606         mem functions.
 607         * io/transfer.c (write_block): Use new mem_alloc_w4 to access internal
 608         units of kind=4.
 609         * io/unix.h: Add prototypes for open_internal4, mem_alloc_w4, and
 610         mem_alloc_r4.
 611         * io/write.c (memset4): New helper function. (memcpy4): New helper
 612         function. (write_default_char4): Use new helper functions.
 613         (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise.
 614         (write_decimal): Likewise. (write_x): Likewise.
 615         (write_integer): Likewise.
 616         * io/write_float.def (output_float): Add code blocks to handle internal
 617         unit kind=4 output utilizing gfc_char4_t pointers. (write_infnan): Use
 618         new helper functions. (OUTPUT_FLOAT_FMT_G): Update this macro likewise.
 619
 620 2010-07-12  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 621
 622         * config/fpu-387.h [__sun__ && __svr4__] Include <signal.h>,
 623         <ucontext.h>.
 624         (sigill_caught): New.
 625         (sigill_hdlr): New function
 626         (has_sse) [__sun__ && __svr4__]: Check if SSE instruction causes
 627         SIGILL.
 628
 629 2010-07-11  Kai Tietz  <kai.tietz@onevision.com>
 630
 631         PR libfortran/44698
 632         * io/unix.c (flush_buf): Add _commit for WIN32.
 633
 634 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 635
 636         PR fortran/43298
 637         * list_read.c (parse_real): Do not pass (..) on for NAN(..).
 638         * read.c (convert_real): Fix comment about NAN/INF.
 639
 640 2010-07-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 641
 642         * configure.ac (gfortran_use_symver): Only check for Sun-style symbol
 643         versioning on Solaris 2.
 644         * configure: Regenerate.
 645
 646 2010-07-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 647
 648         * configure.ac: Check for Sun symbol versioning.
 649         * configure: Regenerate.
 650
 651         * Makefile.am [LIBGFOR_USE_SYMVER]: Protect version_arg with
 652         LIBGFOR_USE_SYMVER_GNU.
 653         Add version_dep.
 654         [LIBGFOR_USE_SYMVER_SUN]: Handle Sun symbol versioning.
 655         [!LIBGFOR_USE_SYMVER]: Add version_dep.
 656         (libgfortran_la_DEPENDENCIES): Set to $(version_dep).
 657         * Makefile.in: Regenerate.
 658
 659 2010-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 660
 661         PR libfortran/43298
 662         * io/read.c: Add code to parse and read Inf, Infinity, NaN, and Nan with
 663         optional parenthesis.
 664
 665 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 666
 667         PR fortran/43298
 668         * list_read.c (parse_real, read_real): Support NAN(alphanum).
 669
 670 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 671
 672         * intrinsics/selected_real_kind.f90
 673         (_gfortran_selected_real_kind2008): Add function.
 674         (_gfortran_selected_real_kind): Stub which calls
 675         _gfortran_selected_real_kind2008.
 676         * gfortran.map (GFORTRAN_1.4): Add
 677         _gfortran_selected_real_kind2008.
 678         * mk-srk-inc.sh: Save also RADIX.
 679
 680 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 681
 682         * runtime/compile_options.c (init_compile_options): Update
 683         compile_options.allow_std for GFC_STD_F2008_OBS.
 684         * io/transfer.c (formatted_transfer_scalar_read,
 685         formatted_transfer_scalar_write): Fix allow_std check.
 686         * io/list_read.c (nml_parse_qualifier): Ditto.
 687
 688 2010-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 689
 690         PR libfortran/44477
 691         * io/file_pos.c (st_endfile): Add check for ENDFILE when file is
 692         already positioned after the EOF marker. Use find_or_create_unit
 693         instead of find_unit. If unit is not connected, connect it and create
 694         the file with default settings.
 695         * io/transfer.c (data_transfer_init):  Add check for attempted READ or
 696         WRITE when file is already positioned after the EOF marker.
 697
 698 2010-06-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 699
 700         * intrinsics/selected_char_kind.c (selected_char_kind): Fix
 701         return value for ISO_10646.
 702
 703 2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 704
 705         * mk-kinds-h.sh: Define GFC_REAL_*_LITERAL_SUFFIX and
 706         GFC_REAL_*_LITERAL macros for each kind.
 707         * intrinsics/cpu_time.c (cpu_time_4, cpu_time_8, cpu_time_10,
 708         cpu_time_16): Use them.
 709         * intrinsics/random.c (rnumber_4, rnumber_8, rnumber_10,
 710         rnumber_16): Likewise.
 711
 712 2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 713
 714         * intrinsics/system_clock.c (system_clock_4, system_clock_8):
 715         Undefine TCK.
 716
 717 2010-06-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 718
 719         PR libfortran/34670
 720         * intrinsics/date_and_time.c:  Replace assert with runtime_error
 721         when VALUE is too small.
 722
 723 2010-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 724
 725         PR fortran/43851
 726         * runtime/stop.c (stop_string): Make sure nothing is emitted for
 727         blank stop.
 728
 729 2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 730
 731         PR fortran/43851
 732         * runtime/stop.c (error_stop_numeric): New function and updated comment.
 733         Add declaration for stop_numeric and remove declaration for stop_string.
 734         (stop_string): Use for blank STOP.
 735         (stop_numeric): Remove use of special -1 stop code.
 736         * runtime/pause.c (do_pause): Use stop_string for blank stop.
 737         (pause_numeric): Remove use of special -1 pause code.
 738         * gfortran.map: Add new symbol to run-time library.
 739         * libgfortran.h: Move declaration for stop_string to here to make
 740         function visible for do_pause. Remove declaration for stop_numeric.
 741
 742 2010-05-08  Janne Blomqvist  <jb@gcc.gnu.org>
 743
 744         * io/unix.h (mem_alloc_r): Fix typo to reduce visibility.
 745
 746 2010-05-07  Janne Blomqvist  <jb@gcc.gnu.org>
 747
 748         * libgfortran.h (free_mem): Remove prototype.
 749         * runtime/memory.c (free_mem): Remove function.
 750         * intrinsics/date_and_time.c (secnds): Replace free_mem() with
 751         free().
 752         * io/fbuf.c (fbuf_destroy): Likewise.
 753         * io/format.c (free_format_hash_table): Likewise.
 754         (save_parsed_format): Likewise.
 755         (free_format_data): Likewise.
 756         * io/list_read.c (free_saved): Likewise.
 757         (free_line): Likewise.
 758         (nml_touch_nodes): Likewise.
 759         (nml_read_obj): Likewise
 760         * io/lock.c (free_ionml): Likewise.
 761         * io/open.c (new_unit): Likewise.
 762         (already_open): Likewise.
 763         * io/unit.c (destroy_unit_mutex): Likewise.
 764         (free_internal_unit): Likewise.
 765         (close_unit_1): Likewise.
 766         * io/unix.c (raw_close): Likewise.
 767         (buf_close): Likewise.
 768         (mem_close): Likewise.
 769         (tempfile): Likewise.
 770         * io/write.c (nml_write_obj): Likewise.
 771         * io/write_float.def (output_float_FMT_G_##): Likewise.
 772         * runtime/error.c (show_locus): Likewise.
 773
 774 2010-05-04  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 775
 776         PR other/43620
 777         * configure.ac (AM_INIT_AUTOMAKE): Add no-dist.
 778         * configure: Regenerate.
 779         * Makefile.in: Regenerate.
 780
 781 2010-04-30  Kai Tietz  <kai.tietz@onevision.com>
 782
 783         PR/43844
 784         * io/unix.c (raw_truncate): Explicit cast from integer-scalar
 785         to pointer.
 786         (tempfile): Use for mingw GetTempPath and avoid double slash
 787         for path.
 788
 789 2010-04-24  Kai Tietz  <kai.tietz@onevision.com>
 790
 791         PR/43844
 792         * io/unix.c (tempfile): Correct logic for mktemp case.
 793
 794 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 795
 796         PR fortran/39997
 797         * runtime/stop.c (error_stop_string): New function.
 798         * gfortran.map (_gfortran_error_stop_string): Add.
 799
 800 2010-04-02  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 801
 802         * Makefile.in: Regenerate.
 803         * aclocal.m4: Regenerate.
 804
 805 2010-04-01  Janne Blomqvist  <jb@gcc.gnu.org>
 806
 807         PR libfortran/43605
 808         * io/intrinsics.c (gf_ftell): New function, seek to correct offset.
 809         (ftell): Call gf_ftell.
 810         (FTELL_SUB): Likewise.
 811
 812 2010-04-01  Paul Thomas  <pault@gcc.gnu.org>
 813
 814         * io/transfer.c : Update copyright.
 815         * io/unix.c : ditto
 816         * io/read.c : ditto
 817         * io/io.h : ditto
 818         * io/unix.h : ditto
 819         * io/inquire.c : ditto
 820         * io/format.c : ditto
 821         * io/list_read.c : ditto
 822         * runtime/error.c : ditto
 823         * libgfortran.h : ditto
 824         * intrinsics/date_and_time.c: ditto
 825         * intrinsics/args.c : ditto
 826
 827 2010-04-01  Janne Blomqvist  <jb@gcc.gnu.org>
 828
 829         PR libfortran/43605
 830         * io/intrinsics.c (ftell): Reset fbuf, correct offset.
 831         (FTELL_SUB): Likewise.
 832
 833 2010-03-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 834
 835         PR libfortran/43265
 836         * io/transfer.c (next_record_r): Only call hit_eof for specific
 837         conditions when an EOF is encountered.
 838
 839 2010-03-29  Tobias Burnus  <burnus@net-b.de>
 840
 841         PR fortran/43551
 842         * io/unix.c (buf_write): Set physical_offset after lseek.
 843
 844 2010-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 845
 846         PR libfortran/43517
 847         * io/read.c (read_x): Return if seen EOR condition.
 848
 849 2010-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 850
 851         PR fortran/43409
 852         * io/io.h: Fix type of size in st_parameter_inquire structure.
 853
 854 2010-03-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 855
 856         PR fortran/43409
 857         * io/unix.h: Add prototype for new function to return file size.
 858         * io/unix.c (file_size): New function.
 859         * io/inquire.c (inquire_via_unit): Use new function.
 860         (inquire_via_filename): Use new function.
 861
 862 2010-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 863
 864         * io/transfer.c (read_sf_internal): Remove stray function declaration
 865         used during debugging.
 866
 867 2010-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 868
 869         PR libfortran/43265
 870         * io/io.h: Delete prototype for read_sf, making it static.
 871         * io/read.c (read_x): Modify to call hit_eof if PAD="no".
 872         * io/transfer.c (read_sf_internal): New static function extracted from
 873         read_sf for use on internal units only. Handle empty string case.
 874         (read_sf): New factoring of this function, make it static.  Add special
 875         conditions for EOF based on ADVANCE="no", PAD="no", and whether any
 876         bytes have been previously read from the record.
 877         (read_block_form): Modify to call read_sf or read_sf_internal.
 878         (next_record_r): Add a done flag similar to next_record_w. Call hit_eof
 879         if internal array unit next record returns finished, meaning an EOF was
 880         found and not done, ie not the last record expected.  For external
 881         units call hit_eof if item_count is 1 or there are no pending spaces.
 882         (next_record): Update call to next_record_r.
 883
 884 2010-03-12  Kai Tietz  <kai.tietz@onevision.com>
 885
 886         PR/42950
 887         * io/format.c (parse_format_list): Add to ERROR, WARNING,
 888         SILENT enumerators NOTIFICATION_ prefix.
 889         * runtime/error.c (notification_std): Likewise.
 890         * libgfortran.h (notification): Likewise.
 891         (GFC_LARGEST_BUF): Check for HAVE_GFC_INTEGER_16.
 892
 893 2010-03-11  Tobias Burnus  <burnus@net-b.de>
 894
 895         PR fortran/43228
 896         * io/list_read.c (nml_parse_qualifier): Disable expanded_read
 897         for array sections.
 898
 899 2010-03-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 900
 901         PR libfortran/43320
 902         * io/transfer.c (next_record_r): Add hit_eof based on item_count
 903         condition.
 904
 905 2010-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 906
 907         PR libfortran/43265
 908         * io/read.c: Include fbuf.h and unix.h to enable lower level I/O for
 909         read_x. (read_x): Replace the use of read_sf with equivalent lower level
 910         I/O, eliminating unneeded code and handling EOF and EOR conditions.
 911         * io/io.h: Revise prototype for read_sf.
 912         * io/transfer.c (read_sf): Delete no_error parameter and all uses of it.
 913         (read_block_form): Likewise.
 914         (next_record_r): Delete wrong code call to hit_eof.
 915
 916 2010-03-08  Kai TIetz  <kai.tietz@onevision.com>
 917
 918         PR/42950
 919         * libgfortran.h (_POSIX): Define if __MINGW32__ is defined.
 920         (gfc_printf): Define to gnu_printf for __MINGW32__ case,
 921         otherwise to __printf__.
 922         (gfc_strtof,gfc_strtod,gfc_strtold): Define for mingw case
 923         to POSIX compatible converter functions.
 924         (runtime_error): Use instead gfc_printf as formatter
 925         attribute name.
 926         (runtime_error_at): Likewise.
 927         (runtime_warning_at): Likewise.
 928         (st_printf): Likewise.
 929         * intrinsics/date_and_time.c (localtime_r): Undefine
 930         possible defined macro.
 931         (gmtime_r): Likewise.
 932         * io/read.c (convert_real): Use gfc_strtof, gfc_strtod,
 933         and gfc_strtold.
 934
 935 2010-02-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 936
 937         PR libfortran/43155
 938         * io/transfer.c (require_type): Subtract one from item_count for output
 939         of error message.  Add comment before formatted_transfer function
 940         explaining why the item_count is off by one.
 941
 942 2010-02-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 943
 944         * io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
 945
 946 2010-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 947
 948         * io/list_read.c (list_formatted_read_scalar): Remove duplicate code.
 949
 950 2010-02-09  Tobias Burnus  <burnus@net-b.de>
 951
 952         PR fortran/42996
 953         * intrinsics/args.c (get_command_argument_i4): Always return
 954         commandline-argument length for length parameter.
 955
 956 2010-02-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 957
 958         PR libfortran/42742
 959         * io/format.c (reset_fnode_counters): Use the correct pointer to the
 960         head of the fnode list. (parse_format): Remove previous hack that set
 961         limit on size of format string for caching.
 962
 963 2010-02-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 964
 965         PR libfortran
 966         * io/transfer.c (read_sf): Handle EOR and EOF conditions for
 967         ADVANCE="no" with PAD="yes" or PAD="no".
 968
 969 2010-02-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 970
 971         PR libfortran/42901
 972         * io/list_read.c (nml_get_obj_data): Add new qualifier flag, clean up
 973         code, and adjust logic to set namelist info pointer correctly for array
 974         qualifiers of derived type components.
 975
 976 2010-01-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 977
 978         PR libfortran/42742
 979         * io/format.c (parse_format): Set limit on size of format strings that
 980         will be cached.
 981
 982 2010-01-05  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 983
 984         * configure: Regenerate.
 985
 986 2010-01-03  Janne Blomqvist  <jb@gcc.gnu.org>
 987
 988         PR libfortran/42420
 989         * io/unix.c: Defines for MINGW stat and fstat.
 990         (gfstat_t): New typedef.
 991         (id_from_fd): Use gfstat_t instead of struct stat.
 992         (fd_to_stream): Likewise.
 993         (compare_file_filename): Likewise.
 994         (find_file): Likewise.
 995         (file_exists): Likewise.
 996         (inquire_sequential): Likewise.
 997         (inquire_direct): Likewise.
 998         (inquire_formatted): Likewise.
 999
1000 \f
1001 Copyright (C) 2010 Free Software Foundation, Inc.
1002
1003 Copying and distribution of this file, with or without modification,
1004 are permitted in any medium without royalty provided the copyright
1005 notice and this notice are preserved.