libgfortran/ChangeLog

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