libgfortran/ChangeLog

   1 2008-05-25  Tobias Burnus  <burnus@net-b.de>
   2
   3         PR fortran/32600
   4         * intrinsics/iso_c_binding.c (c_f_procpointer): Remove.
   5         * intrinsics/iso_c_binding.h (c_f_procpointer): Remove.
   6         * gfortran.map (c_f_procpointer): Remove.
   7
   8 2008-05-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
   9
  10         PR libgfortran/36302
  11         * gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16,
  12         _gfortran_eoshift0_16_char, _gfortran_eoshift2_16,
  13         _gfortran_eoshift2_16_char,_gfortran_cshift0_16,
  14         _gfortran_cshift0_16_char.  Sort alphabetically.
  15         * intrinsics/eoshift0.c:  Add function for kind=16 integer.
  16         * intrinsics/eoshift2.c:  Likewise.
  17         * intrinsics/cshift0.c:  Likewise.
  18
  19 2008-05-18  Thomas Koenig  <tkoenig@gcc.gnu.org>
  20
  21         * m4/in_pack.m4 (internal_pack_'rtype_code`):  Destination
  22         pointer is restrict.
  23         * m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
  24         * m4/pack.m4 (pack_'rtype_code`):  Likewise.
  25         * m4/spread.m4 (spread_'rtype_code`):  Likewise.
  26         (spread_scalar_'rtype_code`): Likewise.
  27         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
  28         * m4/eoshift1.m4 (eoshift1):  Likewise.
  29         * m4/eoshift3.m4 (eoshift3):  Likewise.
  30         * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):  Likewise.
  31         * m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
  32         (unpack1_'rtype_code`):  Likewise.
  33         * intrinsics/pack_generic.c (pack_generic.c):  Likewise.
  34         * intrinsics/unpack_generic.c (unpack_internal):  Likewise.
  35         * intrinsics/eoshift0.c (eoshift0):  Likewise.
  36         * intrinsics/eoshift2.c (eoshift2):  Likewise.
  37         * intrinsics/reshape_generic.c (reshape_internal):  Likewise.
  38         * intrinsics/reshape_packed.c (reshape_packed):  Likewise.
  39         * generated/eoshift1_16.c: Regenerated.
  40         * generated/eoshift1_4.c: Regenerated.
  41         * generated/eoshift1_8.c: Regenerated.
  42         * generated/eoshift3_16.c: Regenerated.
  43         * generated/eoshift3_4.c: Regenerated.
  44         * generated/eoshift3_8.c: Regenerated.
  45         * generated/in_pack_c10.c: Regenerated.
  46         * generated/in_pack_c16.c: Regenerated.
  47         * generated/in_pack_c4.c: Regenerated.
  48         * generated/in_pack_c8.c: Regenerated.
  49         * generated/in_pack_i1.c: Regenerated.
  50         * generated/in_pack_i16.c: Regenerated.
  51         * generated/in_pack_i2.c: Regenerated.
  52         * generated/in_pack_i4.c: Regenerated.
  53         * generated/in_pack_i8.c: Regenerated.
  54         * generated/in_pack_r10.c: Regenerated.
  55         * generated/in_pack_r16.c: Regenerated.
  56         * generated/in_pack_r4.c: Regenerated.
  57         * generated/in_pack_r8.c: Regenerated.
  58         * generated/in_unpack_c10.c: Regenerated.
  59         * generated/in_unpack_c16.c: Regenerated.
  60         * generated/in_unpack_c4.c: Regenerated.
  61         * generated/in_unpack_c8.c: Regenerated.
  62         * generated/in_unpack_i1.c: Regenerated.
  63         * generated/in_unpack_i16.c: Regenerated.
  64         * generated/in_unpack_i2.c: Regenerated.
  65         * generated/in_unpack_i4.c: Regenerated.
  66         * generated/in_unpack_i8.c: Regenerated.
  67         * generated/in_unpack_r10.c: Regenerated.
  68         * generated/in_unpack_r16.c: Regenerated.
  69         * generated/in_unpack_r4.c: Regenerated.
  70         * generated/in_unpack_r8.c: Regenerated.
  71         * generated/maxloc0_16_i1.c: Regenerated.
  72         * generated/maxloc0_16_i16.c: Regenerated.
  73         * generated/maxloc0_16_i2.c: Regenerated.
  74         * generated/maxloc0_16_i4.c: Regenerated.
  75         * generated/maxloc0_16_i8.c: Regenerated.
  76         * generated/maxloc0_16_r10.c: Regenerated.
  77         * generated/maxloc0_16_r16.c: Regenerated.
  78         * generated/maxloc0_16_r4.c: Regenerated.
  79         * generated/maxloc0_16_r8.c: Regenerated.
  80         * generated/maxloc0_4_i1.c: Regenerated.
  81         * generated/maxloc0_4_i16.c: Regenerated.
  82         * generated/maxloc0_4_i2.c: Regenerated.
  83         * generated/maxloc0_4_i4.c: Regenerated.
  84         * generated/maxloc0_4_i8.c: Regenerated.
  85         * generated/maxloc0_4_r10.c: Regenerated.
  86         * generated/maxloc0_4_r16.c: Regenerated.
  87         * generated/maxloc0_4_r4.c: Regenerated.
  88         * generated/maxloc0_4_r8.c: Regenerated.
  89         * generated/maxloc0_8_i1.c: Regenerated.
  90         * generated/maxloc0_8_i16.c: Regenerated.
  91         * generated/maxloc0_8_i2.c: Regenerated.
  92         * generated/maxloc0_8_i4.c: Regenerated.
  93         * generated/maxloc0_8_i8.c: Regenerated.
  94         * generated/maxloc0_8_r10.c: Regenerated.
  95         * generated/maxloc0_8_r16.c: Regenerated.
  96         * generated/maxloc0_8_r4.c: Regenerated.
  97         * generated/maxloc0_8_r8.c: Regenerated.
  98         * generated/minloc0_16_i1.c: Regenerated.
  99         * generated/minloc0_16_i16.c: Regenerated.
 100         * generated/minloc0_16_i2.c: Regenerated.
 101         * generated/minloc0_16_i4.c: Regenerated.
 102         * generated/minloc0_16_i8.c: Regenerated.
 103         * generated/minloc0_16_r10.c: Regenerated.
 104         * generated/minloc0_16_r16.c: Regenerated.
 105         * generated/minloc0_16_r4.c: Regenerated.
 106         * generated/minloc0_16_r8.c: Regenerated.
 107         * generated/minloc0_4_i1.c: Regenerated.
 108         * generated/minloc0_4_i16.c: Regenerated.
 109         * generated/minloc0_4_i2.c: Regenerated.
 110         * generated/minloc0_4_i4.c: Regenerated.
 111         * generated/minloc0_4_i8.c: Regenerated.
 112         * generated/minloc0_4_r10.c: Regenerated.
 113         * generated/minloc0_4_r16.c: Regenerated.
 114         * generated/minloc0_4_r4.c: Regenerated.
 115         * generated/minloc0_4_r8.c: Regenerated.
 116         * generated/minloc0_8_i1.c: Regenerated.
 117         * generated/minloc0_8_i16.c: Regenerated.
 118         * generated/minloc0_8_i2.c: Regenerated.
 119         * generated/minloc0_8_i4.c: Regenerated.
 120         * generated/minloc0_8_i8.c: Regenerated.
 121         * generated/minloc0_8_r10.c: Regenerated.
 122         * generated/minloc0_8_r16.c: Regenerated.
 123         * generated/minloc0_8_r4.c: Regenerated.
 124         * generated/minloc0_8_r8.c: Regenerated.
 125         * generated/pack_c10.c: Regenerated.
 126         * generated/pack_c16.c: Regenerated.
 127         * generated/pack_c4.c: Regenerated.
 128         * generated/pack_c8.c: Regenerated.
 129         * generated/pack_i1.c: Regenerated.
 130         * generated/pack_i16.c: Regenerated.
 131         * generated/pack_i2.c: Regenerated.
 132         * generated/pack_i4.c: Regenerated.
 133         * generated/pack_i8.c: Regenerated.
 134         * generated/pack_r10.c: Regenerated.
 135         * generated/pack_r16.c: Regenerated.
 136         * generated/pack_r4.c: Regenerated.
 137         * generated/pack_r8.c: Regenerated.
 138         * generated/spread_c10.c: Regenerated.
 139         * generated/spread_c16.c: Regenerated.
 140         * generated/spread_c4.c: Regenerated.
 141         * generated/spread_c8.c: Regenerated.
 142         * generated/spread_i1.c: Regenerated.
 143         * generated/spread_i16.c: Regenerated.
 144         * generated/spread_i2.c: Regenerated.
 145         * generated/spread_i4.c: Regenerated.
 146         * generated/spread_i8.c: Regenerated.
 147         * generated/spread_r10.c: Regenerated.
 148         * generated/spread_r16.c: Regenerated.
 149         * generated/spread_r4.c: Regenerated.
 150         * generated/spread_r8.c: Regenerated.
 151         * generated/transpose_c10.c: Regenerated.
 152         * generated/transpose_c16.c: Regenerated.
 153         * generated/transpose_c4.c: Regenerated.
 154         * generated/transpose_c8.c: Regenerated.
 155         * generated/transpose_i16.c: Regenerated.
 156         * generated/transpose_i4.c: Regenerated.
 157         * generated/transpose_i8.c: Regenerated.
 158         * generated/transpose_r10.c: Regenerated.
 159         * generated/transpose_r16.c: Regenerated.
 160         * generated/transpose_r4.c: Regenerated.
 161         * generated/transpose_r8.c: Regenerated.
 162         * generated/unpack_c10.c: Regenerated.
 163         * generated/unpack_c16.c: Regenerated.
 164         * generated/unpack_c4.c: Regenerated.
 165         * generated/unpack_c8.c: Regenerated.
 166         * generated/unpack_i1.c: Regenerated.
 167         * generated/unpack_i16.c: Regenerated.
 168         * generated/unpack_i2.c: Regenerated.
 169         * generated/unpack_i4.c: Regenerated.
 170         * generated/unpack_i8.c: Regenerated.
 171         * generated/unpack_r10.c: Regenerated.
 172         * generated/unpack_r16.c: Regenerated.
 173         * generated/unpack_r4.c: Regenerated.
 174         * generated/unpack_r8.c: Regenerated.
 175
 176 2008-05-18  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 177
 178         * runtime/select.c: Moved content to select_inc.c. Include it.
 179         Add macros for different character types.
 180         * runtime/select_inc.c: New file.
 181         * runtime/convert_char.c: New file.
 182         * intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
 183         functions.
 184         * intrinsics/transpose_generic.c (transpose_char4): New function.
 185         * intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
 186         New functions.
 187         * intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4):
 188         New functions.
 189         * intrinsics/reshape_generic.c (reshape_char): Use
 190         gfc_charlen_type as type for length variables.
 191         (reshape_char4): New function.
 192         * gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
 193         _gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
 194         _gfortran_transpose_char4, _gfortran_spread_char4,
 195         _gfortran_spread_char4_scalar, _gfortran_reshape_char4,
 196         _gfortran_pack_char4, _gfortran_pack_s_char4,
 197         _gfortran_unpack0_char4 and _gfortran_unpack1_char4.
 198         * Makefile.am: Add runtime/convert_char.c.
 199         * Makefile.in: Regenerate.
 200
 201 2008-05-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
 202
 203         * io/list_read.c (list_formatted_read_scalar):  Declare
 204         type as volatile to shut up compiler warning.
 205
 206 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
 207
 208         PR libfortran/25561
 209         * io/io.h (struct fbuf): Change pointer to position offset.
 210         * io/fbuf.c (fbuf_init): Reduce default size of buffer, ptr=>pos
 211         changes.
 212         (fbuf_reset): ptr=>pos changes.
 213         (fbuf_alloc): If the request doesn't fit, don't waste memory by
 214         keeping flushed bytes. ptr=>pos changes.
 215         (fbuf_flush): ptr=>pos changes.
 216         (fbuf_seek): Don't seek past the left tab limit, don't update active
 217         byte count.
 218         * io/open.c (new_unit): If RECL has been specified, used that as
 219         initial buffer size.
 220
 221 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
 222
 223         PR libfortran/35632
 224         * io/open.c (new_unit): Set stream position to correct value.
 225
 226 2008-05-15  Janne Blomqvist  <jb@gcc.gnu.org>
 227
 228         PR libfortran/25561
 229         * Makefile.am: Add fbuf.c to gfor_io_src.
 230         * Makefile.in: Regenerate.
 231         * io/io.h (read_block): Remove.
 232         (struct stream): Remove alloc_r_at function pointer.
 233         (salloc_r): Remove.
 234         (salloc_r_at): Remove.
 235         (salloc_w_at): Remove.
 236         (salloc_w): Remove offset argument.
 237         (struct fbuf): New struct for format buffer.
 238         (struct gfc_unit): Add fbuf.
 239         (read_block_form): New prototype.
 240         (fbuf_init): Likewise.
 241         (fbuf_destroy): Likewise.
 242         (fbuf_reset): Likewise.
 243         (fbuf_alloc): Likewise.
 244         (fbuf_flush): Likewise.
 245         (fbuf_seek): Likewise.
 246         * io/file_pos.c (formatted_backspace): Change to use sread.
 247         (unformatted_backspace): Likewise.
 248         (st_backspace): Flush format buffer.
 249         (st_rewind): Likewise.
 250         * io/list_read.c (next_char): Likewise.
 251         (nml_query): Tidying, flush format buffer.
 252         * io/open.c (new_unit): Init format buffer.
 253         * io/read.c (read_l): Change to use read_block_form.
 254         (read_a): Likewise.
 255         (read_decimal): Likewise.
 256         (read_radix): Likewise.
 257         (read_f): Likewise.
 258         (read_x): Empty reads also for stream I/O.
 259         * io/transfer.c (read_sf): Change to use sread.
 260         (read_block): Rename to read_block_form, change prototype, use sread.
 261         (read_block_direct): Don't seek stream files.
 262         (write_block): Change to use fbuf if external file, don't seek stream
 263         files.
 264         (write_buf): Don't seek stream files.
 265         (formatted_transfer_scalar): Use fbuf for external files.
 266         (us_read): Change to use sread.
 267         (pre_position): Do nothing for stream I/O.
 268         (data_transfer_init): Flush fbuf when switching from write to read, if
 269         POS is specified, seek stream file to correct offset.
 270         (skip_record): Change to use sread.
 271         (min_off): New function.
 272         (next_record_r): Change to use sread.
 273         (next_record_w): Change to use sset/sseek, flush fbuf.
 274         (finalize_transfer): Flush fbuf.
 275         * io/unit.c (init_units): Init fbuf for stdout, stderr.
 276         (close_unit_1): Destroy fbuf.
 277         (finish_last_advance_record): Flush fbuf, no need to seek.
 278         * io/unix.c (fd_alloc_r_at): Remove unused where argument.
 279         (fd_alloc_w_at): Likewise.
 280         (fd_read): Remove third argument to fd_alloc_r_at.
 281         (fd_write): Remove third argument to fd_alloc_w_at.
 282         (fd_sset): Likewise.
 283         (fd_open): Don't set alloc_r_at.
 284         (mem_alloc_r_at): Remove unused where argument.
 285         (mem_alloc_w_at): Likewise.
 286         (mem_read): Don't incorrectly return previous errno, remove unused
 287         third argument to alloc function.
 288         (mem_write): Likewise.
 289         (mem_set): Likewise.
 290         (open_internal): Don't set alloc_r_at pointer.
 291         * io/fbuf.c: New file.
 292
 293 2008-05-14  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 294
 295         * libgfortran.h (gfc_char4_t): New type.
 296         (GFC_SIZE_OF_CHAR_KIND): New macro.
 297         (compare_string): Adjust prototype.
 298         (compare_string_char4): New prototype.
 299         * gfortran.map (GFORTRAN_1.1): Add _gfortran_adjustl_char4,
 300         _gfortran_adjustr_char4, _gfortran_compare_string_char4,
 301         _gfortran_concat_string_char4, _gfortran_string_index_char4,
 302         _gfortran_string_len_trim_char4, _gfortran_string_minmax_char4,
 303         _gfortran_string_scan_char4, _gfortran_string_trim_char4 and
 304         _gfortran_string_verify_char4.
 305         * intrinsics/string_intrinsics_inc.c: New file from content of
 306         string_intrinsics.c with types replaced by macros.
 307         * intrinsics/string_intrinsics.c: Move content to
 308         string_intrinsics_inc.c.
 309
 310 2008-05-11  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 311
 312         PR libfortran/36202
 313         * io/list_read (eat_separator): Handle the CR-LF case correctly.
 314
 315 2008-05-09  Julian Brown  <julian@codesourcery.com>
 316
 317         * Makefile.am (LTLDFLAGS): New.
 318         (libgfortran_la_LDFLAGS): Use above.
 319         * Makefile.in: Regenerate.
 320
 321 2008-05-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 322
 323         PR libfortran/36131
 324         * io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
 325         (next_record_w): Likewise.
 326
 327 2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 328
 329         PR libfortran/35995
 330         * m4/ifunction_logical.m4:  If the extent of "array"
 331         is less than zero, set it to zero.  Use an explicit
 332         flag for breaking out of the main loop to avoid, because
 333         the data pointer for "array" may be NULL for an empty
 334         array.
 335         * m4/ifunction.m4:  Likewise.
 336         * generated/all_l1.c: Regenerated.
 337         * generated/all_l16.c: Regenerated.
 338         * generated/all_l2.c: Regenerated.
 339         * generated/all_l4.c: Regenerated.
 340         * generated/all_l8.c: Regenerated.
 341         * generated/any_l1.c: Regenerated.
 342         * generated/any_l16.c: Regenerated.
 343         * generated/any_l2.c: Regenerated.
 344         * generated/any_l4.c: Regenerated.
 345         * generated/any_l8.c: Regenerated.
 346         * generated/count_16_l.c: Regenerated.
 347         * generated/count_1_l.c: Regenerated.
 348         * generated/count_2_l.c: Regenerated.
 349         * generated/count_4_l.c: Regenerated.
 350         * generated/count_8_l.c: Regenerated.
 351         * generated/maxloc1_16_i1.c: Regenerated.
 352         * generated/maxloc1_16_i16.c: Regenerated.
 353         * generated/maxloc1_16_i2.c: Regenerated.
 354         * generated/maxloc1_16_i4.c: Regenerated.
 355         * generated/maxloc1_16_i8.c: Regenerated.
 356         * generated/maxloc1_16_r10.c: Regenerated.
 357         * generated/maxloc1_16_r16.c: Regenerated.
 358         * generated/maxloc1_16_r4.c: Regenerated.
 359         * generated/maxloc1_16_r8.c: Regenerated.
 360         * generated/maxloc1_4_i1.c: Regenerated.
 361         * generated/maxloc1_4_i16.c: Regenerated.
 362         * generated/maxloc1_4_i2.c: Regenerated.
 363         * generated/maxloc1_4_i4.c: Regenerated.
 364         * generated/maxloc1_4_i8.c: Regenerated.
 365         * generated/maxloc1_4_r10.c: Regenerated.
 366         * generated/maxloc1_4_r16.c: Regenerated.
 367         * generated/maxloc1_4_r4.c: Regenerated.
 368         * generated/maxloc1_4_r8.c: Regenerated.
 369         * generated/maxloc1_8_i1.c: Regenerated.
 370         * generated/maxloc1_8_i16.c: Regenerated.
 371         * generated/maxloc1_8_i2.c: Regenerated.
 372         * generated/maxloc1_8_i4.c: Regenerated.
 373         * generated/maxloc1_8_i8.c: Regenerated.
 374         * generated/maxloc1_8_r10.c: Regenerated.
 375         * generated/maxloc1_8_r16.c: Regenerated.
 376         * generated/maxloc1_8_r4.c: Regenerated.
 377         * generated/maxloc1_8_r8.c: Regenerated.
 378         * generated/maxval_i1.c: Regenerated.
 379         * generated/maxval_i16.c: Regenerated.
 380         * generated/maxval_i2.c: Regenerated.
 381         * generated/maxval_i4.c: Regenerated.
 382         * generated/maxval_i8.c: Regenerated.
 383         * generated/maxval_r10.c: Regenerated.
 384         * generated/maxval_r16.c: Regenerated.
 385         * generated/maxval_r4.c: Regenerated.
 386         * generated/maxval_r8.c: Regenerated.
 387         * generated/minloc1_16_i1.c: Regenerated.
 388         * generated/minloc1_16_i16.c: Regenerated.
 389         * generated/minloc1_16_i2.c: Regenerated.
 390         * generated/minloc1_16_i4.c: Regenerated.
 391         * generated/minloc1_16_i8.c: Regenerated.
 392         * generated/minloc1_16_r10.c: Regenerated.
 393         * generated/minloc1_16_r16.c: Regenerated.
 394         * generated/minloc1_16_r4.c: Regenerated.
 395         * generated/minloc1_16_r8.c: Regenerated.
 396         * generated/minloc1_4_i1.c: Regenerated.
 397         * generated/minloc1_4_i16.c: Regenerated.
 398         * generated/minloc1_4_i2.c: Regenerated.
 399         * generated/minloc1_4_i4.c: Regenerated.
 400         * generated/minloc1_4_i8.c: Regenerated.
 401         * generated/minloc1_4_r10.c: Regenerated.
 402         * generated/minloc1_4_r16.c: Regenerated.
 403         * generated/minloc1_4_r4.c: Regenerated.
 404         * generated/minloc1_4_r8.c: Regenerated.
 405         * generated/minloc1_8_i1.c: Regenerated.
 406         * generated/minloc1_8_i16.c: Regenerated.
 407         * generated/minloc1_8_i2.c: Regenerated.
 408         * generated/minloc1_8_i4.c: Regenerated.
 409         * generated/minloc1_8_i8.c: Regenerated.
 410         * generated/minloc1_8_r10.c: Regenerated.
 411         * generated/minloc1_8_r16.c: Regenerated.
 412         * generated/minloc1_8_r4.c: Regenerated.
 413         * generated/minloc1_8_r8.c: Regenerated.
 414         * generated/minval_i1.c: Regenerated.
 415         * generated/minval_i16.c: Regenerated.
 416         * generated/minval_i2.c: Regenerated.
 417         * generated/minval_i4.c: Regenerated.
 418         * generated/minval_i8.c: Regenerated.
 419         * generated/minval_r10.c: Regenerated.
 420         * generated/minval_r16.c: Regenerated.
 421         * generated/minval_r4.c: Regenerated.
 422         * generated/minval_r8.c: Regenerated.
 423         * generated/product_c10.c: Regenerated.
 424         * generated/product_c16.c: Regenerated.
 425         * generated/product_c4.c: Regenerated.
 426         * generated/product_c8.c: Regenerated.
 427         * generated/product_i1.c: Regenerated.
 428         * generated/product_i16.c: Regenerated.
 429         * generated/product_i2.c: Regenerated.
 430         * generated/product_i4.c: Regenerated.
 431         * generated/product_i8.c: Regenerated.
 432         * generated/product_r10.c: Regenerated.
 433         * generated/product_r16.c: Regenerated.
 434         * generated/product_r4.c: Regenerated.
 435         * generated/product_r8.c: Regenerated.
 436         * generated/sum_c10.c: Regenerated.
 437         * generated/sum_c16.c: Regenerated.
 438         * generated/sum_c4.c: Regenerated.
 439         * generated/sum_c8.c: Regenerated.
 440         * generated/sum_i1.c: Regenerated.
 441         * generated/sum_i16.c: Regenerated.
 442         * generated/sum_i2.c: Regenerated.
 443         * generated/sum_i4.c: Regenerated.
 444         * generated/sum_i8.c: Regenerated.
 445         * generated/sum_r10.c: Regenerated.
 446         * generated/sum_r16.c: Regenerated.
 447         * generated/sum_r4.c: Regenerated.
 448         * generated/sum_r8.c: Regenerated.
 449
 450 2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 451
 452         PR libfortran/35990
 453         * intrinsics/pack_generic.c:  Really commit.
 454
 455 2008-05-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 456
 457         PR libfortran/35990
 458         * intrinsics/pack_generic.c:  If an extent of the source
 459         array is less then zero, set it to zero.  Set the source
 460         pointer to NULL if the source size is zero.  Set the total
 461         number of elements to zero if the vector has an extent
 462         less or equal to zero.
 463         * m4/pack.m4:  Set the source pointer to NULL if the
 464         source array is zero-sized.  Set the total number of
 465         elemements to zero if the vector has an extent less or
 466         equal to zero.
 467         * generated/pack_i1.c:  Regenerated.
 468         * generated/pack_i2.c:  Regenerated.
 469         * generated/pack_i4.c:  Regenerated.
 470         * generated/pack_i8.c:  Regenerated.
 471         * generated/pack_i16.c:  Regenerated.
 472         * generated/pack_r4.c:  Regenerated.
 473         * generated/pack_r8.c:  Regenerated.
 474         * generated/pack_r10.c:  Regenerated.
 475         * generated/pack_r16.c:  Regenerated.
 476         * generated/pack_c4.c:  Regenerated.
 477         * generated/pack_c8.c:  Regenerated.
 478         * generated/pack_c10.c:  Regenerated.
 479         * generated/pack_c16.c:  Regenerated.
 480
 481 2008-05-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 482
 483         PR libfortran/36094
 484         * runtime/error.c (show_locus): Provide modified error message when
 485         filename has not yet been associated with a unit number.
 486         * io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.
 487
 488 2008-04-30  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 489
 490         * intrinsics/selected_char_kind.c: New file.
 491         * gfortran.map (GFORTRAN_1.1): Add _gfortran_selected_char_kind.
 492         * Makefile.am: Add intrinsics/selected_char_kind.c.
 493         * Makefile.in: Regenerate.
 494
 495 2008-04-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
 496
 497         PR libfortran/35993
 498         * ifunction.m4 (SCALAR_ARRAY_FUNCTION):  Use correct
 499         implementation for multi-dimensional return arrays when
 500         the mask is .false.
 501         * generated/maxloc1_16_i1.c: Regenerated.
 502         * generated/maxloc1_16_i16.c: Regenerated.
 503         * generated/maxloc1_16_i2.c: Regenerated.
 504         * generated/maxloc1_16_i4.c: Regenerated.
 505         * generated/maxloc1_16_i8.c: Regenerated.
 506         * generated/maxloc1_16_r10.c: Regenerated.
 507         * generated/maxloc1_16_r16.c: Regenerated.
 508         * generated/maxloc1_16_r4.c: Regenerated.
 509         * generated/maxloc1_16_r8.c: Regenerated.
 510         * generated/maxloc1_4_i1.c: Regenerated.
 511         * generated/maxloc1_4_i16.c: Regenerated.
 512         * generated/maxloc1_4_i2.c: Regenerated.
 513         * generated/maxloc1_4_i4.c: Regenerated.
 514         * generated/maxloc1_4_i8.c: Regenerated.
 515         * generated/maxloc1_4_r10.c: Regenerated.
 516         * generated/maxloc1_4_r16.c: Regenerated.
 517         * generated/maxloc1_4_r4.c: Regenerated.
 518         * generated/maxloc1_4_r8.c: Regenerated.
 519         * generated/maxloc1_8_i1.c: Regenerated.
 520         * generated/maxloc1_8_i16.c: Regenerated.
 521         * generated/maxloc1_8_i2.c: Regenerated.
 522         * generated/maxloc1_8_i4.c: Regenerated.
 523         * generated/maxloc1_8_i8.c: Regenerated.
 524         * generated/maxloc1_8_r10.c: Regenerated.
 525         * generated/maxloc1_8_r16.c: Regenerated.
 526         * generated/maxloc1_8_r4.c: Regenerated.
 527         * generated/maxloc1_8_r8.c: Regenerated.
 528         * generated/maxval_i1.c: Regenerated.
 529         * generated/maxval_i16.c: Regenerated.
 530         * generated/maxval_i2.c: Regenerated.
 531         * generated/maxval_i4.c: Regenerated.
 532         * generated/maxval_i8.c: Regenerated.
 533         * generated/maxval_r10.c: Regenerated.
 534         * generated/maxval_r16.c: Regenerated.
 535         * generated/maxval_r4.c: Regenerated.
 536         * generated/maxval_r8.c: Regenerated.
 537         * generated/minloc1_16_i1.c: Regenerated.
 538         * generated/minloc1_16_i16.c: Regenerated.
 539         * generated/minloc1_16_i2.c: Regenerated.
 540         * generated/minloc1_16_i4.c: Regenerated.
 541         * generated/minloc1_16_i8.c: Regenerated.
 542         * generated/minloc1_16_r10.c: Regenerated.
 543         * generated/minloc1_16_r16.c: Regenerated.
 544         * generated/minloc1_16_r4.c: Regenerated.
 545         * generated/minloc1_16_r8.c: Regenerated.
 546         * generated/minloc1_4_i1.c: Regenerated.
 547         * generated/minloc1_4_i16.c: Regenerated.
 548         * generated/minloc1_4_i2.c: Regenerated.
 549         * generated/minloc1_4_i4.c: Regenerated.
 550         * generated/minloc1_4_i8.c: Regenerated.
 551         * generated/minloc1_4_r10.c: Regenerated.
 552         * generated/minloc1_4_r16.c: Regenerated.
 553         * generated/minloc1_4_r4.c: Regenerated.
 554         * generated/minloc1_4_r8.c: Regenerated.
 555         * generated/minloc1_8_i1.c: Regenerated.
 556         * generated/minloc1_8_i16.c: Regenerated.
 557         * generated/minloc1_8_i2.c: Regenerated.
 558         * generated/minloc1_8_i4.c: Regenerated.
 559         * generated/minloc1_8_i8.c: Regenerated.
 560         * generated/minloc1_8_r10.c: Regenerated.
 561         * generated/minloc1_8_r16.c: Regenerated.
 562         * generated/minloc1_8_r4.c: Regenerated.
 563         * generated/minloc1_8_r8.c: Regenerated.
 564         * generated/minval_i1.c: Regenerated.
 565         * generated/minval_i16.c: Regenerated.
 566         * generated/minval_i2.c: Regenerated.
 567         * generated/minval_i4.c: Regenerated.
 568         * generated/minval_i8.c: Regenerated.
 569         * generated/minval_r10.c: Regenerated.
 570         * generated/minval_r16.c: Regenerated.
 571         * generated/minval_r4.c: Regenerated.
 572         * generated/minval_r8.c: Regenerated.
 573         * generated/product_c10.c: Regenerated.
 574         * generated/product_c16.c: Regenerated.
 575         * generated/product_c4.c: Regenerated.
 576         * generated/product_c8.c: Regenerated.
 577         * generated/product_i1.c: Regenerated.
 578         * generated/product_i16.c: Regenerated.
 579         * generated/product_i2.c: Regenerated.
 580         * generated/product_i4.c: Regenerated.
 581         * generated/product_i8.c: Regenerated.
 582         * generated/product_r10.c: Regenerated.
 583         * generated/product_r16.c: Regenerated.
 584         * generated/product_r4.c: Regenerated.
 585         * generated/product_r8.c: Regenerated.
 586         * generated/sum_c10.c: Regenerated.
 587         * generated/sum_c16.c: Regenerated.
 588         * generated/sum_c4.c: Regenerated.
 589         * generated/sum_c8.c: Regenerated.
 590         * generated/sum_i1.c: Regenerated.
 591         * generated/sum_i16.c: Regenerated.
 592         * generated/sum_i2.c: Regenerated.
 593         * generated/sum_i4.c: Regenerated.
 594         * generated/sum_i8.c: Regenerated.
 595         * generated/sum_r10.c: Regenerated.
 596         * generated/sum_r16.c: Regenerated.
 597         * generated/sum_r4.c: Regenerated.
 598         * generated/sum_r8.c: Regenerated.
 599
 600 2008-04-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
 601
 602         PR libfortran/35960
 603         * m4/reshape.m4:  Fix typo in last commit.
 604         * generated/reshape_i4.c:  Regererated.
 605         * generated/reshape_i8.c:  Regenerated.
 606         * generated/reshape_i16.c:  Regenerated.
 607         * generated/reshape_r4.c:  Regenerated.
 608         * generated/reshape_r8.c:  Regenerated.
 609         * generated/reshape_r10.c:  Regenerated.
 610         * generated/reshape_r16.c:  Regenerated.
 611         * generated/reshape_c4.c:  Regenerated.
 612         * generated/reshape_c8.c:  Regenerated.
 613         * generated/reshape_c10.c:  Regenerated.
 614         * generated/reshape_c16.c:  Regenerated.
 615
 616 2008-04-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 617
 618         * intrinsics/time_1.h (__time_1): Remove unused variable.
 619
 620 2008-04-23  Thomas Koenig  <tkoenig@gcc.gnu.org>
 621
 622         PR libfortran/35988
 623         * m4/matmul.m4:  Only issue a runtime error if extents are
 624         non-zero.
 625         * generated/matmul_i1.c:  Regenerated.
 626         * generated/matmul_i2.c:  Regenerated.
 627         * generated/matmul_i4.c:  Regenerated.
 628         * generated/matmul_i8.c:  Regenerated.
 629         * generated/matmul_i16.c:  Regenerated.
 630         * generated/matmul_r4.c:  Regenerated.
 631         * generated/matmul_r8.c:  Regenerated.
 632         * generated/matmul_r10.c:  Regenerated.
 633         * generated/matmul_r16.c:  Regenerated.
 634         * generated/matmul_c4.c:  Regenerated.
 635         * generated/matmul_c8.c:  Regenerated.
 636         * generated/matmul_c10.c:  Regenerated.
 637         * generated/matmul_c16.c:  Regenerated.
 638
 639 2008-04-21  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 640
 641         * acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY)
 642         (LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT)
 643         (LIBGFOR_CHECK_ATTRIBUTE_ALIAS, LIBGFOR_CHECK_SYNC_FETCH_AND_ADD)
 644         (LIBGFOR_GTHREAD_WEAK, LIBGFOR_CHECK_UNLINK_OPEN_FILE)
 645         (LIBGFOR_CHECK_CRLF, LIBGFOR_CHECK_FOR_BROKEN_ISFINITE)
 646         (LIBGFOR_CHECK_FOR_BROKEN_ISNAN)
 647         (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY, LIBGFOR_CHECK_WORKING_STAT)
 648         (LIBGFOR_CHECK_FPSETMASK, LIBGFOR_CHECK_MINGW_SNPRINTF):
 649         Fix cache variable names.
 650         * configure, Makefile.in: Regenerate.
 651
 652 2008-04-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 653
 654         PR fortran/35991
 655         * intrinsics/cshift0.c (cshift0): Avoid divide by zero.
 656
 657 2008-04-20  Thomas Koenig  <tkoenig@gcc.gnu.org>
 658
 659         PR libfortran/35960
 660         * intrinsics/reshape_generic.c (reshape_internal): If the size
 661         of the resized array is zero, as determined by the SHAPE
 662         argument, return early.
 663         * m4/reshape.m4:  Likewise.
 664         * generated/reshape_i4.c:  Regererated.
 665         * generated/reshape_i8.c:  Regenerated.
 666         * generated/reshape_i16.c:  Regenerated.
 667         * generated/reshape_r4.c:  Regenerated.
 668         * generated/reshape_r8.c:  Regenerated.
 669         * generated/reshape_r10.c:  Regenerated.
 670         * generated/reshape_r16.c:  Regenerated.
 671         * generated/reshape_c4.c:  Regenerated.
 672         * generated/reshape_c8.c:  Regenerated.
 673         * generated/reshape_c10.c:  Regenerated.
 674         * generated/reshape_c16.c:  Regenerated.
 675
 676 2008-04-18  Paolo Bonzini  <bonzini@gnu.org>
 677
 678         PR bootstrap/35457
 679         * aclocal.m4: Regenerate.
 680         * configure: Regenerate.
 681
 682 2008-04-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
 683
 684         PR libfortran/32972
 685         * intrinsics/spread_generic.c (spread):  Use spread_i2()
 686         for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
 687
 688 2008-04-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
 689         Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 690
 691         PR libfortran/32972
 692         PR libfortran/32512
 693         configure.ac:  Add test for uintptr_t.
 694         configure:  Regenerated.
 695         config.h.in:  Regenerated.
 696         * libgfortran.h: GFC_DTYPE_DERIVED_1:  New macro.
 697         GFC_DTYPE_DERIVED_2:  New macro.
 698         GFC_DTYPE_DERIVED_4:  New macro.
 699         GFC_DTYPE_DERIVED_8:  New macro.
 700         GFC_DTYPE_DERIVED_16:  New macro.
 701         GFC_UNALIGNED_2:  New macro.
 702         GFC_UNALIGNED_4:  New macro.
 703         GFC_UNALIGNED_8:  New macro.
 704         GFC_UNALIGNED_16:  New macro.
 705         intptr_t:  Define if we don't have it.
 706         uintptr_t:  Likewise.
 707         * runtime/backtrace.c (show_backtrace):  Use intptr_t.
 708         * intrinsics/signal.c (signal_sub):  Likewise.
 709         (signal_sub_int):  Likewise.
 710         (alarm_sub_int_i4):  Likewise.
 711         * intrinsics/spread_generic.c (spread):  Use the integer
 712         routines for handling derived types of sizes 1, 2, 4, 8 and 16
 713         if the alignment of all pointers is correct.
 714         (spread_scalar):  Likewise.
 715         * intrinsics/pack_generic.c (pack):  Likewise.
 716         Use GFD_DTYPE_TYPE_SIZE to avoid nested switch statements.
 717         * intrinsics/unpack_generic.c (unpack1):  Likewise.
 718         (unpack0):  Likewise.
 719         * runtime/in_pack_generic.c (internal_pack):  Likewise.
 720         * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
 721
 722 2008-04-09  Jakub Jelinek  <jakub@redhat.com>
 723
 724         * io/list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
 725         (nml_read_obj): Add nml_err_msg_size argument.  Pass it down to
 726         recursive call.  Use snprintf instead of sprintf when %s nl->var_name
 727         is used.
 728         (nml_get_obj_data): Add nml_err_msg_size argument.  Pass it down to
 729         nml_read_obj call.  Use snprintf instead of sprintf when %s
 730         nl->var_name is used.  Pass nml_err_msg to nml_parse_qualifier instead
 731         of parse_err_msg array.  Append " for namelist variable " and
 732         nl->var_name to it.
 733         (namelist_read): Increase size of nml_err_msg array to 200.  Pass
 734         sizeof nml_err_msg as extra argument to nml_get_obj_data.
 735
 736 2008-04-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 737
 738         PR fortran/25829 28655
 739         * io/open.c (edit_modes): Set flags.async. (new_unit) Set flags.async
 740         and flags.status. (st_open): Initialize flags.async.
 741         * io/list_read.c (read_charactor): Use delim_status instead of
 742         flags.delim.
 743         * io/read.c (read_x): Use pad_status instead of flags.pad.
 744         * io/inquire.c (inquire_via_unit): Add new checks.
 745         (inquire_via_filename): Likewise.
 746         * io/io.h (st_parameter_inquire): Add new flags.
 747         (st_parameter_dt): Likewise.
 748         * io/unit.c (get_internal_unit): Set flags.async. (init_units): Set
 749         flags.async.
 750         * io/transfer.c: Add delim and pad option arrays. (read_sf): Use
 751         pad_status instead of flags.pad. (read_block): Likewise.
 752         (data_transfer_init): Set flags.async and add checks.
 753         * io/write.c (write_character): Use delim_status.
 754         (list_formatted_write_scalar): Likewise. (nml_write_obj): Likewise.
 755         (namelist_write): Likewise.
 756
 757 2008-04-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 758
 759         PR fortran/25829 28655
 760         * gfortran.map: Add new symbol, _gfortran_st_wait.
 761         * libgfortran.h (st_paramter_common): Add new I/O parameters.
 762         * open.c (st_option decimal_opt[], st_option encoding_opt[],
 763         st_option round_opt[], st_option sign_opt[], st_option async_opt[]): New
 764         parameter option arrays. (edit_modes): Add checks for new parameters.
 765         (new_unit): Likewise. (st_open): Likewise.
 766         * list_read.c (CASE_SEPERATORS): Add ';' as a valid separator.
 767         (eat_separator): Handle deimal comma. (read_logical): Fix whitespace.
 768         (parse_real): Handle decimal comma. (read_real): Handle decimal comma.
 769         * read.c (read_a): Use decimal status flag to allow comma in place of a
 770         decimal point. (read_f): Allow comma as acceptable character in float.
 771         According to decimal flag, substitute a period for a comma.
 772         (read_x): If decimal status flag is comma, disable the read_comma flag,
 773         not allowing comma as a delimiter, an extension otherwise.
 774         * io.h: (unit_decimal, unit_encoding, unit_round, unit_sign,
 775         unit_async): New enumerators. Add all new I/O parameters.
 776         * unix.c (unix_stream, int_stream): Add io_mode asychronous I/O control.
 777         (move_pos_offset, fd_alloc_w_at): Fix some whitespace.
 778         (fd_sfree): Use new enumerator. (fd_read): Likewise.
 779         (fd_write): Likewise. (fd_close): Fix whitespace.
 780         (fd_open): Use new enumertors. (tempfile, regular_file,
 781         open_external): Fix whitespace. (output_stream, error_stream): Set
 782         method. (stream_offset): Fix whitespace.
 783         * transfer.c: (st_option decimal_opt[], sign_opt[], blank_opt[]): New
 784         option arrays.  (formatted_transfer_scalar): Set sf_read_comma flag
 785         based on new decimal_status flag. (data_transfer_init): Initialize new
 786         parameters. Add checks for decimal, sign, and blank. (st_wait): New stub.
 787         * format.c: (format_lex): Add format specifiers DP, DC, and D.
 788         (parse_format_list): Parse the new specifiers.
 789         * write.c (write_decimal): Use new sign enumerators to set the sign.
 790         (write_complex): Handle decimal comma and semi-colon separator.
 791         (nml_write_obj): Likewise.
 792         * write_float.def: Revise sign enumerators. (calculate_sign): Use new
 793         sign enumerators. (output_float): Likewise. Use new decimal_status flag
 794         to set the decimal character to a point or a comma.
 795
 796 2008-03-28  Thomas Koenig  <tkoenig@gcc.gnu.org>
 797
 798         PR libfortran/32972
 799         PR libfortran/32512
 800         * Makefile.am:  Add new variable, i_spread_c, containing
 801         pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, spread_i16.c,
 802         spread_r4.c, spread_r8.c, spread_r10.c, spread_r16.c,
 803         spread_c4.c, spread_c8.c, spread_c10.c, spread_c16.c.
 804         * Makefile.in:  Regenerated.
 805         * libgfortran.h:  Add prototypes for spread_i1, spread_i2,
 806         spread_i4, spread_i8, spread_i16, spread_r4, spread_r8,
 807         spread_c4, spread_c8, spread_c10, spread_c16,
 808         spread_scalar_i1, spread_scalar_i2, spread_scalar_i4,
 809         spread_scalar_i8, spread_scalar_i16, spread_scalar_r4
 810         spread_scalar_r8, spread_scalar_c4, spread_scalar_c8,
 811         spread_scalar_c10 and spread_scalar_c16.
 812         Add macros to isolate both type and size information
 813         from array descriptors with a single mask operation.
 814         * intrinsics/spread_generic.c:  Add calls to specific
 815         spread functions.
 816         * m4/spread.m4:  New file.
 817         * generated/spread_i1.c:  New file.
 818         * generated/spread_i2.c:  New file.
 819         * generated/spread_i4.c:  New file.
 820         * generated/spread_i8.c:  New file.
 821         * generated/spread_i16.c:  New file.
 822         * generated/spread_r4.c:  New file.
 823         * generated/spread_r8.c:  New file.
 824         * generated/spread_r10.c:  New file.
 825         * generated/spread_r16.c:  New file.
 826         * generated/spread_c4.c:  New file.
 827         * generated/spread_c8.c:  New file.
 828         * generated/spread_c10.c:  New file.
 829         * generated/spread_c16.c:  New file.
 830
 831 2008-03-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 832
 833         PR libfortran/35699
 834         * io/transfer.c (write_buf):  Don't pad the record, just return if the
 835         data is NULL.  (next_record_w): If there are bytes left in the record
 836         for unformatted direct I/O, pad out the record with zero bytes.
 837
 838 2008-03-28  Tobias Burnus  <burnus@net-b.de>
 839
 840         PR fortran/35721
 841         * intrinsics/associated.c (associated): Ignore different
 842         stride of pointer vs. target if only one element is referred.
 843
 844 2008-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 845
 846         * io/unix.c (fd_close):  Do not close STDIN.
 847
 848 2007-03-23  Thomas Koenig  <tkoenig@gcc.gnu.org
 849
 850         PR libfortran/32972
 851         * Makefile.am:  Add new variable, i_unpack_c, containing
 852         unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c,
 853         unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c,
 854         unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c
 855         and unpack_c16.c
 856         Add i_unpack_c to gfor_built_src.
 857         Add rule to generate i_unpack_c from m4/unpack.m4.
 858         * Makefile.in:  Regenerated.
 859         * libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2,
 860         unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8,
 861         unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10,
 862         unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8,
 863         unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16,
 864         unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16.
 865         * intrinsics/pack_generic.c (unpack1):  Add calls to specific
 866         unpack1 functions.
 867         (unpack0):  Add calls to specific unpack0 functions.
 868         * m4/unpack.m4:  New file.
 869         * generated/unpack_i1.c:  New file.
 870         * generated/unpack_i2.c:  New file.
 871         * generated/unpack_i4.c:  New file.
 872         * generated/unpack_i8.c:  New file.
 873         * generated/unpack_i16.c:  New file.
 874         * generated/unpack_r4.c:  New file.
 875         * generated/unpack_r8.c:  New file.
 876         * generated/unpack_r10.c:  New file.
 877         * generated/unpack_r16.c:  New file.
 878         * generated/unpack_c4.c:  New file.
 879         * generated/unpack_c8.c:  New file.
 880         * generated/unpack_c10.c:  New file.
 881         * generated/unpack_c16.c:  New file.
 882
 883 2008-03-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 884
 885         PR libfortran/35632
 886         * io/transfer.c (data_transfer_init):  Fix whitespace.
 887         (next_record_w): Truncate the file only if the stream
 888         position is short of the file end.
 889
 890 2008-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 891
 892         * intrinsics/pack_generic.c:  Fix typo.
 893
 894 2008-03-21  Janne Blomqvist  <jb@gcc.gnu.org>
 895
 896         * gfortran.map: Move erfc_scaled symbols to new symbol node
 897         GFORTRAN_1.1, thereby fixing ABI bug introduced in r132846.
 898
 899 2008-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 900
 901         PR libfortran/32972
 902         * runtime/in_pack_generic.c (internal_pack):  Call correct
 903         function, pack_i16, for GFC_INTEGER_16.
 904
 905 2008-03-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
 906
 907         PR libfortran/32972
 908         * Makefile.am:  Add new variable, i_pack_c, containing
 909         pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
 910         pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,
 911         pack_c8.c, pack_c10.c, pack_c16.c.
 912         Add m4/pack.m4 to m4_files.
 913         Add i_pack_c to gfor_built_src.
 914         Add rule to generate i_pack_c from m4/pack.m4.
 915         * Makefile.in:  Regenerated.
 916         * libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4,
 917         pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8,
 918         pack_c10, pack_c16.
 919         * intrinsics/pack_generic.c:  Add calls to specific
 920         pack functions.
 921         * m4/pack.m4:  New file.
 922         * generated/pack_i1.c:  New file.
 923         * generated/pack_i2.c:  New file.
 924         * generated/pack_i4.c:  New file.
 925         * generated/pack_i8.c:  New file.
 926         * generated/pack_i16.c:  New file.
 927         * generated/pack_r4.c:  New file.
 928         * generated/pack_r8.c:  New file.
 929         * generated/pack_r10.c:  New file.
 930         * generated/pack_r16.c:  New file.
 931         * generated/pack_c4.c:  New file.
 932         * generated/pack_c8.c:  New file.
 933         * generated/pack_c10.c:  New file.
 934         * generated/pack_c16.c:  New file.
 935
 936 2008-03-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 937
 938         PR libfortran/35627
 939         * io/list_read.c (free_line): Clear the line buffer enable flag and
 940         reset the index into line_buffer, aka item_count.
 941         (next_char): Cleanup whitespace.
 942         (read_logical): Use unget_char to assure that the first character of the
 943         bad logical is saved in case it is part of an object name. Remove the
 944         clearing of index and flag that is now in free_line.
 945         (read_real): Likewise.
 946
 947 2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 948
 949         PR libfortran/32972
 950         * runtime/in_pack_generic.c (internal_pack):  Fix typo in
 951         last commit.
 952
 953 2008-03-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
 954
 955         PR libfortran/32972
 956         * Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
 957         in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
 958         (in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
 959         in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
 960         in_unpack_r16.c.
 961         * Makefile.in: Regenerate.
 962         * libgfortran.h:  Add prototypes for internal_pack_1,
 963         internal_pack_2, internal_pack_16, internal_pack_r4,
 964         internal_pack_r8, internal_pack_r10, internal_pack_r16,
 965         internal_pack_c10 and internal_pack_c16.  Add prototypes for
 966         internal_unpack_1, internal_unpack_2, internal_unpack_16,
 967         internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
 968         internal_unpack_r16, internal_unpack_c10 and
 969         internal_unpack_c16.
 970         * runtime/in_pack_generic.c (internal_pack): Use sizeof instead
 971         of hardwired sizes.
 972         Add calls to internal_pack_1, internal_pack_2,
 973         internal_pack_16, internal_pack_r4, internal_pack_r8,
 974         internal_pack_r10, internal_pack_r16, internal_pack_c10 and
 975         internal_pack_c16.
 976         * runtime/in_unpack_generic.c (internal_unpack):  Use sizeof
 977         instead of hardwired sizes.
 978         Add calls to internal_unpack_1, internal_unpack_2,
 979         internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
 980         internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
 981         and internal_unpack_c16.
 982         * generated/in_pack_r4.c:  New file.
 983         * generated/in_pack_i2.c:  New file.
 984         * generated/in_unpack_i1.c:  New file.
 985         * generated/in_pack_r10.c:  New file.
 986         * generated/in_unpack_r4.c:  New file.
 987         * generated/in_unpack_i2.c:  New file.
 988         * generated/in_unpack_r16.c:  New file.
 989         * generated/in_pack_r8.c:  New file.
 990         * generated/in_unpack_r10.c:  New file.
 991         * generated/in_unpack_r8.c:  New file.
 992         * generated/in_pack_r16.c:  New file.
 993         * generated/in_pack_i1.c:  New file.
 994
 995 2008-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 996
 997         PR libfortran/35617
 998         * io/list_read.c (eat_separator): If next character after eatline is '!'
 999         then eatline again.
1000
1001 2008-03-16  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
1002
1003         * aclocal.m4: Regenerate.
1004         * configure: Likewise.
1005         * Makefile.in: Likewise.
1006
1007 2008-03-12  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1008
1009         PR libfortran/35524
1010         * intrinsics/erfc_scaled_inc.c: Only define the long double
1011         variant of erfc_scaled if expl is available.
1012
1013 2008-03-11  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1014
1015         PR libfortran/32812
1016         * intrinsics/random.c (scramble_seed, unscramble_seed): New
1017         functions.
1018         (random_seed_i4): Scramble the seed the user gives us before
1019         storing it, and unscramble it when we return it back later.
1020
1021 2008-03-05  Hans-Peter Nilsson  <hp@axis.com>
1022
1023         PR libfortran/35293
1024         * io/unix.c (fd_truncate): Fold s->special_file case into
1025         success case of ftruncate/chsize call instead of the failure case.
1026         Make failure case actually return failure.  Properly update stream
1027         pointers on failure.  Call runtime_error for targets without
1028         neither ftruncate nor chsize where such a call would be needed.
1029
1030 2008-03-03  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1031
1032         PR fortran/33197
1033         * intrinsics/erfc_scaled_inc.c: New file.
1034         * intrinsics/erfc_scaled.c: New file.
1035         * gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
1036         * Makefile.am: Add intrinsics/erfc_scaled.c.
1037         * config.h.in: Regenerate.
1038         * configure: Regenerate.
1039         * Makefile.in: Regenerate.
1040
1041 2008-03-01  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1042
1043         PR libfortran/35355
1044         * intrinsics/time_1.h (__time_1): Fix calculation of user_usec
1045         for mingw.
1046
1047 2008-03-01  Janne Blomqvist  <jb@gcc.gnu.org>
1048
1049         PR libfortran/35063
1050         * io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy
1051         instead of macro kludge.
1052
1053 2008-02-25  Janne Blomqvist  <jb@gcc.gnu.org>
1054
1055         PR fortran/29549
1056         * Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of
1057         libgfortran.
1058         * Makefile.in: Regenerated.
1059
1060 2008-02-25  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1061
1062         * m4/ifunction_logical.m4: Add casts to get rid of warnings.
1063         * generated/all_l1.c: Regenerate.
1064         * generated/all_l2.c: Regenerate.
1065         * generated/all_l4.c: Regenerate.
1066         * generated/all_l8.c: Regenerate.
1067         * generated/all_l16.c: Regenerate.
1068         * generated/any_l1.c: Regenerate.
1069         * generated/any_l2.c: Regenerate.
1070         * generated/any_l4.c: Regenerate.
1071         * generated/any_l8.c: Regenerate.
1072         * generated/any_l16.c: Regenerate.
1073         * generated/count_1_l.c: Regenerate.
1074         * generated/count_2_l.c: Regenerate.
1075         * generated/count_4_l.c: Regenerate.
1076         * generated/count_8_l.c: Regenerate.
1077         * generated/count_16_l.c: Regenerate.
1078
1079 2008-02-24  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1080
1081         PR libfortran/32841
1082         * acinclude.m4: Don't use HAVE_MATH_H.
1083         * configure: Regenerate.
1084
1085 2008-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1086
1087         PR libfortran/35132
1088         * io/transfer.c (next_record_w): Truncate after the last record for
1089         STREAM I/O.
1090
1091         PR libfortran/34954
1092         * io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
1093
1094         PR libfortran/34974
1095         * io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
1096         is less than zero. (next_record_w): Use sseek to position the file to
1097         the max position reached.
1098
1099 2008-02-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1100
1101         PR libfortran/35036
1102         * write_float.def (output_float):  Add error checks for zero digits
1103         after decimal point in E and D format specifiers.
1104
1105 2008-02-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1106
1107         PR libfortran/35063
1108         * io/unit.c (destroy_unit_mutex): New function that uses
1109         __gthread_mutex_destroy_function or pthread_mutex_destroy after
1110         unlocking and before free_mem for final closure of I/O unit.
1111         (delete_root): Use new function.
1112         (free_internal_unit): Likewise.
1113         (close_unit_1): Likewise.
1114
1115 2008-02-02  Thomas Koenig  <tkoenig@gcc.gnu.org>
1116
1117         PR libfortran/35001
1118         * m4/shape.m4:  Return 0 for extents <= 0.
1119         * generated/shape_i4.c:  Regenerated.
1120         * generated/shape_i8.c:  Regenerated.
1121         * generated/shape_i16.c:  Regenerated.
1122
1123 2008-01-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
1124
1125         PR libfortran/34980
1126         * m4/shape.m4:  If return array is empty, return early.
1127         * generated/shape_i4.c:  Regenerated.
1128         * generated/shape_i8.c:  Regenerated.
1129         * generated/shape_i16.c:  Regenerated.
1130
1131 2008-01-26  Thomas Koenig  <tkoenig@gcc.gnu.org>
1132
1133         PR libfofortran/34887
1134         * io/transfer.c (next_record_w): Always move to the farthest
1135         position when completing the record (also when we are
1136         processing a slash edit descriptor).
1137
1138 2008-01-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1139
1140         PR libfortran/34876
1141         * io/transfer.c (write_buf): Handle case of zero sized array.
1142         (transfer_array): Set data pointer to NULL and size to zero.  Then
1143         make a data transfer and return.
1144
1145 2008-01-24  David Edelsohn  <edelsohn@gnu.org>
1146
1147         * configure: Regenerate.
1148
1149 2008-01-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1150
1151         PR libfortran/34795
1152         * io/inquire.c (inquire_via_unit): If a unit is opened, return values
1153         according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
1154         (inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
1155         FORAMATTED, and UNFORMATTED inquiries.
1156         * io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
1157         for files that are not opened. (inquire_direct): Same.
1158         (inquire_formatted): Same.
1159
1160 2008-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1161
1162         PR libfortran/34782
1163         * io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater
1164         of the current max_pos or the newly calculated position.
1165
1166 2008-01-18  Tobias Burnus  <burnus@net-b.de>
1167
1168         * io/write.c (write_real): Increase default precision
1169         for REAL(16) by one.
1170
1171 2008-01-16  Steven Bosscher  <steven@gcc.gnu.org>
1172
1173         PR libfortran/34669
1174         * mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
1175         to avoid piping the -fdump-parse-tree output to the assembler
1176         when configuring with -pipe.
1177         * mk-sik-inc.sh: Likewise.
1178         * mk-srk-inc.sh: Likewise.
1179
1180 2008-01-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
1181
1182         PR libfortran/34671
1183         * gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
1184         _gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
1185         _gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
1186         _gfortran_count_8_l Removed _gfortran_count_16_l16,
1187         _gfortran_count_16_l4, _gfortran_count_16_l8,
1188         _gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
1189         _gfortran_count_8_l16, _gfortran_count_8_l4 and
1190         _gfortran_count_8_l8.
1191         * Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
1192         i_any_c.  Added generated/all_l1. and generated/all_l2.c to
1193         i_all_c.  Removed generated/count_4_l4.c, generated/count_8_l4.c,
1194         generated/count_16_l4.c, generated/count_4_l8.c,
1195         generated/count_8_l8.c, generated/count_16_l8.c,
1196         generated/count_4_l16.c, generated/count_8_l16.c, and
1197         generated/count_16_l16.c from i_count_c.  Added count_1_l.c,
1198         count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
1199         i_count_c.  I_M4_DEPS2 depends on ifunction_logical.m4, for
1200         any of the files generated from all.m4, any.m4 and count.m4.
1201         * Makefile.in:  Regenerated.
1202         * m4/ifunction_logical.m4:  New file.  Use
1203         GFC_LOGICAL_1 pointer for access to source arrays.
1204         * m4/any.m4:  Include ifunction_logical.m4 instead of
1205         ifunction.m4.  Don't check atype_name.
1206         * m4/all.m4:  Likewise.
1207         * m4/count.m4:  Likewise.
1208         * generated/any_l1.c:  New file.
1209         * generated/any_l2.c:  New file.
1210         * generated/all_l1.c:  New file.
1211         * generated/count_1_l.c:  New file.
1212         * generated/count_2_l.c:  New file.
1213         * generated/count_4_l.c:  New file.
1214         * generated/count_8_l.c:  New file.
1215         * generated/count_16_l.c:  New file.
1216         * generated/any_l4.c:  Regenerated.
1217         * generated/any_l8.c:  Regenerated.
1218         * generated/any_l16.c:  Regenerated.
1219         * generated/all_l4.c: Regenerated.
1220         * generated/all_l8.c: Regenerated.
1221         * generated/all_l16.c: Regenerated.
1222         * generated/count_4_l4.c:  Removed.
1223         * generated/count_4_l8.c:  Removed.
1224         * generated/count_4_l16.c:  Removed.
1225         * generated/count_8_l4.c:  Removed.
1226         * generated/count_8_l8.c:  Removed.
1227         * generated/count_8_l16.c:  Removed.
1228         * generated/count_16_l4.c:  Removed.
1229         * generated/count_16_l8.c:  Removed.
1230         * generated/count_16_l16.c:  Removed.
1231
1232 2008-01-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
1233
1234         PR libfortran/34746
1235         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Use %ld
1236         in printf format for all bounds checking; cast all
1237         integer-like arguments to runtime_error() to long int.
1238         (`m'name`'rtype_qual`_'atype_code):  Likewise.
1239         (`s'name`'rtype_qual`_'atype_code):  Likewise.
1240         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Likewise.
1241         (`m'name`'rtype_qual`_'atype_code):  Likewise.
1242         (`s'name`'rtype_qual`_'atype_code):  Likewise.
1243         * generated/all_l16.c: Regenerated.
1244         * generated/all_l4.c: Regenerated.
1245         * generated/all_l8.c: Regenerated.
1246         * generated/any_l16.c: Regenerated.
1247         * generated/any_l4.c: Regenerated.
1248         * generated/any_l8.c: Regenerated.
1249         * generated/count_16_l16.c: Regenerated.
1250         * generated/count_16_l4.c: Regenerated.
1251         * generated/count_16_l8.c: Regenerated.
1252         * generated/count_4_l16.c: Regenerated.
1253         * generated/count_4_l4.c: Regenerated.
1254         * generated/count_4_l8.c: Regenerated.
1255         * generated/count_8_l16.c: Regenerated.
1256         * generated/count_8_l4.c: Regenerated.
1257         * generated/count_8_l8.c: Regenerated.
1258         * generated/maxloc0_16_i1.c: Regenerated.
1259         * generated/maxloc0_16_i16.c: Regenerated.
1260         * generated/maxloc0_16_i2.c: Regenerated.
1261         * generated/maxloc0_16_i4.c: Regenerated.
1262         * generated/maxloc0_16_i8.c: Regenerated.
1263         * generated/maxloc0_16_r10.c: Regenerated.
1264         * generated/maxloc0_16_r16.c: Regenerated.
1265         * generated/maxloc0_16_r4.c: Regenerated.
1266         * generated/maxloc0_16_r8.c: Regenerated.
1267         * generated/maxloc0_4_i1.c: Regenerated.
1268         * generated/maxloc0_4_i16.c: Regenerated.
1269         * generated/maxloc0_4_i2.c: Regenerated.
1270         * generated/maxloc0_4_i4.c: Regenerated.
1271         * generated/maxloc0_4_i8.c: Regenerated.
1272         * generated/maxloc0_4_r10.c: Regenerated.
1273         * generated/maxloc0_4_r16.c: Regenerated.
1274         * generated/maxloc0_4_r4.c: Regenerated.
1275         * generated/maxloc0_4_r8.c: Regenerated.
1276         * generated/maxloc0_8_i1.c: Regenerated.
1277         * generated/maxloc0_8_i16.c: Regenerated.
1278         * generated/maxloc0_8_i2.c: Regenerated.
1279         * generated/maxloc0_8_i4.c: Regenerated.
1280         * generated/maxloc0_8_i8.c: Regenerated.
1281         * generated/maxloc0_8_r10.c: Regenerated.
1282         * generated/maxloc0_8_r16.c: Regenerated.
1283         * generated/maxloc0_8_r4.c: Regenerated.
1284         * generated/maxloc0_8_r8.c: Regenerated.
1285         * generated/maxloc1_16_i1.c: Regenerated.
1286         * generated/maxloc1_16_i16.c: Regenerated.
1287         * generated/maxloc1_16_i2.c: Regenerated.
1288         * generated/maxloc1_16_i4.c: Regenerated.
1289         * generated/maxloc1_16_i8.c: Regenerated.
1290         * generated/maxloc1_16_r10.c: Regenerated.
1291         * generated/maxloc1_16_r16.c: Regenerated.
1292         * generated/maxloc1_16_r4.c: Regenerated.
1293         * generated/maxloc1_16_r8.c: Regenerated.
1294         * generated/maxloc1_4_i1.c: Regenerated.
1295         * generated/maxloc1_4_i16.c: Regenerated.
1296         * generated/maxloc1_4_i2.c: Regenerated.
1297         * generated/maxloc1_4_i4.c: Regenerated.
1298         * generated/maxloc1_4_i8.c: Regenerated.
1299         * generated/maxloc1_4_r10.c: Regenerated.
1300         * generated/maxloc1_4_r16.c: Regenerated.
1301         * generated/maxloc1_4_r4.c: Regenerated.
1302         * generated/maxloc1_4_r8.c: Regenerated.
1303         * generated/maxloc1_8_i1.c: Regenerated.
1304         * generated/maxloc1_8_i16.c: Regenerated.
1305         * generated/maxloc1_8_i2.c: Regenerated.
1306         * generated/maxloc1_8_i4.c: Regenerated.
1307         * generated/maxloc1_8_i8.c: Regenerated.
1308         * generated/maxloc1_8_r10.c: Regenerated.
1309         * generated/maxloc1_8_r16.c: Regenerated.
1310         * generated/maxloc1_8_r4.c: Regenerated.
1311         * generated/maxloc1_8_r8.c: Regenerated.
1312         * generated/maxval_i1.c: Regenerated.
1313         * generated/maxval_i16.c: Regenerated.
1314         * generated/maxval_i2.c: Regenerated.
1315         * generated/maxval_i4.c: Regenerated.
1316         * generated/maxval_i8.c: Regenerated.
1317         * generated/maxval_r10.c: Regenerated.
1318         * generated/maxval_r16.c: Regenerated.
1319         * generated/maxval_r4.c: Regenerated.
1320         * generated/maxval_r8.c: Regenerated.
1321         * generated/minloc0_16_i1.c: Regenerated.
1322         * generated/minloc0_16_i16.c: Regenerated.
1323         * generated/minloc0_16_i2.c: Regenerated.
1324         * generated/minloc0_16_i4.c: Regenerated.
1325         * generated/minloc0_16_i8.c: Regenerated.
1326         * generated/minloc0_16_r10.c: Regenerated.
1327         * generated/minloc0_16_r16.c: Regenerated.
1328         * generated/minloc0_16_r4.c: Regenerated.
1329         * generated/minloc0_16_r8.c: Regenerated.
1330         * generated/minloc0_4_i1.c: Regenerated.
1331         * generated/minloc0_4_i16.c: Regenerated.
1332         * generated/minloc0_4_i2.c: Regenerated.
1333         * generated/minloc0_4_i4.c: Regenerated.
1334         * generated/minloc0_4_i8.c: Regenerated.
1335         * generated/minloc0_4_r10.c: Regenerated.
1336         * generated/minloc0_4_r16.c: Regenerated.
1337         * generated/minloc0_4_r4.c: Regenerated.
1338         * generated/minloc0_4_r8.c: Regenerated.
1339         * generated/minloc0_8_i1.c: Regenerated.
1340         * generated/minloc0_8_i16.c: Regenerated.
1341         * generated/minloc0_8_i2.c: Regenerated.
1342         * generated/minloc0_8_i4.c: Regenerated.
1343         * generated/minloc0_8_i8.c: Regenerated.
1344         * generated/minloc0_8_r10.c: Regenerated.
1345         * generated/minloc0_8_r16.c: Regenerated.
1346         * generated/minloc0_8_r4.c: Regenerated.
1347         * generated/minloc0_8_r8.c: Regenerated.
1348         * generated/minloc1_16_i1.c: Regenerated.
1349         * generated/minloc1_16_i16.c: Regenerated.
1350         * generated/minloc1_16_i2.c: Regenerated.
1351         * generated/minloc1_16_i4.c: Regenerated.
1352         * generated/minloc1_16_i8.c: Regenerated.
1353         * generated/minloc1_16_r10.c: Regenerated.
1354         * generated/minloc1_16_r16.c: Regenerated.
1355         * generated/minloc1_16_r4.c: Regenerated.
1356         * generated/minloc1_16_r8.c: Regenerated.
1357         * generated/minloc1_4_i1.c: Regenerated.
1358         * generated/minloc1_4_i16.c: Regenerated.
1359         * generated/minloc1_4_i2.c: Regenerated.
1360         * generated/minloc1_4_i4.c: Regenerated.
1361         * generated/minloc1_4_i8.c: Regenerated.
1362         * generated/minloc1_4_r10.c: Regenerated.
1363         * generated/minloc1_4_r16.c: Regenerated.
1364         * generated/minloc1_4_r4.c: Regenerated.
1365         * generated/minloc1_4_r8.c: Regenerated.
1366         * generated/minloc1_8_i1.c: Regenerated.
1367         * generated/minloc1_8_i16.c: Regenerated.
1368         * generated/minloc1_8_i2.c: Regenerated.
1369         * generated/minloc1_8_i4.c: Regenerated.
1370         * generated/minloc1_8_i8.c: Regenerated.
1371         * generated/minloc1_8_r10.c: Regenerated.
1372         * generated/minloc1_8_r16.c: Regenerated.
1373         * generated/minloc1_8_r4.c: Regenerated.
1374         * generated/minloc1_8_r8.c: Regenerated.
1375         * generated/minval_i1.c: Regenerated.
1376         * generated/minval_i16.c: Regenerated.
1377         * generated/minval_i2.c: Regenerated.
1378         * generated/minval_i4.c: Regenerated.
1379         * generated/minval_i8.c: Regenerated.
1380         * generated/minval_r10.c: Regenerated.
1381         * generated/minval_r16.c: Regenerated.
1382         * generated/minval_r4.c: Regenerated.
1383         * generated/minval_r8.c: Regenerated.
1384         * generated/product_c10.c: Regenerated.
1385         * generated/product_c16.c: Regenerated.
1386         * generated/product_c4.c: Regenerated.
1387         * generated/product_c8.c: Regenerated.
1388         * generated/product_i1.c: Regenerated.
1389         * generated/product_i16.c: Regenerated.
1390         * generated/product_i2.c: Regenerated.
1391         * generated/product_i4.c: Regenerated.
1392         * generated/product_i8.c: Regenerated.
1393         * generated/product_r10.c: Regenerated.
1394         * generated/product_r16.c: Regenerated.
1395         * generated/product_r4.c: Regenerated.
1396         * generated/product_r8.c: Regenerated.
1397         * generated/sum_c10.c: Regenerated.
1398         * generated/sum_c16.c: Regenerated.
1399         * generated/sum_c4.c: Regenerated.
1400         * generated/sum_c8.c: Regenerated.
1401         * generated/sum_i1.c: Regenerated.
1402         * generated/sum_i16.c: Regenerated.
1403         * generated/sum_i2.c: Regenerated.
1404         * generated/sum_i4.c: Regenerated.
1405         * generated/sum_i8.c: Regenerated.
1406         * generated/sum_r10.c: Regenerated.
1407         * generated/sum_r16.c: Regenerated.
1408         * generated/sum_r4.c: Regenerated.
1409         * generated/sum_r8.c: Regenerated.
1410
1411 2008-01-11  Thomas Koenig  <tkoenig@gcc.gnu.org>
1412
1413         PR libfortran/34670
1414         * m4/iparm.m4 (upcase):  New macro (copied from the m4 manual).
1415         (u_name):  New macro for the upper case name of the intrinsic.
1416         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Add
1417         bounds checking and rank check, depending on
1418         compile_options.bounds_check.
1419         (`m'name`'rtype_qual`_'atype_code):  Likewise.
1420         (`s'name`'rtype_qual`_'atype_code):  Likewise.
1421         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Add
1422         bounds checking and rank check, depending on
1423         compile_options.bounds_check.
1424         (`m'name`'rtype_qual`_'atype_code):  Likewise.
1425         (`s'name`'rtype_qual`_'atype_code):  Likewise.
1426         * generated/all_l16.c: Regenerated.
1427         * generated/all_l4.c: Regenerated.
1428         * generated/all_l8.c: Regenerated.
1429         * generated/any_l16.c: Regenerated.
1430         * generated/any_l4.c: Regenerated.
1431         * generated/any_l8.c: Regenerated.
1432         * generated/count_16_l16.c: Regenerated.
1433         * generated/count_16_l4.c: Regenerated.
1434         * generated/count_16_l8.c: Regenerated.
1435         * generated/count_4_l16.c: Regenerated.
1436         * generated/count_4_l4.c: Regenerated.
1437         * generated/count_4_l8.c: Regenerated.
1438         * generated/count_8_l16.c: Regenerated.
1439         * generated/count_8_l4.c: Regenerated.
1440         * generated/count_8_l8.c: Regenerated.
1441         * generated/maxloc0_16_i1.c: Regenerated.
1442         * generated/maxloc0_16_i16.c: Regenerated.
1443         * generated/maxloc0_16_i2.c: Regenerated.
1444         * generated/maxloc0_16_i4.c: Regenerated.
1445         * generated/maxloc0_16_i8.c: Regenerated.
1446         * generated/maxloc0_16_r10.c: Regenerated.
1447         * generated/maxloc0_16_r16.c: Regenerated.
1448         * generated/maxloc0_16_r4.c: Regenerated.
1449         * generated/maxloc0_16_r8.c: Regenerated.
1450         * generated/maxloc0_4_i1.c: Regenerated.
1451         * generated/maxloc0_4_i16.c: Regenerated.
1452         * generated/maxloc0_4_i2.c: Regenerated.
1453         * generated/maxloc0_4_i4.c: Regenerated.
1454         * generated/maxloc0_4_i8.c: Regenerated.
1455         * generated/maxloc0_4_r10.c: Regenerated.
1456         * generated/maxloc0_4_r16.c: Regenerated.
1457         * generated/maxloc0_4_r4.c: Regenerated.
1458         * generated/maxloc0_4_r8.c: Regenerated.
1459         * generated/maxloc0_8_i1.c: Regenerated.
1460         * generated/maxloc0_8_i16.c: Regenerated.
1461         * generated/maxloc0_8_i2.c: Regenerated.
1462         * generated/maxloc0_8_i4.c: Regenerated.
1463         * generated/maxloc0_8_i8.c: Regenerated.
1464         * generated/maxloc0_8_r10.c: Regenerated.
1465         * generated/maxloc0_8_r16.c: Regenerated.
1466         * generated/maxloc0_8_r4.c: Regenerated.
1467         * generated/maxloc0_8_r8.c: Regenerated.
1468         * generated/maxloc1_16_i1.c: Regenerated.
1469         * generated/maxloc1_16_i16.c: Regenerated.
1470         * generated/maxloc1_16_i2.c: Regenerated.
1471         * generated/maxloc1_16_i4.c: Regenerated.
1472         * generated/maxloc1_16_i8.c: Regenerated.
1473         * generated/maxloc1_16_r10.c: Regenerated.
1474         * generated/maxloc1_16_r16.c: Regenerated.
1475         * generated/maxloc1_16_r4.c: Regenerated.
1476         * generated/maxloc1_16_r8.c: Regenerated.
1477         * generated/maxloc1_4_i1.c: Regenerated.
1478         * generated/maxloc1_4_i16.c: Regenerated.
1479         * generated/maxloc1_4_i2.c: Regenerated.
1480         * generated/maxloc1_4_i4.c: Regenerated.
1481         * generated/maxloc1_4_i8.c: Regenerated.
1482         * generated/maxloc1_4_r10.c: Regenerated.
1483         * generated/maxloc1_4_r16.c: Regenerated.
1484         * generated/maxloc1_4_r4.c: Regenerated.
1485         * generated/maxloc1_4_r8.c: Regenerated.
1486         * generated/maxloc1_8_i1.c: Regenerated.
1487         * generated/maxloc1_8_i16.c: Regenerated.
1488         * generated/maxloc1_8_i2.c: Regenerated.
1489         * generated/maxloc1_8_i4.c: Regenerated.
1490         * generated/maxloc1_8_i8.c: Regenerated.
1491         * generated/maxloc1_8_r10.c: Regenerated.
1492         * generated/maxloc1_8_r16.c: Regenerated.
1493         * generated/maxloc1_8_r4.c: Regenerated.
1494         * generated/maxloc1_8_r8.c: Regenerated.
1495         * generated/maxval_i1.c: Regenerated.
1496         * generated/maxval_i16.c: Regenerated.
1497         * generated/maxval_i2.c: Regenerated.
1498         * generated/maxval_i4.c: Regenerated.
1499         * generated/maxval_i8.c: Regenerated.
1500         * generated/maxval_r10.c: Regenerated.
1501         * generated/maxval_r16.c: Regenerated.
1502         * generated/maxval_r4.c: Regenerated.
1503         * generated/maxval_r8.c: Regenerated.
1504         * generated/minloc0_16_i1.c: Regenerated.
1505         * generated/minloc0_16_i16.c: Regenerated.
1506         * generated/minloc0_16_i2.c: Regenerated.
1507         * generated/minloc0_16_i4.c: Regenerated.
1508         * generated/minloc0_16_i8.c: Regenerated.
1509         * generated/minloc0_16_r10.c: Regenerated.
1510         * generated/minloc0_16_r16.c: Regenerated.
1511         * generated/minloc0_16_r4.c: Regenerated.
1512         * generated/minloc0_16_r8.c: Regenerated.
1513         * generated/minloc0_4_i1.c: Regenerated.
1514         * generated/minloc0_4_i16.c: Regenerated.
1515         * generated/minloc0_4_i2.c: Regenerated.
1516         * generated/minloc0_4_i4.c: Regenerated.
1517         * generated/minloc0_4_i8.c: Regenerated.
1518         * generated/minloc0_4_r10.c: Regenerated.
1519         * generated/minloc0_4_r16.c: Regenerated.
1520         * generated/minloc0_4_r4.c: Regenerated.
1521         * generated/minloc0_4_r8.c: Regenerated.
1522         * generated/minloc0_8_i1.c: Regenerated.
1523         * generated/minloc0_8_i16.c: Regenerated.
1524         * generated/minloc0_8_i2.c: Regenerated.
1525         * generated/minloc0_8_i4.c: Regenerated.
1526         * generated/minloc0_8_i8.c: Regenerated.
1527         * generated/minloc0_8_r10.c: Regenerated.
1528         * generated/minloc0_8_r16.c: Regenerated.
1529         * generated/minloc0_8_r4.c: Regenerated.
1530         * generated/minloc0_8_r8.c: Regenerated.
1531         * generated/minloc1_16_i1.c: Regenerated.
1532         * generated/minloc1_16_i16.c: Regenerated.
1533         * generated/minloc1_16_i2.c: Regenerated.
1534         * generated/minloc1_16_i4.c: Regenerated.
1535         * generated/minloc1_16_i8.c: Regenerated.
1536         * generated/minloc1_16_r10.c: Regenerated.
1537         * generated/minloc1_16_r16.c: Regenerated.
1538         * generated/minloc1_16_r4.c: Regenerated.
1539         * generated/minloc1_16_r8.c: Regenerated.
1540         * generated/minloc1_4_i1.c: Regenerated.
1541         * generated/minloc1_4_i16.c: Regenerated.
1542         * generated/minloc1_4_i2.c: Regenerated.
1543         * generated/minloc1_4_i4.c: Regenerated.
1544         * generated/minloc1_4_i8.c: Regenerated.
1545         * generated/minloc1_4_r10.c: Regenerated.
1546         * generated/minloc1_4_r16.c: Regenerated.
1547         * generated/minloc1_4_r4.c: Regenerated.
1548         * generated/minloc1_4_r8.c: Regenerated.
1549         * generated/minloc1_8_i1.c: Regenerated.
1550         * generated/minloc1_8_i16.c: Regenerated.
1551         * generated/minloc1_8_i2.c: Regenerated.
1552         * generated/minloc1_8_i4.c: Regenerated.
1553         * generated/minloc1_8_i8.c: Regenerated.
1554         * generated/minloc1_8_r10.c: Regenerated.
1555         * generated/minloc1_8_r16.c: Regenerated.
1556         * generated/minloc1_8_r4.c: Regenerated.
1557         * generated/minloc1_8_r8.c: Regenerated.
1558         * generated/minval_i1.c: Regenerated.
1559         * generated/minval_i16.c: Regenerated.
1560         * generated/minval_i2.c: Regenerated.
1561         * generated/minval_i4.c: Regenerated.
1562         * generated/minval_i8.c: Regenerated.
1563         * generated/minval_r10.c: Regenerated.
1564         * generated/minval_r16.c: Regenerated.
1565         * generated/minval_r4.c: Regenerated.
1566         * generated/minval_r8.c: Regenerated.
1567         * generated/product_c10.c: Regenerated.
1568         * generated/product_c16.c: Regenerated.
1569         * generated/product_c4.c: Regenerated.
1570         * generated/product_c8.c: Regenerated.
1571         * generated/product_i1.c: Regenerated.
1572         * generated/product_i16.c: Regenerated.
1573         * generated/product_i2.c: Regenerated.
1574         * generated/product_i4.c: Regenerated.
1575         * generated/product_i8.c: Regenerated.
1576         * generated/product_r10.c: Regenerated.
1577         * generated/product_r16.c: Regenerated.
1578         * generated/product_r4.c: Regenerated.
1579         * generated/product_r8.c: Regenerated.
1580         * generated/sum_c10.c: Regenerated.
1581         * generated/sum_c16.c: Regenerated.
1582         * generated/sum_c4.c: Regenerated.
1583         * generated/sum_c8.c: Regenerated.
1584         * generated/sum_i1.c: Regenerated.
1585         * generated/sum_i16.c: Regenerated.
1586         * generated/sum_i2.c: Regenerated.
1587         * generated/sum_i4.c: Regenerated.
1588         * generated/sum_i8.c: Regenerated.
1589         * generated/sum_r10.c: Regenerated.
1590         * generated/sum_r16.c: Regenerated.
1591         * generated/sum_r4.c: Regenerated.
1592         * generated/sum_r8.c: Regenerated.
1593
1594 2008-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1595
1596         PR libfortran/34676
1597         * io/list_read.c (next_char): Only save the EOF condition for later if
1598         advance="no".
1599
1600 2008-01-03  Thomas Koenig  <tkoenig@gcc.gnu.org>
1601
1602         PR libfortran/34565
1603         * io/io.h:  Adjust protoypes for open_internal(),
1604         next_array_record() and init_loop_spec().
1605         * io/list_read.c (next_char):  Use argument "finished"
1606         of next_array_record to check for end on internal file.
1607         * io/unit.c:  Calculate the offset for an array
1608         internal file and supply this informatin to open_internal().
1609         * io/unix.c (open_internal):  Set the offset for the internal
1610         file on open.
1611         * io/transfer.c (init_loop_spec):  Calculate the starting
1612         record in case of negative strides.  Return size of 0 for
1613         an empty array.
1614         (next_array_record):  Use an extra flag to signal that the
1615         array is finished.
1616         (next_record_r):  Use the new flag to next_array_record().
1617         (next_record_w):  Likewise.