libgfortran/ChangeLog

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