libgfortran/ChangeLog

   1 2009-11-28  Jakub Jelinek  <jakub@redhat.com>
   2
   3         * intrinsics/pack_generic.c (pack_internal): Remove unused
   4         zero_sized variable.
   5         * intrinsics/unpack_generic.c (unpack0): Remove unused size
   6         variable.
   7         * io/write.c (namelist_write_newline): Remove unused length
   8         variable.
   9         * io/unix.c (find_file): Remove unused id variable.
  10         * m4/ifunction.m4 (SCALAR_ARRAY_FUNCTION): Remove unused sstride
  11         variable.
  12         * generated/maxloc1_16_i1.c: Regenerated.
  13         * generated/maxloc1_16_i16.c: Regenerated.
  14         * generated/maxloc1_16_i2.c: Regenerated.
  15         * generated/maxloc1_16_i4.c: Regenerated.
  16         * generated/maxloc1_16_i8.c: Regenerated.
  17         * generated/maxloc1_16_r10.c: Regenerated.
  18         * generated/maxloc1_16_r16.c: Regenerated.
  19         * generated/maxloc1_16_r4.c: Regenerated.
  20         * generated/maxloc1_16_r8.c: Regenerated.
  21         * generated/maxloc1_4_i1.c: Regenerated.
  22         * generated/maxloc1_4_i16.c: Regenerated.
  23         * generated/maxloc1_4_i2.c: Regenerated.
  24         * generated/maxloc1_4_i4.c: Regenerated.
  25         * generated/maxloc1_4_i8.c: Regenerated.
  26         * generated/maxloc1_4_r10.c: Regenerated.
  27         * generated/maxloc1_4_r16.c: Regenerated.
  28         * generated/maxloc1_4_r4.c: Regenerated.
  29         * generated/maxloc1_4_r8.c: Regenerated.
  30         * generated/maxloc1_8_i1.c: Regenerated.
  31         * generated/maxloc1_8_i16.c: Regenerated.
  32         * generated/maxloc1_8_i2.c: Regenerated.
  33         * generated/maxloc1_8_i4.c: Regenerated.
  34         * generated/maxloc1_8_i8.c: Regenerated.
  35         * generated/maxloc1_8_r10.c: Regenerated.
  36         * generated/maxloc1_8_r16.c: Regenerated.
  37         * generated/maxloc1_8_r4.c: Regenerated.
  38         * generated/maxloc1_8_r8.c: Regenerated.
  39         * generated/maxval_i1.c: Regenerated.
  40         * generated/maxval_i16.c: Regenerated.
  41         * generated/maxval_i2.c: Regenerated.
  42         * generated/maxval_i4.c: Regenerated.
  43         * generated/maxval_i8.c: Regenerated.
  44         * generated/maxval_r10.c: Regenerated.
  45         * generated/maxval_r16.c: Regenerated.
  46         * generated/maxval_r4.c: Regenerated.
  47         * generated/maxval_r8.c: Regenerated.
  48         * generated/minloc1_16_i1.c: Regenerated.
  49         * generated/minloc1_16_i16.c: Regenerated.
  50         * generated/minloc1_16_i2.c: Regenerated.
  51         * generated/minloc1_16_i4.c: Regenerated.
  52         * generated/minloc1_16_i8.c: Regenerated.
  53         * generated/minloc1_16_r10.c: Regenerated.
  54         * generated/minloc1_16_r16.c: Regenerated.
  55         * generated/minloc1_16_r4.c: Regenerated.
  56         * generated/minloc1_16_r8.c: Regenerated.
  57         * generated/minloc1_4_i1.c: Regenerated.
  58         * generated/minloc1_4_i16.c: Regenerated.
  59         * generated/minloc1_4_i2.c: Regenerated.
  60         * generated/minloc1_4_i4.c: Regenerated.
  61         * generated/minloc1_4_i8.c: Regenerated.
  62         * generated/minloc1_4_r10.c: Regenerated.
  63         * generated/minloc1_4_r16.c: Regenerated.
  64         * generated/minloc1_4_r4.c: Regenerated.
  65         * generated/minloc1_4_r8.c: Regenerated.
  66         * generated/minloc1_8_i1.c: Regenerated.
  67         * generated/minloc1_8_i16.c: Regenerated.
  68         * generated/minloc1_8_i2.c: Regenerated.
  69         * generated/minloc1_8_i4.c: Regenerated.
  70         * generated/minloc1_8_i8.c: Regenerated.
  71         * generated/minloc1_8_r10.c: Regenerated.
  72         * generated/minloc1_8_r16.c: Regenerated.
  73         * generated/minloc1_8_r4.c: Regenerated.
  74         * generated/minloc1_8_r8.c: Regenerated.
  75         * generated/minval_i1.c: Regenerated.
  76         * generated/minval_i16.c: Regenerated.
  77         * generated/minval_i2.c: Regenerated.
  78         * generated/minval_i4.c: Regenerated.
  79         * generated/minval_i8.c: Regenerated.
  80         * generated/minval_r10.c: Regenerated.
  81         * generated/minval_r16.c: Regenerated.
  82         * generated/minval_r4.c: Regenerated.
  83         * generated/minval_r8.c: Regenerated.
  84         * generated/product_c10.c: Regenerated.
  85         * generated/product_c16.c: Regenerated.
  86         * generated/product_c4.c: Regenerated.
  87         * generated/product_c8.c: Regenerated.
  88         * generated/product_i1.c: Regenerated.
  89         * generated/product_i16.c: Regenerated.
  90         * generated/product_i2.c: Regenerated.
  91         * generated/product_i4.c: Regenerated.
  92         * generated/product_i8.c: Regenerated.
  93         * generated/product_r10.c: Regenerated.
  94         * generated/product_r16.c: Regenerated.
  95         * generated/product_r4.c: Regenerated.
  96         * generated/product_r8.c: Regenerated.
  97         * generated/sum_c10.c: Regenerated.
  98         * generated/sum_c16.c: Regenerated.
  99         * generated/sum_c4.c: Regenerated.
 100         * generated/sum_c8.c: Regenerated.
 101         * generated/sum_i1.c: Regenerated.
 102         * generated/sum_i16.c: Regenerated.
 103         * generated/sum_i2.c: Regenerated.
 104         * generated/sum_i4.c: Regenerated.
 105         * generated/sum_i8.c: Regenerated.
 106         * generated/sum_r10.c: Regenerated.
 107         * generated/sum_r16.c: Regenerated.
 108         * generated/sum_r4.c: Regenerated.
 109         * generated/sum_r8.c: Regenerated.
 110
 111 2009-11-19  Janne Blomqvist  <jb@gcc.gnu.org>
 112
 113         * io/fbuf.h: Move includes after include guard.
 114         * io/format.h: Likewise.
 115         * io/unix.h: Likewise.
 116
 117 2009-11-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 118
 119         PR libgfortran/42090
 120         * io/transfer.c (skip_record): Set bytes_left_subrecord to zero after
 121         skipping the remaining bytes in the record.
 122         (next_record_r): Call skip_record with the number of bytes_left to be
 123         skipped.
 124
 125 2009-11-02  Janne Blomqvist  <jb@gcc.gnu.org>
 126
 127         * Makefile.am (gfor_io_headers): Add fbuf.h, format.h, unix.h.
 128         * Makefile.in: Regenerated.
 129         * io/fbuf.h: New file.
 130         * io/format.h: New file.
 131         * io/unix.h: New file.
 132         * io/io.h (struct stream): Move to unix.h, add forward declaration.
 133         (sread): Likewise.
 134         (swrite): Likewise.
 135         (sseek): Likewise.
 136         (stell): Likewise.
 137         (struncate): Likewise.
 138         (sflush): Likewise.
 139         (sflush): Likewise.
 140         (sclose): Likewise.
 141         (compared_files): Move prototype to unix.h.
 142         (open_external): Likewise.
 143         (open_internal): Likewise.
 144         (mem_alloc_w): Likewise.
 145         (mem_alloc_r): Likewise.
 146         (input_stream): Likewise.
 147         (output_stream): Likewise.
 148         (error_stream): Likewise.
 149         (compare_file_filename): Likewise.
 150         (find_file): Likewise.
 151         (delete_file): Likewise.
 152         (file_exists): Likewise.
 153         (inquire_sequential): Likewise.
 154         (inquire_direct): Likewise.
 155         (inquire_formatted): Likewise.
 156         (inquire_unformatted): Likewise.
 157         (inquire_read): Likewise.
 158         (inquire_write): Likewise.
 159         (inquire_readwrite): Likewise.
 160         (file_length): Likewise.
 161         (is_seekable): Likewise.
 162         (is_special): Likewise.
 163         (flush_if_preconnected): Likewise.
 164         (empty_internal_buffer): Likewise.
 165         (stream_isatty): Likewise.
 166         (stream_ttyname): Likewise.
 167         (unpack_filename): Likewise.
 168         (struct fbuf): Move to fbuf.h, add forward declaration.
 169         (fbuf_init): Move prototype to fbuf.h.
 170         (fbuf_destroy): Likewise.
 171         (fbuf_reset): Likewise.
 172         (fbuf_alloc): Likewise.
 173         (fbuf_flush): Likewise.
 174         (fbuf_seek): Likewise.
 175         (fbuf_read): Likewise.
 176         (fbuf_getc_refill): Likewise.
 177         (fbuf_getc): Move inline function to fbuf.h.
 178         (enum format_token): Move to format.h.
 179         (struct fnode): Move to format.h, add forward declaration.
 180         (parse_format): Move prototype to format.h.
 181         (next_format): Likewise.
 182         (unget_format): Likewise.
 183         (format_error): Likewise.
 184         (free_format_data): Likewise.
 185         (free_format_hash_table): Likewise.
 186         (init_format_hash): Likewise.
 187         (free_format_hash): Likewise.
 188         * io/close.c: Include unix.h.
 189         * io/fbuf.c: Include fbuf.h and unix.h.
 190         * io/file_pos.c: Include fbuf.h and unix.h.
 191         * io/format.c: Include format.h.
 192         * io/inquire.c: Include unix.h.
 193         * io/intrinsics.c: Include fbuf.h and unix.h.
 194         * io/list_read.c: Include fbuf.h and unix.h.
 195         * io/open.c: Include fbuf.h and unix.h.
 196         * io/read.c: Include format.h.
 197         * io/transfer.c: Include fbuf.h, format.h, and unix.h.
 198         * io/unit.c: Likewise.
 199         * io/unix.c: Include unix.h.
 200         * io/write.c: Include format.h and unix.h.
 201
 202 2009-10-31  Janne Blomqvist  <jb@gcc.gnu.org>
 203
 204         PR libfortran/41219
 205         * intrinsics/unpack_generic.c (unpack_internal): Remove unused
 206         argument from prototype.
 207         (unpack1): Update unpack_internal call.
 208         (unpack1_char): Likewise.
 209         (unpack1_char4): Likewise.
 210         (unpack0): Likewise.
 211         (unpack0_char): Likewise.
 212         (unpack0_char4): Likewise.
 213         * intrinsics/iso_c_binding.c (c_f_pointer_u0): Get rid of
 214         uninitialized variable warning.
 215
 216 2009-10-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 217
 218         PR libgfortran/41711
 219         * libgfortran.h: Define larger sizes for BOZ conversion buffers.
 220         * io/write.c (extract_uint): Include case where size is 10 if integer
 221         is large enough. (write_int): Rename to write_boz. (write_boz): Factor
 222         out extract_uint and delete the conversion function.
 223         (btoa_big): New binary conversion function.
 224         (otoa_big): New octal conversion function.
 225         (ztoa_big): New hexidecimal conversion function.
 226         (write_b): Modify to use new function.
 227         (write_o): Likewise.
 228         (write_z): Likewise.
 229
 230 2009-10-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 231
 232         PR libgfortran/41683
 233         * io/format.c (parse_format_list): Allow a repeat specifier immediately
 234         after a P specifier.
 235
 236 2009-10-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 237
 238         PR libgfortran/38439
 239         * io/format.c (parse_format_list): Correct logic for FMT_F reading vs
 240         writing. Code clean-up.
 241
 242 2009-10-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 243
 244         PR libgfortran/38439
 245         * io/format.c (parse_format_list): Add check for tokens not allowed
 246         after P specifier. Fix comments.  Remove un-needed code. Fix the
 247         default exponent list. Correct pointer assignment error.
 248
 249 2009-10-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 250
 251         PR libgfortran/35862
 252         * write_float.def (outout_float): Fix handling of special case where no
 253         digits after the decimal point and values less than 1.0. Adjust index
 254         into digits string. (WRITE_FLOAT): Remove special case code from macro.
 255
 256 2009-09-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 257
 258         PR libgfortran/35862
 259         * io.h (gfc_unit): Add round_status.
 260         (format_token): Add enumerators for rounding format specifiers.
 261         * transfer.c (round_opt): New options table.
 262         (formatted_transfer_scalar_read): Add set round_status for each rounding
 263         format token. (formatted_transfer_scalar_write): Likewise.
 264         * format.c (format_lex): Tokenize the rounding format specifiers.
 265         (parse_format_list): Parse the rounding format specifiers.
 266         * write_float.def (outout_float): Modify rounding code to use new
 267         variable rchar to set the appropriate rounding. Fix some whitespace.
 268         * unit.c (get_internal_unit): Initialize rounding mode for internal
 269         units. (init_units): Likewise.
 270
 271 2009-09-19  Iain Sandoe  <iain.sandoe@sandoe-acoustics.co.uk>
 272
 273         * configure.ac: Check for GFORTRAN_C99_1.1 funcs in OS libm.
 274         * configure: Regenerate.
 275         * config.h.in: Ditto.
 276
 277 2009-09-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 278
 279         PR libgfortran/41328
 280         * io/transfer.c (read_sf): Set at_eof flag on short read if any
 281         characters were successfully read so that EOF condition with no EOR
 282         marker succeeds.
 283
 284 2009-09-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 285
 286         PR libgfortran/41328
 287         * io/transfer.c (read_sf): Adjust fbuf position and do proper
 288         fbuf reads to traverse CR, CR-LF, and LF style line ends.
 289
 290 2009-09-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 291
 292         PR libgfortran/41219
 293         * io/write.c (write_a_char4): Use correct type for crlf constant.
 294
 295 2009-09-11  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 296
 297         * Makefile.am (libgfortranbegin_la_LINK): New.
 298         * Makefile.in: Regenerate.
 299
 300 2009-09-09  Paolo Bonzini  <bonzini@gnu.org>
 301
 302         * configure: Regenerate.
 303
 304 2009-09-08  Paolo Bonzini  <bonzini@gnu.org>
 305
 306         * configure: Regenerate.
 307
 308 2009-09-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 309
 310         PR libgfortran/41192
 311         * io/list_read.c (eat_line): Enable eat_line to function on
 312         internal units.
 313
 314         PR libgfortran/41219
 315         * io/list_read.c (nml_read_obj): Replace GFC_DTYPE_UNKNOWN with
 316         BT_NULL to get rid of warning.
 317
 318 2009-09-04  Tobias Burnus  <burnus@net-b.de>
 319
 320         PR fortran/41219
 321         * intrinsics/getlog.c: Define _POSIX for MINGW32.
 322
 323 2009-09-03  Tobias Burnus  <burnus@net-b.de>
 324
 325         PR fortran/41219
 326         * intrinsics/iso_c_binding.c (c_f_pointer_u0): Move variable
 327         declaration out of the loop.
 328
 329 2009-08-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
 330
 331         * m4/pack.m4 (pack_'rtype_code`): Use count_0 for counting true
 332         values in a logical array.  Mark bounds checking tests as
 333         unlikely.
 334         * intrinsics/pack_generic.c (pack_internal): Likewise.
 335         * runtime/bounds.c (count_0):  Fix off-by-one error in detecting
 336         empty arrays.
 337         * generated/pack_c4.c: Regenerated.
 338         * generated/pack_c8.c: Regenerated.
 339         * generated/pack_c10.c: Regenerated.
 340         * generated/pack_c16.c: Regenerated.
 341         * generated/pack_i1.c: Regenerated.
 342         * generated/pack_i16.c: Regenerated.
 343         * generated/pack_i2.c: Regenerated.
 344         * generated/pack_i4.c: Regenerated.
 345         * generated/pack_i8.c: Regenerated.
 346         * generated/pack_r4.c: Regenerated.
 347         * generated/pack_r8.c: Regenerated.
 348         * generated/pack_r10.c: Regenerated.
 349         * generated/pack_r16.c: Regenerated.
 350
 351 2009-08-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
 352
 353         PR libfortran/34670
 354         * runtime/bounds.c (count_0):  New function.
 355         * intrinsics/unpack_generic (unpack_bounds):  New function.
 356         (unpack_internal):  Remove zero stride checks.
 357         (unpack1):  Use unpack_bounds.
 358         (unpack1_char):  Likeweise.
 359         (unpack1_char4):  Likewise
 360         (unpack0):  Likewise.
 361         (unpack0_char):  Likewise.
 362         (unpack0_char4):  Likewise.
 363
 364 2009-08-24  Steven G. Kargl  <kargl@gcc.gnu.org>
 365
 366         PR fortran/41157
 367         * dtime.c (dtime_sub): Fix computing time increment.
 368         * time_1.h: Add <sys/types.h> header.  Use RUSAGE_SELF macro instead
 369         of a hardcoded 0.
 370
 371 2009-08-24  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 372
 373         * configure.ac (AC_PREREQ): Bump to 2.64.
 374
 375 2009-08-23  Steven G. Kargl  <kargl@gcc.gnu.org>
 376
 377         * intrinsics/cshift0.c: Update license to GPL3+exception.
 378         * runtime/fpu.c: Add a GPL3+exception statement.
 379
 380 2009-08-22  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 381
 382         * Makefile.am (install-html, install-pdf): Remove.
 383         * Makefile.in: Regenerate.
 384
 385         * Makefile.in: Regenerate.
 386         * aclocal.m4: Regenerate.
 387         * config.h.in: Regenerate.
 388         * configure: Regenerate.
 389
 390 2009-08-22  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 391
 392         * Makefile.am (libgfortran_la_LINK): Add $(libgfortran_la_LDFLAGS).
 393         * Makefile.in: Regenerate.
 394
 395 2009-08-20  Thomas Koenig  <tkoenig@gcc.gnu.org>
 396
 397         PR libfortran/40962
 398         * iso_c_binding.c (c_f_pointer_u0):  Multiply stride by
 399         previous stride.
 400
 401 2009-08-20  Dave Korn  <dave.korn.cygwin@gmail.com>
 402
 403         * Makefile.am (LTLDFLAGS): Add -bindir flag.
 404         * Makefile.in: Regenerate.
 405
 406 2009-08-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 407
 408         PR fortran/41075
 409         * io/io.h (enum format_token): Add FMT_STAR.
 410         * io/format.c (format_lex): Add case for FMT_STAR.
 411         (parse_format_list): Parse FMT_STAR and check for left paren
 412         after. (next_format0): Modify helper function to check for
 413         unimited format and return the repeated format node.  Update
 414         comments to clarify.
 415
 416 2009-08-15  Kai Tietz  <kai.tietz@onevision.com>
 417
 418         * intrinsics/string_intrinsics_inc.c (string_len_trim): Use
 419         __INTPTR_TYPE__ to cast from pointer to scalar integer, if
 420         __INTPTR_TYPE is defined.
 421
 422 2009-08-14  Janne Blomqvist  <jb@gcc.gnu.org>
 423
 424         * fmain.c: Add comment saying file is deprecated.
 425
 426 2009-08-14  Janne Blomqvist  <jb@gcc.gnu.org>
 427
 428         PR libfortran/40863
 429         * gfortran.map: Move new symbols to GFORTRAN_C99_1.1 version node.
 430
 431 2009-08-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
 432
 433         PR libfortran/40549
 434         * Makefile.in (LTLDFLAGS): Add -no-undefined.
 435         * Makefile.am: Regenerate.
 436         * libgfortran.h: Remove unused block of code.
 437
 438 2009-08-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 439
 440         PR libfortran/40853
 441         * io/list_read.c (nml_get_obj_data): Do not set nl
 442         pointer to first_nl if nl->next is NULL.
 443
 444 2009-07-31  Kaz Kojima  <kkojima@gcc.gnu.org>
 445
 446         * Makefile.am: Don't set SECTION_FLAGS with @SECTION_FLAGS@.
 447         Don't set IEEE_FLAGS with @IEEE_FLAGS@.
 448         * Makefile.in: Regenerate.
 449
 450 2009-07-30  Kaz Kojima  <kkojima@gcc.gnu.org>
 451
 452         * configure.host: Define ieee_flags and set it to -mieee for sh.
 453         * configure.ac: Set IEEE_FLAGS with ieee_flags.
 454         * Makefile.am: Add IEEE_FLAGS to AM_CFLAGS.
 455         * configure: Regenerate.
 456         * Makefile.in: Regenerate.
 457
 458 2009-07-30  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 459
 460         * configure.ac (_AC_ARG_VAR_PRECIOUS): Use m4_rename_force.
 461
 462 2009-07-27  Tobias Burnus  <burnus@net-b.de>
 463
 464         PR fortran/40863
 465         * c99_functions.c: Define complex I, if not defined.
 466         Create prototypes for C99 functions to silence warnings.
 467         * gfortran.map: Add missing functions to GFORTRAN_C99_1.0
 468         and new GFORTRAN_C99_1.1.
 469
 470 2009-07-25  Tobias Burnus  <burnus@net-b.de>
 471
 472         PR fortran/33197
 473         * intrinsics/c99_functions.c (cacosf,cacos,cacosl,casinf,
 474         casin,casind,catanf,catan,catanl,cacoshf,cacosh,cacoshl,
 475         casinhf,casinh,casinhf,catanhf,catanh,catanhl): New functions.
 476         * c99_protos.h: Add prototypes for those.
 477
 478 2009-07-24  Jakub Jelinek  <jakub@redhat.com>
 479
 480         PR fortran/40643
 481         PR fortran/31067
 482         * libgfortran.h (GFC_REAL_4_INFINITY, GFC_REAL_8_INFINITY,
 483         GFC_REAL_10_INFINITY, GFC_REAL_16_INFINITY, GFC_REAL_4_QUIET_NAN,
 484         GFC_REAL_8_QUIET_NAN, GFC_REAL_10_QUIET_NAN, GFC_REAL_16_QUIET_NAN):
 485         Define.
 486         * m4/iparm.m4 (atype_inf, atype_nan): Define.
 487         * m4/ifunction.m4: Formatting.
 488         * m4/iforeach.m4: Likewise.
 489         (START_FOREACH_FUNCTION): Initialize dest to all 1s, not all 0s.
 490         (START_FOREACH_BLOCK, FINISH_FOREACH_FUNCTION,
 491         FINISH_MASKED_FOREACH_FUNCTION): Run foreach block inside a loop
 492         until count[0] == extent[0].
 493         * m4/minval.m4: Formatting.  Handle NaNs and infinities.  Optimize.
 494         * m4/maxval.m4: Likewise.
 495         * m4/minloc0.m4: Likewise.
 496         * m4/maxloc0.m4: Likewise.
 497         * m4/minloc1.m4: Likewise.
 498         * m4/maxloc1.m4: Likewise.
 499         * generated/maxloc0_16_i16.c: Regenerated.
 500         * generated/maxloc0_16_i1.c: Likewise.
 501         * generated/maxloc0_16_i2.c: Likewise.
 502         * generated/maxloc0_16_i4.c: Likewise.
 503         * generated/maxloc0_16_i8.c: Likewise.
 504         * generated/maxloc0_16_r10.c: Likewise.
 505         * generated/maxloc0_16_r16.c: Likewise.
 506         * generated/maxloc0_16_r4.c: Likewise.
 507         * generated/maxloc0_16_r8.c: Likewise.
 508         * generated/maxloc0_4_i16.c: Likewise.
 509         * generated/maxloc0_4_i1.c: Likewise.
 510         * generated/maxloc0_4_i2.c: Likewise.
 511         * generated/maxloc0_4_i4.c: Likewise.
 512         * generated/maxloc0_4_i8.c: Likewise.
 513         * generated/maxloc0_4_r10.c: Likewise.
 514         * generated/maxloc0_4_r16.c: Likewise.
 515         * generated/maxloc0_4_r4.c: Likewise.
 516         * generated/maxloc0_4_r8.c: Likewise.
 517         * generated/maxloc0_8_i16.c: Likewise.
 518         * generated/maxloc0_8_i1.c: Likewise.
 519         * generated/maxloc0_8_i2.c: Likewise.
 520         * generated/maxloc0_8_i4.c: Likewise.
 521         * generated/maxloc0_8_i8.c: Likewise.
 522         * generated/maxloc0_8_r10.c: Likewise.
 523         * generated/maxloc0_8_r16.c: Likewise.
 524         * generated/maxloc0_8_r4.c: Likewise.
 525         * generated/maxloc0_8_r8.c: Likewise.
 526         * generated/maxloc1_16_i16.c: Likewise.
 527         * generated/maxloc1_16_i1.c: Likewise.
 528         * generated/maxloc1_16_i2.c: Likewise.
 529         * generated/maxloc1_16_i4.c: Likewise.
 530         * generated/maxloc1_16_i8.c: Likewise.
 531         * generated/maxloc1_16_r10.c: Likewise.
 532         * generated/maxloc1_16_r16.c: Likewise.
 533         * generated/maxloc1_16_r4.c: Likewise.
 534         * generated/maxloc1_16_r8.c: Likewise.
 535         * generated/maxloc1_4_i16.c: Likewise.
 536         * generated/maxloc1_4_i1.c: Likewise.
 537         * generated/maxloc1_4_i2.c: Likewise.
 538         * generated/maxloc1_4_i4.c: Likewise.
 539         * generated/maxloc1_4_i8.c: Likewise.
 540         * generated/maxloc1_4_r10.c: Likewise.
 541         * generated/maxloc1_4_r16.c: Likewise.
 542         * generated/maxloc1_4_r4.c: Likewise.
 543         * generated/maxloc1_4_r8.c: Likewise.
 544         * generated/maxloc1_8_i16.c: Likewise.
 545         * generated/maxloc1_8_i1.c: Likewise.
 546         * generated/maxloc1_8_i2.c: Likewise.
 547         * generated/maxloc1_8_i4.c: Likewise.
 548         * generated/maxloc1_8_i8.c: Likewise.
 549         * generated/maxloc1_8_r10.c: Likewise.
 550         * generated/maxloc1_8_r16.c: Likewise.
 551         * generated/maxloc1_8_r4.c: Likewise.
 552         * generated/maxloc1_8_r8.c: Likewise.
 553         * generated/maxval_i16.c: Likewise.
 554         * generated/maxval_i1.c: Likewise.
 555         * generated/maxval_i2.c: Likewise.
 556         * generated/maxval_i4.c: Likewise.
 557         * generated/maxval_i8.c: Likewise.
 558         * generated/maxval_r10.c: Likewise.
 559         * generated/maxval_r16.c: Likewise.
 560         * generated/maxval_r4.c: Likewise.
 561         * generated/maxval_r8.c: Likewise.
 562         * generated/minloc0_16_i16.c: Likewise.
 563         * generated/minloc0_16_i1.c: Likewise.
 564         * generated/minloc0_16_i2.c: Likewise.
 565         * generated/minloc0_16_i4.c: Likewise.
 566         * generated/minloc0_16_i8.c: Likewise.
 567         * generated/minloc0_16_r10.c: Likewise.
 568         * generated/minloc0_16_r16.c: Likewise.
 569         * generated/minloc0_16_r4.c: Likewise.
 570         * generated/minloc0_16_r8.c: Likewise.
 571         * generated/minloc0_4_i16.c: Likewise.
 572         * generated/minloc0_4_i1.c: Likewise.
 573         * generated/minloc0_4_i2.c: Likewise.
 574         * generated/minloc0_4_i4.c: Likewise.
 575         * generated/minloc0_4_i8.c: Likewise.
 576         * generated/minloc0_4_r10.c: Likewise.
 577         * generated/minloc0_4_r16.c: Likewise.
 578         * generated/minloc0_4_r4.c: Likewise.
 579         * generated/minloc0_4_r8.c: Likewise.
 580         * generated/minloc0_8_i16.c: Likewise.
 581         * generated/minloc0_8_i1.c: Likewise.
 582         * generated/minloc0_8_i2.c: Likewise.
 583         * generated/minloc0_8_i4.c: Likewise.
 584         * generated/minloc0_8_i8.c: Likewise.
 585         * generated/minloc0_8_r10.c: Likewise.
 586         * generated/minloc0_8_r16.c: Likewise.
 587         * generated/minloc0_8_r4.c: Likewise.
 588         * generated/minloc0_8_r8.c: Likewise.
 589         * generated/minloc1_16_i16.c: Likewise.
 590         * generated/minloc1_16_i1.c: Likewise.
 591         * generated/minloc1_16_i2.c: Likewise.
 592         * generated/minloc1_16_i4.c: Likewise.
 593         * generated/minloc1_16_i8.c: Likewise.
 594         * generated/minloc1_16_r10.c: Likewise.
 595         * generated/minloc1_16_r16.c: Likewise.
 596         * generated/minloc1_16_r4.c: Likewise.
 597         * generated/minloc1_16_r8.c: Likewise.
 598         * generated/minloc1_4_i16.c: Likewise.
 599         * generated/minloc1_4_i1.c: Likewise.
 600         * generated/minloc1_4_i2.c: Likewise.
 601         * generated/minloc1_4_i4.c: Likewise.
 602         * generated/minloc1_4_i8.c: Likewise.
 603         * generated/minloc1_4_r10.c: Likewise.
 604         * generated/minloc1_4_r16.c: Likewise.
 605         * generated/minloc1_4_r4.c: Likewise.
 606         * generated/minloc1_4_r8.c: Likewise.
 607         * generated/minloc1_8_i16.c: Likewise.
 608         * generated/minloc1_8_i1.c: Likewise.
 609         * generated/minloc1_8_i2.c: Likewise.
 610         * generated/minloc1_8_i4.c: Likewise.
 611         * generated/minloc1_8_i8.c: Likewise.
 612         * generated/minloc1_8_r10.c: Likewise.
 613         * generated/minloc1_8_r16.c: Likewise.
 614         * generated/minloc1_8_r4.c: Likewise.
 615         * generated/minloc1_8_r8.c: Likewise.
 616         * generated/minval_i16.c: Likewise.
 617         * generated/minval_i1.c: Likewise.
 618         * generated/minval_i2.c: Likewise.
 619         * generated/minval_i4.c: Likewise.
 620         * generated/minval_i8.c: Likewise.
 621         * generated/minval_r10.c: Likewise.
 622         * generated/minval_r16.c: Likewise.
 623         * generated/minval_r4.c: Likewise.
 624         * generated/minval_r8.c: Likewise.
 625         * generated/product_c10.c: Likewise.
 626         * generated/product_c16.c: Likewise.
 627         * generated/product_c4.c: Likewise.
 628         * generated/product_c8.c: Likewise.
 629         * generated/product_i16.c: Likewise.
 630         * generated/product_i1.c: Likewise.
 631         * generated/product_i2.c: Likewise.
 632         * generated/product_i4.c: Likewise.
 633         * generated/product_i8.c: Likewise.
 634         * generated/product_r10.c: Likewise.
 635         * generated/product_r16.c: Likewise.
 636         * generated/product_r4.c: Likewise.
 637         * generated/product_r8.c: Likewise.
 638         * generated/sum_c10.c: Likewise.
 639         * generated/sum_c16.c: Likewise.
 640         * generated/sum_c4.c: Likewise.
 641         * generated/sum_c8.c: Likewise.
 642         * generated/sum_i16.c: Likewise.
 643         * generated/sum_i1.c: Likewise.
 644         * generated/sum_i2.c: Likewise.
 645         * generated/sum_i4.c: Likewise.
 646         * generated/sum_i8.c: Likewise.
 647         * generated/sum_r10.c: Likewise.
 648         * generated/sum_r16.c: Likewise.
 649         * generated/sum_r4.c: Likewise.
 650         * generated/sum_r8.c: Likewise.
 651
 652 2009-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 653
 654         PR libfortran/32784
 655         * unix.c (regular_file): Check for CONIN$ CONOUT$, and CONERR$ and open
 656         the respective /dev/conin or /dev/conout devices.  This is Cygwin
 657         specific.
 658
 659 2009-07-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 660
 661         PR libfortran/34670
 662         PR libfortran/36874
 663         * Makefile.am:  Add bounds.c
 664         * libgfortran.h (bounds_equal_extents):  Add prototype.
 665         (bounds_iforeach_return):  Likewise.
 666         (bounds_ifunction_return):  Likewise.
 667         (bounds_reduced_extents):  Likewise.
 668         * runtime/bounds.c:  New file.
 669         (bounds_iforeach_return):  New function; correct typo in
 670         error message.
 671         (bounds_ifunction_return):  New function.
 672         (bounds_equal_extents):  New function.
 673         (bounds_reduced_extents):  Likewise.
 674         * intrinsics/cshift0.c (cshift0):  Use new functions
 675         for bounds checking.
 676         * intrinsics/eoshift0.c (eoshift0):  Likewise.
 677         * intrinsics/eoshift2.c (eoshift2):  Likewise.
 678         * m4/iforeach.m4:  Likewise.
 679         * m4/eoshift1.m4:  Likewise.
 680         * m4/eoshift3.m4:  Likewise.
 681         * m4/cshift1.m4:  Likewise.
 682         * m4/ifunction.m4:  Likewise.
 683         * Makefile.in:  Regenerated.
 684         * generated/cshift1_16.c: Regenerated.
 685         * generated/cshift1_4.c: Regenerated.
 686         * generated/cshift1_8.c: Regenerated.
 687         * generated/eoshift1_16.c: Regenerated.
 688         * generated/eoshift1_4.c: Regenerated.
 689         * generated/eoshift1_8.c: Regenerated.
 690         * generated/eoshift3_16.c: Regenerated.
 691         * generated/eoshift3_4.c: Regenerated.
 692         * generated/eoshift3_8.c: Regenerated.
 693         * generated/maxloc0_16_i1.c: Regenerated.
 694         * generated/maxloc0_16_i16.c: Regenerated.
 695         * generated/maxloc0_16_i2.c: Regenerated.
 696         * generated/maxloc0_16_i4.c: Regenerated.
 697         * generated/maxloc0_16_i8.c: Regenerated.
 698         * generated/maxloc0_16_r10.c: Regenerated.
 699         * generated/maxloc0_16_r16.c: Regenerated.
 700         * generated/maxloc0_16_r4.c: Regenerated.
 701         * generated/maxloc0_16_r8.c: Regenerated.
 702         * generated/maxloc0_4_i1.c: Regenerated.
 703         * generated/maxloc0_4_i16.c: Regenerated.
 704         * generated/maxloc0_4_i2.c: Regenerated.
 705         * generated/maxloc0_4_i4.c: Regenerated.
 706         * generated/maxloc0_4_i8.c: Regenerated.
 707         * generated/maxloc0_4_r10.c: Regenerated.
 708         * generated/maxloc0_4_r16.c: Regenerated.
 709         * generated/maxloc0_4_r4.c: Regenerated.
 710         * generated/maxloc0_4_r8.c: Regenerated.
 711         * generated/maxloc0_8_i1.c: Regenerated.
 712         * generated/maxloc0_8_i16.c: Regenerated.
 713         * generated/maxloc0_8_i2.c: Regenerated.
 714         * generated/maxloc0_8_i4.c: Regenerated.
 715         * generated/maxloc0_8_i8.c: Regenerated.
 716         * generated/maxloc0_8_r10.c: Regenerated.
 717         * generated/maxloc0_8_r16.c: Regenerated.
 718         * generated/maxloc0_8_r4.c: Regenerated.
 719         * generated/maxloc0_8_r8.c: Regenerated.
 720         * generated/maxloc1_16_i1.c: Regenerated.
 721         * generated/maxloc1_16_i16.c: Regenerated.
 722         * generated/maxloc1_16_i2.c: Regenerated.
 723         * generated/maxloc1_16_i4.c: Regenerated.
 724         * generated/maxloc1_16_i8.c: Regenerated.
 725         * generated/maxloc1_16_r10.c: Regenerated.
 726         * generated/maxloc1_16_r16.c: Regenerated.
 727         * generated/maxloc1_16_r4.c: Regenerated.
 728         * generated/maxloc1_16_r8.c: Regenerated.
 729         * generated/maxloc1_4_i1.c: Regenerated.
 730         * generated/maxloc1_4_i16.c: Regenerated.
 731         * generated/maxloc1_4_i2.c: Regenerated.
 732         * generated/maxloc1_4_i4.c: Regenerated.
 733         * generated/maxloc1_4_i8.c: Regenerated.
 734         * generated/maxloc1_4_r10.c: Regenerated.
 735         * generated/maxloc1_4_r16.c: Regenerated.
 736         * generated/maxloc1_4_r4.c: Regenerated.
 737         * generated/maxloc1_4_r8.c: Regenerated.
 738         * generated/maxloc1_8_i1.c: Regenerated.
 739         * generated/maxloc1_8_i16.c: Regenerated.
 740         * generated/maxloc1_8_i2.c: Regenerated.
 741         * generated/maxloc1_8_i4.c: Regenerated.
 742         * generated/maxloc1_8_i8.c: Regenerated.
 743         * generated/maxloc1_8_r10.c: Regenerated.
 744         * generated/maxloc1_8_r16.c: Regenerated.
 745         * generated/maxloc1_8_r4.c: Regenerated.
 746         * generated/maxloc1_8_r8.c: Regenerated.
 747         * generated/maxval_i1.c: Regenerated.
 748         * generated/maxval_i16.c: Regenerated.
 749         * generated/maxval_i2.c: Regenerated.
 750         * generated/maxval_i4.c: Regenerated.
 751         * generated/maxval_i8.c: Regenerated.
 752         * generated/maxval_r10.c: Regenerated.
 753         * generated/maxval_r16.c: Regenerated.
 754         * generated/maxval_r4.c: Regenerated.
 755         * generated/maxval_r8.c: Regenerated.
 756         * generated/minloc0_16_i1.c: Regenerated.
 757         * generated/minloc0_16_i16.c: Regenerated.
 758         * generated/minloc0_16_i2.c: Regenerated.
 759         * generated/minloc0_16_i4.c: Regenerated.
 760         * generated/minloc0_16_i8.c: Regenerated.
 761         * generated/minloc0_16_r10.c: Regenerated.
 762         * generated/minloc0_16_r16.c: Regenerated.
 763         * generated/minloc0_16_r4.c: Regenerated.
 764         * generated/minloc0_16_r8.c: Regenerated.
 765         * generated/minloc0_4_i1.c: Regenerated.
 766         * generated/minloc0_4_i16.c: Regenerated.
 767         * generated/minloc0_4_i2.c: Regenerated.
 768         * generated/minloc0_4_i4.c: Regenerated.
 769         * generated/minloc0_4_i8.c: Regenerated.
 770         * generated/minloc0_4_r10.c: Regenerated.
 771         * generated/minloc0_4_r16.c: Regenerated.
 772         * generated/minloc0_4_r4.c: Regenerated.
 773         * generated/minloc0_4_r8.c: Regenerated.
 774         * generated/minloc0_8_i1.c: Regenerated.
 775         * generated/minloc0_8_i16.c: Regenerated.
 776         * generated/minloc0_8_i2.c: Regenerated.
 777         * generated/minloc0_8_i4.c: Regenerated.
 778         * generated/minloc0_8_i8.c: Regenerated.
 779         * generated/minloc0_8_r10.c: Regenerated.
 780         * generated/minloc0_8_r16.c: Regenerated.
 781         * generated/minloc0_8_r4.c: Regenerated.
 782         * generated/minloc0_8_r8.c: Regenerated.
 783         * generated/minloc1_16_i1.c: Regenerated.
 784         * generated/minloc1_16_i16.c: Regenerated.
 785         * generated/minloc1_16_i2.c: Regenerated.
 786         * generated/minloc1_16_i4.c: Regenerated.
 787         * generated/minloc1_16_i8.c: Regenerated.
 788         * generated/minloc1_16_r10.c: Regenerated.
 789         * generated/minloc1_16_r16.c: Regenerated.
 790         * generated/minloc1_16_r4.c: Regenerated.
 791         * generated/minloc1_16_r8.c: Regenerated.
 792         * generated/minloc1_4_i1.c: Regenerated.
 793         * generated/minloc1_4_i16.c: Regenerated.
 794         * generated/minloc1_4_i2.c: Regenerated.
 795         * generated/minloc1_4_i4.c: Regenerated.
 796         * generated/minloc1_4_i8.c: Regenerated.
 797         * generated/minloc1_4_r10.c: Regenerated.
 798         * generated/minloc1_4_r16.c: Regenerated.
 799         * generated/minloc1_4_r4.c: Regenerated.
 800         * generated/minloc1_4_r8.c: Regenerated.
 801         * generated/minloc1_8_i1.c: Regenerated.
 802         * generated/minloc1_8_i16.c: Regenerated.
 803         * generated/minloc1_8_i2.c: Regenerated.
 804         * generated/minloc1_8_i4.c: Regenerated.
 805         * generated/minloc1_8_i8.c: Regenerated.
 806         * generated/minloc1_8_r10.c: Regenerated.
 807         * generated/minloc1_8_r16.c: Regenerated.
 808         * generated/minloc1_8_r4.c: Regenerated.
 809         * generated/minloc1_8_r8.c: Regenerated.
 810         * generated/minval_i1.c: Regenerated.
 811         * generated/minval_i16.c: Regenerated.
 812         * generated/minval_i2.c: Regenerated.
 813         * generated/minval_i4.c: Regenerated.
 814         * generated/minval_i8.c: Regenerated.
 815         * generated/minval_r10.c: Regenerated.
 816         * generated/minval_r16.c: Regenerated.
 817         * generated/minval_r4.c: Regenerated.
 818         * generated/minval_r8.c: Regenerated.
 819         * generated/product_c10.c: Regenerated.
 820         * generated/product_c16.c: Regenerated.
 821         * generated/product_c4.c: Regenerated.
 822         * generated/product_c8.c: Regenerated.
 823         * generated/product_i1.c: Regenerated.
 824         * generated/product_i16.c: Regenerated.
 825         * generated/product_i2.c: Regenerated.
 826         * generated/product_i4.c: Regenerated.
 827         * generated/product_i8.c: Regenerated.
 828         * generated/product_r10.c: Regenerated.
 829         * generated/product_r16.c: Regenerated.
 830         * generated/product_r4.c: Regenerated.
 831         * generated/product_r8.c: Regenerated.
 832         * generated/sum_c10.c: Regenerated.
 833         * generated/sum_c16.c: Regenerated.
 834         * generated/sum_c4.c: Regenerated.
 835         * generated/sum_c8.c: Regenerated.
 836         * generated/sum_i1.c: Regenerated.
 837         * generated/sum_i16.c: Regenerated.
 838         * generated/sum_i2.c: Regenerated.
 839         * generated/sum_i4.c: Regenerated.
 840         * generated/sum_i8.c: Regenerated.
 841         * generated/sum_r10.c: Regenerated.
 842         * generated/sum_r16.c: Regenerated.
 843         * generated/sum_r4.c: Regenerated.
 844         * generated/sum_r8.c: Regenerated.
 845
 846 2009-07-17  Janne Blomqvist  <jb@gcc.gnu.org>
 847             Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 848
 849         PR libfortran/40714
 850         * io/transfer.c (finalize_transfer): Set current_record to 0
 851         before returning in case of error.
 852
 853 2009-07-12  Tobias Burnus  <burnus@net-b.de>
 854
 855         PR libfortran/22423
 856         * io/io.h (namelist_type): Use the proper enum for GFC_DTYPE_*.
 857         * intrinsics/iso_c_binding.c (c_f_pointer_u0): Make sure
 858         variable is initialized to silence warning.
 859
 860 2009-07-10  Steven G. Kargl  <kargl@gcc.gnu.org>
 861
 862         * c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
 863         Fix errant minus.
 864
 865 2009-07-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 866
 867         PR libfortran/40330
 868         PR libfortran/40662
 869         * io/io.h (st_parameter_dt): Define format_not_saved bit used to signal
 870         whether the parsed format data was previously saved. Used to determine
 871         if the current format data should be freed or not.
 872         * io/transfer.c (st_read_done): Use the format_not_saved bit.
 873         (st_write_done): Likewise.
 874         * io/format.c (parse_format_list): Add boolean pointer to arg list. This
 875         pointer is used to return status to the caller regarding whether it is
 876         safe to cache the parsed format data.  Currently, if a FMT_STRING token
 877         is encounetered, it is not safe to cache. Also, added a local boolean
 878         variable to hold this information as recursive calls to
 879         parse_format_list are made.  Remove previous save_format logic.
 880         (parse_format): Do not use the format caching facility if the current
 881         unit is an internal unit or if it is not safe to save parsed format
 882         data.
 883
 884 2009-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 885
 886         PR libfortran/40576
 887         * io/transfer.c (sset): Adjust exit condition for loop.
 888
 889 2009-06-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 890
 891         PR libfortran/40508
 892         * io/format.c: Don't save parsed format data for internal units.
 893
 894 2009-06-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 895
 896         PR fortran/37577
 897         Port from fortran-dev
 898         * runtime/in_pack_generic (internal_pack):  Remove unnecessary
 899         test for stride == 0.
 900         * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
 901         * intrinsics/iso_c_binding.c (c_f_pointer_u0):  Take care
 902         of stride in "shape" argument.  Use array access macros for
 903         accessing array descriptors.
 904         * libgfortran.h (struct descriptor_dimension):  Change stride
 905         to _stride, lbound to _lbound and ubound to _ubound.
 906         (GFC_DIMENSION_LBOUND):  Use new name(s) in struct
 907         descriptor_dimension.
 908         (GFC_DIMENSION_UBOUND):  Likewise.
 909         (GFC_DIMENSION_STRIDE):  Likewise.
 910         (GFC_DIMENSION_EXTENT):  Likewise.
 911         (GFC_DIMENSION_SET):  Likewise.
 912         (GFC_DESCRIPTOR_LBOUND):  Likewise.
 913         (GFC_DESCRIPTOR_UBOUND):  Likewise.
 914         (GFC_DESCRIPTOR_EXTENT):  Likewise.
 915         (GFC_DESCRIPTOR_STRIDE):  Likewise.
 916         * io/transfer.c (transfer_array):  Use array access macros.
 917         Use byte-sized strides.
 918         * intrinsics/eoshift0.c (eoshift0):  Use array access
 919         macros everywhere.
 920         * m4/in_pack.m4 (internal_pack_'rtype_ccode`):  Use
 921         array access macros for accessing array descriptors.
 922         * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):
 923         Likewise.
 924         * m4/matmull.m4 (matmul_'rtype_code`):  Likewise.
 925         * m4/matmul.m4 (matmul_'rtype_code`):  Likewise.
 926         * m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
 927         (unpack1_'rtype_code`):  Likewise.
 928         * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Likewise.
 929         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Use array access
 930         macros everywhere.
 931                 * intrinsics/dtime.c (dtime_sub):  Use array access macros
 932         for accessing array descriptors.
 933         * intrinsics/cshift0 (cshift0):  Likewise.
 934         * intrinsics/etime.c:  Likewise.  Remove redundant calculation
 935         of rdim.
 936         * m4/cshift0.m4 (cshift0_'rtype_code`):  Use array access macros
 937         for accessing array descriptors.
 938         * m4/pack.m4 (pack_'rtype_code`):  Likewise.
 939         * m4/spread.m4 (spread_'rtype_code`):  Likewise.
 940         (spread_scalar_'rtype_code`):  Likewise.
 941         * m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
 942         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
 943         * m4/eoshift1.m4 (eoshift1):  Likewise.  Remove size argument,
 944         calculate within function.
 945         (eoshift1_'atype_kind`):  Remove size argument from call
 946         to eoshift1.
 947         (eoshift1_'atype_kind`_char):  Likewise.
 948         (eoshift1_'atype_kind`_char4):  Likewise.
 949         * m4/eoshift3.m4 (eoshift3):  Remove size argument, calculate
 950         within function. Use array access macros for accessing array
 951         descriptors.
 952         (eoshift3_'atype_kind`):  Remove size argument from call
 953         to eoshift1.
 954         (eoshift3_'atype_kind`_char):  Likewise.
 955         (eoshift3_'atype_kind`_char4):  Likewise.
 956         * m4/shape.m4 (shape_'rtype_kind`):  Use array access macros
 957         for accessing array descriptors.
 958         * m4/cshift1.m4 (cshift1): Remove size argument, calculate
 959         within function. Use array access macros for accessing array
 960         descriptors.
 961         (cshift1_'atype_kind`):  Remove size argument from call to
 962         cshift1.
 963         (cshift1_'atype_kind`_char):  Remove size argument from call to
 964         cshift1.
 965         (cshift1_'atype_kind`_char4):  Remove size argument from call to
 966         cshift1.
 967         * m4/reshape.m4 (reshape_'rtype_ccode`):  Use array access macros
 968         for accessing array descriptors.
 969         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Likewise.
 970         * intrinsics/pack_generic.c (pack_internal):  Use array access
 971         macros for accessing array descriptors.
 972         (pack_s_internal):  Likewise.
 973         * intrinsics/transpose_generic.c (transpose_internal):  Remove
 974         size argument, calculate from array descriptor. Use array
 975         access macros for accessing array descriptors.
 976         (transpose):  Remove size argument from call.
 977         (transpoe_char):  Likewise.
 978         (transpose_char4):  Likewise.
 979         * intrinsics/move_alloc.c (move_alloc):  Use array access macros
 980         for accessing array descriptors.
 981         * intrinsics/spread_generic.c (spread_internal):  Remove size
 982         argument, calculate from array descriptor.  Use array access
 983         macros for accessing array descriptors.
 984         (spread_internal_scalar):  Likewise.
 985         (spread):  Remove size argument from call to spread_internal.
 986         (spread_char):  Mark argument source_length as unused.
 987         Remove size argument from call to spread_internal.
 988         (spread_char4):  Likewise.
 989         (spread_char_scalar):  Likewise.
 990         (spread_char4_scalar):  Likewise.
 991         * intrinsics/unpack_generic.c (unpack_internal):  Use array access
 992         macros for accessing array descriptors.
 993         * intrinsics/eoshift2.c (eoshift2):  Remove size argument, calculate
 994         from array descriptor instead.  Use array access macros for
 995         accessing array descriptors.
 996         (eoshift2_##N):  Remove size argument from call to eoshift2.
 997         (eoshift2_##N_##char):  Likewise.
 998         (eoshift2_##N_##char4):  Likewise.
 999         * intrinsics/reshape_generic.c (reshape_internal):  Use array
1000         access macross for accessing array descriptors.
1001         * libgfortran.h:  Introduce new macros GFC_DIMENSION_LBOUND,
1002         GFC_DIMENSION_UBOUND,GFC_DIMENSION_STRIDE, GFC_DIMENSION_EXTENT,
1003         GFC_DIMENSION_SET, GFC_DESCRIPTOR_LBOUND, GFC_DESCRIPTOR_UBOUND,
1004         GFC_DESCRIPTOR_EXTENT, GFC_DESCRIPTOR_EXTENT_BYTES,
1005         GFC_DESCRIPTOR_STRIDE, GFC_DESCRIPTOR_STRIDE_BYTES
1006         * runtime/in_pack_generic.c (internal_pack):  Use new macros
1007         for array descriptor access.
1008         * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
1009         * intrinsics/dtime.c (dtime_sub):  Likewise.
1010         * intrinsics/cshift0 (cshift0):  Remove argument size,
1011         calculate directly from the array descriptor.  Use new macros
1012         for array descriptor access.
1013         * cshift0_##N:  Remove shift argument in call to cshift0.
1014         * cshift0_##N_char:  Mark array_length as unused.  Remove
1015         array_length in call to cshift0.
1016         * cshift0_##N_char4:  Likewise.
1017         * intrisics/etime.c:  Use new macros for array descriptor access.
1018         * intrinsics/stat.c (stat_i4_sub_0):  Likewise.
1019         (stat_i8_sub_0):  Likewise.
1020         (fstat_i4_sub):  Likewise.
1021         (fstat_i8_sub):  Likewise.
1022         * intrinsics/date_and_time.c (date_and_time):  Likewise.
1023         (secnds):  Likewise.
1024         (itime_i4):  Likewise.
1025         (itime_i8):  Likewise.
1026         (idate_i4):  Likewise.
1027         (idate_i8):  Likewise.
1028         (gmtime_i4):  Likewise.
1029         (gmtime_i8):  Likewise.
1030         (ltime_i4):  Likewise.
1031         (litme_i8):  Likewise.
1032         * intrinsics/associated.c (associated):  Likewise.
1033         * intrinsics/eoshift0.c (eoshift0):  Likewise.
1034         * intriniscs/size.c (size0):  Likewise.
1035         * intrinsics/random.c (arandom_r4):  Likewise.
1036         (arandom_r8):  Likewise.
1037         (arandom_r10):  Likewise.
1038         (arandom_r16):  Likewise.
1039         (random_seed_i4):  Likewise.
1040         (random_seed_i8):  Likewise.
1041         * io/list_read.c (nml_parse_qualifier):  Likewise.
1042         (nml_touch_nodes):  Likewise.
1043         (nml_read_obj):  Likewise.
1044         (get_name):  Likewise.
1045         * io/transfer.c (transfer_array):  Likewise.
1046         (init_loop_spec):  Likewise.
1047         (st_set_nml_var_dim):  Likewise.
1048         * io/write.c (nml_write_obj):  Likewise.
1049         (obj_loop):  Likewise.
1050         * generated/all_l1.c: Regenerated.
1051         * generated/all_l16.c: Regenerated.
1052         * generated/all_l2.c: Regenerated.
1053         * generated/all_l4.c: Regenerated.
1054         * generated/all_l8.c: Regenerated.
1055         * generated/any_l1.c: Regenerated.
1056         * generated/any_l16.c: Regenerated.
1057         * generated/any_l2.c: Regenerated.
1058         * generated/any_l4.c: Regenerated.
1059         * generated/any_l8.c: Regenerated.
1060         * generated/count_16_l.c: Regenerated.
1061         * generated/count_1_l.c: Regenerated.
1062         * generated/count_2_l.c: Regenerated.
1063         * generated/count_4_l.c: Regenerated.
1064         * generated/count_8_l.c: Regenerated.
1065         * generated/cshift0_c10.c: Regenerated.
1066         * generated/cshift0_c16.c: Regenerated.
1067         * generated/cshift0_c4.c: Regenerated.
1068         * generated/cshift0_c8.c: Regenerated.
1069         * generated/cshift0_i1.c: Regenerated.
1070         * generated/cshift0_i16.c: Regenerated.
1071         * generated/cshift0_i2.c: Regenerated.
1072         * generated/cshift0_i4.c: Regenerated.
1073         * generated/cshift0_i8.c: Regenerated.
1074         * generated/cshift0_r10.c: Regenerated.
1075         * generated/cshift0_r16.c: Regenerated.
1076         * generated/cshift0_r4.c: Regenerated.
1077         * generated/cshift0_r8.c: Regenerated.
1078         * generated/cshift1_16.c: Regenerated.
1079         * generated/cshift1_4.c: Regenerated.
1080         * generated/cshift1_8.c: Regenerated.
1081         * generated/eoshift1_16.c: Regenerated.
1082         * generated/eoshift1_4.c: Regenerated.
1083         * generated/eoshift1_8.c: Regenerated.
1084         * generated/eoshift3_16.c: Regenerated.
1085         * generated/eoshift3_4.c: Regenerated.
1086         * generated/eoshift3_8.c: Regenerated.
1087         * generated/in_pack_c10.c: Regenerated.
1088         * generated/in_pack_c16.c: Regenerated.
1089         * generated/in_pack_c4.c: Regenerated.
1090         * generated/in_pack_c8.c: Regenerated.
1091         * generated/in_pack_i1.c: Regenerated.
1092         * generated/in_pack_i16.c: Regenerated.
1093         * generated/in_pack_i2.c: Regenerated.
1094         * generated/in_pack_i4.c: Regenerated.
1095         * generated/in_pack_i8.c: Regenerated.
1096         * generated/in_pack_r10.c: Regenerated.
1097         * generated/in_pack_r16.c: Regenerated.
1098         * generated/in_pack_r4.c: Regenerated.
1099         * generated/in_pack_r8.c: Regenerated.
1100         * generated/in_unpack_c10.c: Regenerated.
1101         * generated/in_unpack_c16.c: Regenerated.
1102         * generated/in_unpack_c4.c: Regenerated.
1103         * generated/in_unpack_c8.c: Regenerated.
1104         * generated/in_unpack_i1.c: Regenerated.
1105         * generated/in_unpack_i16.c: Regenerated.
1106         * generated/in_unpack_i2.c: Regenerated.
1107         * generated/in_unpack_i4.c: Regenerated.
1108         * generated/in_unpack_i8.c: Regenerated.
1109         * generated/in_unpack_r10.c: Regenerated.
1110         * generated/in_unpack_r16.c: Regenerated.
1111         * generated/in_unpack_r4.c: Regenerated.
1112         * generated/in_unpack_r8.c: Regenerated.
1113         * generated/matmul_c10.c: Regenerated.
1114         * generated/matmul_c16.c: Regenerated.
1115         * generated/matmul_c4.c: Regenerated.
1116         * generated/matmul_c8.c: Regenerated.
1117         * generated/matmul_i1.c: Regenerated.
1118         * generated/matmul_i16.c: Regenerated.
1119         * generated/matmul_i2.c: Regenerated.
1120         * generated/matmul_i4.c: Regenerated.
1121         * generated/matmul_i8.c: Regenerated.
1122         * generated/matmul_l16.c: Regenerated.
1123         * generated/matmul_l4.c: Regenerated.
1124         * generated/matmul_l8.c: Regenerated.
1125         * generated/matmul_r10.c: Regenerated.
1126         * generated/matmul_r16.c: Regenerated.
1127         * generated/matmul_r4.c: Regenerated.
1128         * generated/matmul_r8.c: Regenerated.
1129         * generated/maxloc0_16_i1.c: Regenerated.
1130         * generated/maxloc0_16_i16.c: Regenerated.
1131         * generated/maxloc0_16_i2.c: Regenerated.
1132         * generated/maxloc0_16_i4.c: Regenerated.
1133         * generated/maxloc0_16_i8.c: Regenerated.
1134         * generated/maxloc0_16_r10.c: Regenerated.
1135         * generated/maxloc0_16_r16.c: Regenerated.
1136         * generated/maxloc0_16_r4.c: Regenerated.
1137         * generated/maxloc0_16_r8.c: Regenerated.
1138         * generated/maxloc0_4_i1.c: Regenerated.
1139         * generated/maxloc0_4_i16.c: Regenerated.
1140         * generated/maxloc0_4_i2.c: Regenerated.
1141         * generated/maxloc0_4_i4.c: Regenerated.
1142         * generated/maxloc0_4_i8.c: Regenerated.
1143         * generated/maxloc0_4_r10.c: Regenerated.
1144         * generated/maxloc0_4_r16.c: Regenerated.
1145         * generated/maxloc0_4_r4.c: Regenerated.
1146         * generated/maxloc0_4_r8.c: Regenerated.
1147         * generated/maxloc0_8_i1.c: Regenerated.
1148         * generated/maxloc0_8_i16.c: Regenerated.
1149         * generated/maxloc0_8_i2.c: Regenerated.
1150         * generated/maxloc0_8_i4.c: Regenerated.
1151         * generated/maxloc0_8_i8.c: Regenerated.
1152         * generated/maxloc0_8_r10.c: Regenerated.
1153         * generated/maxloc0_8_r16.c: Regenerated.
1154         * generated/maxloc0_8_r4.c: Regenerated.
1155         * generated/maxloc0_8_r8.c: Regenerated.
1156         * generated/maxloc1_16_i1.c: Regenerated.
1157         * generated/maxloc1_16_i16.c: Regenerated.
1158         * generated/maxloc1_16_i2.c: Regenerated.
1159         * generated/maxloc1_16_i4.c: Regenerated.
1160         * generated/maxloc1_16_i8.c: Regenerated.
1161         * generated/maxloc1_16_r10.c: Regenerated.
1162         * generated/maxloc1_16_r16.c: Regenerated.
1163         * generated/maxloc1_16_r4.c: Regenerated.
1164         * generated/maxloc1_16_r8.c: Regenerated.
1165         * generated/maxloc1_4_i1.c: Regenerated.
1166         * generated/maxloc1_4_i16.c: Regenerated.
1167         * generated/maxloc1_4_i2.c: Regenerated.
1168         * generated/maxloc1_4_i4.c: Regenerated.
1169         * generated/maxloc1_4_i8.c: Regenerated.
1170         * generated/maxloc1_4_r10.c: Regenerated.
1171         * generated/maxloc1_4_r16.c: Regenerated.
1172         * generated/maxloc1_4_r4.c: Regenerated.
1173         * generated/maxloc1_4_r8.c: Regenerated.
1174         * generated/maxloc1_8_i1.c: Regenerated.
1175         * generated/maxloc1_8_i16.c: Regenerated.
1176         * generated/maxloc1_8_i2.c: Regenerated.
1177         * generated/maxloc1_8_i4.c: Regenerated.
1178         * generated/maxloc1_8_i8.c: Regenerated.
1179         * generated/maxloc1_8_r10.c: Regenerated.
1180         * generated/maxloc1_8_r16.c: Regenerated.
1181         * generated/maxloc1_8_r4.c: Regenerated.
1182         * generated/maxloc1_8_r8.c: Regenerated.
1183         * generated/maxval_i1.c: Regenerated.
1184         * generated/maxval_i16.c: Regenerated.
1185         * generated/maxval_i2.c: Regenerated.
1186         * generated/maxval_i4.c: Regenerated.
1187         * generated/maxval_i8.c: Regenerated.
1188         * generated/maxval_r10.c: Regenerated.
1189         * generated/maxval_r16.c: Regenerated.
1190         * generated/maxval_r4.c: Regenerated.
1191         * generated/maxval_r8.c: Regenerated.
1192         * generated/minloc0_16_i1.c: Regenerated.
1193         * generated/minloc0_16_i16.c: Regenerated.
1194         * generated/minloc0_16_i2.c: Regenerated.
1195         * generated/minloc0_16_i4.c: Regenerated.
1196         * generated/minloc0_16_i8.c: Regenerated.
1197         * generated/minloc0_16_r10.c: Regenerated.
1198         * generated/minloc0_16_r16.c: Regenerated.
1199         * generated/minloc0_16_r4.c: Regenerated.
1200         * generated/minloc0_16_r8.c: Regenerated.
1201         * generated/minloc0_4_i1.c: Regenerated.
1202         * generated/minloc0_4_i16.c: Regenerated.
1203         * generated/minloc0_4_i2.c: Regenerated.
1204         * generated/minloc0_4_i4.c: Regenerated.
1205         * generated/minloc0_4_i8.c: Regenerated.
1206         * generated/minloc0_4_r10.c: Regenerated.
1207         * generated/minloc0_4_r16.c: Regenerated.
1208         * generated/minloc0_4_r4.c: Regenerated.
1209         * generated/minloc0_4_r8.c: Regenerated.
1210         * generated/minloc0_8_i1.c: Regenerated.
1211         * generated/minloc0_8_i16.c: Regenerated.
1212         * generated/minloc0_8_i2.c: Regenerated.
1213         * generated/minloc0_8_i4.c: Regenerated.
1214         * generated/minloc0_8_i8.c: Regenerated.
1215         * generated/minloc0_8_r10.c: Regenerated.
1216         * generated/minloc0_8_r16.c: Regenerated.
1217         * generated/minloc0_8_r4.c: Regenerated.
1218         * generated/minloc0_8_r8.c: Regenerated.
1219         * generated/minloc1_16_i1.c: Regenerated.
1220         * generated/minloc1_16_i16.c: Regenerated.
1221         * generated/minloc1_16_i2.c: Regenerated.
1222         * generated/minloc1_16_i4.c: Regenerated.
1223         * generated/minloc1_16_i8.c: Regenerated.
1224         * generated/minloc1_16_r10.c: Regenerated.
1225         * generated/minloc1_16_r16.c: Regenerated.
1226         * generated/minloc1_16_r4.c: Regenerated.
1227         * generated/minloc1_16_r8.c: Regenerated.
1228         * generated/minloc1_4_i1.c: Regenerated.
1229         * generated/minloc1_4_i16.c: Regenerated.
1230         * generated/minloc1_4_i2.c: Regenerated.
1231         * generated/minloc1_4_i4.c: Regenerated.
1232         * generated/minloc1_4_i8.c: Regenerated.
1233         * generated/minloc1_4_r10.c: Regenerated.
1234         * generated/minloc1_4_r16.c: Regenerated.
1235         * generated/minloc1_4_r4.c: Regenerated.
1236         * generated/minloc1_4_r8.c: Regenerated.
1237         * generated/minloc1_8_i1.c: Regenerated.
1238         * generated/minloc1_8_i16.c: Regenerated.
1239         * generated/minloc1_8_i2.c: Regenerated.
1240         * generated/minloc1_8_i4.c: Regenerated.
1241         * generated/minloc1_8_i8.c: Regenerated.
1242         * generated/minloc1_8_r10.c: Regenerated.
1243         * generated/minloc1_8_r16.c: Regenerated.
1244         * generated/minloc1_8_r4.c: Regenerated.
1245         * generated/minloc1_8_r8.c: Regenerated.
1246         * generated/minval_i1.c: Regenerated.
1247         * generated/minval_i16.c: Regenerated.
1248         * generated/minval_i2.c: Regenerated.
1249         * generated/minval_i4.c: Regenerated.
1250         * generated/minval_i8.c: Regenerated.
1251         * generated/minval_r10.c: Regenerated.
1252         * generated/minval_r16.c: Regenerated.
1253         * generated/minval_r4.c: Regenerated.
1254         * generated/minval_r8.c: Regenerated.
1255         * generated/pack_c10.c: Regenerated.
1256         * generated/pack_c16.c: Regenerated.
1257         * generated/pack_c4.c: Regenerated.
1258         * generated/pack_c8.c: Regenerated.
1259         * generated/pack_i1.c: Regenerated.
1260         * generated/pack_i16.c: Regenerated.
1261         * generated/pack_i2.c: Regenerated.
1262         * generated/pack_i4.c: Regenerated.
1263         * generated/pack_i8.c: Regenerated.
1264         * generated/pack_r10.c: Regenerated.
1265         * generated/pack_r16.c: Regenerated.
1266         * generated/pack_r4.c: Regenerated.
1267         * generated/pack_r8.c: Regenerated.
1268         * generated/product_c10.c: Regenerated.
1269         * generated/product_c16.c: Regenerated.
1270         * generated/product_c4.c: Regenerated.
1271         * generated/product_c8.c: Regenerated.
1272         * generated/product_i1.c: Regenerated.
1273         * generated/product_i16.c: Regenerated.
1274         * generated/product_i2.c: Regenerated.
1275         * generated/product_i4.c: Regenerated.
1276         * generated/product_i8.c: Regenerated.
1277         * generated/product_r10.c: Regenerated.
1278         * generated/product_r16.c: Regenerated.
1279         * generated/product_r4.c: Regenerated.
1280         * generated/product_r8.c: Regenerated.
1281         * generated/reshape_c10.c: Regenerated.
1282         * generated/reshape_c16.c: Regenerated.
1283         * generated/reshape_c4.c: Regenerated.
1284         * generated/reshape_c8.c: Regenerated.
1285         * generated/reshape_i16.c: Regenerated.
1286         * generated/reshape_i4.c: Regenerated.
1287         * generated/reshape_i8.c: Regenerated.
1288         * generated/reshape_r10.c: Regenerated.
1289         * generated/reshape_r16.c: Regenerated.
1290         * generated/reshape_r4.c: Regenerated.
1291         * generated/reshape_r8.c: Regenerated.
1292         * generated/shape_i16.c: Regenerated.
1293         * generated/shape_i4.c: Regenerated.
1294         * generated/shape_i8.c: Regenerated.
1295         * generated/spread_c10.c: Regenerated.
1296         * generated/spread_c16.c: Regenerated.
1297         * generated/spread_c4.c: Regenerated.
1298         * generated/spread_c8.c: Regenerated.
1299         * generated/spread_i1.c: Regenerated.
1300         * generated/spread_i16.c: Regenerated.
1301         * generated/spread_i2.c: Regenerated.
1302         * generated/spread_i4.c: Regenerated.
1303         * generated/spread_i8.c: Regenerated.
1304         * generated/spread_r10.c: Regenerated.
1305         * generated/spread_r16.c: Regenerated.
1306         * generated/spread_r4.c: Regenerated.
1307         * generated/spread_r8.c: Regenerated.
1308         * generated/sum_c10.c: Regenerated.
1309         * generated/sum_c16.c: Regenerated.
1310         * generated/sum_c4.c: Regenerated.
1311         * generated/sum_c8.c: Regenerated.
1312         * generated/sum_i1.c: Regenerated.
1313         * generated/sum_i16.c: Regenerated.
1314         * generated/sum_i2.c: Regenerated.
1315         * generated/sum_i4.c: Regenerated.
1316         * generated/sum_i8.c: Regenerated.
1317         * generated/sum_r10.c: Regenerated.
1318         * generated/sum_r16.c: Regenerated.
1319         * generated/sum_r4.c: Regenerated.
1320         * generated/sum_r8.c: Regenerated.
1321         * generated/transpose_c10.c: Regenerated.
1322         * generated/transpose_c16.c: Regenerated.
1323         * generated/transpose_c4.c: Regenerated.
1324         * generated/transpose_c8.c: Regenerated.
1325         * generated/transpose_i16.c: Regenerated.
1326         * generated/transpose_i4.c: Regenerated.
1327         * generated/transpose_i8.c: Regenerated.
1328         * generated/transpose_r10.c: Regenerated.
1329         * generated/transpose_r16.c: Regenerated.
1330         * generated/transpose_r4.c: Regenerated.
1331         * generated/transpose_r8.c: Regenerated.
1332         * generated/unpack_c10.c: Regenerated.
1333         * generated/unpack_c16.c: Regenerated.
1334         * generated/unpack_c4.c: Regenerated.
1335         * generated/unpack_c8.c: Regenerated.
1336         * generated/unpack_i1.c: Regenerated.
1337         * generated/unpack_i16.c: Regenerated.
1338         * generated/unpack_i2.c: Regenerated.
1339         * generated/unpack_i4.c: Regenerated.
1340         * generated/unpack_i8.c: Regenerated.
1341         * generated/unpack_r10.c: Regenerated.
1342         * generated/unpack_r16.c: Regenerated.
1343         * generated/unpack_r4.c: Regenerated.
1344         * generated/unpack_r8.c: Regenerated.
1345
1346 2009-06-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1347
1348         * fmain.c (main): Don't PREFIX set_args.
1349         * libgfortran.h (set_args): Use iexport_proto.
1350         * runtime/main.c (set_args): Use iexport.
1351
1352 2009-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1353
1354         PR libfortran/40008
1355         * libgfortran.h: Define IOPARM_OPEN_HAS_NEWUNIT.
1356         * io/open.c (st_open): Don't error on negative unit number if NEWUNIT
1357         was specified. If NEWUNIT is specified, call new function to get the
1358         unique unit number and assign it.
1359         * io/io.h (st_parameter_open): Add pointer to newunit.  Add prototype for
1360         next_available_newunit. Add prototype for new function,
1361         get_unique_unit_number.
1362         * io/unit.c: Declare next_available_newunit. Define the first newunit
1363         number. (init_units): Initialize next_available_unit.
1364         (get_unique_unit_number): New function. Fix whitespace and comments.
1365         * io/transfer.c (data_transfer_init): Update error message to not be
1366         specific to OPEN statements.
1367
1368 2009-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1369
1370         PR libfortran/40334
1371         * io/list_read.c (list_formatted_read_scalar): Set the end file
1372         conditions after a return from EOF error.
1373
1374 2009-06-04  Janne Blomqvist  <jb@gcc.gnu.org>
1375
1376         PR libfortran/40330
1377         * io/format.c (free_format_hash_table): Also free and nullify hash key.
1378         (save_parsed_format): Copy string rather than pointer copy.
1379
1380 2009-05-29  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1381
1382         PR fortran/40019
1383         * intrinsics/bit_intrinsics.c: New file.
1384         * gfortran.map (GFORTRAN_1.2): New list.
1385         * Makefile.am: Add intrinsics/bit_intrinsics.c.
1386         * Makefile.in: Regenerate.
1387
1388 2009-05-29  Janne Blomqvist  <jb@gcc.gnu.org>
1389
1390         PR libfortran/40190
1391         * configure.ac: Check for localtime_r and gmtime_r.
1392         * intrinsics/date_and_time.c: Add fallback implementations for
1393         localtime_r and gmtime_r.
1394         (date_and_time): Change to use localtime_r and gmtime_r instead of
1395         localtime and gmtime, respectively.
1396         (itime0): Use localtime_r instead of localtime.
1397         (ltime_0): Likewise.
1398         (gmtime_0): Use gmtime_r instead of gmtime.
1399         * config.h.in: Regenerated
1400         * configure: Regenerated.
1401
1402 2009-05-27  Janne Blomqvist  <jb@gcc.gnu.org>
1403
1404         PR fortran/39178
1405         * runtime/main.c (store_exe_path): Remove static attribute.
1406         * libgfortran.h: Add back store_exe_path prototype.
1407
1408 2009-05-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
1409
1410         PR libfortran/40187
1411         * intrinsics/iso_c_binding.c (c_f_pointer_u0):  Take care
1412         of stride in "shape" argument.
1413
1414 2009-05-26  Tobias Burnus  <burnus@net-b.de>
1415
1416         PR fortran/39178
1417         * runtime/main.c (store_exe_path): Make static
1418         and multiple-times callable.
1419         (set_args): Call store_exe_path.
1420         * libgfortran.h: Remove store_exe_path prototype.
1421         * fmain.c (main): Remove store_exe_path call.
1422
1423 2009-05-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1424
1425         PR libfortran/37754
1426         * io/write_float.def: Simplify format calculation.
1427
1428 2009-05-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1429
1430         PR fortran/22423
1431         * io/transfer.c (read_block_direct): Avoid warning.
1432         * runtime/string.c (compare0): Avoid warning.
1433
1434 2009-04-30  Janne Blomqvist  <jb@gcc.gnu.org>
1435
1436         PR libfortran/39667
1437         * io/file_pos.c (st_rewind): Don't truncate or flush.
1438         * io/intrinsics.c (fgetc): Flush if switching mode.
1439         (fputc): Likewise.
1440
1441 2009-04-18  Janne Blomqvist  <jb@gcc.gnu.org>
1442
1443         PR libfortran/39782
1444         * io/transfer.c (data_transfer_init): Don't flush before seek.
1445         (finalize_transfer): Remove extra flush.
1446
1447 2009-04-17  Janne Blomqvist  <jb@gcc.gnu.org>
1448
1449         * io/io.h (is_preconnected): Remove prototype.
1450         * io/unix.c (is_preconnected): Remove function.
1451
1452 2009-04-17  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
1453
1454         * configure.ac: Test for -ffunction-sections -fdata-sections and
1455         set SECTION_FLAGS accordingly.
1456         * configure: Regenerate.
1457
1458         * Makefile.am: Add SECTION_FLAGS to AM_CFLAGS.
1459         * Makefile.in: Regenerate.
1460
1461 2009-04-15  Janne Blomqvist  <jb@gcc.gnu.org>
1462
1463         PR libfortran/38668
1464         * io/transfer.c (finalize_transfer): Don't flush for advance='no'.
1465
1466 2009-04-15 Danny Smith  <dannysmith@clear.net.nz>
1467
1468         * io/write.c (itoa) : Rename back to gfc_itoa.
1469         (write_i): Adjust call to write_decimal.
1470         (write_integer):  Use gfc_itoa.
1471
1472 2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>
1473
1474         * io/io.h (move_pos_offset): Remove prototype.
1475         * io/transfer.c (formatted_transfer_scalar_read): Use sseek
1476         instead of move_pos_offset.
1477         * io/unix.c (move_pos_offset): Remove.
1478
1479 2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>
1480
1481         PR libfortran/39665 libfortran/39702 libfortran/39709
1482         * io/io.h (st_parameter_dt): Revert aligned attribute from u.p.value.
1483         * io/list_read.c (read_complex): Read directly into user pointer.
1484         (read_real): Likewise.
1485         (list_formatted_read_scalar): Update read_complex and read_real calls.
1486         (nml_read_obj): Read directly into user pointer.
1487
1488 2009-04-09  Janne Blomqvist  <jb@gcc.gnu.org>
1489
1490         PR libfortran/39665
1491         * io/io.h (st_parameter_dt): Add aligned attribute to u.p.value.
1492         * io/read.c (convert_real): Add note about alignment requirements.
1493
1494 2009-04-09  Nick Clifton  <nickc@redhat.com>
1495
1496         * m4/cshift0.m4: Change copyright header to refer to version 3
1497         of the GNU General Public License with version 3.1 of the GCC
1498         Runtime Library Exception and to point readers at the COPYING3
1499         and COPYING3.RUNTIME files and the FSF's license web page.
1500         * c99_protos.h: Likewise.
1501         * config/fpu-387.h: Likewise.
1502         * config/fpu-aix.h: Likewise.
1503         * config/fpu-generic.h: Likewise.
1504         * config/fpu-glibc.h: Likewise.
1505         * config/fpu-sysv.h: Likewise.
1506         * intrinsics/abort.c: Likewise.
1507         * intrinsics/access.c: Likewise.
1508         * intrinsics/args.c: Likewise.
1509         * intrinsics/associated.c: Likewise.
1510         * intrinsics/c99_functions.c: Likewise.
1511         * intrinsics/chdir.c: Likewise.
1512         * intrinsics/chmod.c: Likewise.
1513         * intrinsics/clock.c: Likewise.
1514         * intrinsics/cpu_time.c: Likewise.
1515         * intrinsics/cshift0.c: Likewise.
1516         * intrinsics/ctime.c: Likewise.
1517         * intrinsics/date_and_time.c: Likewise.
1518         * intrinsics/dprod_r8.f90: Likewise.
1519         * intrinsics/dtime.c: Likewise.
1520         * intrinsics/env.c: Likewise.
1521         * intrinsics/eoshift0.c: Likewise.
1522         * intrinsics/eoshift2.c: Likewise.
1523         * intrinsics/erfc_scaled.c: Likewise.
1524         * intrinsics/erfc_scaled_inc.c: Likewise.
1525         * intrinsics/etime.c: Likewise.
1526         * intrinsics/exit.c: Likewise.
1527         * intrinsics/f2c_specifics.F90: Likewise.
1528         * intrinsics/fnum.c: Likewise.
1529         * intrinsics/gerror.c: Likewise.
1530         * intrinsics/getXid.c: Likewise.
1531         * intrinsics/getcwd.c: Likewise.
1532         * intrinsics/getlog.c: Likewise.
1533         * intrinsics/hostnm.c: Likewise.
1534         * intrinsics/ierrno.c: Likewise.
1535         * intrinsics/ishftc.c: Likewise.
1536         * intrinsics/iso_c_binding.c: Likewise.
1537         * intrinsics/iso_c_binding.h: Likewise.
1538         * intrinsics/iso_c_generated_procs.c: Likewise.
1539         * intrinsics/kill.c: Likewise.
1540         * intrinsics/link.c: Likewise.
1541         * intrinsics/malloc.c: Likewise.
1542         * intrinsics/move_alloc.c: Likewise.
1543         * intrinsics/mvbits.c: Likewise.
1544         * intrinsics/pack_generic.c: Likewise.
1545         * intrinsics/perror.c: Likewise.
1546         * intrinsics/rand.c: Likewise.
1547         * intrinsics/random.c: Likewise.
1548         * intrinsics/rename.c: Likewise.
1549         * intrinsics/reshape_generic.c: Likewise.
1550         * intrinsics/reshape_packed.c: Likewise.
1551         * intrinsics/selected_char_kind.c: Likewise.
1552         * intrinsics/selected_int_kind.f90: Likewise.
1553         * intrinsics/selected_real_kind.f90: Likewise.
1554         * intrinsics/signal.c: Likewise.
1555         * intrinsics/size.c: Likewise.
1556         * intrinsics/sleep.c: Likewise.
1557         * intrinsics/spread_generic.c: Likewise.
1558         * intrinsics/stat.c: Likewise.
1559         * intrinsics/string_intrinsics.c: Likewise.
1560         * intrinsics/string_intrinsics_inc.c: Likewise.
1561         * intrinsics/symlnk.c: Likewise.
1562         * intrinsics/system.c: Likewise.
1563         * intrinsics/system_clock.c: Likewise.
1564         * intrinsics/time.c: Likewise.
1565         * intrinsics/time_1.h: Likewise.
1566         * intrinsics/transpose_generic.c: Likewise.
1567         * intrinsics/umask.c: Likewise.
1568         * intrinsics/unlink.c: Likewise.
1569         * intrinsics/unpack_generic.c: Likewise.
1570         * io/close.c: Likewise.
1571         * io/fbuf.c: Likewise.
1572         * io/file_pos.c: Likewise.
1573         * io/format.c: Likewise.
1574         * io/inquire.c: Likewise.
1575         * io/intrinsics.c: Likewise.
1576         * io/io.h: Likewise.
1577         * io/list_read.c: Likewise.
1578         * io/lock.c: Likewise.
1579         * io/open.c: Likewise.
1580         * io/read.c: Likewise.
1581         * io/size_from_kind.c: Likewise.
1582         * io/transfer.c: Likewise.
1583         * io/unit.c: Likewise.
1584         * io/unix.c: Likewise.
1585         * io/write.c: Likewise.
1586         * io/write_float.def: Likewise.
1587         * libgfortran.h: Likewise.
1588         * m4/all.m4: Likewise.
1589         * m4/any.m4: Likewise.
1590         * m4/count.m4: Likewise.
1591         * m4/cshift1.m4: Likewise.
1592         * m4/eoshift1.m4: Likewise.
1593         * m4/eoshift3.m4: Likewise.
1594         * m4/exponent.m4: Likewise.
1595         * m4/fraction.m4: Likewise.
1596         * m4/head.m4: Likewise.
1597         * m4/in_pack.m4: Likewise.
1598         * m4/in_unpack.m4: Likewise.
1599         * m4/matmul.m4: Likewise.
1600         * m4/matmull.m4: Likewise.
1601         * m4/maxloc0.m4: Likewise.
1602         * m4/maxloc1.m4: Likewise.
1603         * m4/maxval.m4: Likewise.
1604         * m4/minloc0.m4: Likewise.
1605         * m4/minloc1.m4: Likewise.
1606         * m4/minval.m4: Likewise.
1607         * m4/nearest.m4: Likewise.
1608         * m4/pack.m4: Likewise.
1609         * m4/pow.m4: Likewise.
1610         * m4/product.m4: Likewise.
1611         * m4/reshape.m4: Likewise.
1612         * m4/rrspacing.m4: Likewise.
1613         * m4/set_exponent.m4: Likewise.
1614         * m4/shape.m4: Likewise.
1615         * m4/spacing.m4: Likewise.
1616         * m4/spread.m4: Likewise.
1617         * m4/sum.m4: Likewise.
1618         * m4/transpose.m4: Likewise.
1619         * m4/unpack.m4: Likewise.
1620         * runtime/backtrace.c: Likewise.
1621         * runtime/compile_options.c: Likewise.
1622         * runtime/convert_char.c: Likewise.
1623         * runtime/environ.c: Likewise.
1624         * runtime/error.c: Likewise.
1625         * runtime/in_pack_generic.c: Likewise.
1626         * runtime/in_unpack_generic.c: Likewise.
1627         * runtime/main.c: Likewise.
1628         * runtime/memory.c: Likewise.
1629         * runtime/pause.c: Likewise.
1630         * runtime/select.c: Likewise.
1631         * runtime/select_inc.c: Likewise.
1632         * runtime/stop.c: Likewise.
1633         * runtime/string.c: Likewise.
1634         * generated/_abs_c10.F90: Regenerate.
1635         * generated/_abs_c16.F90: Regenerate.
1636         * generated/_abs_c4.F90: Regenerate.
1637         * generated/_abs_c8.F90: Regenerate.
1638         * generated/_abs_i16.F90: Regenerate.
1639         * generated/_abs_i4.F90: Regenerate.
1640         * generated/_abs_i8.F90: Regenerate.
1641         * generated/_abs_r10.F90: Regenerate.
1642         * generated/_abs_r16.F90: Regenerate.
1643         * generated/_abs_r4.F90: Regenerate.
1644         * generated/_abs_r8.F90: Regenerate.
1645         * generated/_acos_r10.F90: Regenerate.
1646         * generated/_acos_r16.F90: Regenerate.
1647         * generated/_acos_r4.F90: Regenerate.
1648         * generated/_acos_r8.F90: Regenerate.
1649         * generated/_acosh_r10.F90: Regenerate.
1650         * generated/_acosh_r16.F90: Regenerate.
1651         * generated/_acosh_r4.F90: Regenerate.
1652         * generated/_acosh_r8.F90: Regenerate.
1653         * generated/_aimag_c10.F90: Regenerate.
1654         * generated/_aimag_c16.F90: Regenerate.
1655         * generated/_aimag_c4.F90: Regenerate.
1656         * generated/_aimag_c8.F90: Regenerate.
1657         * generated/_aint_r10.F90: Regenerate.
1658         * generated/_aint_r16.F90: Regenerate.
1659         * generated/_aint_r4.F90: Regenerate.
1660         * generated/_aint_r8.F90: Regenerate.
1661         * generated/_anint_r10.F90: Regenerate.
1662         * generated/_anint_r16.F90: Regenerate.
1663         * generated/_anint_r4.F90: Regenerate.
1664         * generated/_anint_r8.F90: Regenerate.
1665         * generated/_asin_r10.F90: Regenerate.
1666         * generated/_asin_r16.F90: Regenerate.
1667         * generated/_asin_r4.F90: Regenerate.
1668         * generated/_asin_r8.F90: Regenerate.
1669         * generated/_asinh_r10.F90: Regenerate.
1670         * generated/_asinh_r16.F90: Regenerate.
1671         * generated/_asinh_r4.F90: Regenerate.
1672         * generated/_asinh_r8.F90: Regenerate.
1673         * generated/_atan2_r10.F90: Regenerate.
1674         * generated/_atan2_r16.F90: Regenerate.
1675         * generated/_atan2_r4.F90: Regenerate.
1676         * generated/_atan2_r8.F90: Regenerate.
1677         * generated/_atan_r10.F90: Regenerate.
1678         * generated/_atan_r16.F90: Regenerate.
1679         * generated/_atan_r4.F90: Regenerate.
1680         * generated/_atan_r8.F90: Regenerate.
1681         * generated/_atanh_r10.F90: Regenerate.
1682         * generated/_atanh_r16.F90: Regenerate.
1683         * generated/_atanh_r4.F90: Regenerate.
1684         * generated/_atanh_r8.F90: Regenerate.
1685         * generated/_conjg_c10.F90: Regenerate.
1686         * generated/_conjg_c16.F90: Regenerate.
1687         * generated/_conjg_c4.F90: Regenerate.
1688         * generated/_conjg_c8.F90: Regenerate.
1689         * generated/_cos_c10.F90: Regenerate.
1690         * generated/_cos_c16.F90: Regenerate.
1691         * generated/_cos_c4.F90: Regenerate.
1692         * generated/_cos_c8.F90: Regenerate.
1693         * generated/_cos_r10.F90: Regenerate.
1694         * generated/_cos_r16.F90: Regenerate.
1695         * generated/_cos_r4.F90: Regenerate.
1696         * generated/_cos_r8.F90: Regenerate.
1697         * generated/_cosh_r10.F90: Regenerate.
1698         * generated/_cosh_r16.F90: Regenerate.
1699         * generated/_cosh_r4.F90: Regenerate.
1700         * generated/_cosh_r8.F90: Regenerate.
1701         * generated/_dim_i16.F90: Regenerate.
1702         * generated/_dim_i4.F90: Regenerate.
1703         * generated/_dim_i8.F90: Regenerate.
1704         * generated/_dim_r10.F90: Regenerate.
1705         * generated/_dim_r16.F90: Regenerate.
1706         * generated/_dim_r4.F90: Regenerate.
1707         * generated/_dim_r8.F90: Regenerate.
1708         * generated/_exp_c10.F90: Regenerate.
1709         * generated/_exp_c16.F90: Regenerate.
1710         * generated/_exp_c4.F90: Regenerate.
1711         * generated/_exp_c8.F90: Regenerate.
1712         * generated/_exp_r10.F90: Regenerate.
1713         * generated/_exp_r16.F90: Regenerate.
1714         * generated/_exp_r4.F90: Regenerate.
1715         * generated/_exp_r8.F90: Regenerate.
1716         * generated/_log10_r10.F90: Regenerate.
1717         * generated/_log10_r16.F90: Regenerate.
1718         * generated/_log10_r4.F90: Regenerate.
1719         * generated/_log10_r8.F90: Regenerate.
1720         * generated/_log_c10.F90: Regenerate.
1721         * generated/_log_c16.F90: Regenerate.
1722         * generated/_log_c4.F90: Regenerate.
1723         * generated/_log_c8.F90: Regenerate.
1724         * generated/_log_r10.F90: Regenerate.
1725         * generated/_log_r16.F90: Regenerate.
1726         * generated/_log_r4.F90: Regenerate.
1727         * generated/_log_r8.F90: Regenerate.
1728         * generated/_mod_i16.F90: Regenerate.
1729         * generated/_mod_i4.F90: Regenerate.
1730         * generated/_mod_i8.F90: Regenerate.
1731         * generated/_mod_r10.F90: Regenerate.
1732         * generated/_mod_r16.F90: Regenerate.
1733         * generated/_mod_r4.F90: Regenerate.
1734         * generated/_mod_r8.F90: Regenerate.
1735         * generated/_sign_i16.F90: Regenerate.
1736         * generated/_sign_i4.F90: Regenerate.
1737         * generated/_sign_i8.F90: Regenerate.
1738         * generated/_sign_r10.F90: Regenerate.
1739         * generated/_sign_r16.F90: Regenerate.
1740         * generated/_sign_r4.F90: Regenerate.
1741         * generated/_sign_r8.F90: Regenerate.
1742         * generated/_sin_c10.F90: Regenerate.
1743         * generated/_sin_c16.F90: Regenerate.
1744         * generated/_sin_c4.F90: Regenerate.
1745         * generated/_sin_c8.F90: Regenerate.
1746         * generated/_sin_r10.F90: Regenerate.
1747         * generated/_sin_r16.F90: Regenerate.
1748         * generated/_sin_r4.F90: Regenerate.
1749         * generated/_sin_r8.F90: Regenerate.
1750         * generated/_sinh_r10.F90: Regenerate.
1751         * generated/_sinh_r16.F90: Regenerate.
1752         * generated/_sinh_r4.F90: Regenerate.
1753         * generated/_sinh_r8.F90: Regenerate.
1754         * generated/_sqrt_c10.F90: Regenerate.
1755         * generated/_sqrt_c16.F90: Regenerate.
1756         * generated/_sqrt_c4.F90: Regenerate.
1757         * generated/_sqrt_c8.F90: Regenerate.
1758         * generated/_sqrt_r10.F90: Regenerate.
1759         * generated/_sqrt_r16.F90: Regenerate.
1760         * generated/_sqrt_r4.F90: Regenerate.
1761         * generated/_sqrt_r8.F90: Regenerate.
1762         * generated/_tan_r10.F90: Regenerate.
1763         * generated/_tan_r16.F90: Regenerate.
1764         * generated/_tan_r4.F90: Regenerate.
1765         * generated/_tan_r8.F90: Regenerate.
1766         * generated/_tanh_r10.F90: Regenerate.
1767         * generated/_tanh_r16.F90: Regenerate.
1768         * generated/_tanh_r4.F90: Regenerate.
1769         * generated/_tanh_r8.F90: Regenerate.
1770         * generated/all_l1.c: Regenerate.
1771         * generated/all_l16.c: Regenerate.
1772         * generated/all_l2.c: Regenerate.
1773         * generated/all_l4.c: Regenerate.
1774         * generated/all_l8.c: Regenerate.
1775         * generated/any_l1.c: Regenerate.
1776         * generated/any_l16.c: Regenerate.
1777         * generated/any_l2.c: Regenerate.
1778         * generated/any_l4.c: Regenerate.
1779         * generated/any_l8.c: Regenerate.
1780         * generated/count_16_l.c: Regenerate.
1781         * generated/count_1_l.c: Regenerate.
1782         * generated/count_2_l.c: Regenerate.
1783         * generated/count_4_l.c: Regenerate.
1784         * generated/count_8_l.c: Regenerate.
1785         * generated/cshift0_c10.c: Regenerate.
1786         * generated/cshift0_c16.c: Regenerate.
1787         * generated/cshift0_c4.c: Regenerate.
1788         * generated/cshift0_c8.c: Regenerate.
1789         * generated/cshift0_i1.c: Regenerate.
1790         * generated/cshift0_i16.c: Regenerate.
1791         * generated/cshift0_i2.c: Regenerate.
1792         * generated/cshift0_i4.c: Regenerate.
1793         * generated/cshift0_i8.c: Regenerate.
1794         * generated/cshift0_r10.c: Regenerate.
1795         * generated/cshift0_r16.c: Regenerate.
1796         * generated/cshift0_r4.c: Regenerate.
1797         * generated/cshift0_r8.c: Regenerate.
1798         * generated/cshift1_16.c: Regenerate.
1799         * generated/cshift1_4.c: Regenerate.
1800         * generated/cshift1_8.c: Regenerate.
1801         * generated/eoshift1_16.c: Regenerate.
1802         * generated/eoshift1_4.c: Regenerate.
1803         * generated/eoshift1_8.c: Regenerate.
1804         * generated/eoshift3_16.c: Regenerate.
1805         * generated/eoshift3_4.c: Regenerate.
1806         * generated/eoshift3_8.c: Regenerate.
1807         * generated/exponent_r10.c: Regenerate.
1808         * generated/exponent_r16.c: Regenerate.
1809         * generated/exponent_r4.c: Regenerate.
1810         * generated/exponent_r8.c: Regenerate.
1811         * generated/fraction_r10.c: Regenerate.
1812         * generated/fraction_r16.c: Regenerate.
1813         * generated/fraction_r4.c: Regenerate.
1814         * generated/fraction_r8.c: Regenerate.
1815         * generated/in_pack_c10.c: Regenerate.
1816         * generated/in_pack_c16.c: Regenerate.
1817         * generated/in_pack_c4.c: Regenerate.
1818         * generated/in_pack_c8.c: Regenerate.
1819         * generated/in_pack_i1.c: Regenerate.
1820         * generated/in_pack_i16.c: Regenerate.
1821         * generated/in_pack_i2.c: Regenerate.
1822         * generated/in_pack_i4.c: Regenerate.
1823         * generated/in_pack_i8.c: Regenerate.
1824         * generated/in_pack_r10.c: Regenerate.
1825         * generated/in_pack_r16.c: Regenerate.
1826         * generated/in_pack_r4.c: Regenerate.
1827         * generated/in_pack_r8.c: Regenerate.
1828         * generated/in_unpack_c10.c: Regenerate.
1829         * generated/in_unpack_c16.c: Regenerate.
1830         * generated/in_unpack_c4.c: Regenerate.
1831         * generated/in_unpack_c8.c: Regenerate.
1832         * generated/in_unpack_i1.c: Regenerate.
1833         * generated/in_unpack_i16.c: Regenerate.
1834         * generated/in_unpack_i2.c: Regenerate.
1835         * generated/in_unpack_i4.c: Regenerate.
1836         * generated/in_unpack_i8.c: Regenerate.
1837         * generated/in_unpack_r10.c: Regenerate.
1838         * generated/in_unpack_r16.c: Regenerate.
1839         * generated/in_unpack_r4.c: Regenerate.
1840         * generated/in_unpack_r8.c: Regenerate.
1841         * generated/matmul_c10.c: Regenerate.
1842         * generated/matmul_c16.c: Regenerate.
1843         * generated/matmul_c4.c: Regenerate.
1844         * generated/matmul_c8.c: Regenerate.
1845         * generated/matmul_i1.c: Regenerate.
1846         * generated/matmul_i16.c: Regenerate.
1847         * generated/matmul_i2.c: Regenerate.
1848         * generated/matmul_i4.c: Regenerate.
1849         * generated/matmul_i8.c: Regenerate.
1850         * generated/matmul_l16.c: Regenerate.
1851         * generated/matmul_l4.c: Regenerate.
1852         * generated/matmul_l8.c: Regenerate.
1853         * generated/matmul_r10.c: Regenerate.
1854         * generated/matmul_r16.c: Regenerate.
1855         * generated/matmul_r4.c: Regenerate.
1856         * generated/matmul_r8.c: Regenerate.
1857         * generated/maxloc0_16_i1.c: Regenerate.
1858         * generated/maxloc0_16_i16.c: Regenerate.
1859         * generated/maxloc0_16_i2.c: Regenerate.
1860         * generated/maxloc0_16_i4.c: Regenerate.
1861         * generated/maxloc0_16_i8.c: Regenerate.
1862         * generated/maxloc0_16_r10.c: Regenerate.
1863         * generated/maxloc0_16_r16.c: Regenerate.
1864         * generated/maxloc0_16_r4.c: Regenerate.
1865         * generated/maxloc0_16_r8.c: Regenerate.
1866         * generated/maxloc0_4_i1.c: Regenerate.
1867         * generated/maxloc0_4_i16.c: Regenerate.
1868         * generated/maxloc0_4_i2.c: Regenerate.
1869         * generated/maxloc0_4_i4.c: Regenerate.
1870         * generated/maxloc0_4_i8.c: Regenerate.
1871         * generated/maxloc0_4_r10.c: Regenerate.
1872         * generated/maxloc0_4_r16.c: Regenerate.
1873         * generated/maxloc0_4_r4.c: Regenerate.
1874         * generated/maxloc0_4_r8.c: Regenerate.
1875         * generated/maxloc0_8_i1.c: Regenerate.
1876         * generated/maxloc0_8_i16.c: Regenerate.
1877         * generated/maxloc0_8_i2.c: Regenerate.
1878         * generated/maxloc0_8_i4.c: Regenerate.
1879         * generated/maxloc0_8_i8.c: Regenerate.
1880         * generated/maxloc0_8_r10.c: Regenerate.
1881         * generated/maxloc0_8_r16.c: Regenerate.
1882         * generated/maxloc0_8_r4.c: Regenerate.
1883         * generated/maxloc0_8_r8.c: Regenerate.
1884         * generated/maxloc1_16_i1.c: Regenerate.
1885         * generated/maxloc1_16_i16.c: Regenerate.
1886         * generated/maxloc1_16_i2.c: Regenerate.
1887         * generated/maxloc1_16_i4.c: Regenerate.
1888         * generated/maxloc1_16_i8.c: Regenerate.
1889         * generated/maxloc1_16_r10.c: Regenerate.
1890         * generated/maxloc1_16_r16.c: Regenerate.
1891         * generated/maxloc1_16_r4.c: Regenerate.
1892         * generated/maxloc1_16_r8.c: Regenerate.
1893         * generated/maxloc1_4_i1.c: Regenerate.
1894         * generated/maxloc1_4_i16.c: Regenerate.
1895         * generated/maxloc1_4_i2.c: Regenerate.
1896         * generated/maxloc1_4_i4.c: Regenerate.
1897         * generated/maxloc1_4_i8.c: Regenerate.
1898         * generated/maxloc1_4_r10.c: Regenerate.
1899         * generated/maxloc1_4_r16.c: Regenerate.
1900         * generated/maxloc1_4_r4.c: Regenerate.
1901         * generated/maxloc1_4_r8.c: Regenerate.
1902         * generated/maxloc1_8_i1.c: Regenerate.
1903         * generated/maxloc1_8_i16.c: Regenerate.
1904         * generated/maxloc1_8_i2.c: Regenerate.
1905         * generated/maxloc1_8_i4.c: Regenerate.
1906         * generated/maxloc1_8_i8.c: Regenerate.
1907         * generated/maxloc1_8_r10.c: Regenerate.
1908         * generated/maxloc1_8_r16.c: Regenerate.
1909         * generated/maxloc1_8_r4.c: Regenerate.
1910         * generated/maxloc1_8_r8.c: Regenerate.
1911         * generated/maxval_i1.c: Regenerate.
1912         * generated/maxval_i16.c: Regenerate.
1913         * generated/maxval_i2.c: Regenerate.
1914         * generated/maxval_i4.c: Regenerate.
1915         * generated/maxval_i8.c: Regenerate.
1916         * generated/maxval_r10.c: Regenerate.
1917         * generated/maxval_r16.c: Regenerate.
1918         * generated/maxval_r4.c: Regenerate.
1919         * generated/maxval_r8.c: Regenerate.
1920         * generated/minloc0_16_i1.c: Regenerate.
1921         * generated/minloc0_16_i16.c: Regenerate.
1922         * generated/minloc0_16_i2.c: Regenerate.
1923         * generated/minloc0_16_i4.c: Regenerate.
1924         * generated/minloc0_16_i8.c: Regenerate.
1925         * generated/minloc0_16_r10.c: Regenerate.
1926         * generated/minloc0_16_r16.c: Regenerate.
1927         * generated/minloc0_16_r4.c: Regenerate.
1928         * generated/minloc0_16_r8.c: Regenerate.
1929         * generated/minloc0_4_i1.c: Regenerate.
1930         * generated/minloc0_4_i16.c: Regenerate.
1931         * generated/minloc0_4_i2.c: Regenerate.
1932         * generated/minloc0_4_i4.c: Regenerate.
1933         * generated/minloc0_4_i8.c: Regenerate.
1934         * generated/minloc0_4_r10.c: Regenerate.
1935         * generated/minloc0_4_r16.c: Regenerate.
1936         * generated/minloc0_4_r4.c: Regenerate.
1937         * generated/minloc0_4_r8.c: Regenerate.
1938         * generated/minloc0_8_i1.c: Regenerate.
1939         * generated/minloc0_8_i16.c: Regenerate.
1940         * generated/minloc0_8_i2.c: Regenerate.
1941         * generated/minloc0_8_i4.c: Regenerate.
1942         * generated/minloc0_8_i8.c: Regenerate.
1943         * generated/minloc0_8_r10.c: Regenerate.
1944         * generated/minloc0_8_r16.c: Regenerate.
1945         * generated/minloc0_8_r4.c: Regenerate.
1946         * generated/minloc0_8_r8.c: Regenerate.
1947         * generated/minloc1_16_i1.c: Regenerate.
1948         * generated/minloc1_16_i16.c: Regenerate.
1949         * generated/minloc1_16_i2.c: Regenerate.
1950         * generated/minloc1_16_i4.c: Regenerate.
1951         * generated/minloc1_16_i8.c: Regenerate.
1952         * generated/minloc1_16_r10.c: Regenerate.
1953         * generated/minloc1_16_r16.c: Regenerate.
1954         * generated/minloc1_16_r4.c: Regenerate.
1955         * generated/minloc1_16_r8.c: Regenerate.
1956         * generated/minloc1_4_i1.c: Regenerate.
1957         * generated/minloc1_4_i16.c: Regenerate.
1958         * generated/minloc1_4_i2.c: Regenerate.
1959         * generated/minloc1_4_i4.c: Regenerate.
1960         * generated/minloc1_4_i8.c: Regenerate.
1961         * generated/minloc1_4_r10.c: Regenerate.
1962         * generated/minloc1_4_r16.c: Regenerate.
1963         * generated/minloc1_4_r4.c: Regenerate.
1964         * generated/minloc1_4_r8.c: Regenerate.
1965         * generated/minloc1_8_i1.c: Regenerate.
1966         * generated/minloc1_8_i16.c: Regenerate.
1967         * generated/minloc1_8_i2.c: Regenerate.
1968         * generated/minloc1_8_i4.c: Regenerate.
1969         * generated/minloc1_8_i8.c: Regenerate.
1970         * generated/minloc1_8_r10.c: Regenerate.
1971         * generated/minloc1_8_r16.c: Regenerate.
1972         * generated/minloc1_8_r4.c: Regenerate.
1973         * generated/minloc1_8_r8.c: Regenerate.
1974         * generated/minval_i1.c: Regenerate.
1975         * generated/minval_i16.c: Regenerate.
1976         * generated/minval_i2.c: Regenerate.
1977         * generated/minval_i4.c: Regenerate.
1978         * generated/minval_i8.c: Regenerate.
1979         * generated/minval_r10.c: Regenerate.
1980         * generated/minval_r16.c: Regenerate.
1981         * generated/minval_r4.c: Regenerate.
1982         * generated/minval_r8.c: Regenerate.
1983         * generated/misc_specifics.F90: Regenerate.
1984         * generated/nearest_r10.c: Regenerate.
1985         * generated/nearest_r16.c: Regenerate.
1986         * generated/nearest_r4.c: Regenerate.
1987         * generated/nearest_r8.c: Regenerate.
1988         * generated/pack_c10.c: Regenerate.
1989         * generated/pack_c16.c: Regenerate.
1990         * generated/pack_c4.c: Regenerate.
1991         * generated/pack_c8.c: Regenerate.
1992         * generated/pack_i1.c: Regenerate.
1993         * generated/pack_i16.c: Regenerate.
1994         * generated/pack_i2.c: Regenerate.
1995         * generated/pack_i4.c: Regenerate.
1996         * generated/pack_i8.c: Regenerate.
1997         * generated/pack_r10.c: Regenerate.
1998         * generated/pack_r16.c: Regenerate.
1999         * generated/pack_r4.c: Regenerate.
2000         * generated/pack_r8.c: Regenerate.
2001         * generated/pow_c10_i16.c: Regenerate.
2002         * generated/pow_c10_i4.c: Regenerate.
2003         * generated/pow_c10_i8.c: Regenerate.
2004         * generated/pow_c16_i16.c: Regenerate.
2005         * generated/pow_c16_i4.c: Regenerate.
2006         * generated/pow_c16_i8.c: Regenerate.
2007         * generated/pow_c4_i16.c: Regenerate.
2008         * generated/pow_c4_i4.c: Regenerate.
2009         * generated/pow_c4_i8.c: Regenerate.
2010         * generated/pow_c8_i16.c: Regenerate.
2011         * generated/pow_c8_i4.c: Regenerate.
2012         * generated/pow_c8_i8.c: Regenerate.
2013         * generated/pow_i16_i16.c: Regenerate.
2014         * generated/pow_i16_i4.c: Regenerate.
2015         * generated/pow_i16_i8.c: Regenerate.
2016         * generated/pow_i4_i16.c: Regenerate.
2017         * generated/pow_i4_i4.c: Regenerate.
2018         * generated/pow_i4_i8.c: Regenerate.
2019         * generated/pow_i8_i16.c: Regenerate.
2020         * generated/pow_i8_i4.c: Regenerate.
2021         * generated/pow_i8_i8.c: Regenerate.
2022         * generated/pow_r10_i16.c: Regenerate.
2023         * generated/pow_r10_i8.c: Regenerate.
2024         * generated/pow_r16_i16.c: Regenerate.
2025         * generated/pow_r16_i8.c: Regenerate.
2026         * generated/pow_r4_i16.c: Regenerate.
2027         * generated/pow_r4_i8.c: Regenerate.
2028         * generated/pow_r8_i16.c: Regenerate.
2029         * generated/pow_r8_i8.c: Regenerate.
2030         * generated/product_c10.c: Regenerate.
2031         * generated/product_c16.c: Regenerate.
2032         * generated/product_c4.c: Regenerate.
2033         * generated/product_c8.c: Regenerate.
2034         * generated/product_i1.c: Regenerate.
2035         * generated/product_i16.c: Regenerate.
2036         * generated/product_i2.c: Regenerate.
2037         * generated/product_i4.c: Regenerate.
2038         * generated/product_i8.c: Regenerate.
2039         * generated/product_r10.c: Regenerate.
2040         * generated/product_r16.c: Regenerate.
2041         * generated/product_r4.c: Regenerate.
2042         * generated/product_r8.c: Regenerate.
2043         * generated/reshape_c10.c: Regenerate.
2044         * generated/reshape_c16.c: Regenerate.
2045         * generated/reshape_c4.c: Regenerate.
2046         * generated/reshape_c8.c: Regenerate.
2047         * generated/reshape_i16.c: Regenerate.
2048         * generated/reshape_i4.c: Regenerate.
2049         * generated/reshape_i8.c: Regenerate.
2050         * generated/reshape_r10.c: Regenerate.
2051         * generated/reshape_r16.c: Regenerate.
2052         * generated/reshape_r4.c: Regenerate.
2053         * generated/reshape_r8.c: Regenerate.
2054         * generated/rrspacing_r10.c: Regenerate.
2055         * generated/rrspacing_r16.c: Regenerate.
2056         * generated/rrspacing_r4.c: Regenerate.
2057         * generated/rrspacing_r8.c: Regenerate.
2058         * generated/set_exponent_r10.c: Regenerate.
2059         * generated/set_exponent_r16.c: Regenerate.
2060         * generated/set_exponent_r4.c: Regenerate.
2061         * generated/set_exponent_r8.c: Regenerate.
2062         * generated/shape_i16.c: Regenerate.
2063         * generated/shape_i4.c: Regenerate.
2064         * generated/shape_i8.c: Regenerate.
2065         * generated/spacing_r10.c: Regenerate.
2066         * generated/spacing_r16.c: Regenerate.
2067         * generated/spacing_r4.c: Regenerate.
2068         * generated/spacing_r8.c: Regenerate.
2069         * generated/spread_c10.c: Regenerate.
2070         * generated/spread_c16.c: Regenerate.
2071         * generated/spread_c4.c: Regenerate.
2072         * generated/spread_c8.c: Regenerate.
2073         * generated/spread_i1.c: Regenerate.
2074         * generated/spread_i16.c: Regenerate.
2075         * generated/spread_i2.c: Regenerate.
2076         * generated/spread_i4.c: Regenerate.
2077         * generated/spread_i8.c: Regenerate.
2078         * generated/spread_r10.c: Regenerate.
2079         * generated/spread_r16.c: Regenerate.
2080         * generated/spread_r4.c: Regenerate.
2081         * generated/spread_r8.c: Regenerate.
2082         * generated/sum_c10.c: Regenerate.
2083         * generated/sum_c16.c: Regenerate.
2084         * generated/sum_c4.c: Regenerate.
2085         * generated/sum_c8.c: Regenerate.
2086         * generated/sum_i1.c: Regenerate.
2087         * generated/sum_i16.c: Regenerate.
2088         * generated/sum_i2.c: Regenerate.
2089         * generated/sum_i4.c: Regenerate.
2090         * generated/sum_i8.c: Regenerate.
2091         * generated/sum_r10.c: Regenerate.
2092         * generated/sum_r16.c: Regenerate.
2093         * generated/sum_r4.c: Regenerate.
2094         * generated/sum_r8.c: Regenerate.
2095         * generated/transpose_c10.c: Regenerate.
2096         * generated/transpose_c16.c: Regenerate.
2097         * generated/transpose_c4.c: Regenerate.
2098         * generated/transpose_c8.c: Regenerate.
2099         * generated/transpose_i16.c: Regenerate.
2100         * generated/transpose_i4.c: Regenerate.
2101         * generated/transpose_i8.c: Regenerate.
2102         * generated/transpose_r10.c: Regenerate.
2103         * generated/transpose_r16.c: Regenerate.
2104         * generated/transpose_r4.c: Regenerate.
2105         * generated/transpose_r8.c: Regenerate.
2106         * generated/unpack_c10.c: Regenerate.
2107         * generated/unpack_c16.c: Regenerate.
2108         * generated/unpack_c4.c: Regenerate.
2109         * generated/unpack_c8.c: Regenerate.
2110         * generated/unpack_i1.c: Regenerate.
2111         * generated/unpack_i16.c: Regenerate.
2112         * generated/unpack_i2.c: Regenerate.
2113         * generated/unpack_i4.c: Regenerate.
2114         * generated/unpack_i8.c: Regenerate.
2115         * generated/unpack_r10.c: Regenerate.
2116         * generated/unpack_r16.c: Regenerate.
2117         * generated/unpack_r4.c: Regenerate.
2118         * generated/unpack_r8.c: Regenerate.
2119
2120 2009-04-08  Janne Blomqvist  <jb@gcc.gnu.org>
2121
2122         * io/open.c (already_open): Test for POSIX close return value.
2123         * io/unit.c (close_unit_1): Likewise.
2124         * io/unix.c (raw_close): Return 0 for success for preconnected units.
2125
2126 2009-04-08  Janne Blomqvist  <jb@gcc.gnu.org>
2127
2128         * runtime/string.c (compare0): Use gfc_charlen_type.
2129         * runtime/error.c (gfc_itoa): Move to io/write.c
2130         (xtoa): Rename to gfc_xtoa.
2131         * runtime/backtrace.c (show_backtrace): Call gfc_xtoa.
2132         * intrinsics/cshift0.c (cshift0): Use index_type for shift arg.
2133         * intrinsics/date_and_time.c (date_and_time): Use index_type.
2134         (itime_i4): Likewise.
2135         (itime_i8): Likewise.
2136         (idate_i4): Likewise.
2137         (idate_i8): Likewise.
2138         (gmtime_i4): Likewise.
2139         (gmtime_i8): Likewise.
2140         (ltime_i4): Likewise.
2141         (ltime_i8): Likewise.
2142         * libgfortran.h (gfc_itoa): Remove prototype.
2143         (xtoa): Rename prototype to gfc_xtoa.
2144         * io/list_read.c (nml_read_obj): Use size_t for string length.
2145         * io/transfer.c (read_block_direct): Change nbytes arg from
2146         pointer to value.
2147         (unformatted_read): Minor cleanup, call read_block_directly properly.
2148         (skip_record): Use ssize_t.
2149         (next_record_w_unf): Avoid stell() call by calling sseek with SEEK_CUR.
2150         (iolength_transfer): Make sure to multiply before cast.
2151         * io/intrinsics.c (fgetc): Remove unnecessary variable.
2152         * io/format.c (format_hash): Use gfc_charlen_type.
2153         * io/write.c (itoa): Move from runtime/error.c:gfc_itoa, rename,
2154         make static.
2155         (write_i): Call with pointer to itoa.
2156         (write_z): Call with pointer to gfc_xtoa.
2157         (write_integer): Pointer to itoa.
2158         (nml_write_obj): Type cleanup, don't call strlen in loop.
2159
2160 2009-04-06  H.J. Lu  <hongjiu.lu@intel.com>
2161
2162         PR libgfortran/39664
2163         * io/unix.c (raw_close): Don't close STDOUT_FILENO,
2164         STDERR_FILENO nor STDIN_FILENO.
2165
2166 2009-04-06  David Edelsohn  <edelsohn@gnu.org>
2167
2168         * io/io.h (struct stream): Rename truncate to trunc.
2169         (struncate): Same.
2170         * io/unix.c (raw_init): Rename truncate to trunc.
2171         (buf_init): Same.
2172         (open_internal): Same.
2173
2174 2009-04-05  Daniel Kraft  <d@domob.eu>
2175
2176         PR fortran/38654
2177         * io/read.c (read_f): Reworked to speed up floating point parsing.
2178         (convert_real): Use pointer-casting instead of memcpy and temporaries.
2179
2180 2009-04-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2181
2182         PR libfortran/37754
2183         * io/io.h (format_hash_entry): New structure for hash table.
2184         (format_hash_table): The hash table itself.
2185         (free_format_data): Revise function prototype.
2186         (free_format_hash_table, init_format_hash,
2187         free_format_hash): New function prototypes.
2188         * io/unit.c (close_unit_1): Use free_format_hash_table.
2189         * io/transfer.c (st_read_done, st_write_done): Free format data if
2190         internal unit.
2191         * io/format.c (free_format_hash_table): New function that frees any
2192         memory allocated previously for cached format data.
2193         (reset_node): New static helper function to reset the format counters
2194         for a format node.
2195         (reset_fnode_counters): New static function recursively calls reset_node
2196         to traverse the fnode tree.
2197         (format_hash): New simple hash function based on XOR, probabalistic,
2198         tosses collisions.
2199         (save_parsed_format): New static function to save the parsed format
2200         data to use again.
2201         (find_parsed_format): New static function searches the hash table
2202         looking for a match.
2203         (free_format_data): Revised to accept pointer to format data rather than
2204         the dtp pointer so that the function can be used in more places.
2205         (format_lex): Editorial.
2206         (parse_format_list): Set flag used to determine of format data hashing
2207         is to be used.  Internal units are not persistent enough for this.
2208         (revert): Move to ne location in file.
2209         (parse_format): Use new functions to look for previously parsed
2210         format strings and use them rather than re-parse.  If not found, saves
2211         the parsed format data for later use.
2212
2213 2009-04-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2214
2215         PR libfortran/37754
2216         * io/transfer.c (formatted_transfer_scalar): Remove this function by
2217         factoring it into two new functions, one for read and one for write,
2218         eliminating all the conditionals for read or write mode.
2219         (formatted transfer_scalar_read): New function.
2220         (formatted transfer_scalar_write): New function.
2221         (formatted_transfer): Use new functions.
2222
2223 2009-04-05  Janne Blomqvist  <jb@gcc.gnu.org>
2224
2225         PR libfortran/25561 libfortran/37754
2226         * io/io.h (struct stream): Define new stream interface function
2227         pointers, and inline functions for accessing it.
2228         (struct fbuf): Use int instead of size_t, remove flushed element.
2229         (mem_alloc_w): New prototype.
2230         (mem_alloc_r): New prototype.
2231         (stream_at_bof): Remove prototype.
2232         (stream_at_eof): Remove prototype.
2233         (file_position): Remove prototype.
2234         (flush): Remove prototype.
2235         (stream_offset): Remove prototype.
2236         (unit_truncate): New prototype.
2237         (read_block_form): Change to return pointer, int* argument.
2238         (hit_eof): New prototype.
2239         (fbuf_init): Change prototype.
2240         (fbuf_reset): Change prototype.
2241         (fbuf_alloc): Change prototype.
2242         (fbuf_flush): Change prototype.
2243         (fbuf_seek): Change prototype.
2244         (fbuf_read): New prototype.
2245         (fbuf_getc_refill): New prototype.
2246         (fbuf_getc): New inline function.
2247         * io/fbuf.c (fbuf_init): Use int, get rid of flushed.
2248         (fbuf_debug): New function.
2249         (fbuf_reset): Flush, and return position offset.
2250         (fbuf_alloc): Simplify, don't flush, just realloc.
2251         (fbuf_flush): Make usable for read mode, salvage remaining bytes.
2252         (fbuf_seek): New whence argument.
2253         (fbuf_read): New function.
2254         (fbuf_getc_refill): New function.
2255         * io/file_pos.c (formatted_backspace): Use new stream interface.
2256         (unformatted_backspace): Likewise.
2257         (st_backspace): Make sure format buffer is reset, use new stream
2258         interface, use unit_truncate.
2259         (st_endfile): Likewise.
2260         (st_rewind): Likewise.
2261         * io/intrinsics.c: Use new stream interface.
2262         * io/list_read.c (push_char): Don't use u.p.scratch, use realloc
2263         to resize.
2264         (free_saved): Don't check u.p.scratch.
2265         (next_char): Use new stream interface, use fbuf_getc() for external files.
2266         (finish_list_read): flush format buffer.
2267         (nml_query): Update to use modified interface:s
2268         * io/open.c (test_endfile): Use new stream interface.
2269         (edit_modes): Likewise.
2270         (new_unit): Likewise, set bytes_left to 1 for stream files.
2271         * io/read.c (read_l): Use new read_block_form interface.
2272         (read_utf8): Likewise.
2273         (read_utf8_char1): Likewise.
2274         (read_default_char1): Likewise.
2275         (read_utf8_char4): Likewise.
2276         (read_default_char4): Likewise.
2277         (read_a): Likewise.
2278         (read_a_char4): Likewise.
2279         (read_decimal): Likewise.
2280         (read_radix): Likewise.
2281         (read_f): Likewise.
2282         * io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
2283         usage of u.p.line_buffer.
2284         (read_block_form): Update interface to return pointer, use
2285         fbuf_read for direct access.
2286         (read_block_direct): Update to new stream interface.
2287         (write_block): Use mem_alloc_w for internal I/O.
2288         (write_buf): Update to new stream interface.
2289         (formatted_transfer_scalar): Don't use u.p.line_buffer, use
2290         fbuf_seek for external files.
2291         (us_read): Update to new stream interface.
2292         (us_write): Likewise.
2293         (data_transfer_init): Always check if we switch modes and flush.
2294         (skip_record): Use new stream interface, fix comparison.
2295         (next_record_r): Check for and reset u.p.at_eof, use new stream
2296         interface, use fbuf_getc for spacing.
2297         (write_us_marker): Update to new stream interface, don't inline.
2298         (next_record_w_unf): Likewise.
2299         (sset): New function.
2300         (next_record_w): Use new stream interface, use fbuf for printing
2301         newline.
2302         (next_record): Use new stream interface.
2303         (finalize_transfer): Remove sfree call, use new stream interface.
2304         (st_iolength_done): Don't use u.p.scratch.
2305         (st_read): Don't check for end of file.
2306         (st_read_done): Don't use u.p.scratch, use unit_truncate.
2307         (hit_eof): New function.
2308         * io/unit.c (init_units): Always init fbuf for formatted units.
2309         (update_position): Use new stream interface.
2310         (unit_truncate): New function.
2311         (finish_last_advance_record): Use fbuf to print newline.
2312         * io/unix.c: Remove unused SSIZE_MAX macro.
2313         (BUFFER_SIZE): Make static const variable rather than macro.
2314         (struct unix_stream): Remove dirty_offset, len, method,
2315         small_buffer. Order elements by decreasing size.
2316         (struct int_stream): Remove.
2317         (move_pos_offset): Remove usage of dirty_offset.
2318         (reset_stream): Remove.
2319         (do_read): Rename to raw_read, update to match new stream
2320         interface.
2321         (do_write): Rename to raw_write, update to new stream interface.
2322         (raw_seek): New function.
2323         (raw_tell): New function.
2324         (raw_truncate): New function.
2325         (raw_close): New function.
2326         (raw_flush): New function.
2327         (raw_init): New function.
2328         (fd_alloc): Remove.
2329         (fd_alloc_r_at): Remove.
2330         (fd_alloc_w_at): Remove.
2331         (fd_sfree): Remove.
2332         (fd_seek): Remove.
2333         (fd_truncate): Remove.
2334         (fd_sset): Remove.
2335         (fd_read): Remove.
2336         (fd_write): Remove.
2337         (fd_close): Remove.
2338         (fd_open): Remove.
2339         (fd_flush): Rename to buf_flush, update to new stream interface
2340         and unix_stream.
2341         (buf_read): New function.
2342         (buf_write): New function.
2343         (buf_seek): New function.
2344         (buf_tell): New function.
2345         (buf_truncate): New function.
2346         (buf_close): New function.
2347         (buf_init): New function.
2348         (mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
2349         (mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
2350         (mem_read): Change to match new stream interface.
2351         (mem_write): Likewise.
2352         (mem_seek): Likewise.
2353         (mem_tell): Likewise.
2354         (mem_truncate): Likewise.
2355         (mem_close): Likewise.
2356         (mem_flush): New function.
2357         (mem_sfree): Remove.
2358         (empty_internal_buffer): Cast to correct type.
2359         (open_internal): Use correct type, init function pointers.
2360         (fd_to_stream): Test whether to open file as buffered or raw.
2361         (output_stream): Remove mode set.
2362         (error_stream): Likewise.
2363         (flush_all_units_1): Use new stream interface.
2364         (flush_all_units): Likewise.
2365         (stream_at_bof): Remove.
2366         (stream_at_eof): Remove.
2367         (file_position): Remove.
2368         (file_length): Update logic to use stream interface.
2369         (flush): Remove.
2370         (stream_offset): Remove.
2371         * io/write.c (write_utf8_char4): Use int instead of size_t.
2372         (write_x): Extra safety check.
2373         (namelist_write_newline): Use new stream interface.
2374
2375 2009-03-29  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
2376
2377         PR fortran/33595
2378         * intrinsics/c99_functions.c (round): Use floor instead of ceil.
2379         Revise checks to round up.
2380         (roundf): Likewise.
2381
2382 2009-03-28  Daniel Kraft  <d@domob.eu>
2383
2384         * intrinsics/string_intrinsics.c: #include <assert.h>
2385         * intrinsics/string_intrinsics_inc.c (string_trim): Use string_len_trim
2386         instead of calculating the length directly.
2387         (string_len_trim): For KIND=1, speed search up.
2388
2389 2009-03-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2390
2391         PR libfortran/39528
2392         * io/list_read.c (list_formatted_read_scalar): Move check for read
2393         completion to just after the check for a repeated value.
2394
2395 2009-03-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2396
2397         PR libfortran/39402
2398         * io/write_float.def (output_float): Handle F0.d formatting correctly
2399         for any d when value is 0.0.
2400
2401 2009-03-01  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
2402
2403         * configure: Regenerate.
2404
2405 2009-01-21  Daniel Kraft  <d@domob.eu>
2406
2407         PR fortran/38887
2408         * runtime/in_unpack_generic.c (internal_unpack):  Return instead of
2409         abort when called with empty array.
2410         * m4/in_unpack.m4:  Ditto.
2411         * generated/in_unpack_i1.c:  Regenerated.
2412         * generated/in_unpack_i2.c:  Regenerated.
2413         * generated/in_unpack_i4.c:  Regenerated.
2414         * generated/in_unpack_i8.c:  Regenerated.
2415         * generated/in_unpack_i16.c: Regenerated.
2416         * generated/in_unpack_r4.c:  Regenerated.
2417         * generated/in_unpack_r8.c:  Regenerated.
2418         * generated/in_unpack_r10.c: Regenerated.
2419         * generated/in_unpack_r16.c: Regenerated.
2420         * generated/in_unpack_c4.c:  Regenerated.
2421         * generated/in_unpack_c8.c:  Regenerated.
2422         * generated/in_unpack_c10.c: Regenerated.
2423         * generated/in_unpack_c16.c: Regenerated.
2424
2425 2009-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2426
2427         PR libfortran/38772
2428         * io/read.c (read_f): Clean up loop conditions for BZ/BN,
2429         allowing proper digit testing. White space fix.
2430
2431 2009-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2432
2433         PR libfortran/38735
2434         * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
2435         internal units.
2436
2437 2008-12-29  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
2438
2439         PR fortran/31832
2440         * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_POWF): New autoconf check for
2441         broken powf.
2442         * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_POWF): Use it.
2443         * intrinsics/c99_functions.c: Use internal powf implementation if
2444         HAVE_BROKEN_POWF is defined.
2445         * configure: Rebuilt.
2446         * config.h.in: Rebuilt.
2447
2448 2008-12-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2449
2450         PR libfortran/37472
2451         * io/write_float.def (output_float_FMT_G_): Modify calculation of temp
2452         to avoid sensitivity to round-off.
2453
2454 2008-12-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2455
2456         PR libfortran/38398
2457         * io/io.h (st_parameter_dt): Add new bit to keep track of when to
2458         suppress blanks for g0 formatting.
2459         * io/transfer.c (formatted_transfer_scalar): Always call write_real_g0
2460         for g0 formatting.
2461         * io.c (write.c): Do not use ES formatting and use new bit to suppress
2462         blanks.
2463         * io/write_float.def (output_float): Adjust the location of setting the
2464         width so that it can be adjusted when suppressing blanks.  Set number of
2465         blanks to zero when dtp->u.p.g0_no_blanks is set. Do some minor code
2466         clean-up and add some white space for readability.
2467
2468 2008-12-18  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
2469
2470         * configure: Regenerate.
2471
2472 2008-12-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2473
2474         PR libfortran/38504
2475         io/write.c (write_decimal): Skip extra sign '-' at beginning of string
2476         returned by gfc_itoa.
2477
2478 2008-12-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2479
2480         PR libfortran/38430
2481         * io/transfer.c (data_transfer_init): Move constraint check for REC=
2482         and STREAM access into condition for other REC= constraints to simplify.
2483         Comment out this constraint to avoid breaking compatibility with 4.3
2484         until later.  Added a TODO for above comment and this one.
2485         Fix test for max pos.
2486
2487 2008-12-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2488
2489         PR libfortran/38291
2490         * io/transfer.c (data_transfer_init): Add fbuf_flush inadvertently
2491         ommitted.  Add check for invalid use of REC= with ACCESS="stream".  Fix
2492         comment.
2493
2494 2008-12-06  Adam Nemet  <anemet@caviumnetworks.com>
2495
2496         * runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
2497
2498 2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2499
2500         PR libfortran/38291
2501         * io/transfer.c (data_transfer_init): Add checks for POS= valid range.
2502         Add check for unit opened with ACCESS="stream". Flush and seek if
2503         current stream position does not match. Check ENDFILE on read.
2504
2505 2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2506
2507         PR fortran/38285
2508         * write_float.def (WRITE_FLOAT): Zero the float value for special case
2509         only if scale_factor = 0.
2510
2511 2008-11-23  Thomas Koenig  <tkoenig@gcc.gnu.org>
2512
2513         PR libfortran/38234
2514         * intrinsics/reshape_generic.c (reshape_internal):
2515         Source can be larger than shape.
2516         * m4/reshape.m4:  Likewise.
2517         * generated/reshape_c10.c Regenerated.
2518         * generated/reshape_c16.c Regenerated.
2519         * generated/reshape_c4.c Regenerated.
2520         * generated/reshape_c8.c Regenerated.
2521         * generated/reshape_i16.c Regenerated.
2522         * generated/reshape_i4.c Regenerated.
2523         * generated/reshape_i8.c Regenerated.
2524         * generated/reshape_r10.c Regenerated.
2525         * generated/reshape_r16.c Regenerated.
2526         * generated/reshape_r4.c Regenerated.
2527         * generated/reshape_r8.c Regenerated.
2528
2529 2008-11-22  Danny Smith  <dannysmith@users.sourceforge.net>
2530
2531         * libgfortran.h (__mingw_snprintf): Declare with gnu_printf
2532         format attribute.
2533
2534
2535 2008-11-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
2536
2537         PR libfortran/38225
2538         * intrinsics/reshape_generic.c (reshape_internal):
2539         Use all dimensions of source for bounds checking.
2540         * m4/reshape.m4:  Likewise.
2541         * generated/reshape_c10.c Regenerated.
2542         * generated/reshape_c16.c Regenerated.
2543         * generated/reshape_c4.c Regenerated.
2544         * generated/reshape_c8.c Regenerated.
2545         * generated/reshape_i16.c Regenerated.
2546         * generated/reshape_i4.c Regenerated.
2547         * generated/reshape_i8.c Regenerated.
2548         * generated/reshape_r10.c Regenerated.
2549         * generated/reshape_r16.c Regenerated.
2550         * generated/reshape_r4.c Regenerated.
2551         * generated/reshape_r8.c Regenerated.
2552
2553 2008-11-22  Jakub Jelinek  <jakub@redhat.com>
2554
2555         PR libfortran/37839
2556         * io/io.h (IOPARM_INQUIRE_HAS_ROUND, IOPARM_INQUIRE_HAS_SIGN,
2557         IOPARM_INQUIRE_HAS_PENDING): Adjust values.
2558         (st_parameter_inquire): Reorder and fix types of round, sign and
2559         pending fields.
2560         (st_parameter_43, st_parameter_44): Removed.
2561         (st_parameter_dt): Put back struct definition directly to u.p
2562         declaration.  Change type of u.p.size_used from gfc_offset to
2563         GFC_IO_INT.  Decrease back size of u.pad to 16 pointers and
2564         32 ints.  Put id, pos, asynchronous, blank, decimal, delim,
2565         pad, round and sign fields after the union.
2566         * io/inquire.c (inquire_via_unit, inquire_via_filename): Only read
2567         flags2 if it is defined.
2568         * io/transfer.c (read_sf, read_block_form, write_block): Cast
2569         additions to size_used to GFC_IO_INT instead of gfc_offset.
2570         (data_transfer_init): Clear whole u.p struct.  Adjust
2571         for moving id, pos, asynchronous, blank, decimal, delim, pad,
2572         round and sign fields from u.p directly into st_parameter_dt.
2573         (finalize_transfer): Don't cast size_used to GFC_IO_INT.
2574         * io/file_pos.c (st_endfile): Clear whole u.p struct.
2575
2576 2008-11-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2577
2578         PR libfortran/37472
2579         * io/write_float.def (output_float_FMT_G_): Adjust conversion of
2580         G format specification to F format.
2581
2582 2008-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>
2583
2584         PR libfortran/38135
2585         * m4/reshape.m4:  Correct bounds checking when PAD is present.
2586         Treat PAD as if it were SOURCE when SOURCE is empty.
2587         * intrinsics/reshape_generic.c:  Likewise.
2588         * generated/reshape_c10.c Regenerated.
2589         * generated/reshape_c16.c Regenerated.
2590         * generated/reshape_c4.c Regenerated.
2591         * generated/reshape_c8.c Regenerated.
2592         * generated/reshape_i16.c Regenerated.
2593         * generated/reshape_i4.c Regenerated.
2594         * generated/reshape_i8.c Regenerated.
2595         * generated/reshape_r10.c Regenerated.
2596         * generated/reshape_r16.c Regenerated.
2597         * generated/reshape_r4.c Regenerated.
2598         * generated/reshape_r8.c Regenerated.
2599
2600 2008-11-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2601
2602         PR libfortran/38097
2603         * io/read.c (read_f): Initialize exponent. Fix comment. Set loop
2604         conditions for BZ/BN.
2605         * io/unit.c (get_internal_unit): Initialize flags.blank.
2606         * io/transfer.c (data_transfer_init): Fix whitespace.
2607
2608 2008-11-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2609
2610         PR libfortran/37294
2611         * io/write.c (namelist_write_newline): Use array loop specification to
2612         advance to next internal array unit record. (namelist_write): Adjust to
2613         accomodate the internal array unit behavior.
2614
2615 2008-11-01  Dennis Wassel  <dennis.wassel@gmail.com>
2616
2617         PR fortran/37159
2618         * intrinsics/random.c: Added comment to adapt check.c, should
2619         kiss_size change.
2620         Few cosmetic changes to existing comments.
2621
2622 2008-10-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2623
2624         PR libfortran/37707
2625         * io/list_read.c (read_character): Remove code to look ahead in namelist
2626         reads to descriminate non-delimited strings from namelist objects.
2627         * io/write.c (namelist_write): Delimit character strings with quote or
2628         apostrophe, defaulting to quote.
2629
2630 2008-10-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
2631
2632         PR libfortran/34670
2633         * intrinsics/transpose_generic.c:  Implement bounds checking.
2634         * m4/transpose.m4:  Likewise.
2635         * generated/transpose_c8.c: Regenerated.
2636         * generated/transpose_c16.c: Regenerated.
2637         * generated/transpose_r10.c: Regenerated.
2638         * generated/transpose_i8.c: Regenerated.
2639         * generated/transpose_c10.c: Regenerated.
2640         * generated/transpose_r4.c: Regenerated.
2641         * generated/transpose_c4.c: Regenerated.
2642         * generated/transpose_i16.c: Regenerated.
2643         * generated/transpose_i4.c: Regenerated.
2644         * generated/transpose_r8.c: Regenerated.
2645         * generated/transpose_r16.c: Regenerated.
2646
2647 2008-10-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2648
2649         PR libfortran/37834
2650         * io/write_float.def (output_float): Emit '0.' for special case of
2651         format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
2652
2653 2008-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2654
2655         PR libfortran/37863
2656         * io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
2657         * io/io.h (st_parameter_44): Fix id type declaration.
2658
2659 2008-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
2660
2661         * io/file_pos.c (unformatted_backspace): Normal case is
2662         GFC_CONVERT_NATIVE.
2663         * io/transfer.c (read_sf):  Mark paths leading to generate_error()
2664         as unlikely.
2665         (readl_block_form):  Likewise.
2666         (read_block_direct):  Likewise.
2667         (write_block):  Likewise.
2668         (write_buf):  Likewise.
2669         (us_read):  Likewise.  Normal case is GFC_CONVERT_NATIVE.
2670         (next_record_w_unf):  Mark paths leading to generate_error()
2671         as unlikely.
2672
2673 2008-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
2674
2675         PR libfortran/34670
2676         * generated/spread_r4.c: Regenerated.
2677
2678 2008-10-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
2679
2680         PR libfortran/34670
2681         * intrinsics/reshape_generic.c:  Add bounds checking.
2682         * m4/reshape.m4:  Likewise.
2683         * generated/reshape_c10.c: Regenerated.
2684         * generated/reshape_c16.c: Regenerated.
2685         * generated/reshape_c4.c: Regenerated.
2686         * generated/reshape_c8.c: Regenerated.
2687         * generated/reshape_i16.c: Regenerated.
2688         * generated/reshape_i4.c: Regenerated.
2689         * generated/reshape_i8.c: Regenerated.
2690         * generated/reshape_r10.c: Regenerated.
2691         * generated/reshape_r16.c: Regenerated.
2692         * generated/reshape_r4.c: Regenerated.
2693         * generated/reshape_r8.c: Regenerated.
2694         * generated/spread_r4.c: Regenerated.
2695
2696 2008-10-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2697
2698         PR libfortran/37083
2699         * io/list_read.c (next_char): Simplify EOF tests and set endfile flag.
2700         (finish_list_read): Add EOF check.
2701
2702 2008-10-09  Thomas Koenig  <tkoenig@gcc.gnu.org>
2703
2704         PR libfortran/37753
2705         * io/transfer.c (unformatted_read):  CONVERT_NATIVE
2706         is the usual case.  Check for kind==1 for non-byte-reversing
2707         operation.
2708         (unformatted_write):  Likewise.
2709
2710 2008-10-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2711
2712         PR libfortran/37707
2713         * io/list_read.c (nml_get_obj_data): If the first namelist object rank
2714         is greater than zero, call nml_object_read with the first object rather
2715         than the sub-object.
2716
2717 2008-09-26  Peter O'Gorman  <pogma@thewrittenword.com>
2718             Steve Ellcey  <sje@cup.hp.com>
2719
2720         * configure: Regenerate for new libtool.
2721         * Makefile.in: Ditto.
2722
2723 2008-09-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2724
2725         PR libfortran/37498
2726         * list_read.c (eat_separator): Revert previous patch and move
2727         delim_status, decimal_status, and pad_status to gfc_unit.
2728         (parse_real): Ditto. (read_real): Ditto.
2729         * read.c (read_a): Likewise. (read_a_char4): Likewise.
2730         (read_f): Likewise.
2731         * inquire.c (inquire_via_unit): Add missing check for
2732         IOPARM_INQUIRE_HAS_FLAGS2. (inquire_via_filename): Likewise.
2733         * io.h (unit_sign_s): Move delim_status, decimal_status, and pad_status
2734         to gfc_unit.
2735         * transfer.c (read_sf): Ditto. (read_block_form): Ditto.
2736         (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto.
2737         * write.c (write_default_char4): Ditto. (write_utf8_char4): Ditto.
2738         (write_character): Ditto. (write_real_g0): Ditto.
2739         (list_formatted_write_scalar): Ditto. (nml_write_obj): Ditto.
2740         (namelist_write): Ditto.
2741         * write_float.def (calculate_sign): Ditto. (output_float): Ditto.
2742
2743 2008-09-24  Tobias Burnus  <burnus@net-b.de>
2744
2745         * runtime/compile_options.c (init_compile_options):
2746         Sync flags with front end.
2747
2748 2008-09-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2749
2750         PR libfortran/37498
2751         * file_pos (st_endfile): Clear memory only for libfortran 4.3 private
2752         area.
2753         * list_read.c (eat_separator): Only access F2003 I/O parameters if
2754         IOPARM_DT_HAS_F2003 bit is set. (parse_real): Ditto.
2755         (read_real): Ditto.
2756         * read.c (read_a): Likewise. (read_a_char4): Likewise though not
2757         strictly necessary. (read_f): Likewise.
2758         * io.h (unit_sign_s): New enumerator to allow duplication of
2759         st_parameter structures. (IOPARM_DT_HAS_F2003): New mask bit.
2760         (st_parameter_43): New structure copied from 4.3 version of
2761         st_paramater_dt private section. (st_parameter_44): New structure with
2762         F2003 items added. (st_parameter_dt): Modified to create union of new
2763         and old structures to allow correct memory setting for 4.3 ABI
2764         compatibility. Bumped the pad size.
2765         * transfer.c (read_sf): Do not use F2003 I/O memory areas unless
2766         IOPARM_DT_HAS_F2003 bit has been set. (read_block_form): Ditto.
2767         (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto and
2768         add comment, fix formatting.
2769         * write.c (write_default_char4): Likewise though not strictly necessary.
2770         (write_utf8_char4): Ditto. (write_character): Ditto.
2771         (write_real_g0): Ditto. (list_formatted_write_scalar): Ditto.
2772         (nml_write_obj): Ditto. (namelist_write): Ditto.
2773         * write_float.def (calculate_sign): Eliminate warning by including all
2774         cases in switch. (output_float): Output only decimal point of F2003 flag
2775         is not set.
2776
2777 2008-09-10  Tobias Burnus  <burnus@net-b.de>
2778             H. J. Lu  <hongjiu.lu@intel.com>
2779
2780         * mk-sik-inc.sh: Make -Wunused-variable proof.
2781         * mk-srk-inc.sh: Make -Wunused-variable proof.
2782
2783 2008-09-10  Tobias Burnus  <burnus@net-b.de>
2784
2785         * mk-kinds-h.sh: Make -Wunused-variable proof.
2786
2787 2008-09-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
2788
2789         PR fortran/37203
2790         * intrinsics/reshape_generic.c:  Add checking on
2791         out-of-bounds and duplicate values of order argument.
2792         * m4/reshape.m4:  Likewise.
2793         * generated/reshape_c10.c: Regenerated.
2794         * generated/reshape_c16.c: Regenerated.
2795         * generated/reshape_c4.c: Regenerated.
2796         * generated/reshape_c8.c: Regenerated.
2797         * generated/reshape_i16.c: Regenerated.
2798         * generated/reshape_i4.c: Regenerated.
2799         * generated/reshape_i8.c: Regenerated.
2800         * generated/reshape_r10.c: Regenerated.
2801         * generated/reshape_r16.c: Regenerated.
2802         * generated/reshape_r4.c: Regenerated.
2803         * generated/reshape_r8.c: Regenerated.
2804
2805 2008-09-06  Tobias Burnus  <burnus@net-b.de>
2806
2807         * libgfortran.h (likely,unlikely): New makros.
2808         (runtime_warning_at,__mingw_snprintf): Add __attribute__(format()).
2809         * m4/spread.m4 (spread_'rtype_code`): Use unlikely for bounds_check.
2810         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Ditto.
2811         * m4/matmull.m4 (matmul_'rtype_code`): Ditto.
2812         * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Ditto.
2813         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Ditto.
2814         * m4/matmul.m4 (matmul_'rtype_code`): Ditto.
2815
2816         * generated/minval_r8.c: Regenerated.
2817         * generated/spread_r10.c: Regenerated.
2818         * generated/minloc1_16_r16.c: Regenerated.
2819         * generated/maxloc1_4_r8.c: Regenerated.
2820         * generated/sum_i8.c: Regenerated.
2821         * generated/any_l16.c: Regenerated.
2822         * generated/spread_i8.c: Regenerated.
2823         * generated/maxval_i2.c: Regenerated.
2824         * generated/any_l2.c: Regenerated.
2825         * generated/product_r4.c: Regenerated.
2826         * generated/maxloc1_8_i4.c: Regenerated.
2827         * generated/maxloc0_4_r4.c: Regenerated.
2828         * generated/all_l1.c: Regenerated.
2829         * generated/matmul_r8.c: Regenerated.
2830         * generated/product_i2.c: Regenerated.
2831         * generated/minloc0_4_r16.c: Regenerated.
2832         * generated/minloc0_4_i1.c: Regenerated.
2833         * generated/maxloc0_4_r16.c: Regenerated.
2834         * generated/maxloc0_4_i2.c: Regenerated.
2835         * generated/minloc1_8_r16.c: Regenerated.
2836         * generated/maxloc1_8_r16.c: Regenerated.
2837         * generated/maxloc0_8_i8.c: Regenerated.
2838         * generated/sum_r16.c: Regenerated.
2839         * generated/sum_i1.c: Regenerated.
2840         * generated/minloc1_4_r8.c: Regenerated.
2841         * generated/maxloc1_16_r16.c: Regenerated.
2842         * generated/minloc1_16_i4.c: Regenerated.
2843         * generated/maxloc1_16_i4.c: Regenerated.
2844         * generated/minloc0_16_i8.c: Regenerated.
2845         * generated/spread_i1.c: Regenerated.
2846         * generated/maxloc0_16_i8.c: Regenerated.
2847         * generated/maxval_r16.c: Regenerated.
2848         * generated/product_c10.c: Regenerated.
2849         * generated/minloc1_8_i4.c: Regenerated.
2850         * generated/minloc0_16_i16.c: Regenerated.
2851         * generated/matmul_r16.c: Regenerated.
2852         * generated/minloc0_4_r4.c: Regenerated.
2853         * generated/all_l2.c: Regenerated.
2854         * generated/product_c4.c: Regenerated.
2855         * generated/sum_r4.c: Regenerated.
2856         * generated/minloc0_4_i2.c: Regenerated.
2857         * generated/spread_c10.c: Regenerated.
2858         * generated/maxloc0_8_i1.c: Regenerated.
2859         * generated/spread_r4.c: Regenerated.
2860         * generated/minloc0_8_i8.c: Regenerated.
2861         * generated/matmul_c8.c: Regenerated.
2862         * generated/all_l16.c: Regenerated.
2863         * generated/minloc1_16_r10.c: Regenerated.
2864         * generated/sum_i2.c: Regenerated.
2865         * generated/minloc0_16_i1.c: Regenerated.
2866         * generated/maxloc0_16_i1.c: Regenerated.
2867         * generated/maxloc1_8_r8.c: Regenerated.
2868         * generated/minval_i16.c: Regenerated.
2869         * generated/spread_i2.c: Regenerated.
2870         * generated/maxval_i4.c: Regenerated.
2871         * generated/minval_i8.c: Regenerated.
2872         * generated/any_l4.c: Regenerated.
2873         * generated/maxloc1_4_i8.c: Regenerated.
2874         * generated/maxloc0_16_i16.c: Regenerated.
2875         * generated/maxloc0_8_r4.c: Regenerated.
2876         * generated/minloc1_4_i16.c: Regenerated.
2877         * generated/maxloc1_4_i16.c: Regenerated.
2878         * generated/minloc0_4_r10.c: Regenerated.
2879         * generated/minloc0_8_i16.c: Regenerated.
2880         * generated/maxloc0_4_r10.c: Regenerated.
2881         * generated/maxloc0_8_i16.c: Regenerated.
2882         * generated/minloc1_8_r10.c: Regenerated.
2883         * generated/product_i4.c: Regenerated.
2884         * generated/minloc0_16_r4.c: Regenerated.
2885         * generated/sum_c16.c: Regenerated.
2886         * generated/maxloc1_8_r10.c: Regenerated.
2887         * generated/maxloc0_16_r4.c: Regenerated.
2888         * generated/minloc1_16_r8.c: Regenerated.
2889         * generated/minloc0_8_i1.c: Regenerated.
2890         * generated/maxloc0_4_i4.c: Regenerated.
2891         * generated/maxloc1_16_r8.c: Regenerated.
2892         * generated/maxloc0_8_i2.c: Regenerated.
2893         * generated/sum_r10.c: Regenerated.
2894         * generated/count_4_l.c: Regenerated.
2895         * generated/sum_c4.c: Regenerated.
2896         * generated/count_8_l.c: Regenerated.
2897         * generated/maxloc1_16_r10.c: Regenerated.
2898         * generated/matmul_i8.c: Regenerated.
2899         * generated/minloc0_16_i2.c: Regenerated.
2900         * generated/minloc1_8_r8.c: Regenerated.
2901         * generated/maxloc0_16_i2.c: Regenerated.
2902         * generated/spread_c4.c: Regenerated.
2903         * generated/matmul_c16.c: Regenerated.
2904         * generated/maxval_r10.c: Regenerated.
2905         * generated/minval_i1.c: Regenerated.
2906         * generated/maxloc1_4_i1.c: Regenerated.
2907         * generated/matmul_r10.c: Regenerated.
2908         * generated/minloc1_4_i8.c: Regenerated.
2909         * generated/minloc0_8_r4.c: Regenerated.
2910         * generated/matmul_l4.c: Regenerated.
2911         * generated/product_i16.c: Regenerated.
2912         * generated/minloc0_16_r16.c: Regenerated.
2913         * generated/all_l4.c: Regenerated.
2914         * generated/minloc0_4_i4.c: Regenerated.
2915         * generated/minloc0_8_i2.c: Regenerated.
2916         * generated/matmul_i1.c: Regenerated.
2917         * generated/minval_r4.c: Regenerated.
2918         * generated/maxloc1_4_r4.c: Regenerated.
2919         * generated/spread_i16.c: Regenerated.
2920         * generated/sum_i4.c: Regenerated.
2921         * generated/maxval_r8.c: Regenerated.
2922         * generated/spread_i4.c: Regenerated.
2923         * generated/minloc1_4_i1.c: Regenerated.
2924         * generated/minval_r16.c: Regenerated.
2925         * generated/minval_i2.c: Regenerated.
2926         * generated/maxloc1_4_i2.c: Regenerated.
2927         * generated/product_r8.c: Regenerated.
2928         * generated/maxloc1_8_i8.c: Regenerated.
2929         * generated/maxloc0_4_r8.c: Regenerated.
2930         * generated/maxloc0_16_r16.c: Regenerated.
2931         * generated/matmul_r4.c: Regenerated.
2932         * generated/sum_c10.c: Regenerated.
2933         * generated/minloc1_4_r16.c: Regenerated.
2934         * generated/maxloc1_4_r16.c: Regenerated.
2935         * generated/minloc0_8_r16.c: Regenerated.
2936         * generated/maxloc0_8_r16.c: Regenerated.
2937         * generated/count_1_l.c: Regenerated.
2938         * generated/maxloc0_8_i4.c: Regenerated.
2939         * generated/matmul_i2.c: Regenerated.
2940         * generated/minloc1_4_r4.c: Regenerated.
2941         * generated/matmul_c10.c: Regenerated.
2942         * generated/minloc0_16_i4.c: Regenerated.
2943         * generated/maxloc0_16_i4.c: Regenerated.
2944         * generated/minloc1_16_i8.c: Regenerated.
2945         * generated/maxloc1_16_i8.c: Regenerated.
2946         * generated/minloc1_4_i2.c: Regenerated.
2947         * generated/matmul_l16.c: Regenerated.
2948         * generated/maxloc1_8_i1.c: Regenerated.
2949         * generated/minloc0_16_r10.c: Regenerated.
2950         * generated/minloc1_8_i8.c: Regenerated.
2951         * generated/minloc0_4_r8.c: Regenerated.
2952         * generated/product_r16.c: Regenerated.
2953         * generated/product_c8.c: Regenerated.
2954         * generated/sum_r8.c: Regenerated.
2955         * generated/minloc0_8_i4.c: Regenerated.
2956         * generated/matmul_c4.c: Regenerated.
2957         * generated/minloc1_16_i16.c: Regenerated.
2958         * generated/spread_r8.c: Regenerated.
2959         * generated/maxloc1_8_r4.c: Regenerated.
2960         * generated/minloc1_16_i1.c: Regenerated.
2961         * generated/maxloc1_16_i1.c: Regenerated.
2962         * generated/spread_r16.c: Regenerated.
2963         * generated/minval_r10.c: Regenerated.
2964         * generated/count_16_l.c: Regenerated.
2965         * generated/minval_i4.c: Regenerated.
2966         * generated/minloc1_8_i1.c: Regenerated.
2967         * generated/maxloc1_4_i4.c: Regenerated.
2968         * generated/maxloc1_8_i2.c: Regenerated.
2969         * generated/maxval_i8.c: Regenerated.
2970         * generated/any_l8.c: Regenerated.
2971         * generated/maxloc0_16_r10.c: Regenerated.
2972         * generated/minloc0_4_i16.c: Regenerated.
2973         * generated/maxloc0_8_r8.c: Regenerated.
2974         * generated/maxloc0_4_i16.c: Regenerated.
2975         * generated/minloc1_4_r10.c: Regenerated.
2976         * generated/minloc1_8_i16.c: Regenerated.
2977         * generated/maxloc1_4_r10.c: Regenerated.
2978         * generated/maxloc1_8_i16.c: Regenerated.
2979         * generated/minloc0_8_r10.c: Regenerated.
2980         * generated/maxloc0_8_r10.c: Regenerated.
2981         * generated/minloc1_16_r4.c: Regenerated.
2982         * generated/maxloc1_16_r4.c: Regenerated.
2983         * generated/minloc0_16_r8.c: Regenerated.
2984         * generated/product_i8.c: Regenerated.
2985         * generated/maxloc0_16_r8.c: Regenerated.
2986         * generated/sum_i16.c: Regenerated.
2987         * generated/count_2_l.c: Regenerated.
2988         * generated/maxloc0_4_i8.c: Regenerated.
2989         * generated/maxloc1_16_i16.c: Regenerated.
2990         * generated/matmul_i4.c: Regenerated.
2991         * generated/minloc1_8_r4.c: Regenerated.
2992         * generated/sum_c8.c: Regenerated.
2993         * generated/minloc1_16_i2.c: Regenerated.
2994         * generated/maxloc1_16_i2.c: Regenerated.
2995         * generated/maxval_i16.c: Regenerated.
2996         * generated/spread_c8.c: Regenerated.
2997         * generated/matmul_i16.c: Regenerated.
2998         * generated/minloc1_4_i4.c: Regenerated.
2999         * generated/maxval_i1.c: Regenerated.
3000         * generated/minloc1_8_i2.c: Regenerated.
3001         * generated/any_l1.c: Regenerated.
3002         * generated/product_c16.c: Regenerated.
3003         * generated/minloc0_8_r8.c: Regenerated.
3004         * generated/matmul_l8.c: Regenerated.
3005         * generated/product_r10.c: Regenerated.
3006         * generated/product_i1.c: Regenerated.
3007         * generated/all_l8.c: Regenerated.
3008         * generated/maxloc0_4_i1.c: Regenerated.
3009         * generated/minloc0_4_i8.c: Regenerated.
3010         * generated/spread_c16.c: Regenerated.
3011         * generated/maxval_r4.c: Regenerated.
3012
3013 2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3014
3015         PR libfortran/37301
3016         PR libfortran/37228
3017         * io/io.h (write_real_g0): Declare new function to handle g0.d format.
3018         * io/transfer.c (formatted_transfer_scalar): Use new function.
3019         * io/format.c (parse_format_list): Enable g0.d.
3020         * io/write.c (write_a_char4): Delete unused var.
3021         (set_fnode_default): New function to set the default fnode w, d, and e
3022         factored from write_real. (write_real): Use new factored function.
3023         (write_real_g0): New function that sets d to that passed by g0.d format
3024         specifier and set format to ES.  Default values for w and e are used
3025         from the new function, set_fnode_default.
3026
3027 2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3028
3029         * runtime/error.c: Fix cast for printf.
3030
3031 2008-08-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3032
3033         PR libfortran/36895
3034         * io/write.c (namelist_write_newline): New function to correctly mark
3035         next records in both external and internal units.
3036         (nml_write_obj): Use new function.
3037         (namelist_write: Use new function.
3038
3039 2008-08-19  Tobias Burnus  <burnus@net-b.de>
3040
3041         PR libfortran/35863
3042         * io/write.c (write_a_char4): Add missing variable declaration
3043         in HAVE_CRLF block.
3044
3045 2008-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3046
3047         PR libfortran/35863
3048         * intrinsics/selected_char_kind.c: Enable iso_10646.
3049         * io/read.c (typedef uchar): New type.
3050         (read_utf8): New function to read a single UTF-8 encoded character.
3051         (read_utf8_char1): New function to read UTF-8 into a KIND=1 string.
3052         (read_default_char1): New functio to read default into KIND=1 string.
3053         (read_utf8_char4): New function to read UTF-8 into a KIND=4 string.
3054         (read_default_char4): New function to read UTF-8 into a KIND=4 string.
3055         (read_a): Modify to use the new functions.
3056         (read_a_char4): Modify to use the new functions.
3057         * io/write.c (error.h): Add include. (typedef uchar): New type.
3058         (write_default_char4): New function to default write KIND=4 string.
3059         (write_utf8_char4): New function to UTF-8 write KIND=4 string.
3060         (write_a_char4): Modify to use new functions.
3061         (write_character): Modify to use new functions.
3062
3063 2008-08-14  H.J. Lu  <hongjiu.lu@intel.com>
3064
3065         PR libfortran/37123
3066         * intrinsics/cshift0.c (cshift0): Fix 2 typos.
3067
3068 2008-08-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
3069
3070         PR libfortran/36886
3071         * Makefile.am:  Added $(i_cshift0_c).
3072         Added $(i_cshift0_c) to gfor_built_specific_src.
3073         Add rule to build from cshift0.m4.
3074         * Makefile.in:  Regenerated.
3075         * libgfortran.h:  Addedd prototypes for cshift0_i1,
3076         cshift0_i2, cshift0_i4, cshift0_i8, cshift0_i16,
3077         cshift0_r4, cshift0_r8, cshift0_r10, cshift0_r16,
3078         cshift0_c4, cshift0_c8, cshift0_c10, cshift0_c16.
3079         Define Macros GFC_UNALIGNED_C4 and GFC_UNALIGNED_C8.
3080         * intrinsics/cshift0.c:  Remove helper functions for
3081         the innter shift loop.
3082         (cshift0):  Call specific functions depending on type
3083         of array argument.  Only call specific functions for
3084         correct alignment for other types.
3085         * m4/cshift0.m4:  New file.
3086         * generated/cshift0_i1.c:  New file.
3087         * generated/cshift0_i2.c:  New file.
3088         * generated/cshift0_i4.c:  New file.
3089         * generated/cshift0_i8:.c  New file.
3090         * generated/cshift0_i16.c:  New file.
3091         * generated/cshift0_r4.c:  New file.
3092         * generated/cshift0_r8.c:  New file.
3093         * generated/cshift0_r10.c:  New file.
3094         * generated/cshift0_r16.c:  New file.
3095         * generated/cshift0_c4.c:  New file.
3096         * generated/cshift0_c8.c:  New file.
3097         * generated/cshift0_c10.c:  New file.
3098         * generated/cshift0_c16.c:  New file.
3099
3100 2008-07-27  Tobias Burnus  <burnus@net-b.de>
3101
3102         PR fortran/36132
3103         PR fortran/29952
3104         PR fortran/36909
3105         * runtime/error.c: New function runtime_error_at.
3106         * gfortran.map: Ditto.
3107         * libgfortran.h: Ditto.
3108
3109 2008-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3110
3111         PR fortran/36582
3112         * io/list_read.c: If variable rank is zero, do not adjust the found
3113         namelist object pointer.
3114
3115 2008-07-22  Daniel Kraft  <d@domob.eu>
3116
3117         PR fortran/29835
3118         * io/format.c (struct format_data):  New member error_element.
3119         (unexpected_element):  Added '%c' to message.
3120         (next_char):  Keep track of last parsed character in fmt->error_element.
3121         (format_error):  If the message is unexpected_element, output the
3122         offending character, too.
3123
3124 2008-07-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
3125
3126         PR libfortran/36890
3127         * io/file_pos.c:  Declare READ_CHUNK as signed to avoid
3128         signed/unsigned comparison warning in formatted_backspace.
3129
3130 2008-07-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
3131
3132         PR libfortran/36773
3133         * intrinsics/cshift0.c (cshift0):  Return early if size of array
3134         is zero.
3135         * intrinsics/eoshift0.c (eoshift0):  Return early if size of
3136         return array is zero.
3137         * intrinsics/eoshift2.c (eoshift2):  Likewise.
3138         * m4/eoshift1.m4 (eoshift1):  Return early if size of array
3139         is zero.
3140         * m4/eoshift3.m4 (eoshift3):  Likewise.
3141         * m4/eoshift2.m4 (eoshift2):  Return early if size of return
3142         array is zero.
3143         * m4/eoshift4.m4 (eoshift2):  Return early if size of return
3144         array is zero.
3145         * generated/cshift1_16.c: Regenerated.
3146         * generated/cshift1_4.c: Regenerated.
3147         * generated/cshift1_8.c: Regenerated.
3148         * generated/eoshift1_16.c: Regenerated.
3149         * generated/eoshift1_4.c: Regenerated.
3150         * generated/eoshift1_8.c: Regenerated.
3151         * generated/eoshift3_16.c: Regenerated.
3152         * generated/eoshift3_4.c: Regenerated.
3153         * generated/eoshift3_8.c: Regenerated.
3154
3155 2008-07-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3156
3157         PR fortran/36857
3158         * io/write_float.def: Comment out locale dependent code and fix general
3159         comments.
3160
3161 2008-07-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
3162
3163         PR fortran/36341
3164         PR fortran/34670
3165         * m4/matmul.m4:  Add bounds checking.
3166         * m4/matmull.m4:  Likewise.
3167         * generated/matmul_c10.c: Regenerated.
3168         * generated/matmul_c16.c: Regenerated.
3169         * generated/matmul_c4.c: Regenerated.
3170         * generated/matmul_c8.c: Regenerated.
3171         * generated/matmul_i1.c: Regenerated.
3172         * generated/matmul_i16.c: Regenerated.
3173         * generated/matmul_i2.c: Regenerated.
3174         * generated/matmul_i4.c: Regenerated.
3175         * generated/matmul_i8.c: Regenerated.
3176         * generated/matmul_l16.c: Regenerated.
3177         * generated/matmul_l4.c: Regenerated.
3178         * generated/matmul_l8.c: Regenerated.
3179         * generated/matmul_r10.c: Regenerated.
3180         * generated/matmul_r16.c: Regenerated.
3181         * generated/matmul_r4.c: Regenerated.
3182         * generated/matmul_r8.c: Regenerated.
3183
3184 2008-07-07  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
3185
3186         * acinclude.m4 (LIBGFOR_CHECK_GTHR_DEFAULT): Fix configure cache
3187         variable name.
3188         * configure: Regenerate.
3189
3190 2008-07-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3191
3192         PR fortran/36676
3193         * io/list_read.c (find_nml_name): Use eat_separator instead of eat_line.
3194
3195 2008-06-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3196
3197         PR fortran/36657
3198         * io/list_read.c (read_character): Check for '!' along with separators.
3199         (find_nml_name): Likewise and eat the comment if found.
3200
3201 2008-06-17  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
3202
3203         * configure: Regenerate.
3204
3205 2008-06-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3206
3207         PR fortran/36546
3208         * io/list_read.c (eat_separator): Add tab character to condition
3209         for looping past whitespace.
3210
3211 2008-06-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3212
3213         PR fortran/36515
3214         * libgfortran.h (compile_options_t): Add int range_check to structure.
3215         * runtime/compile_options.c (set_options): Add range_check option.
3216         (init_compile_options): Likewise.
3217         *io/read.c (read_decimal): Change overflow checks to include
3218         range_check.
3219
3220 2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3221
3222         PR fortran/36538
3223         * io/list_read.c (namelist_read): Add eat_separator to eliminate leading
3224         tabs.
3225
3226 2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3227
3228         PR fortran/35863
3229         * libgfortran.h: Change l8_to_l4_offset to big_endian and add endian_off.
3230         * runtime/main.c: Fix error in comment. Change l8_to_l4_offset to
3231         big_endian. (determine_endianness): Add endian_off and set its value
3232         according to big_endian.
3233         * gfortran.map: Add symbol for new _gfortran_transfer_character_wide.
3234         * io/io.h: Add prototype declarations for new functions.
3235         * io/list_read.c (list_formatted_read_scalar): Modify to handle kind=4.
3236         (list_formatted_read): Calculate stride based on kind for character type
3237         and use it when calling list_formatted_read_scalar.
3238         * io/inquire.c (inquire_via_unit): Change l8_to_l4_offset to big_endian.
3239         * io/open.c (st_open): Change l8_to_l4_offset to big_endian.
3240         * io/read.c (read_a_char4): New function to handle formatted read.
3241         * io/write.c: Define GFC_CHAR4(x) to improve readability of code.
3242         (write_a_char4): New function to handle formatted write.
3243         (write_character): Modify to accept the kind parameter and adjust for
3244         endianess of the machine. (list_formatted_write): Calculate the stride
3245         resulting from the kind and adjust the list_formatted_write_scalar call
3246         accordingly. (nml_write_obj): Adjust calls to write_character.
3247         (namelist_write): Likewise.
3248         * io/transfer.c (formatted_transfer_scaler): Rename 'len' argument to
3249         'kind' argument to better describe what it is. Add calls to new
3250         functions for kind == 4. (formatted_transfer): Modify to handle the case
3251         of type character and kind equals 4 to pass in the kind to the transfer
3252         routines. (transfer_character_wide): Add this new function.
3253         (transfer_array): Don't set kind to the character string length. Adjust
3254         strides bases on character kind.
3255         (unformatted_read): Adjust size based on kind for character types.
3256         (unformatted_write): Likewise. (data_transfer_init): Change
3257         l8_to_l4_offset to big_endian.
3258         io/fbuf.c (fbuf_seek): Add cast to eliminate warning.
3259
3260 2008-06-13  Tobias Burnus  <burnus@net-b.de>
3261
3262         * configure.ac (AM_CFLAGS): Remove -Werror again.
3263         * configure: Regenerate.
3264
3265 2008-06-13  Tobias Burnus  <burnus@net-b.de>
3266
3267         PR libgfortran/36518
3268         * configure.ac (AM_CFLAGS): Add -Werror.
3269         * configure: Regenerate.
3270         * m4/ifunction_logical.m4: Cast "n" to "(int)".
3271         * generated/any_l16.c: Regenerate.
3272         * generated/any_l2.c: Regenerate.
3273         * generated/all_l1.c: Regenerate.
3274         * generated/all_l2.c: Regenerate.
3275         * generated/all_l16.c: Regenerate.
3276         * generated/any_l4.c: Regenerate.
3277         * generated/count_4_l.c: Regenerate.
3278         * generated/count_8_l.c: Regenerate.
3279         * generated/all_l4.c: Regenerate.
3280         * generated/count_1_l.c: Regenerate.
3281         * generated/count_16_l.c: Regenerate.
3282         * generated/any_l8.c: Regenerate.
3283         * generated/count_2_l.c: Regenerate.
3284         * generated/any_l1.c: Regenerate.
3285         * generated/all_l8.c: Regenerate.
3286
3287 2008-06-13  Tobias Burnus  <burnus@net-b.de>
3288
3289         PR fortran/36495
3290         * configure.ac (AM_FCFLAGS): Add "-Werror -fimplicit-none".
3291         * configure: (generated) ditto.
3292         * intrinsics/dprod_r8.f90: Add "implicit none".
3293
3294 2008-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3295
3296         PR libfortran/36420
3297         PR libfortran/36421
3298         PR libfortran/36422
3299         * io/io.h: Add prototype for write_real.
3300         * io/transfer.c (formatted_transfer_scalar): For FMT_G and width zero,
3301         use write_real.
3302         * io/format.c: Add zero width error message. (parse_format_list): Use
3303         error message for FMT_A if followed by FMT_ZERO. Use zero width error
3304         message for FMT_G if mode is READ or if -std=f95 or f2003. (fmormat0):
3305         Fix typo in comment.
3306         * io/write.c(write_a): Set wlen to len if FMT_G and length is zero.
3307         (write_l): Add wlen variable and use it if FMT_G and width is zero.
3308         (write_decimal): If FMT_G, set m to -1 to flag processor dependent
3309         formatting. (write_real): Remove static declaration.
3310
3311 2008-05-28  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
3312
3313         PR fortran/36319
3314         * intrinsics/string_intrinsics_inc.c (string_index): Return
3315         correct value for zero-length substring.
3316         * intrinsics/cshift0.c: Add _char4 variant.
3317         * intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
3318         wider than a single byte. Add _char4 variant and use above
3319         functionality.
3320         * intrinsics/eoshift2.c (eoshift2): Likewise.
3321         * m4/eoshift1.m4: Likewise.
3322         * m4/eoshift3.m4: Likewise.
3323         * m4/cshift1.m4: Add _char4 variants.
3324         * gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
3325         _gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
3326         _gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
3327         _gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
3328         _gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
3329         _gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
3330         _gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
3331         _gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
3332         _gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
3333         _gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
3334         _gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
3335         * generated/eoshift3_4.c: Regenerate.
3336         * generated/eoshift1_8.c: Regenerate.
3337         * generated/eoshift1_16.c: Regenerate.
3338         * generated/cshift1_4.c: Regenerate.
3339         * generated/eoshift1_4.c: Regenerate.
3340         * generated/eoshift3_8.c: Regenerate.
3341         * generated/eoshift3_16.c: Regenerate.
3342         * generated/cshift1_8.c: Regenerate.
3343         * generated/cshift1_16.c: Regenerate.
3344
3345 2008-05-25  Tobias Burnus  <burnus@net-b.de>
3346
3347         PR fortran/32600
3348         * intrinsics/iso_c_binding.c (c_f_procpointer): Remove.
3349         * intrinsics/iso_c_binding.h (c_f_procpointer): Remove.
3350         * gfortran.map (c_f_procpointer): Remove.
3351
3352 2008-05-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
3353
3354         PR libgfortran/36302
3355         * gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16,
3356         _gfortran_eoshift0_16_char, _gfortran_eoshift2_16,
3357         _gfortran_eoshift2_16_char,_gfortran_cshift0_16,
3358         _gfortran_cshift0_16_char.  Sort alphabetically.
3359         * intrinsics/eoshift0.c:  Add function for kind=16 integer.
3360         * intrinsics/eoshift2.c:  Likewise.
3361         * intrinsics/cshift0.c:  Likewise.
3362
3363 2008-05-18  Thomas Koenig  <tkoenig@gcc.gnu.org>
3364
3365         * m4/in_pack.m4 (internal_pack_'rtype_code`):  Destination
3366         pointer is restrict.
3367         * m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
3368         * m4/pack.m4 (pack_'rtype_code`):  Likewise.
3369         * m4/spread.m4 (spread_'rtype_code`):  Likewise.
3370         (spread_scalar_'rtype_code`): Likewise.
3371         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
3372         * m4/eoshift1.m4 (eoshift1):  Likewise.
3373         * m4/eoshift3.m4 (eoshift3):  Likewise.
3374         * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):  Likewise.
3375         * m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
3376         (unpack1_'rtype_code`):  Likewise.
3377         * intrinsics/pack_generic.c (pack_generic.c):  Likewise.
3378         * intrinsics/unpack_generic.c (unpack_internal):  Likewise.
3379         * intrinsics/eoshift0.c (eoshift0):  Likewise.
3380         * intrinsics/eoshift2.c (eoshift2):  Likewise.
3381         * intrinsics/reshape_generic.c (reshape_internal):  Likewise.
3382         * intrinsics/reshape_packed.c (reshape_packed):  Likewise.
3383         * generated/eoshift1_16.c: Regenerated.
3384         * generated/eoshift1_4.c: Regenerated.
3385         * generated/eoshift1_8.c: Regenerated.
3386         * generated/eoshift3_16.c: Regenerated.
3387         * generated/eoshift3_4.c: Regenerated.
3388         * generated/eoshift3_8.c: Regenerated.
3389         * generated/in_pack_c10.c: Regenerated.
3390         * generated/in_pack_c16.c: Regenerated.
3391         * generated/in_pack_c4.c: Regenerated.
3392         * generated/in_pack_c8.c: Regenerated.
3393         * generated/in_pack_i1.c: Regenerated.
3394         * generated/in_pack_i16.c: Regenerated.
3395         * generated/in_pack_i2.c: Regenerated.
3396         * generated/in_pack_i4.c: Regenerated.
3397         * generated/in_pack_i8.c: Regenerated.
3398         * generated/in_pack_r10.c: Regenerated.
3399         * generated/in_pack_r16.c: Regenerated.
3400         * generated/in_pack_r4.c: Regenerated.
3401         * generated/in_pack_r8.c: Regenerated.
3402         * generated/in_unpack_c10.c: Regenerated.
3403         * generated/in_unpack_c16.c: Regenerated.
3404         * generated/in_unpack_c4.c: Regenerated.
3405         * generated/in_unpack_c8.c: Regenerated.
3406         * generated/in_unpack_i1.c: Regenerated.
3407         * generated/in_unpack_i16.c: Regenerated.
3408         * generated/in_unpack_i2.c: Regenerated.
3409         * generated/in_unpack_i4.c: Regenerated.
3410         * generated/in_unpack_i8.c: Regenerated.
3411         * generated/in_unpack_r10.c: Regenerated.
3412         * generated/in_unpack_r16.c: Regenerated.
3413         * generated/in_unpack_r4.c: Regenerated.
3414         * generated/in_unpack_r8.c: Regenerated.
3415         * generated/maxloc0_16_i1.c: Regenerated.
3416         * generated/maxloc0_16_i16.c: Regenerated.
3417         * generated/maxloc0_16_i2.c: Regenerated.
3418         * generated/maxloc0_16_i4.c: Regenerated.
3419         * generated/maxloc0_16_i8.c: Regenerated.
3420         * generated/maxloc0_16_r10.c: Regenerated.
3421         * generated/maxloc0_16_r16.c: Regenerated.
3422         * generated/maxloc0_16_r4.c: Regenerated.
3423         * generated/maxloc0_16_r8.c: Regenerated.
3424         * generated/maxloc0_4_i1.c: Regenerated.
3425         * generated/maxloc0_4_i16.c: Regenerated.
3426         * generated/maxloc0_4_i2.c: Regenerated.
3427         * generated/maxloc0_4_i4.c: Regenerated.
3428         * generated/maxloc0_4_i8.c: Regenerated.
3429         * generated/maxloc0_4_r10.c: Regenerated.
3430         * generated/maxloc0_4_r16.c: Regenerated.
3431         * generated/maxloc0_4_r4.c: Regenerated.
3432         * generated/maxloc0_4_r8.c: Regenerated.
3433         * generated/maxloc0_8_i1.c: Regenerated.
3434         * generated/maxloc0_8_i16.c: Regenerated.
3435         * generated/maxloc0_8_i2.c: Regenerated.
3436         * generated/maxloc0_8_i4.c: Regenerated.
3437         * generated/maxloc0_8_i8.c: Regenerated.
3438         * generated/maxloc0_8_r10.c: Regenerated.
3439         * generated/maxloc0_8_r16.c: Regenerated.
3440         * generated/maxloc0_8_r4.c: Regenerated.
3441         * generated/maxloc0_8_r8.c: Regenerated.
3442         * generated/minloc0_16_i1.c: Regenerated.
3443         * generated/minloc0_16_i16.c: Regenerated.
3444         * generated/minloc0_16_i2.c: Regenerated.
3445         * generated/minloc0_16_i4.c: Regenerated.
3446         * generated/minloc0_16_i8.c: Regenerated.
3447         * generated/minloc0_16_r10.c: Regenerated.
3448         * generated/minloc0_16_r16.c: Regenerated.
3449         * generated/minloc0_16_r4.c: Regenerated.
3450         * generated/minloc0_16_r8.c: Regenerated.
3451         * generated/minloc0_4_i1.c: Regenerated.
3452         * generated/minloc0_4_i16.c: Regenerated.
3453         * generated/minloc0_4_i2.c: Regenerated.
3454         * generated/minloc0_4_i4.c: Regenerated.
3455         * generated/minloc0_4_i8.c: Regenerated.
3456         * generated/minloc0_4_r10.c: Regenerated.
3457         * generated/minloc0_4_r16.c: Regenerated.
3458         * generated/minloc0_4_r4.c: Regenerated.
3459         * generated/minloc0_4_r8.c: Regenerated.
3460         * generated/minloc0_8_i1.c: Regenerated.
3461         * generated/minloc0_8_i16.c: Regenerated.
3462         * generated/minloc0_8_i2.c: Regenerated.
3463         * generated/minloc0_8_i4.c: Regenerated.
3464         * generated/minloc0_8_i8.c: Regenerated.
3465         * generated/minloc0_8_r10.c: Regenerated.
3466         * generated/minloc0_8_r16.c: Regenerated.
3467         * generated/minloc0_8_r4.c: Regenerated.
3468         * generated/minloc0_8_r8.c: Regenerated.
3469         * generated/pack_c10.c: Regenerated.
3470         * generated/pack_c16.c: Regenerated.
3471         * generated/pack_c4.c: Regenerated.
3472         * generated/pack_c8.c: Regenerated.
3473         * generated/pack_i1.c: Regenerated.
3474         * generated/pack_i16.c: Regenerated.
3475         * generated/pack_i2.c: Regenerated.
3476         * generated/pack_i4.c: Regenerated.
3477         * generated/pack_i8.c: Regenerated.
3478         * generated/pack_r10.c: Regenerated.
3479         * generated/pack_r16.c: Regenerated.
3480         * generated/pack_r4.c: Regenerated.
3481         * generated/pack_r8.c: Regenerated.
3482         * generated/spread_c10.c: Regenerated.
3483         * generated/spread_c16.c: Regenerated.
3484         * generated/spread_c4.c: Regenerated.
3485         * generated/spread_c8.c: Regenerated.
3486         * generated/spread_i1.c: Regenerated.
3487         * generated/spread_i16.c: Regenerated.
3488         * generated/spread_i2.c: Regenerated.
3489         * generated/spread_i4.c: Regenerated.
3490         * generated/spread_i8.c: Regenerated.
3491         * generated/spread_r10.c: Regenerated.
3492         * generated/spread_r16.c: Regenerated.
3493         * generated/spread_r4.c: Regenerated.
3494         * generated/spread_r8.c: Regenerated.
3495         * generated/transpose_c10.c: Regenerated.
3496         * generated/transpose_c16.c: Regenerated.
3497         * generated/transpose_c4.c: Regenerated.
3498         * generated/transpose_c8.c: Regenerated.
3499         * generated/transpose_i16.c: Regenerated.
3500         * generated/transpose_i4.c: Regenerated.
3501         * generated/transpose_i8.c: Regenerated.
3502         * generated/transpose_r10.c: Regenerated.
3503         * generated/transpose_r16.c: Regenerated.
3504         * generated/transpose_r4.c: Regenerated.
3505         * generated/transpose_r8.c: Regenerated.
3506         * generated/unpack_c10.c: Regenerated.
3507         * generated/unpack_c16.c: Regenerated.
3508         * generated/unpack_c4.c: Regenerated.
3509         * generated/unpack_c8.c: Regenerated.
3510         * generated/unpack_i1.c: Regenerated.
3511         * generated/unpack_i16.c: Regenerated.
3512         * generated/unpack_i2.c: Regenerated.
3513         * generated/unpack_i4.c: Regenerated.
3514         * generated/unpack_i8.c: Regenerated.
3515         * generated/unpack_r10.c: Regenerated.
3516         * generated/unpack_r16.c: Regenerated.
3517         * generated/unpack_r4.c: Regenerated.
3518         * generated/unpack_r8.c: Regenerated.
3519
3520 2008-05-18  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
3521
3522         * runtime/select.c: Moved content to select_inc.c. Include it.
3523         Add macros for different character types.
3524         * runtime/select_inc.c: New file.
3525         * runtime/convert_char.c: New file.
3526         * intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
3527         functions.
3528         * intrinsics/transpose_generic.c (transpose_char4): New function.
3529         * intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
3530         New functions.
3531         * intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4):
3532         New functions.
3533         * intrinsics/reshape_generic.c (reshape_char): Use
3534         gfc_charlen_type as type for length variables.
3535         (reshape_char4): New function.
3536         * gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
3537         _gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
3538         _gfortran_transpose_char4, _gfortran_spread_char4,
3539         _gfortran_spread_char4_scalar, _gfortran_reshape_char4,
3540         _gfortran_pack_char4, _gfortran_pack_s_char4,
3541         _gfortran_unpack0_char4 and _gfortran_unpack1_char4.
3542         * Makefile.am: Add runtime/convert_char.c.
3543         * Makefile.in: Regenerate.
3544
3545 2008-05-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
3546
3547         * io/list_read.c (list_formatted_read_scalar):  Declare
3548         type as volatile to shut up compiler warning.
3549
3550 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
3551
3552         PR libfortran/25561
3553         * io/io.h (struct fbuf): Change pointer to position offset.
3554         * io/fbuf.c (fbuf_init): Reduce default size of buffer, ptr=>pos
3555         changes.
3556         (fbuf_reset): ptr=>pos changes.
3557         (fbuf_alloc): If the request doesn't fit, don't waste memory by
3558         keeping flushed bytes. ptr=>pos changes.
3559         (fbuf_flush): ptr=>pos changes.
3560         (fbuf_seek): Don't seek past the left tab limit, don't update active
3561         byte count.
3562         * io/open.c (new_unit): If RECL has been specified, used that as
3563         initial buffer size.
3564
3565 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
3566
3567         PR libfortran/35632
3568         * io/open.c (new_unit): Set stream position to correct value.
3569
3570 2008-05-15  Janne Blomqvist  <jb@gcc.gnu.org>
3571
3572         PR libfortran/25561
3573         * Makefile.am: Add fbuf.c to gfor_io_src.
3574         * Makefile.in: Regenerate.
3575         * io/io.h (read_block): Remove.
3576         (struct stream): Remove alloc_r_at function pointer.
3577         (salloc_r): Remove.
3578         (salloc_r_at): Remove.
3579         (salloc_w_at): Remove.
3580         (salloc_w): Remove offset argument.
3581         (struct fbuf): New struct for format buffer.
3582         (struct gfc_unit): Add fbuf.
3583         (read_block_form): New prototype.
3584         (fbuf_init): Likewise.
3585         (fbuf_destroy): Likewise.
3586         (fbuf_reset): Likewise.
3587         (fbuf_alloc): Likewise.
3588         (fbuf_flush): Likewise.
3589         (fbuf_seek): Likewise.
3590         * io/file_pos.c (formatted_backspace): Change to use sread.
3591         (unformatted_backspace): Likewise.
3592         (st_backspace): Flush format buffer.
3593         (st_rewind): Likewise.
3594         * io/list_read.c (next_char): Likewise.
3595         (nml_query): Tidying, flush format buffer.
3596         * io/open.c (new_unit): Init format buffer.
3597         * io/read.c (read_l): Change to use read_block_form.
3598         (read_a): Likewise.
3599         (read_decimal): Likewise.
3600         (read_radix): Likewise.
3601         (read_f): Likewise.
3602         (read_x): Empty reads also for stream I/O.
3603         * io/transfer.c (read_sf): Change to use sread.
3604         (read_block): Rename to read_block_form, change prototype, use sread.
3605         (read_block_direct): Don't seek stream files.
3606         (write_block): Change to use fbuf if external file, don't seek stream
3607         files.
3608         (write_buf): Don't seek stream files.
3609         (formatted_transfer_scalar): Use fbuf for external files.
3610         (us_read): Change to use sread.
3611         (pre_position): Do nothing for stream I/O.
3612         (data_transfer_init): Flush fbuf when switching from write to read, if
3613         POS is specified, seek stream file to correct offset.
3614         (skip_record): Change to use sread.
3615         (min_off): New function.
3616         (next_record_r): Change to use sread.
3617         (next_record_w): Change to use sset/sseek, flush fbuf.
3618         (finalize_transfer): Flush fbuf.
3619         * io/unit.c (init_units): Init fbuf for stdout, stderr.
3620         (close_unit_1): Destroy fbuf.
3621         (finish_last_advance_record): Flush fbuf, no need to seek.
3622         * io/unix.c (fd_alloc_r_at): Remove unused where argument.
3623         (fd_alloc_w_at): Likewise.
3624         (fd_read): Remove third argument to fd_alloc_r_at.
3625         (fd_write): Remove third argument to fd_alloc_w_at.
3626         (fd_sset): Likewise.
3627         (fd_open): Don't set alloc_r_at.
3628         (mem_alloc_r_at): Remove unused where argument.
3629         (mem_alloc_w_at): Likewise.
3630         (mem_read): Don't incorrectly return previous errno, remove unused
3631         third argument to alloc function.
3632         (mem_write): Likewise.
3633         (mem_set): Likewise.
3634         (open_internal): Don't set alloc_r_at pointer.
3635         * io/fbuf.c: New file.
3636
3637 2008-05-14  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
3638
3639         * libgfortran.h (gfc_char4_t): New type.
3640         (GFC_SIZE_OF_CHAR_KIND): New macro.
3641         (compare_string): Adjust prototype.
3642         (compare_string_char4): New prototype.
3643         * gfortran.map (GFORTRAN_1.1): Add _gfortran_adjustl_char4,
3644         _gfortran_adjustr_char4, _gfortran_compare_string_char4,
3645         _gfortran_concat_string_char4, _gfortran_string_index_char4,
3646         _gfortran_string_len_trim_char4, _gfortran_string_minmax_char4,
3647         _gfortran_string_scan_char4, _gfortran_string_trim_char4 and
3648         _gfortran_string_verify_char4.
3649         * intrinsics/string_intrinsics_inc.c: New file from content of
3650         string_intrinsics.c with types replaced by macros.
3651         * intrinsics/string_intrinsics.c: Move content to
3652         string_intrinsics_inc.c.
3653
3654 2008-05-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3655
3656         PR libfortran/36202
3657         * io/list_read (eat_separator): Handle the CR-LF case correctly.
3658
3659 2008-05-09  Julian Brown  <julian@codesourcery.com>
3660
3661         * Makefile.am (LTLDFLAGS): New.
3662         (libgfortran_la_LDFLAGS): Use above.
3663         * Makefile.in: Regenerate.
3664
3665 2008-05-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3666
3667         PR libfortran/36131
3668         * io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
3669         (next_record_w): Likewise.
3670
3671 2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
3672
3673         PR libfortran/35995
3674         * m4/ifunction_logical.m4:  If the extent of "array"
3675         is less than zero, set it to zero.  Use an explicit
3676         flag for breaking out of the main loop to avoid, because
3677         the data pointer for "array" may be NULL for an empty
3678         array.
3679         * m4/ifunction.m4:  Likewise.
3680         * generated/all_l1.c: Regenerated.
3681         * generated/all_l16.c: Regenerated.
3682         * generated/all_l2.c: Regenerated.
3683         * generated/all_l4.c: Regenerated.
3684         * generated/all_l8.c: Regenerated.
3685         * generated/any_l1.c: Regenerated.
3686         * generated/any_l16.c: Regenerated.
3687         * generated/any_l2.c: Regenerated.
3688         * generated/any_l4.c: Regenerated.
3689         * generated/any_l8.c: Regenerated.
3690         * generated/count_16_l.c: Regenerated.
3691         * generated/count_1_l.c: Regenerated.
3692         * generated/count_2_l.c: Regenerated.
3693         * generated/count_4_l.c: Regenerated.
3694         * generated/count_8_l.c: Regenerated.
3695         * generated/maxloc1_16_i1.c: Regenerated.
3696         * generated/maxloc1_16_i16.c: Regenerated.
3697         * generated/maxloc1_16_i2.c: Regenerated.
3698         * generated/maxloc1_16_i4.c: Regenerated.
3699         * generated/maxloc1_16_i8.c: Regenerated.
3700         * generated/maxloc1_16_r10.c: Regenerated.
3701         * generated/maxloc1_16_r16.c: Regenerated.
3702         * generated/maxloc1_16_r4.c: Regenerated.
3703         * generated/maxloc1_16_r8.c: Regenerated.
3704         * generated/maxloc1_4_i1.c: Regenerated.
3705         * generated/maxloc1_4_i16.c: Regenerated.
3706         * generated/maxloc1_4_i2.c: Regenerated.
3707         * generated/maxloc1_4_i4.c: Regenerated.
3708         * generated/maxloc1_4_i8.c: Regenerated.
3709         * generated/maxloc1_4_r10.c: Regenerated.
3710         * generated/maxloc1_4_r16.c: Regenerated.
3711         * generated/maxloc1_4_r4.c: Regenerated.
3712         * generated/maxloc1_4_r8.c: Regenerated.
3713         * generated/maxloc1_8_i1.c: Regenerated.
3714         * generated/maxloc1_8_i16.c: Regenerated.
3715         * generated/maxloc1_8_i2.c: Regenerated.
3716         * generated/maxloc1_8_i4.c: Regenerated.
3717         * generated/maxloc1_8_i8.c: Regenerated.
3718         * generated/maxloc1_8_r10.c: Regenerated.
3719         * generated/maxloc1_8_r16.c: Regenerated.
3720         * generated/maxloc1_8_r4.c: Regenerated.
3721         * generated/maxloc1_8_r8.c: Regenerated.
3722         * generated/maxval_i1.c: Regenerated.
3723         * generated/maxval_i16.c: Regenerated.
3724         * generated/maxval_i2.c: Regenerated.
3725         * generated/maxval_i4.c: Regenerated.
3726         * generated/maxval_i8.c: Regenerated.
3727         * generated/maxval_r10.c: Regenerated.
3728         * generated/maxval_r16.c: Regenerated.
3729         * generated/maxval_r4.c: Regenerated.
3730         * generated/maxval_r8.c: Regenerated.
3731         * generated/minloc1_16_i1.c: Regenerated.
3732         * generated/minloc1_16_i16.c: Regenerated.
3733         * generated/minloc1_16_i2.c: Regenerated.
3734         * generated/minloc1_16_i4.c: Regenerated.
3735         * generated/minloc1_16_i8.c: Regenerated.
3736         * generated/minloc1_16_r10.c: Regenerated.
3737         * generated/minloc1_16_r16.c: Regenerated.
3738         * generated/minloc1_16_r4.c: Regenerated.
3739         * generated/minloc1_16_r8.c: Regenerated.
3740         * generated/minloc1_4_i1.c: Regenerated.
3741         * generated/minloc1_4_i16.c: Regenerated.
3742         * generated/minloc1_4_i2.c: Regenerated.
3743         * generated/minloc1_4_i4.c: Regenerated.
3744         * generated/minloc1_4_i8.c: Regenerated.
3745         * generated/minloc1_4_r10.c: Regenerated.
3746         * generated/minloc1_4_r16.c: Regenerated.
3747         * generated/minloc1_4_r4.c: Regenerated.
3748         * generated/minloc1_4_r8.c: Regenerated.
3749         * generated/minloc1_8_i1.c: Regenerated.
3750         * generated/minloc1_8_i16.c: Regenerated.
3751         * generated/minloc1_8_i2.c: Regenerated.
3752         * generated/minloc1_8_i4.c: Regenerated.
3753         * generated/minloc1_8_i8.c: Regenerated.
3754         * generated/minloc1_8_r10.c: Regenerated.
3755         * generated/minloc1_8_r16.c: Regenerated.
3756         * generated/minloc1_8_r4.c: Regenerated.
3757         * generated/minloc1_8_r8.c: Regenerated.
3758         * generated/minval_i1.c: Regenerated.
3759         * generated/minval_i16.c: Regenerated.
3760         * generated/minval_i2.c: Regenerated.
3761         * generated/minval_i4.c: Regenerated.
3762         * generated/minval_i8.c: Regenerated.
3763         * generated/minval_r10.c: Regenerated.
3764         * generated/minval_r16.c: Regenerated.
3765         * generated/minval_r4.c: Regenerated.
3766         * generated/minval_r8.c: Regenerated.
3767         * generated/product_c10.c: Regenerated.
3768         * generated/product_c16.c: Regenerated.
3769         * generated/product_c4.c: Regenerated.
3770         * generated/product_c8.c: Regenerated.
3771         * generated/product_i1.c: Regenerated.
3772         * generated/product_i16.c: Regenerated.
3773         * generated/product_i2.c: Regenerated.
3774         * generated/product_i4.c: Regenerated.
3775         * generated/product_i8.c: Regenerated.
3776         * generated/product_r10.c: Regenerated.
3777         * generated/product_r16.c: Regenerated.
3778         * generated/product_r4.c: Regenerated.
3779         * generated/product_r8.c: Regenerated.
3780         * generated/sum_c10.c: Regenerated.
3781         * generated/sum_c16.c: Regenerated.
3782         * generated/sum_c4.c: Regenerated.
3783         * generated/sum_c8.c: Regenerated.
3784         * generated/sum_i1.c: Regenerated.
3785         * generated/sum_i16.c: Regenerated.
3786         * generated/sum_i2.c: Regenerated.
3787         * generated/sum_i4.c: Regenerated.
3788         * generated/sum_i8.c: Regenerated.
3789         * generated/sum_r10.c: Regenerated.
3790         * generated/sum_r16.c: Regenerated.
3791         * generated/sum_r4.c: Regenerated.
3792         * generated/sum_r8.c: Regenerated.
3793
3794 2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
3795
3796         PR libfortran/35990
3797         * intrinsics/pack_generic.c:  Really commit.
3798
3799 2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
3800
3801         PR libfortran/35990
3802         * intrinsics/pack_generic.c:  If an extent of the source
3803         array is less then zero, set it to zero.  Set the source
3804         pointer to NULL if the source size is zero.  Set the total
3805         number of elements to zero if the vector has an extent
3806         less or equal to zero.
3807         * m4/pack.m4:  Set the source pointer to NULL if the
3808         source array is zero-sized.  Set the total number of
3809         elemements to zero if the vector has an extent less or
3810         equal to zero.
3811         * generated/pack_i1.c:  Regenerated.
3812         * generated/pack_i2.c:  Regenerated.
3813         * generated/pack_i4.c:  Regenerated.
3814         * generated/pack_i8.c:  Regenerated.
3815         * generated/pack_i16.c:  Regenerated.
3816         * generated/pack_r4.c:  Regenerated.
3817         * generated/pack_r8.c:  Regenerated.
3818         * generated/pack_r10.c:  Regenerated.
3819         * generated/pack_r16.c:  Regenerated.
3820         * generated/pack_c4.c:  Regenerated.
3821         * generated/pack_c8.c:  Regenerated.
3822         * generated/pack_c10.c:  Regenerated.
3823         * generated/pack_c16.c:  Regenerated.
3824
3825 2008-05-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3826
3827         PR libfortran/36094
3828         * runtime/error.c (show_locus): Provide modified error message when
3829         filename has not yet been associated with a unit number.
3830         * io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.
3831
3832 2008-04-30  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
3833
3834         * intrinsics/selected_char_kind.c: New file.
3835         * gfortran.map (GFORTRAN_1.1): Add _gfortran_selected_char_kind.
3836         * Makefile.am: Add intrinsics/selected_char_kind.c.
3837         * Makefile.in: Regenerate.
3838
3839 2008-04-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
3840
3841         PR libfortran/35993
3842         * ifunction.m4 (SCALAR_ARRAY_FUNCTION):  Use correct
3843         implementation for multi-dimensional return arrays when
3844         the mask is .false.
3845         * generated/maxloc1_16_i1.c: Regenerated.
3846         * generated/maxloc1_16_i16.c: Regenerated.
3847         * generated/maxloc1_16_i2.c: Regenerated.
3848         * generated/maxloc1_16_i4.c: Regenerated.
3849         * generated/maxloc1_16_i8.c: Regenerated.
3850         * generated/maxloc1_16_r10.c: Regenerated.
3851         * generated/maxloc1_16_r16.c: Regenerated.
3852         * generated/maxloc1_16_r4.c: Regenerated.
3853         * generated/maxloc1_16_r8.c: Regenerated.
3854         * generated/maxloc1_4_i1.c: Regenerated.
3855         * generated/maxloc1_4_i16.c: Regenerated.
3856         * generated/maxloc1_4_i2.c: Regenerated.
3857         * generated/maxloc1_4_i4.c: Regenerated.
3858         * generated/maxloc1_4_i8.c: Regenerated.
3859         * generated/maxloc1_4_r10.c: Regenerated.
3860         * generated/maxloc1_4_r16.c: Regenerated.
3861         * generated/maxloc1_4_r4.c: Regenerated.
3862         * generated/maxloc1_4_r8.c: Regenerated.
3863         * generated/maxloc1_8_i1.c: Regenerated.
3864         * generated/maxloc1_8_i16.c: Regenerated.
3865         * generated/maxloc1_8_i2.c: Regenerated.
3866         * generated/maxloc1_8_i4.c: Regenerated.
3867         * generated/maxloc1_8_i8.c: Regenerated.
3868         * generated/maxloc1_8_r10.c: Regenerated.
3869         * generated/maxloc1_8_r16.c: Regenerated.
3870         * generated/maxloc1_8_r4.c: Regenerated.
3871         * generated/maxloc1_8_r8.c: Regenerated.
3872         * generated/maxval_i1.c: Regenerated.
3873         * generated/maxval_i16.c: Regenerated.
3874         * generated/maxval_i2.c: Regenerated.
3875         * generated/maxval_i4.c: Regenerated.
3876         * generated/maxval_i8.c: Regenerated.
3877         * generated/maxval_r10.c: Regenerated.
3878         * generated/maxval_r16.c: Regenerated.
3879         * generated/maxval_r4.c: Regenerated.
3880         * generated/maxval_r8.c: Regenerated.
3881         * generated/minloc1_16_i1.c: Regenerated.
3882         * generated/minloc1_16_i16.c: Regenerated.
3883         * generated/minloc1_16_i2.c: Regenerated.
3884         * generated/minloc1_16_i4.c: Regenerated.
3885         * generated/minloc1_16_i8.c: Regenerated.
3886         * generated/minloc1_16_r10.c: Regenerated.
3887         * generated/minloc1_16_r16.c: Regenerated.
3888         * generated/minloc1_16_r4.c: Regenerated.
3889         * generated/minloc1_16_r8.c: Regenerated.
3890         * generated/minloc1_4_i1.c: Regenerated.
3891         * generated/minloc1_4_i16.c: Regenerated.
3892         * generated/minloc1_4_i2.c: Regenerated.
3893         * generated/minloc1_4_i4.c: Regenerated.
3894         * generated/minloc1_4_i8.c: Regenerated.
3895         * generated/minloc1_4_r10.c: Regenerated.
3896         * generated/minloc1_4_r16.c: Regenerated.
3897         * generated/minloc1_4_r4.c: Regenerated.
3898         * generated/minloc1_4_r8.c: Regenerated.
3899         * generated/minloc1_8_i1.c: Regenerated.
3900         * generated/minloc1_8_i16.c: Regenerated.
3901         * generated/minloc1_8_i2.c: Regenerated.
3902         * generated/minloc1_8_i4.c: Regenerated.
3903         * generated/minloc1_8_i8.c: Regenerated.
3904         * generated/minloc1_8_r10.c: Regenerated.
3905         * generated/minloc1_8_r16.c: Regenerated.
3906         * generated/minloc1_8_r4.c: Regenerated.
3907         * generated/minloc1_8_r8.c: Regenerated.
3908         * generated/minval_i1.c: Regenerated.
3909         * generated/minval_i16.c: Regenerated.
3910         * generated/minval_i2.c: Regenerated.
3911         * generated/minval_i4.c: Regenerated.
3912         * generated/minval_i8.c: Regenerated.
3913         * generated/minval_r10.c: Regenerated.
3914         * generated/minval_r16.c: Regenerated.
3915         * generated/minval_r4.c: Regenerated.
3916         * generated/minval_r8.c: Regenerated.
3917         * generated/product_c10.c: Regenerated.
3918         * generated/product_c16.c: Regenerated.
3919         * generated/product_c4.c: Regenerated.
3920         * generated/product_c8.c: Regenerated.
3921         * generated/product_i1.c: Regenerated.
3922         * generated/product_i16.c: Regenerated.
3923         * generated/product_i2.c: Regenerated.
3924         * generated/product_i4.c: Regenerated.
3925         * generated/product_i8.c: Regenerated.
3926         * generated/product_r10.c: Regenerated.
3927         * generated/product_r16.c: Regenerated.
3928         * generated/product_r4.c: Regenerated.
3929         * generated/product_r8.c: Regenerated.
3930         * generated/sum_c10.c: Regenerated.
3931         * generated/sum_c16.c: Regenerated.
3932         * generated/sum_c4.c: Regenerated.
3933         * generated/sum_c8.c: Regenerated.
3934         * generated/sum_i1.c: Regenerated.
3935         * generated/sum_i16.c: Regenerated.
3936         * generated/sum_i2.c: Regenerated.
3937         * generated/sum_i4.c: Regenerated.
3938         * generated/sum_i8.c: Regenerated.
3939         * generated/sum_r10.c: Regenerated.
3940         * generated/sum_r16.c: Regenerated.
3941         * generated/sum_r4.c: Regenerated.
3942         * generated/sum_r8.c: Regenerated.
3943
3944 2008-04-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
3945
3946         PR libfortran/35960
3947         * m4/reshape.m4:  Fix typo in last commit.
3948         * generated/reshape_i4.c:  Regererated.
3949         * generated/reshape_i8.c:  Regenerated.
3950         * generated/reshape_i16.c:  Regenerated.
3951         * generated/reshape_r4.c:  Regenerated.
3952         * generated/reshape_r8.c:  Regenerated.
3953         * generated/reshape_r10.c:  Regenerated.
3954         * generated/reshape_r16.c:  Regenerated.
3955         * generated/reshape_c4.c:  Regenerated.
3956         * generated/reshape_c8.c:  Regenerated.
3957         * generated/reshape_c10.c:  Regenerated.
3958         * generated/reshape_c16.c:  Regenerated.
3959
3960 2008-04-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
3961
3962         * intrinsics/time_1.h (__time_1): Remove unused variable.
3963
3964 2008-04-23  Thomas Koenig  <tkoenig@gcc.gnu.org>
3965
3966         PR libfortran/35988
3967         * m4/matmul.m4:  Only issue a runtime error if extents are
3968         non-zero.
3969         * generated/matmul_i1.c:  Regenerated.
3970         * generated/matmul_i2.c:  Regenerated.
3971         * generated/matmul_i4.c:  Regenerated.
3972         * generated/matmul_i8.c:  Regenerated.
3973         * generated/matmul_i16.c:  Regenerated.
3974         * generated/matmul_r4.c:  Regenerated.
3975         * generated/matmul_r8.c:  Regenerated.
3976         * generated/matmul_r10.c:  Regenerated.
3977         * generated/matmul_r16.c:  Regenerated.
3978         * generated/matmul_c4.c:  Regenerated.
3979         * generated/matmul_c8.c:  Regenerated.
3980         * generated/matmul_c10.c:  Regenerated.
3981         * generated/matmul_c16.c:  Regenerated.
3982
3983 2008-04-21  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
3984
3985         * acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY)
3986         (LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT)
3987         (LIBGFOR_CHECK_ATTRIBUTE_ALIAS, LIBGFOR_CHECK_SYNC_FETCH_AND_ADD)
3988         (LIBGFOR_GTHREAD_WEAK, LIBGFOR_CHECK_UNLINK_OPEN_FILE)
3989         (LIBGFOR_CHECK_CRLF, LIBGFOR_CHECK_FOR_BROKEN_ISFINITE)
3990         (LIBGFOR_CHECK_FOR_BROKEN_ISNAN)
3991         (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY, LIBGFOR_CHECK_WORKING_STAT)
3992         (LIBGFOR_CHECK_FPSETMASK, LIBGFOR_CHECK_MINGW_SNPRINTF):
3993         Fix cache variable names.
3994         * configure, Makefile.in: Regenerate.
3995
3996 2008-04-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
3997
3998         PR fortran/35991
3999         * intrinsics/cshift0.c (cshift0): Avoid divide by zero.
4000
4001 2008-04-20  Thomas Koenig  <tkoenig@gcc.gnu.org>
4002
4003         PR libfortran/35960
4004         * intrinsics/reshape_generic.c (reshape_internal): If the size
4005         of the resized array is zero, as determined by the SHAPE
4006         argument, return early.
4007         * m4/reshape.m4:  Likewise.
4008         * generated/reshape_i4.c:  Regererated.
4009         * generated/reshape_i8.c:  Regenerated.
4010         * generated/reshape_i16.c:  Regenerated.
4011         * generated/reshape_r4.c:  Regenerated.
4012         * generated/reshape_r8.c:  Regenerated.
4013         * generated/reshape_r10.c:  Regenerated.
4014         * generated/reshape_r16.c:  Regenerated.
4015         * generated/reshape_c4.c:  Regenerated.
4016         * generated/reshape_c8.c:  Regenerated.
4017         * generated/reshape_c10.c:  Regenerated.
4018         * generated/reshape_c16.c:  Regenerated.
4019
4020 2008-04-18  Paolo Bonzini  <bonzini@gnu.org>
4021
4022         PR bootstrap/35457
4023         * aclocal.m4: Regenerate.
4024         * configure: Regenerate.
4025
4026 2008-04-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
4027
4028         PR libfortran/32972
4029         * intrinsics/spread_generic.c (spread):  Use spread_i2()
4030         for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
4031
4032 2008-04-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
4033         Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4034
4035         PR libfortran/32972
4036         PR libfortran/32512
4037         configure.ac:  Add test for uintptr_t.
4038         configure:  Regenerated.
4039         config.h.in:  Regenerated.
4040         * libgfortran.h: GFC_DTYPE_DERIVED_1:  New macro.
4041         GFC_DTYPE_DERIVED_2:  New macro.
4042         GFC_DTYPE_DERIVED_4:  New macro.
4043         GFC_DTYPE_DERIVED_8:  New macro.
4044         GFC_DTYPE_DERIVED_16:  New macro.
4045         GFC_UNALIGNED_2:  New macro.
4046         GFC_UNALIGNED_4:  New macro.
4047         GFC_UNALIGNED_8:  New macro.
4048         GFC_UNALIGNED_16:  New macro.
4049         intptr_t:  Define if we don't have it.
4050         uintptr_t:  Likewise.
4051         * runtime/backtrace.c (show_backtrace):  Use intptr_t.
4052         * intrinsics/signal.c (signal_sub):  Likewise.
4053         (signal_sub_int):  Likewise.
4054         (alarm_sub_int_i4):  Likewise.
4055         * intrinsics/spread_generic.c (spread):  Use the integer
4056         routines for handling derived types of sizes 1, 2, 4, 8 and 16
4057         if the alignment of all pointers is correct.
4058         (spread_scalar):  Likewise.
4059         * intrinsics/pack_generic.c (pack):  Likewise.
4060         Use GFD_DTYPE_TYPE_SIZE to avoid nested switch statements.
4061         * intrinsics/unpack_generic.c (unpack1):  Likewise.
4062         (unpack0):  Likewise.
4063         * runtime/in_pack_generic.c (internal_pack):  Likewise.
4064         * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
4065
4066 2008-04-09  Jakub Jelinek  <jakub@redhat.com>
4067
4068         * io/list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
4069         (nml_read_obj): Add nml_err_msg_size argument.  Pass it down to
4070         recursive call.  Use snprintf instead of sprintf when %s nl->var_name
4071         is used.
4072         (nml_get_obj_data): Add nml_err_msg_size argument.  Pass it down to
4073         nml_read_obj call.  Use snprintf instead of sprintf when %s
4074         nl->var_name is used.  Pass nml_err_msg to nml_parse_qualifier instead
4075         of parse_err_msg array.  Append " for namelist variable " and
4076         nl->var_name to it.
4077         (namelist_read): Increase size of nml_err_msg array to 200.  Pass
4078         sizeof nml_err_msg as extra argument to nml_get_obj_data.
4079
4080 2008-04-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4081
4082         PR fortran/25829 28655
4083         * io/open.c (edit_modes): Set flags.async. (new_unit) Set flags.async
4084         and flags.status. (st_open): Initialize flags.async.
4085         * io/list_read.c (read_charactor): Use delim_status instead of
4086         flags.delim.
4087         * io/read.c (read_x): Use pad_status instead of flags.pad.
4088         * io/inquire.c (inquire_via_unit): Add new checks.
4089         (inquire_via_filename): Likewise.
4090         * io/io.h (st_parameter_inquire): Add new flags.
4091         (st_parameter_dt): Likewise.
4092         * io/unit.c (get_internal_unit): Set flags.async. (init_units): Set
4093         flags.async.
4094         * io/transfer.c: Add delim and pad option arrays. (read_sf): Use
4095         pad_status instead of flags.pad. (read_block): Likewise.
4096         (data_transfer_init): Set flags.async and add checks.
4097         * io/write.c (write_character): Use delim_status.
4098         (list_formatted_write_scalar): Likewise. (nml_write_obj): Likewise.
4099         (namelist_write): Likewise.
4100
4101 2008-04-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4102
4103         PR fortran/25829 28655
4104         * gfortran.map: Add new symbol, _gfortran_st_wait.
4105         * libgfortran.h (st_paramter_common): Add new I/O parameters.
4106         * open.c (st_option decimal_opt[], st_option encoding_opt[],
4107         st_option round_opt[], st_option sign_opt[], st_option async_opt[]): New
4108         parameter option arrays. (edit_modes): Add checks for new parameters.
4109         (new_unit): Likewise. (st_open): Likewise.
4110         * list_read.c (CASE_SEPERATORS): Add ';' as a valid separator.
4111         (eat_separator): Handle deimal comma. (read_logical): Fix whitespace.
4112         (parse_real): Handle decimal comma. (read_real): Handle decimal comma.
4113         * read.c (read_a): Use decimal status flag to allow comma in place of a
4114         decimal point. (read_f): Allow comma as acceptable character in float.
4115         According to decimal flag, substitute a period for a comma.
4116         (read_x): If decimal status flag is comma, disable the read_comma flag,
4117         not allowing comma as a delimiter, an extension otherwise.
4118         * io.h: (unit_decimal, unit_encoding, unit_round, unit_sign,
4119         unit_async): New enumerators. Add all new I/O parameters.
4120         * unix.c (unix_stream, int_stream): Add io_mode asychronous I/O control.
4121         (move_pos_offset, fd_alloc_w_at): Fix some whitespace.
4122         (fd_sfree): Use new enumerator. (fd_read): Likewise.
4123         (fd_write): Likewise. (fd_close): Fix whitespace.
4124         (fd_open): Use new enumertors. (tempfile, regular_file,
4125         open_external): Fix whitespace. (output_stream, error_stream): Set
4126         method. (stream_offset): Fix whitespace.
4127         * transfer.c: (st_option decimal_opt[], sign_opt[], blank_opt[]): New
4128         option arrays.  (formatted_transfer_scalar): Set sf_read_comma flag
4129         based on new decimal_status flag. (data_transfer_init): Initialize new
4130         parameters. Add checks for decimal, sign, and blank. (st_wait): New stub.
4131         * format.c: (format_lex): Add format specifiers DP, DC, and D.
4132         (parse_format_list): Parse the new specifiers.
4133         * write.c (write_decimal): Use new sign enumerators to set the sign.
4134         (write_complex): Handle decimal comma and semi-colon separator.
4135         (nml_write_obj): Likewise.
4136         * write_float.def: Revise sign enumerators. (calculate_sign): Use new
4137         sign enumerators. (output_float): Likewise. Use new decimal_status flag
4138         to set the decimal character to a point or a comma.
4139
4140 2008-03-28  Thomas Koenig  <tkoenig@gcc.gnu.org>
4141
4142         PR libfortran/32972
4143         PR libfortran/32512
4144         * Makefile.am:  Add new variable, i_spread_c, containing
4145         pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, spread_i16.c,
4146         spread_r4.c, spread_r8.c, spread_r10.c, spread_r16.c,
4147         spread_c4.c, spread_c8.c, spread_c10.c, spread_c16.c.
4148         * Makefile.in:  Regenerated.
4149         * libgfortran.h:  Add prototypes for spread_i1, spread_i2,
4150         spread_i4, spread_i8, spread_i16, spread_r4, spread_r8,
4151         spread_c4, spread_c8, spread_c10, spread_c16,
4152         spread_scalar_i1, spread_scalar_i2, spread_scalar_i4,
4153         spread_scalar_i8, spread_scalar_i16, spread_scalar_r4
4154         spread_scalar_r8, spread_scalar_c4, spread_scalar_c8,
4155         spread_scalar_c10 and spread_scalar_c16.
4156         Add macros to isolate both type and size information
4157         from array descriptors with a single mask operation.
4158         * intrinsics/spread_generic.c:  Add calls to specific
4159         spread functions.
4160         * m4/spread.m4:  New file.
4161         * generated/spread_i1.c:  New file.
4162         * generated/spread_i2.c:  New file.
4163         * generated/spread_i4.c:  New file.
4164         * generated/spread_i8.c:  New file.
4165         * generated/spread_i16.c:  New file.
4166         * generated/spread_r4.c:  New file.
4167         * generated/spread_r8.c:  New file.
4168         * generated/spread_r10.c:  New file.
4169         * generated/spread_r16.c:  New file.
4170         * generated/spread_c4.c:  New file.
4171         * generated/spread_c8.c:  New file.
4172         * generated/spread_c10.c:  New file.
4173         * generated/spread_c16.c:  New file.
4174
4175 2008-03-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4176
4177         PR libfortran/35699
4178         * io/transfer.c (write_buf):  Don't pad the record, just return if the
4179         data is NULL.  (next_record_w): If there are bytes left in the record
4180         for unformatted direct I/O, pad out the record with zero bytes.
4181
4182 2008-03-28  Tobias Burnus  <burnus@net-b.de>
4183
4184         PR fortran/35721
4185         * intrinsics/associated.c (associated): Ignore different
4186         stride of pointer vs. target if only one element is referred.
4187
4188 2008-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4189
4190         * io/unix.c (fd_close):  Do not close STDIN.
4191
4192 2007-03-23  Thomas Koenig  <tkoenig@gcc.gnu.org
4193
4194         PR libfortran/32972
4195         * Makefile.am:  Add new variable, i_unpack_c, containing
4196         unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c,
4197         unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c,
4198         unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c
4199         and unpack_c16.c
4200         Add i_unpack_c to gfor_built_src.
4201         Add rule to generate i_unpack_c from m4/unpack.m4.
4202         * Makefile.in:  Regenerated.
4203         * libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2,
4204         unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8,
4205         unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10,
4206         unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8,
4207         unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16,
4208         unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16.
4209         * intrinsics/pack_generic.c (unpack1):  Add calls to specific
4210         unpack1 functions.
4211         (unpack0):  Add calls to specific unpack0 functions.
4212         * m4/unpack.m4:  New file.
4213         * generated/unpack_i1.c:  New file.
4214         * generated/unpack_i2.c:  New file.
4215         * generated/unpack_i4.c:  New file.
4216         * generated/unpack_i8.c:  New file.
4217         * generated/unpack_i16.c:  New file.
4218         * generated/unpack_r4.c:  New file.
4219         * generated/unpack_r8.c:  New file.
4220         * generated/unpack_r10.c:  New file.
4221         * generated/unpack_r16.c:  New file.
4222         * generated/unpack_c4.c:  New file.
4223         * generated/unpack_c8.c:  New file.
4224         * generated/unpack_c10.c:  New file.
4225         * generated/unpack_c16.c:  New file.
4226
4227 2008-03-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4228
4229         PR libfortran/35632
4230         * io/transfer.c (data_transfer_init):  Fix whitespace.
4231         (next_record_w): Truncate the file only if the stream
4232         position is short of the file end.
4233
4234 2008-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4235
4236         * intrinsics/pack_generic.c:  Fix typo.
4237
4238 2008-03-21  Janne Blomqvist  <jb@gcc.gnu.org>
4239
4240         * gfortran.map: Move erfc_scaled symbols to new symbol node
4241         GFORTRAN_1.1, thereby fixing ABI bug introduced in r132846.
4242
4243 2008-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
4244
4245         PR libfortran/32972
4246         * runtime/in_pack_generic.c (internal_pack):  Call correct
4247         function, pack_i16, for GFC_INTEGER_16.
4248
4249 2008-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
4250
4251         PR libfortran/32972
4252         * Makefile.am:  Add new variable, i_pack_c, containing
4253         pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
4254         pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,
4255         pack_c8.c, pack_c10.c, pack_c16.c.
4256         Add m4/pack.m4 to m4_files.
4257         Add i_pack_c to gfor_built_src.
4258         Add rule to generate i_pack_c from m4/pack.m4.
4259         * Makefile.in:  Regenerated.
4260         * libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4,
4261         pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8,
4262         pack_c10, pack_c16.
4263         * intrinsics/pack_generic.c:  Add calls to specific
4264         pack functions.
4265         * m4/pack.m4:  New file.
4266         * generated/pack_i1.c:  New file.
4267         * generated/pack_i2.c:  New file.
4268         * generated/pack_i4.c:  New file.
4269         * generated/pack_i8.c:  New file.
4270         * generated/pack_i16.c:  New file.
4271         * generated/pack_r4.c:  New file.
4272         * generated/pack_r8.c:  New file.
4273         * generated/pack_r10.c:  New file.
4274         * generated/pack_r16.c:  New file.
4275         * generated/pack_c4.c:  New file.
4276         * generated/pack_c8.c:  New file.
4277         * generated/pack_c10.c:  New file.
4278         * generated/pack_c16.c:  New file.
4279
4280 2008-03-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4281
4282         PR libfortran/35627
4283         * io/list_read.c (free_line): Clear the line buffer enable flag and
4284         reset the index into line_buffer, aka item_count.
4285         (next_char): Cleanup whitespace.
4286         (read_logical): Use unget_char to assure that the first character of the
4287         bad logical is saved in case it is part of an object name. Remove the
4288         clearing of index and flag that is now in free_line.
4289         (read_real): Likewise.
4290
4291 2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
4292
4293         PR libfortran/32972
4294         * runtime/in_pack_generic.c (internal_pack):  Fix typo in
4295         last commit.
4296
4297 2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
4298
4299         PR libfortran/32972
4300         * Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
4301         in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
4302         (in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
4303         in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
4304         in_unpack_r16.c.
4305         * Makefile.in: Regenerate.
4306         * libgfortran.h:  Add prototypes for internal_pack_1,
4307         internal_pack_2, internal_pack_16, internal_pack_r4,
4308         internal_pack_r8, internal_pack_r10, internal_pack_r16,
4309         internal_pack_c10 and internal_pack_c16.  Add prototypes for
4310         internal_unpack_1, internal_unpack_2, internal_unpack_16,
4311         internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
4312         internal_unpack_r16, internal_unpack_c10 and
4313         internal_unpack_c16.
4314         * runtime/in_pack_generic.c (internal_pack): Use sizeof instead
4315         of hardwired sizes.
4316         Add calls to internal_pack_1, internal_pack_2,
4317         internal_pack_16, internal_pack_r4, internal_pack_r8,
4318         internal_pack_r10, internal_pack_r16, internal_pack_c10 and
4319         internal_pack_c16.
4320         * runtime/in_unpack_generic.c (internal_unpack):  Use sizeof
4321         instead of hardwired sizes.
4322         Add calls to internal_unpack_1, internal_unpack_2,
4323         internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
4324         internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
4325         and internal_unpack_c16.
4326         * generated/in_pack_r4.c:  New file.
4327         * generated/in_pack_i2.c:  New file.
4328         * generated/in_unpack_i1.c:  New file.
4329         * generated/in_pack_r10.c:  New file.
4330         * generated/in_unpack_r4.c:  New file.
4331         * generated/in_unpack_i2.c:  New file.
4332         * generated/in_unpack_r16.c:  New file.
4333         * generated/in_pack_r8.c:  New file.
4334         * generated/in_unpack_r10.c:  New file.
4335         * generated/in_unpack_r8.c:  New file.
4336         * generated/in_pack_r16.c:  New file.
4337         * generated/in_pack_i1.c:  New file.
4338
4339 2008-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4340
4341         PR libfortran/35617
4342         * io/list_read.c (eat_separator): If next character after eatline is '!'
4343         then eatline again.
4344
4345 2008-03-16  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
4346
4347         * aclocal.m4: Regenerate.
4348         * configure: Likewise.
4349         * Makefile.in: Likewise.
4350
4351 2008-03-12  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4352
4353         PR libfortran/35524
4354         * intrinsics/erfc_scaled_inc.c: Only define the long double
4355         variant of erfc_scaled if expl is available.
4356
4357 2008-03-11  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4358
4359         PR libfortran/32812
4360         * intrinsics/random.c (scramble_seed, unscramble_seed): New
4361         functions.
4362         (random_seed_i4): Scramble the seed the user gives us before
4363         storing it, and unscramble it when we return it back later.
4364
4365 2008-03-05  Hans-Peter Nilsson  <hp@axis.com>
4366
4367         PR libfortran/35293
4368         * io/unix.c (fd_truncate): Fold s->special_file case into
4369         success case of ftruncate/chsize call instead of the failure case.
4370         Make failure case actually return failure.  Properly update stream
4371         pointers on failure.  Call runtime_error for targets without
4372         neither ftruncate nor chsize where such a call would be needed.
4373
4374 2008-03-03  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4375
4376         PR fortran/33197
4377         * intrinsics/erfc_scaled_inc.c: New file.
4378         * intrinsics/erfc_scaled.c: New file.
4379         * gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
4380         * Makefile.am: Add intrinsics/erfc_scaled.c.
4381         * config.h.in: Regenerate.
4382         * configure: Regenerate.
4383         * Makefile.in: Regenerate.
4384
4385 2008-03-01  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4386
4387         PR libfortran/35355
4388         * intrinsics/time_1.h (__time_1): Fix calculation of user_usec
4389         for mingw.
4390
4391 2008-03-01  Janne Blomqvist  <jb@gcc.gnu.org>
4392
4393         PR libfortran/35063
4394         * io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy
4395         instead of macro kludge.
4396
4397 2008-02-25  Janne Blomqvist  <jb@gcc.gnu.org>
4398
4399         PR fortran/29549
4400         * Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of
4401         libgfortran.
4402         * Makefile.in: Regenerated.
4403
4404 2008-02-25  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4405
4406         * m4/ifunction_logical.m4: Add casts to get rid of warnings.
4407         * generated/all_l1.c: Regenerate.
4408         * generated/all_l2.c: Regenerate.
4409         * generated/all_l4.c: Regenerate.
4410         * generated/all_l8.c: Regenerate.
4411         * generated/all_l16.c: Regenerate.
4412         * generated/any_l1.c: Regenerate.
4413         * generated/any_l2.c: Regenerate.
4414         * generated/any_l4.c: Regenerate.
4415         * generated/any_l8.c: Regenerate.
4416         * generated/any_l16.c: Regenerate.
4417         * generated/count_1_l.c: Regenerate.
4418         * generated/count_2_l.c: Regenerate.
4419         * generated/count_4_l.c: Regenerate.
4420         * generated/count_8_l.c: Regenerate.
4421         * generated/count_16_l.c: Regenerate.
4422
4423 2008-02-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
4424
4425         PR libfortran/32841
4426         * acinclude.m4: Don't use HAVE_MATH_H.
4427         * configure: Regenerate.
4428
4429 2008-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4430
4431         PR libfortran/35132
4432         * io/transfer.c (next_record_w): Truncate after the last record for
4433         STREAM I/O.
4434
4435         PR libfortran/34954
4436         * io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
4437
4438         PR libfortran/34974
4439         * io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
4440         is less than zero. (next_record_w): Use sseek to position the file to
4441         the max position reached.
4442
4443 2008-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4444
4445         PR libfortran/35036
4446         * write_float.def (output_float):  Add error checks for zero digits
4447         after decimal point in E and D format specifiers.
4448
4449 2008-02-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4450
4451         PR libfortran/35063
4452         * io/unit.c (destroy_unit_mutex): New function that uses
4453         __gthread_mutex_destroy_function or pthread_mutex_destroy after
4454         unlocking and before free_mem for final closure of I/O unit.
4455         (delete_root): Use new function.
4456         (free_internal_unit): Likewise.
4457         (close_unit_1): Likewise.
4458
4459 2008-02-02  Thomas Koenig  <tkoenig@gcc.gnu.org>
4460
4461         PR libfortran/35001
4462         * m4/shape.m4:  Return 0 for extents <= 0.
4463         * generated/shape_i4.c:  Regenerated.
4464         * generated/shape_i8.c:  Regenerated.
4465         * generated/shape_i16.c:  Regenerated.
4466
4467 2008-01-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
4468
4469         PR libfortran/34980
4470         * m4/shape.m4:  If return array is empty, return early.
4471         * generated/shape_i4.c:  Regenerated.
4472         * generated/shape_i8.c:  Regenerated.
4473         * generated/shape_i16.c:  Regenerated.
4474
4475 2008-01-26  Thomas Koenig  <tkoenig@gcc.gnu.org>
4476
4477         PR libfofortran/34887
4478         * io/transfer.c (next_record_w): Always move to the farthest
4479         position when completing the record (also when we are
4480         processing a slash edit descriptor).
4481
4482 2008-01-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4483
4484         PR libfortran/34876
4485         * io/transfer.c (write_buf): Handle case of zero sized array.
4486         (transfer_array): Set data pointer to NULL and size to zero.  Then
4487         make a data transfer and return.
4488
4489 2008-01-24  David Edelsohn  <edelsohn@gnu.org>
4490
4491         * configure: Regenerate.
4492
4493 2008-01-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4494
4495         PR libfortran/34795
4496         * io/inquire.c (inquire_via_unit): If a unit is opened, return values
4497         according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
4498         (inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
4499         FORAMATTED, and UNFORMATTED inquiries.
4500         * io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
4501         for files that are not opened. (inquire_direct): Same.
4502         (inquire_formatted): Same.
4503
4504 2008-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4505
4506         PR libfortran/34782
4507         * io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater
4508         of the current max_pos or the newly calculated position.
4509
4510 2008-01-18  Tobias Burnus  <burnus@net-b.de>
4511
4512         * io/write.c (write_real): Increase default precision
4513         for REAL(16) by one.
4514
4515 2008-01-16  Steven Bosscher  <steven@gcc.gnu.org>
4516
4517         PR libfortran/34669
4518         * mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
4519         to avoid piping the -fdump-parse-tree output to the assembler
4520         when configuring with -pipe.
4521         * mk-sik-inc.sh: Likewise.
4522         * mk-srk-inc.sh: Likewise.
4523
4524 2008-01-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
4525
4526         PR libfortran/34671
4527         * gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
4528         _gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
4529         _gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
4530         _gfortran_count_8_l Removed _gfortran_count_16_l16,
4531         _gfortran_count_16_l4, _gfortran_count_16_l8,
4532         _gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
4533         _gfortran_count_8_l16, _gfortran_count_8_l4 and
4534         _gfortran_count_8_l8.
4535         * Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
4536         i_any_c.  Added generated/all_l1. and generated/all_l2.c to
4537         i_all_c.  Removed generated/count_4_l4.c, generated/count_8_l4.c,
4538         generated/count_16_l4.c, generated/count_4_l8.c,
4539         generated/count_8_l8.c, generated/count_16_l8.c,
4540         generated/count_4_l16.c, generated/count_8_l16.c, and
4541         generated/count_16_l16.c from i_count_c.  Added count_1_l.c,
4542         count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
4543         i_count_c.  I_M4_DEPS2 depends on ifunction_logical.m4, for
4544         any of the files generated from all.m4, any.m4 and count.m4.
4545         * Makefile.in:  Regenerated.
4546         * m4/ifunction_logical.m4:  New file.  Use
4547         GFC_LOGICAL_1 pointer for access to source arrays.
4548         * m4/any.m4:  Include ifunction_logical.m4 instead of
4549         ifunction.m4.  Don't check atype_name.
4550         * m4/all.m4:  Likewise.
4551         * m4/count.m4:  Likewise.
4552         * generated/any_l1.c:  New file.
4553         * generated/any_l2.c:  New file.
4554         * generated/all_l1.c:  New file.
4555         * generated/count_1_l.c:  New file.
4556         * generated/count_2_l.c:  New file.
4557         * generated/count_4_l.c:  New file.
4558         * generated/count_8_l.c:  New file.
4559         * generated/count_16_l.c:  New file.
4560         * generated/any_l4.c:  Regenerated.
4561         * generated/any_l8.c:  Regenerated.
4562         * generated/any_l16.c:  Regenerated.
4563         * generated/all_l4.c: Regenerated.
4564         * generated/all_l8.c: Regenerated.
4565         * generated/all_l16.c: Regenerated.
4566         * generated/count_4_l4.c:  Removed.
4567         * generated/count_4_l8.c:  Removed.
4568         * generated/count_4_l16.c:  Removed.
4569         * generated/count_8_l4.c:  Removed.
4570         * generated/count_8_l8.c:  Removed.
4571         * generated/count_8_l16.c:  Removed.
4572         * generated/count_16_l4.c:  Removed.
4573         * generated/count_16_l8.c:  Removed.
4574         * generated/count_16_l16.c:  Removed.
4575
4576 2008-01-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
4577
4578         PR libfortran/34746
4579         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Use %ld
4580         in printf format for all bounds checking; cast all
4581         integer-like arguments to runtime_error() to long int.
4582         (`m'name`'rtype_qual`_'atype_code):  Likewise.
4583         (`s'name`'rtype_qual`_'atype_code):  Likewise.
4584         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Likewise.
4585         (`m'name`'rtype_qual`_'atype_code):  Likewise.
4586         (`s'name`'rtype_qual`_'atype_code):  Likewise.
4587         * generated/all_l16.c: Regenerated.
4588         * generated/all_l4.c: Regenerated.
4589         * generated/all_l8.c: Regenerated.
4590         * generated/any_l16.c: Regenerated.
4591         * generated/any_l4.c: Regenerated.
4592         * generated/any_l8.c: Regenerated.
4593         * generated/count_16_l16.c: Regenerated.
4594         * generated/count_16_l4.c: Regenerated.
4595         * generated/count_16_l8.c: Regenerated.
4596         * generated/count_4_l16.c: Regenerated.
4597         * generated/count_4_l4.c: Regenerated.
4598         * generated/count_4_l8.c: Regenerated.
4599         * generated/count_8_l16.c: Regenerated.
4600         * generated/count_8_l4.c: Regenerated.
4601         * generated/count_8_l8.c: Regenerated.
4602         * generated/maxloc0_16_i1.c: Regenerated.
4603         * generated/maxloc0_16_i16.c: Regenerated.
4604         * generated/maxloc0_16_i2.c: Regenerated.
4605         * generated/maxloc0_16_i4.c: Regenerated.
4606         * generated/maxloc0_16_i8.c: Regenerated.
4607         * generated/maxloc0_16_r10.c: Regenerated.
4608         * generated/maxloc0_16_r16.c: Regenerated.
4609         * generated/maxloc0_16_r4.c: Regenerated.
4610         * generated/maxloc0_16_r8.c: Regenerated.
4611         * generated/maxloc0_4_i1.c: Regenerated.
4612         * generated/maxloc0_4_i16.c: Regenerated.
4613         * generated/maxloc0_4_i2.c: Regenerated.
4614         * generated/maxloc0_4_i4.c: Regenerated.
4615         * generated/maxloc0_4_i8.c: Regenerated.
4616         * generated/maxloc0_4_r10.c: Regenerated.
4617         * generated/maxloc0_4_r16.c: Regenerated.
4618         * generated/maxloc0_4_r4.c: Regenerated.
4619         * generated/maxloc0_4_r8.c: Regenerated.
4620         * generated/maxloc0_8_i1.c: Regenerated.
4621         * generated/maxloc0_8_i16.c: Regenerated.
4622         * generated/maxloc0_8_i2.c: Regenerated.
4623         * generated/maxloc0_8_i4.c: Regenerated.
4624         * generated/maxloc0_8_i8.c: Regenerated.
4625         * generated/maxloc0_8_r10.c: Regenerated.
4626         * generated/maxloc0_8_r16.c: Regenerated.
4627         * generated/maxloc0_8_r4.c: Regenerated.
4628         * generated/maxloc0_8_r8.c: Regenerated.
4629         * generated/maxloc1_16_i1.c: Regenerated.
4630         * generated/maxloc1_16_i16.c: Regenerated.
4631         * generated/maxloc1_16_i2.c: Regenerated.
4632         * generated/maxloc1_16_i4.c: Regenerated.
4633         * generated/maxloc1_16_i8.c: Regenerated.
4634         * generated/maxloc1_16_r10.c: Regenerated.
4635         * generated/maxloc1_16_r16.c: Regenerated.
4636         * generated/maxloc1_16_r4.c: Regenerated.
4637         * generated/maxloc1_16_r8.c: Regenerated.
4638         * generated/maxloc1_4_i1.c: Regenerated.
4639         * generated/maxloc1_4_i16.c: Regenerated.
4640         * generated/maxloc1_4_i2.c: Regenerated.
4641         * generated/maxloc1_4_i4.c: Regenerated.
4642         * generated/maxloc1_4_i8.c: Regenerated.
4643         * generated/maxloc1_4_r10.c: Regenerated.
4644         * generated/maxloc1_4_r16.c: Regenerated.
4645         * generated/maxloc1_4_r4.c: Regenerated.
4646         * generated/maxloc1_4_r8.c: Regenerated.
4647         * generated/maxloc1_8_i1.c: Regenerated.
4648         * generated/maxloc1_8_i16.c: Regenerated.
4649         * generated/maxloc1_8_i2.c: Regenerated.
4650         * generated/maxloc1_8_i4.c: Regenerated.
4651         * generated/maxloc1_8_i8.c: Regenerated.
4652         * generated/maxloc1_8_r10.c: Regenerated.
4653         * generated/maxloc1_8_r16.c: Regenerated.
4654         * generated/maxloc1_8_r4.c: Regenerated.
4655         * generated/maxloc1_8_r8.c: Regenerated.
4656         * generated/maxval_i1.c: Regenerated.
4657         * generated/maxval_i16.c: Regenerated.
4658         * generated/maxval_i2.c: Regenerated.
4659         * generated/maxval_i4.c: Regenerated.
4660         * generated/maxval_i8.c: Regenerated.
4661         * generated/maxval_r10.c: Regenerated.
4662         * generated/maxval_r16.c: Regenerated.
4663         * generated/maxval_r4.c: Regenerated.
4664         * generated/maxval_r8.c: Regenerated.
4665         * generated/minloc0_16_i1.c: Regenerated.
4666         * generated/minloc0_16_i16.c: Regenerated.
4667         * generated/minloc0_16_i2.c: Regenerated.
4668         * generated/minloc0_16_i4.c: Regenerated.
4669         * generated/minloc0_16_i8.c: Regenerated.
4670         * generated/minloc0_16_r10.c: Regenerated.
4671         * generated/minloc0_16_r16.c: Regenerated.
4672         * generated/minloc0_16_r4.c: Regenerated.
4673         * generated/minloc0_16_r8.c: Regenerated.
4674         * generated/minloc0_4_i1.c: Regenerated.
4675         * generated/minloc0_4_i16.c: Regenerated.
4676         * generated/minloc0_4_i2.c: Regenerated.
4677         * generated/minloc0_4_i4.c: Regenerated.
4678         * generated/minloc0_4_i8.c: Regenerated.
4679         * generated/minloc0_4_r10.c: Regenerated.
4680         * generated/minloc0_4_r16.c: Regenerated.
4681         * generated/minloc0_4_r4.c: Regenerated.
4682         * generated/minloc0_4_r8.c: Regenerated.
4683         * generated/minloc0_8_i1.c: Regenerated.
4684         * generated/minloc0_8_i16.c: Regenerated.
4685         * generated/minloc0_8_i2.c: Regenerated.
4686         * generated/minloc0_8_i4.c: Regenerated.
4687         * generated/minloc0_8_i8.c: Regenerated.
4688         * generated/minloc0_8_r10.c: Regenerated.
4689         * generated/minloc0_8_r16.c: Regenerated.
4690         * generated/minloc0_8_r4.c: Regenerated.
4691         * generated/minloc0_8_r8.c: Regenerated.
4692         * generated/minloc1_16_i1.c: Regenerated.
4693         * generated/minloc1_16_i16.c: Regenerated.
4694         * generated/minloc1_16_i2.c: Regenerated.
4695         * generated/minloc1_16_i4.c: Regenerated.
4696         * generated/minloc1_16_i8.c: Regenerated.
4697         * generated/minloc1_16_r10.c: Regenerated.
4698         * generated/minloc1_16_r16.c: Regenerated.
4699         * generated/minloc1_16_r4.c: Regenerated.
4700         * generated/minloc1_16_r8.c: Regenerated.
4701         * generated/minloc1_4_i1.c: Regenerated.
4702         * generated/minloc1_4_i16.c: Regenerated.
4703         * generated/minloc1_4_i2.c: Regenerated.
4704         * generated/minloc1_4_i4.c: Regenerated.
4705         * generated/minloc1_4_i8.c: Regenerated.
4706         * generated/minloc1_4_r10.c: Regenerated.
4707         * generated/minloc1_4_r16.c: Regenerated.
4708         * generated/minloc1_4_r4.c: Regenerated.
4709         * generated/minloc1_4_r8.c: Regenerated.
4710         * generated/minloc1_8_i1.c: Regenerated.
4711         * generated/minloc1_8_i16.c: Regenerated.
4712         * generated/minloc1_8_i2.c: Regenerated.
4713         * generated/minloc1_8_i4.c: Regenerated.
4714         * generated/minloc1_8_i8.c: Regenerated.
4715         * generated/minloc1_8_r10.c: Regenerated.
4716         * generated/minloc1_8_r16.c: Regenerated.
4717         * generated/minloc1_8_r4.c: Regenerated.
4718         * generated/minloc1_8_r8.c: Regenerated.
4719         * generated/minval_i1.c: Regenerated.
4720         * generated/minval_i16.c: Regenerated.
4721         * generated/minval_i2.c: Regenerated.
4722         * generated/minval_i4.c: Regenerated.
4723         * generated/minval_i8.c: Regenerated.
4724         * generated/minval_r10.c: Regenerated.
4725         * generated/minval_r16.c: Regenerated.
4726         * generated/minval_r4.c: Regenerated.
4727         * generated/minval_r8.c: Regenerated.
4728         * generated/product_c10.c: Regenerated.
4729         * generated/product_c16.c: Regenerated.
4730         * generated/product_c4.c: Regenerated.
4731         * generated/product_c8.c: Regenerated.
4732         * generated/product_i1.c: Regenerated.
4733         * generated/product_i16.c: Regenerated.
4734         * generated/product_i2.c: Regenerated.
4735         * generated/product_i4.c: Regenerated.
4736         * generated/product_i8.c: Regenerated.
4737         * generated/product_r10.c: Regenerated.
4738         * generated/product_r16.c: Regenerated.
4739         * generated/product_r4.c: Regenerated.
4740         * generated/product_r8.c: Regenerated.
4741         * generated/sum_c10.c: Regenerated.
4742         * generated/sum_c16.c: Regenerated.
4743         * generated/sum_c4.c: Regenerated.
4744         * generated/sum_c8.c: Regenerated.
4745         * generated/sum_i1.c: Regenerated.
4746         * generated/sum_i16.c: Regenerated.
4747         * generated/sum_i2.c: Regenerated.
4748         * generated/sum_i4.c: Regenerated.
4749         * generated/sum_i8.c: Regenerated.
4750         * generated/sum_r10.c: Regenerated.
4751         * generated/sum_r16.c: Regenerated.
4752         * generated/sum_r4.c: Regenerated.
4753         * generated/sum_r8.c: Regenerated.
4754
4755 2008-01-11  Thomas Koenig  <tkoenig@gcc.gnu.org>
4756
4757         PR libfortran/34670
4758         * m4/iparm.m4 (upcase):  New macro (copied from the m4 manual).
4759         (u_name):  New macro for the upper case name of the intrinsic.
4760         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Add
4761         bounds checking and rank check, depending on
4762         compile_options.bounds_check.
4763         (`m'name`'rtype_qual`_'atype_code):  Likewise.
4764         (`s'name`'rtype_qual`_'atype_code):  Likewise.
4765         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Add
4766         bounds checking and rank check, depending on
4767         compile_options.bounds_check.
4768         (`m'name`'rtype_qual`_'atype_code):  Likewise.
4769         (`s'name`'rtype_qual`_'atype_code):  Likewise.
4770         * generated/all_l16.c: Regenerated.
4771         * generated/all_l4.c: Regenerated.
4772         * generated/all_l8.c: Regenerated.
4773         * generated/any_l16.c: Regenerated.
4774         * generated/any_l4.c: Regenerated.
4775         * generated/any_l8.c: Regenerated.
4776         * generated/count_16_l16.c: Regenerated.
4777         * generated/count_16_l4.c: Regenerated.
4778         * generated/count_16_l8.c: Regenerated.
4779         * generated/count_4_l16.c: Regenerated.
4780         * generated/count_4_l4.c: Regenerated.
4781         * generated/count_4_l8.c: Regenerated.
4782         * generated/count_8_l16.c: Regenerated.
4783         * generated/count_8_l4.c: Regenerated.
4784         * generated/count_8_l8.c: Regenerated.
4785         * generated/maxloc0_16_i1.c: Regenerated.
4786         * generated/maxloc0_16_i16.c: Regenerated.
4787         * generated/maxloc0_16_i2.c: Regenerated.
4788         * generated/maxloc0_16_i4.c: Regenerated.
4789         * generated/maxloc0_16_i8.c: Regenerated.
4790         * generated/maxloc0_16_r10.c: Regenerated.
4791         * generated/maxloc0_16_r16.c: Regenerated.
4792         * generated/maxloc0_16_r4.c: Regenerated.
4793         * generated/maxloc0_16_r8.c: Regenerated.
4794         * generated/maxloc0_4_i1.c: Regenerated.
4795         * generated/maxloc0_4_i16.c: Regenerated.
4796         * generated/maxloc0_4_i2.c: Regenerated.
4797         * generated/maxloc0_4_i4.c: Regenerated.
4798         * generated/maxloc0_4_i8.c: Regenerated.
4799         * generated/maxloc0_4_r10.c: Regenerated.
4800         * generated/maxloc0_4_r16.c: Regenerated.
4801         * generated/maxloc0_4_r4.c: Regenerated.
4802         * generated/maxloc0_4_r8.c: Regenerated.
4803         * generated/maxloc0_8_i1.c: Regenerated.
4804         * generated/maxloc0_8_i16.c: Regenerated.
4805         * generated/maxloc0_8_i2.c: Regenerated.
4806         * generated/maxloc0_8_i4.c: Regenerated.
4807         * generated/maxloc0_8_i8.c: Regenerated.
4808         * generated/maxloc0_8_r10.c: Regenerated.
4809         * generated/maxloc0_8_r16.c: Regenerated.
4810         * generated/maxloc0_8_r4.c: Regenerated.
4811         * generated/maxloc0_8_r8.c: Regenerated.
4812         * generated/maxloc1_16_i1.c: Regenerated.
4813         * generated/maxloc1_16_i16.c: Regenerated.
4814         * generated/maxloc1_16_i2.c: Regenerated.
4815         * generated/maxloc1_16_i4.c: Regenerated.
4816         * generated/maxloc1_16_i8.c: Regenerated.
4817         * generated/maxloc1_16_r10.c: Regenerated.
4818         * generated/maxloc1_16_r16.c: Regenerated.
4819         * generated/maxloc1_16_r4.c: Regenerated.
4820         * generated/maxloc1_16_r8.c: Regenerated.
4821         * generated/maxloc1_4_i1.c: Regenerated.
4822         * generated/maxloc1_4_i16.c: Regenerated.
4823         * generated/maxloc1_4_i2.c: Regenerated.
4824         * generated/maxloc1_4_i4.c: Regenerated.
4825         * generated/maxloc1_4_i8.c: Regenerated.
4826         * generated/maxloc1_4_r10.c: Regenerated.
4827         * generated/maxloc1_4_r16.c: Regenerated.
4828         * generated/maxloc1_4_r4.c: Regenerated.
4829         * generated/maxloc1_4_r8.c: Regenerated.
4830         * generated/maxloc1_8_i1.c: Regenerated.
4831         * generated/maxloc1_8_i16.c: Regenerated.
4832         * generated/maxloc1_8_i2.c: Regenerated.
4833         * generated/maxloc1_8_i4.c: Regenerated.
4834         * generated/maxloc1_8_i8.c: Regenerated.
4835         * generated/maxloc1_8_r10.c: Regenerated.
4836         * generated/maxloc1_8_r16.c: Regenerated.
4837         * generated/maxloc1_8_r4.c: Regenerated.
4838         * generated/maxloc1_8_r8.c: Regenerated.
4839         * generated/maxval_i1.c: Regenerated.
4840         * generated/maxval_i16.c: Regenerated.
4841         * generated/maxval_i2.c: Regenerated.
4842         * generated/maxval_i4.c: Regenerated.
4843         * generated/maxval_i8.c: Regenerated.
4844         * generated/maxval_r10.c: Regenerated.
4845         * generated/maxval_r16.c: Regenerated.
4846         * generated/maxval_r4.c: Regenerated.
4847         * generated/maxval_r8.c: Regenerated.
4848         * generated/minloc0_16_i1.c: Regenerated.
4849         * generated/minloc0_16_i16.c: Regenerated.
4850         * generated/minloc0_16_i2.c: Regenerated.
4851         * generated/minloc0_16_i4.c: Regenerated.
4852         * generated/minloc0_16_i8.c: Regenerated.
4853         * generated/minloc0_16_r10.c: Regenerated.
4854         * generated/minloc0_16_r16.c: Regenerated.
4855         * generated/minloc0_16_r4.c: Regenerated.
4856         * generated/minloc0_16_r8.c: Regenerated.
4857         * generated/minloc0_4_i1.c: Regenerated.
4858         * generated/minloc0_4_i16.c: Regenerated.
4859         * generated/minloc0_4_i2.c: Regenerated.
4860         * generated/minloc0_4_i4.c: Regenerated.
4861         * generated/minloc0_4_i8.c: Regenerated.
4862         * generated/minloc0_4_r10.c: Regenerated.
4863         * generated/minloc0_4_r16.c: Regenerated.
4864         * generated/minloc0_4_r4.c: Regenerated.
4865         * generated/minloc0_4_r8.c: Regenerated.
4866         * generated/minloc0_8_i1.c: Regenerated.
4867         * generated/minloc0_8_i16.c: Regenerated.
4868         * generated/minloc0_8_i2.c: Regenerated.
4869         * generated/minloc0_8_i4.c: Regenerated.
4870         * generated/minloc0_8_i8.c: Regenerated.
4871         * generated/minloc0_8_r10.c: Regenerated.
4872         * generated/minloc0_8_r16.c: Regenerated.
4873         * generated/minloc0_8_r4.c: Regenerated.
4874         * generated/minloc0_8_r8.c: Regenerated.
4875         * generated/minloc1_16_i1.c: Regenerated.
4876         * generated/minloc1_16_i16.c: Regenerated.
4877         * generated/minloc1_16_i2.c: Regenerated.
4878         * generated/minloc1_16_i4.c: Regenerated.
4879         * generated/minloc1_16_i8.c: Regenerated.
4880         * generated/minloc1_16_r10.c: Regenerated.
4881         * generated/minloc1_16_r16.c: Regenerated.
4882         * generated/minloc1_16_r4.c: Regenerated.
4883         * generated/minloc1_16_r8.c: Regenerated.
4884         * generated/minloc1_4_i1.c: Regenerated.
4885         * generated/minloc1_4_i16.c: Regenerated.
4886         * generated/minloc1_4_i2.c: Regenerated.
4887         * generated/minloc1_4_i4.c: Regenerated.
4888         * generated/minloc1_4_i8.c: Regenerated.
4889         * generated/minloc1_4_r10.c: Regenerated.
4890         * generated/minloc1_4_r16.c: Regenerated.
4891         * generated/minloc1_4_r4.c: Regenerated.
4892         * generated/minloc1_4_r8.c: Regenerated.
4893         * generated/minloc1_8_i1.c: Regenerated.
4894         * generated/minloc1_8_i16.c: Regenerated.
4895         * generated/minloc1_8_i2.c: Regenerated.
4896         * generated/minloc1_8_i4.c: Regenerated.
4897         * generated/minloc1_8_i8.c: Regenerated.
4898         * generated/minloc1_8_r10.c: Regenerated.
4899         * generated/minloc1_8_r16.c: Regenerated.
4900         * generated/minloc1_8_r4.c: Regenerated.
4901         * generated/minloc1_8_r8.c: Regenerated.
4902         * generated/minval_i1.c: Regenerated.
4903         * generated/minval_i16.c: Regenerated.
4904         * generated/minval_i2.c: Regenerated.
4905         * generated/minval_i4.c: Regenerated.
4906         * generated/minval_i8.c: Regenerated.
4907         * generated/minval_r10.c: Regenerated.
4908         * generated/minval_r16.c: Regenerated.
4909         * generated/minval_r4.c: Regenerated.
4910         * generated/minval_r8.c: Regenerated.
4911         * generated/product_c10.c: Regenerated.
4912         * generated/product_c16.c: Regenerated.
4913         * generated/product_c4.c: Regenerated.
4914         * generated/product_c8.c: Regenerated.
4915         * generated/product_i1.c: Regenerated.
4916         * generated/product_i16.c: Regenerated.
4917         * generated/product_i2.c: Regenerated.
4918         * generated/product_i4.c: Regenerated.
4919         * generated/product_i8.c: Regenerated.
4920         * generated/product_r10.c: Regenerated.
4921         * generated/product_r16.c: Regenerated.
4922         * generated/product_r4.c: Regenerated.
4923         * generated/product_r8.c: Regenerated.
4924         * generated/sum_c10.c: Regenerated.
4925         * generated/sum_c16.c: Regenerated.
4926         * generated/sum_c4.c: Regenerated.
4927         * generated/sum_c8.c: Regenerated.
4928         * generated/sum_i1.c: Regenerated.
4929         * generated/sum_i16.c: Regenerated.
4930         * generated/sum_i2.c: Regenerated.
4931         * generated/sum_i4.c: Regenerated.
4932         * generated/sum_i8.c: Regenerated.
4933         * generated/sum_r10.c: Regenerated.
4934         * generated/sum_r16.c: Regenerated.
4935         * generated/sum_r4.c: Regenerated.
4936         * generated/sum_r8.c: Regenerated.
4937
4938 2008-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
4939
4940         PR libfortran/34676
4941         * io/list_read.c (next_char): Only save the EOF condition for later if
4942         advance="no".
4943
4944 2008-01-03  Thomas Koenig  <tkoenig@gcc.gnu.org>
4945
4946         PR libfortran/34565
4947         * io/io.h:  Adjust protoypes for open_internal(),
4948         next_array_record() and init_loop_spec().
4949         * io/list_read.c (next_char):  Use argument "finished"
4950         of next_array_record to check for end on internal file.
4951         * io/unit.c:  Calculate the offset for an array
4952         internal file and supply this informatin to open_internal().
4953         * io/unix.c (open_internal):  Set the offset for the internal
4954         file on open.
4955         * io/transfer.c (init_loop_spec):  Calculate the starting
4956         record in case of negative strides.  Return size of 0 for
4957         an empty array.
4958         (next_array_record):  Use an extra flag to signal that the
4959         array is finished.
4960         (next_record_r):  Use the new flag to next_array_record().
4961         (next_record_w):  Likewise.