libgfortran/ChangeLog

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