libgfortran/ChangeLog

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