1 2009-12-19 Janne Blomqvist <jb (a] gcc.gnu.org> 2 3 * intrinsics/system_clock.c: Fix library name in comment, move TCK 4 definition into functions. 5 (system_clock_4): Remove unused struct timezone. 6 (system_clock_8): Remove unused struct timezone, increase TCK. 7 8 2009-12-08 Tobias Burnus <burnus (a] net-b.de> 9 10 PR fortran/41711 11 * io/read.c (set_integer): Support kind=10 for reading 12 real/complex BOZ. 13 14 2009-12-06 Janus Weil <janus (a] gcc.gnu.org> 15 16 PR fortran/41478 17 PR fortran/42268 18 * intrinsics/pack_generic.c (pack): Add safety checks for the case that 19 'vector' is NULL. 20 21 2009-12-05 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 22 23 * Makefile.in: Regenerate. 24 * configure: Regenerate. 25 26 2009-12-04 Janne Blomqvist <jb (a] gcc.gnu.org> 27 28 PR libfortran/40812 29 * libgfortran.h: typedef gfc_offset differently for MinGW. 30 * io/unix.h (struct stream): Change function pointers to use 31 gfc_offset instead of off_t. 32 (sseek): Change prototype to use gfc_offset instead of off_t. 33 (stell): Likewise. 34 (struncate): Likewise. 35 * io/unix.c: Redefine lseek() for mingw. 36 (raw_seek): Use gfc_offset instead of off_t. 37 (raw_tell): Likewise. 38 (buf_seek): Likewise. 39 (buf_tell): Likewise. 40 (buf_truncate): Likewise. 41 (mem_seek): Likewise. 42 (mem_tell): Likewise. 43 (mem_truncate): Likewise. 44 (fd_to_stream): Likewise. 45 (file_length): Likewise. 46 (raw_truncate): Use gfc_offset instead of off_t, add large file 47 capable implementation for MinGW. 48 49 2009-11-30 Janus Weil <janus (a] gcc.gnu.org> 50 51 * gfortran.map: Add _gfortran_is_extension_of. 52 * Makefile.am: Add intrinsics/extends_type_of.c. 53 * Makefile.in: Regenerated. 54 * intrinsics/extends_type_of.c: New file. 55 56 2009-11-30 Kai Tietz <Kai.Tietz (a] onevision.com> 57 58 * io/unix.c (find_file): Add variable id conditionally for 59 mingw targets. 60 61 2009-11-28 Jakub Jelinek <jakub (a] redhat.com> 62 63 * intrinsics/pack_generic.c (pack_internal): Remove unused 64 zero_sized variable. 65 * intrinsics/unpack_generic.c (unpack0): Remove unused size 66 variable. 67 * io/write.c (namelist_write_newline): Remove unused length 68 variable. 69 * io/unix.c (find_file): Remove unused id variable. 70 * m4/ifunction.m4 (SCALAR_ARRAY_FUNCTION): Remove unused sstride 71 variable. 72 * generated/maxloc1_16_i1.c: Regenerated. 73 * generated/maxloc1_16_i16.c: Regenerated. 74 * generated/maxloc1_16_i2.c: Regenerated. 75 * generated/maxloc1_16_i4.c: Regenerated. 76 * generated/maxloc1_16_i8.c: Regenerated. 77 * generated/maxloc1_16_r10.c: Regenerated. 78 * generated/maxloc1_16_r16.c: Regenerated. 79 * generated/maxloc1_16_r4.c: Regenerated. 80 * generated/maxloc1_16_r8.c: Regenerated. 81 * generated/maxloc1_4_i1.c: Regenerated. 82 * generated/maxloc1_4_i16.c: Regenerated. 83 * generated/maxloc1_4_i2.c: Regenerated. 84 * generated/maxloc1_4_i4.c: Regenerated. 85 * generated/maxloc1_4_i8.c: Regenerated. 86 * generated/maxloc1_4_r10.c: Regenerated. 87 * generated/maxloc1_4_r16.c: Regenerated. 88 * generated/maxloc1_4_r4.c: Regenerated. 89 * generated/maxloc1_4_r8.c: Regenerated. 90 * generated/maxloc1_8_i1.c: Regenerated. 91 * generated/maxloc1_8_i16.c: Regenerated. 92 * generated/maxloc1_8_i2.c: Regenerated. 93 * generated/maxloc1_8_i4.c: Regenerated. 94 * generated/maxloc1_8_i8.c: Regenerated. 95 * generated/maxloc1_8_r10.c: Regenerated. 96 * generated/maxloc1_8_r16.c: Regenerated. 97 * generated/maxloc1_8_r4.c: Regenerated. 98 * generated/maxloc1_8_r8.c: Regenerated. 99 * generated/maxval_i1.c: Regenerated. 100 * generated/maxval_i16.c: Regenerated. 101 * generated/maxval_i2.c: Regenerated. 102 * generated/maxval_i4.c: Regenerated. 103 * generated/maxval_i8.c: Regenerated. 104 * generated/maxval_r10.c: Regenerated. 105 * generated/maxval_r16.c: Regenerated. 106 * generated/maxval_r4.c: Regenerated. 107 * generated/maxval_r8.c: Regenerated. 108 * generated/minloc1_16_i1.c: Regenerated. 109 * generated/minloc1_16_i16.c: Regenerated. 110 * generated/minloc1_16_i2.c: Regenerated. 111 * generated/minloc1_16_i4.c: Regenerated. 112 * generated/minloc1_16_i8.c: Regenerated. 113 * generated/minloc1_16_r10.c: Regenerated. 114 * generated/minloc1_16_r16.c: Regenerated. 115 * generated/minloc1_16_r4.c: Regenerated. 116 * generated/minloc1_16_r8.c: Regenerated. 117 * generated/minloc1_4_i1.c: Regenerated. 118 * generated/minloc1_4_i16.c: Regenerated. 119 * generated/minloc1_4_i2.c: Regenerated. 120 * generated/minloc1_4_i4.c: Regenerated. 121 * generated/minloc1_4_i8.c: Regenerated. 122 * generated/minloc1_4_r10.c: Regenerated. 123 * generated/minloc1_4_r16.c: Regenerated. 124 * generated/minloc1_4_r4.c: Regenerated. 125 * generated/minloc1_4_r8.c: Regenerated. 126 * generated/minloc1_8_i1.c: Regenerated. 127 * generated/minloc1_8_i16.c: Regenerated. 128 * generated/minloc1_8_i2.c: Regenerated. 129 * generated/minloc1_8_i4.c: Regenerated. 130 * generated/minloc1_8_i8.c: Regenerated. 131 * generated/minloc1_8_r10.c: Regenerated. 132 * generated/minloc1_8_r16.c: Regenerated. 133 * generated/minloc1_8_r4.c: Regenerated. 134 * generated/minloc1_8_r8.c: Regenerated. 135 * generated/minval_i1.c: Regenerated. 136 * generated/minval_i16.c: Regenerated. 137 * generated/minval_i2.c: Regenerated. 138 * generated/minval_i4.c: Regenerated. 139 * generated/minval_i8.c: Regenerated. 140 * generated/minval_r10.c: Regenerated. 141 * generated/minval_r16.c: Regenerated. 142 * generated/minval_r4.c: Regenerated. 143 * generated/minval_r8.c: Regenerated. 144 * generated/product_c10.c: Regenerated. 145 * generated/product_c16.c: Regenerated. 146 * generated/product_c4.c: Regenerated. 147 * generated/product_c8.c: Regenerated. 148 * generated/product_i1.c: Regenerated. 149 * generated/product_i16.c: Regenerated. 150 * generated/product_i2.c: Regenerated. 151 * generated/product_i4.c: Regenerated. 152 * generated/product_i8.c: Regenerated. 153 * generated/product_r10.c: Regenerated. 154 * generated/product_r16.c: Regenerated. 155 * generated/product_r4.c: Regenerated. 156 * generated/product_r8.c: Regenerated. 157 * generated/sum_c10.c: Regenerated. 158 * generated/sum_c16.c: Regenerated. 159 * generated/sum_c4.c: Regenerated. 160 * generated/sum_c8.c: Regenerated. 161 * generated/sum_i1.c: Regenerated. 162 * generated/sum_i16.c: Regenerated. 163 * generated/sum_i2.c: Regenerated. 164 * generated/sum_i4.c: Regenerated. 165 * generated/sum_i8.c: Regenerated. 166 * generated/sum_r10.c: Regenerated. 167 * generated/sum_r16.c: Regenerated. 168 * generated/sum_r4.c: Regenerated. 169 * generated/sum_r8.c: Regenerated. 170 171 2009-11-19 Janne Blomqvist <jb (a] gcc.gnu.org> 172 173 * io/fbuf.h: Move includes after include guard. 174 * io/format.h: Likewise. 175 * io/unix.h: Likewise. 176 177 2009-11-18 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 178 179 PR libgfortran/42090 180 * io/transfer.c (skip_record): Set bytes_left_subrecord to zero after 181 skipping the remaining bytes in the record. 182 (next_record_r): Call skip_record with the number of bytes_left to be 183 skipped. 184 185 2009-11-02 Janne Blomqvist <jb (a] gcc.gnu.org> 186 187 * Makefile.am (gfor_io_headers): Add fbuf.h, format.h, unix.h. 188 * Makefile.in: Regenerated. 189 * io/fbuf.h: New file. 190 * io/format.h: New file. 191 * io/unix.h: New file. 192 * io/io.h (struct stream): Move to unix.h, add forward declaration. 193 (sread): Likewise. 194 (swrite): Likewise. 195 (sseek): Likewise. 196 (stell): Likewise. 197 (struncate): Likewise. 198 (sflush): Likewise. 199 (sflush): Likewise. 200 (sclose): Likewise. 201 (compared_files): Move prototype to unix.h. 202 (open_external): Likewise. 203 (open_internal): Likewise. 204 (mem_alloc_w): Likewise. 205 (mem_alloc_r): Likewise. 206 (input_stream): Likewise. 207 (output_stream): Likewise. 208 (error_stream): Likewise. 209 (compare_file_filename): Likewise. 210 (find_file): Likewise. 211 (delete_file): Likewise. 212 (file_exists): Likewise. 213 (inquire_sequential): Likewise. 214 (inquire_direct): Likewise. 215 (inquire_formatted): Likewise. 216 (inquire_unformatted): Likewise. 217 (inquire_read): Likewise. 218 (inquire_write): Likewise. 219 (inquire_readwrite): Likewise. 220 (file_length): Likewise. 221 (is_seekable): Likewise. 222 (is_special): Likewise. 223 (flush_if_preconnected): Likewise. 224 (empty_internal_buffer): Likewise. 225 (stream_isatty): Likewise. 226 (stream_ttyname): Likewise. 227 (unpack_filename): Likewise. 228 (struct fbuf): Move to fbuf.h, add forward declaration. 229 (fbuf_init): Move prototype to fbuf.h. 230 (fbuf_destroy): Likewise. 231 (fbuf_reset): Likewise. 232 (fbuf_alloc): Likewise. 233 (fbuf_flush): Likewise. 234 (fbuf_seek): Likewise. 235 (fbuf_read): Likewise. 236 (fbuf_getc_refill): Likewise. 237 (fbuf_getc): Move inline function to fbuf.h. 238 (enum format_token): Move to format.h. 239 (struct fnode): Move to format.h, add forward declaration. 240 (parse_format): Move prototype to format.h. 241 (next_format): Likewise. 242 (unget_format): Likewise. 243 (format_error): Likewise. 244 (free_format_data): Likewise. 245 (free_format_hash_table): Likewise. 246 (init_format_hash): Likewise. 247 (free_format_hash): Likewise. 248 * io/close.c: Include unix.h. 249 * io/fbuf.c: Include fbuf.h and unix.h. 250 * io/file_pos.c: Include fbuf.h and unix.h. 251 * io/format.c: Include format.h. 252 * io/inquire.c: Include unix.h. 253 * io/intrinsics.c: Include fbuf.h and unix.h. 254 * io/list_read.c: Include fbuf.h and unix.h. 255 * io/open.c: Include fbuf.h and unix.h. 256 * io/read.c: Include format.h. 257 * io/transfer.c: Include fbuf.h, format.h, and unix.h. 258 * io/unit.c: Likewise. 259 * io/unix.c: Include unix.h. 260 * io/write.c: Include format.h and unix.h. 261 262 2009-10-31 Janne Blomqvist <jb (a] gcc.gnu.org> 263 264 PR libfortran/41219 265 * intrinsics/unpack_generic.c (unpack_internal): Remove unused 266 argument from prototype. 267 (unpack1): Update unpack_internal call. 268 (unpack1_char): Likewise. 269 (unpack1_char4): Likewise. 270 (unpack0): Likewise. 271 (unpack0_char): Likewise. 272 (unpack0_char4): Likewise. 273 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Get rid of 274 uninitialized variable warning. 275 276 2009-10-29 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 277 278 PR libgfortran/41711 279 * libgfortran.h: Define larger sizes for BOZ conversion buffers. 280 * io/write.c (extract_uint): Include case where size is 10 if integer 281 is large enough. (write_int): Rename to write_boz. (write_boz): Factor 282 out extract_uint and delete the conversion function. 283 (btoa_big): New binary conversion function. 284 (otoa_big): New octal conversion function. 285 (ztoa_big): New hexidecimal conversion function. 286 (write_b): Modify to use new function. 287 (write_o): Likewise. 288 (write_z): Likewise. 289 290 2009-10-12 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 291 292 PR libgfortran/41683 293 * io/format.c (parse_format_list): Allow a repeat specifier immediately 294 after a P specifier. 295 296 2009-10-11 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 297 298 PR libgfortran/38439 299 * io/format.c (parse_format_list): Correct logic for FMT_F reading vs 300 writing. Code clean-up. 301 302 2009-10-11 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 303 304 PR libgfortran/38439 305 * io/format.c (parse_format_list): Add check for tokens not allowed 306 after P specifier. Fix comments. Remove un-needed code. Fix the 307 default exponent list. Correct pointer assignment error. 308 309 2009-10-05 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 310 311 PR libgfortran/35862 312 * write_float.def (outout_float): Fix handling of special case where no 313 digits after the decimal point and values less than 1.0. Adjust index 314 into digits string. (WRITE_FLOAT): Remove special case code from macro. 315 316 2009-09-28 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 317 318 PR libgfortran/35862 319 * io.h (gfc_unit): Add round_status. 320 (format_token): Add enumerators for rounding format specifiers. 321 * transfer.c (round_opt): New options table. 322 (formatted_transfer_scalar_read): Add set round_status for each rounding 323 format token. (formatted_transfer_scalar_write): Likewise. 324 * format.c (format_lex): Tokenize the rounding format specifiers. 325 (parse_format_list): Parse the rounding format specifiers. 326 * write_float.def (outout_float): Modify rounding code to use new 327 variable rchar to set the appropriate rounding. Fix some whitespace. 328 * unit.c (get_internal_unit): Initialize rounding mode for internal 329 units. (init_units): Likewise. 330 331 2009-09-19 Iain Sandoe <iain.sandoe (a] sandoe-acoustics.co.uk> 332 333 * configure.ac: Check for GFORTRAN_C99_1.1 funcs in OS libm. 334 * configure: Regenerate. 335 * config.h.in: Ditto. 336 337 2009-09-18 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 338 339 PR libgfortran/41328 340 * io/transfer.c (read_sf): Set at_eof flag on short read if any 341 characters were successfully read so that EOF condition with no EOR 342 marker succeeds. 343 344 2009-09-12 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 345 346 PR libgfortran/41328 347 * io/transfer.c (read_sf): Adjust fbuf position and do proper 348 fbuf reads to traverse CR, CR-LF, and LF style line ends. 349 350 2009-09-12 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 351 352 PR libgfortran/41219 353 * io/write.c (write_a_char4): Use correct type for crlf constant. 354 355 2009-09-11 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 356 357 * Makefile.am (libgfortranbegin_la_LINK): New. 358 * Makefile.in: Regenerate. 359 360 2009-09-09 Paolo Bonzini <bonzini (a] gnu.org> 361 362 * configure: Regenerate. 363 364 2009-09-08 Paolo Bonzini <bonzini (a] gnu.org> 365 366 * configure: Regenerate. 367 368 2009-09-07 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 369 370 PR libgfortran/41192 371 * io/list_read.c (eat_line): Enable eat_line to function on 372 internal units. 373 374 PR libgfortran/41219 375 * io/list_read.c (nml_read_obj): Replace GFC_DTYPE_UNKNOWN with 376 BT_NULL to get rid of warning. 377 378 2009-09-04 Tobias Burnus <burnus (a] net-b.de> 379 380 PR fortran/41219 381 * intrinsics/getlog.c: Define _POSIX for MINGW32. 382 383 2009-09-03 Tobias Burnus <burnus (a] net-b.de> 384 385 PR fortran/41219 386 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Move variable 387 declaration out of the loop. 388 389 2009-08-30 Thomas Koenig <tkoenig (a] gcc.gnu.org> 390 391 * m4/pack.m4 (pack_'rtype_code`): Use count_0 for counting true 392 values in a logical array. Mark bounds checking tests as 393 unlikely. 394 * intrinsics/pack_generic.c (pack_internal): Likewise. 395 * runtime/bounds.c (count_0): Fix off-by-one error in detecting 396 empty arrays. 397 * generated/pack_c4.c: Regenerated. 398 * generated/pack_c8.c: Regenerated. 399 * generated/pack_c10.c: Regenerated. 400 * generated/pack_c16.c: Regenerated. 401 * generated/pack_i1.c: Regenerated. 402 * generated/pack_i16.c: Regenerated. 403 * generated/pack_i2.c: Regenerated. 404 * generated/pack_i4.c: Regenerated. 405 * generated/pack_i8.c: Regenerated. 406 * generated/pack_r4.c: Regenerated. 407 * generated/pack_r8.c: Regenerated. 408 * generated/pack_r10.c: Regenerated. 409 * generated/pack_r16.c: Regenerated. 410 411 2009-08-25 Thomas Koenig <tkoenig (a] gcc.gnu.org> 412 413 PR libfortran/34670 414 * runtime/bounds.c (count_0): New function. 415 * intrinsics/unpack_generic (unpack_bounds): New function. 416 (unpack_internal): Remove zero stride checks. 417 (unpack1): Use unpack_bounds. 418 (unpack1_char): Likeweise. 419 (unpack1_char4): Likewise 420 (unpack0): Likewise. 421 (unpack0_char): Likewise. 422 (unpack0_char4): Likewise. 423 424 2009-08-24 Steven G. Kargl <kargl (a] gcc.gnu.org> 425 426 PR fortran/41157 427 * dtime.c (dtime_sub): Fix computing time increment. 428 * time_1.h: Add <sys/types.h> header. Use RUSAGE_SELF macro instead 429 of a hardcoded 0. 430 431 2009-08-24 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 432 433 * configure.ac (AC_PREREQ): Bump to 2.64. 434 435 2009-08-23 Steven G. Kargl <kargl (a] gcc.gnu.org> 436 437 * intrinsics/cshift0.c: Update license to GPL3+exception. 438 * runtime/fpu.c: Add a GPL3+exception statement. 439 440 2009-08-22 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 441 442 * Makefile.am (install-html, install-pdf): Remove. 443 * Makefile.in: Regenerate. 444 445 * Makefile.in: Regenerate. 446 * aclocal.m4: Regenerate. 447 * config.h.in: Regenerate. 448 * configure: Regenerate. 449 450 2009-08-22 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 451 452 * Makefile.am (libgfortran_la_LINK): Add $(libgfortran_la_LDFLAGS). 453 * Makefile.in: Regenerate. 454 455 2009-08-20 Thomas Koenig <tkoenig (a] gcc.gnu.org> 456 457 PR libfortran/40962 458 * iso_c_binding.c (c_f_pointer_u0): Multiply stride by 459 previous stride. 460 461 2009-08-20 Dave Korn <dave.korn.cygwin (a] gmail.com> 462 463 * Makefile.am (LTLDFLAGS): Add -bindir flag. 464 * Makefile.in: Regenerate. 465 466 2009-08-17 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 467 468 PR fortran/41075 469 * io/io.h (enum format_token): Add FMT_STAR. 470 * io/format.c (format_lex): Add case for FMT_STAR. 471 (parse_format_list): Parse FMT_STAR and check for left paren 472 after. (next_format0): Modify helper function to check for 473 unimited format and return the repeated format node. Update 474 comments to clarify. 475 476 2009-08-15 Kai Tietz <kai.tietz (a] onevision.com> 477 478 * intrinsics/string_intrinsics_inc.c (string_len_trim): Use 479 __INTPTR_TYPE__ to cast from pointer to scalar integer, if 480 __INTPTR_TYPE is defined. 481 482 2009-08-14 Janne Blomqvist <jb (a] gcc.gnu.org> 483 484 * fmain.c: Add comment saying file is deprecated. 485 486 2009-08-14 Janne Blomqvist <jb (a] gcc.gnu.org> 487 488 PR libfortran/40863 489 * gfortran.map: Move new symbols to GFORTRAN_C99_1.1 version node. 490 491 2009-08-09 Francois-Xavier Coudert <fxcoudert (a] gcc.gnu.org> 492 493 PR libfortran/40549 494 * Makefile.in (LTLDFLAGS): Add -no-undefined. 495 * Makefile.am: Regenerate. 496 * libgfortran.h: Remove unused block of code. 497 498 2009-08-02 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 499 500 PR libfortran/40853 501 * io/list_read.c (nml_get_obj_data): Do not set nl 502 pointer to first_nl if nl->next is NULL. 503 504 2009-07-31 Kaz Kojima <kkojima (a] gcc.gnu.org> 505 506 * Makefile.am: Don't set SECTION_FLAGS with @SECTION_FLAGS@. 507 Don't set IEEE_FLAGS with @IEEE_FLAGS@. 508 * Makefile.in: Regenerate. 509 510 2009-07-30 Kaz Kojima <kkojima (a] gcc.gnu.org> 511 512 * configure.host: Define ieee_flags and set it to -mieee for sh. 513 * configure.ac: Set IEEE_FLAGS with ieee_flags. 514 * Makefile.am: Add IEEE_FLAGS to AM_CFLAGS. 515 * configure: Regenerate. 516 * Makefile.in: Regenerate. 517 518 2009-07-30 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 519 520 * configure.ac (_AC_ARG_VAR_PRECIOUS): Use m4_rename_force. 521 522 2009-07-27 Tobias Burnus <burnus (a] net-b.de> 523 524 PR fortran/40863 525 * c99_functions.c: Define complex I, if not defined. 526 Create prototypes for C99 functions to silence warnings. 527 * gfortran.map: Add missing functions to GFORTRAN_C99_1.0 528 and new GFORTRAN_C99_1.1. 529 530 2009-07-25 Tobias Burnus <burnus (a] net-b.de> 531 532 PR fortran/33197 533 * intrinsics/c99_functions.c (cacosf,cacos,cacosl,casinf, 534 casin,casind,catanf,catan,catanl,cacoshf,cacosh,cacoshl, 535 casinhf,casinh,casinhf,catanhf,catanh,catanhl): New functions. 536 * c99_protos.h: Add prototypes for those. 537 538 2009-07-24 Jakub Jelinek <jakub (a] redhat.com> 539 540 PR fortran/40643 541 PR fortran/31067 542 * libgfortran.h (GFC_REAL_4_INFINITY, GFC_REAL_8_INFINITY, 543 GFC_REAL_10_INFINITY, GFC_REAL_16_INFINITY, GFC_REAL_4_QUIET_NAN, 544 GFC_REAL_8_QUIET_NAN, GFC_REAL_10_QUIET_NAN, GFC_REAL_16_QUIET_NAN): 545 Define. 546 * m4/iparm.m4 (atype_inf, atype_nan): Define. 547 * m4/ifunction.m4: Formatting. 548 * m4/iforeach.m4: Likewise. 549 (START_FOREACH_FUNCTION): Initialize dest to all 1s, not all 0s. 550 (START_FOREACH_BLOCK, FINISH_FOREACH_FUNCTION, 551 FINISH_MASKED_FOREACH_FUNCTION): Run foreach block inside a loop 552 until count[0] == extent[0]. 553 * m4/minval.m4: Formatting. Handle NaNs and infinities. Optimize. 554 * m4/maxval.m4: Likewise. 555 * m4/minloc0.m4: Likewise. 556 * m4/maxloc0.m4: Likewise. 557 * m4/minloc1.m4: Likewise. 558 * m4/maxloc1.m4: Likewise. 559 * generated/maxloc0_16_i16.c: Regenerated. 560 * generated/maxloc0_16_i1.c: Likewise. 561 * generated/maxloc0_16_i2.c: Likewise. 562 * generated/maxloc0_16_i4.c: Likewise. 563 * generated/maxloc0_16_i8.c: Likewise. 564 * generated/maxloc0_16_r10.c: Likewise. 565 * generated/maxloc0_16_r16.c: Likewise. 566 * generated/maxloc0_16_r4.c: Likewise. 567 * generated/maxloc0_16_r8.c: Likewise. 568 * generated/maxloc0_4_i16.c: Likewise. 569 * generated/maxloc0_4_i1.c: Likewise. 570 * generated/maxloc0_4_i2.c: Likewise. 571 * generated/maxloc0_4_i4.c: Likewise. 572 * generated/maxloc0_4_i8.c: Likewise. 573 * generated/maxloc0_4_r10.c: Likewise. 574 * generated/maxloc0_4_r16.c: Likewise. 575 * generated/maxloc0_4_r4.c: Likewise. 576 * generated/maxloc0_4_r8.c: Likewise. 577 * generated/maxloc0_8_i16.c: Likewise. 578 * generated/maxloc0_8_i1.c: Likewise. 579 * generated/maxloc0_8_i2.c: Likewise. 580 * generated/maxloc0_8_i4.c: Likewise. 581 * generated/maxloc0_8_i8.c: Likewise. 582 * generated/maxloc0_8_r10.c: Likewise. 583 * generated/maxloc0_8_r16.c: Likewise. 584 * generated/maxloc0_8_r4.c: Likewise. 585 * generated/maxloc0_8_r8.c: Likewise. 586 * generated/maxloc1_16_i16.c: Likewise. 587 * generated/maxloc1_16_i1.c: Likewise. 588 * generated/maxloc1_16_i2.c: Likewise. 589 * generated/maxloc1_16_i4.c: Likewise. 590 * generated/maxloc1_16_i8.c: Likewise. 591 * generated/maxloc1_16_r10.c: Likewise. 592 * generated/maxloc1_16_r16.c: Likewise. 593 * generated/maxloc1_16_r4.c: Likewise. 594 * generated/maxloc1_16_r8.c: Likewise. 595 * generated/maxloc1_4_i16.c: Likewise. 596 * generated/maxloc1_4_i1.c: Likewise. 597 * generated/maxloc1_4_i2.c: Likewise. 598 * generated/maxloc1_4_i4.c: Likewise. 599 * generated/maxloc1_4_i8.c: Likewise. 600 * generated/maxloc1_4_r10.c: Likewise. 601 * generated/maxloc1_4_r16.c: Likewise. 602 * generated/maxloc1_4_r4.c: Likewise. 603 * generated/maxloc1_4_r8.c: Likewise. 604 * generated/maxloc1_8_i16.c: Likewise. 605 * generated/maxloc1_8_i1.c: Likewise. 606 * generated/maxloc1_8_i2.c: Likewise. 607 * generated/maxloc1_8_i4.c: Likewise. 608 * generated/maxloc1_8_i8.c: Likewise. 609 * generated/maxloc1_8_r10.c: Likewise. 610 * generated/maxloc1_8_r16.c: Likewise. 611 * generated/maxloc1_8_r4.c: Likewise. 612 * generated/maxloc1_8_r8.c: Likewise. 613 * generated/maxval_i16.c: Likewise. 614 * generated/maxval_i1.c: Likewise. 615 * generated/maxval_i2.c: Likewise. 616 * generated/maxval_i4.c: Likewise. 617 * generated/maxval_i8.c: Likewise. 618 * generated/maxval_r10.c: Likewise. 619 * generated/maxval_r16.c: Likewise. 620 * generated/maxval_r4.c: Likewise. 621 * generated/maxval_r8.c: Likewise. 622 * generated/minloc0_16_i16.c: Likewise. 623 * generated/minloc0_16_i1.c: Likewise. 624 * generated/minloc0_16_i2.c: Likewise. 625 * generated/minloc0_16_i4.c: Likewise. 626 * generated/minloc0_16_i8.c: Likewise. 627 * generated/minloc0_16_r10.c: Likewise. 628 * generated/minloc0_16_r16.c: Likewise. 629 * generated/minloc0_16_r4.c: Likewise. 630 * generated/minloc0_16_r8.c: Likewise. 631 * generated/minloc0_4_i16.c: Likewise. 632 * generated/minloc0_4_i1.c: Likewise. 633 * generated/minloc0_4_i2.c: Likewise. 634 * generated/minloc0_4_i4.c: Likewise. 635 * generated/minloc0_4_i8.c: Likewise. 636 * generated/minloc0_4_r10.c: Likewise. 637 * generated/minloc0_4_r16.c: Likewise. 638 * generated/minloc0_4_r4.c: Likewise. 639 * generated/minloc0_4_r8.c: Likewise. 640 * generated/minloc0_8_i16.c: Likewise. 641 * generated/minloc0_8_i1.c: Likewise. 642 * generated/minloc0_8_i2.c: Likewise. 643 * generated/minloc0_8_i4.c: Likewise. 644 * generated/minloc0_8_i8.c: Likewise. 645 * generated/minloc0_8_r10.c: Likewise. 646 * generated/minloc0_8_r16.c: Likewise. 647 * generated/minloc0_8_r4.c: Likewise. 648 * generated/minloc0_8_r8.c: Likewise. 649 * generated/minloc1_16_i16.c: Likewise. 650 * generated/minloc1_16_i1.c: Likewise. 651 * generated/minloc1_16_i2.c: Likewise. 652 * generated/minloc1_16_i4.c: Likewise. 653 * generated/minloc1_16_i8.c: Likewise. 654 * generated/minloc1_16_r10.c: Likewise. 655 * generated/minloc1_16_r16.c: Likewise. 656 * generated/minloc1_16_r4.c: Likewise. 657 * generated/minloc1_16_r8.c: Likewise. 658 * generated/minloc1_4_i16.c: Likewise. 659 * generated/minloc1_4_i1.c: Likewise. 660 * generated/minloc1_4_i2.c: Likewise. 661 * generated/minloc1_4_i4.c: Likewise. 662 * generated/minloc1_4_i8.c: Likewise. 663 * generated/minloc1_4_r10.c: Likewise. 664 * generated/minloc1_4_r16.c: Likewise. 665 * generated/minloc1_4_r4.c: Likewise. 666 * generated/minloc1_4_r8.c: Likewise. 667 * generated/minloc1_8_i16.c: Likewise. 668 * generated/minloc1_8_i1.c: Likewise. 669 * generated/minloc1_8_i2.c: Likewise. 670 * generated/minloc1_8_i4.c: Likewise. 671 * generated/minloc1_8_i8.c: Likewise. 672 * generated/minloc1_8_r10.c: Likewise. 673 * generated/minloc1_8_r16.c: Likewise. 674 * generated/minloc1_8_r4.c: Likewise. 675 * generated/minloc1_8_r8.c: Likewise. 676 * generated/minval_i16.c: Likewise. 677 * generated/minval_i1.c: Likewise. 678 * generated/minval_i2.c: Likewise. 679 * generated/minval_i4.c: Likewise. 680 * generated/minval_i8.c: Likewise. 681 * generated/minval_r10.c: Likewise. 682 * generated/minval_r16.c: Likewise. 683 * generated/minval_r4.c: Likewise. 684 * generated/minval_r8.c: Likewise. 685 * generated/product_c10.c: Likewise. 686 * generated/product_c16.c: Likewise. 687 * generated/product_c4.c: Likewise. 688 * generated/product_c8.c: Likewise. 689 * generated/product_i16.c: Likewise. 690 * generated/product_i1.c: Likewise. 691 * generated/product_i2.c: Likewise. 692 * generated/product_i4.c: Likewise. 693 * generated/product_i8.c: Likewise. 694 * generated/product_r10.c: Likewise. 695 * generated/product_r16.c: Likewise. 696 * generated/product_r4.c: Likewise. 697 * generated/product_r8.c: Likewise. 698 * generated/sum_c10.c: Likewise. 699 * generated/sum_c16.c: Likewise. 700 * generated/sum_c4.c: Likewise. 701 * generated/sum_c8.c: Likewise. 702 * generated/sum_i16.c: Likewise. 703 * generated/sum_i1.c: Likewise. 704 * generated/sum_i2.c: Likewise. 705 * generated/sum_i4.c: Likewise. 706 * generated/sum_i8.c: Likewise. 707 * generated/sum_r10.c: Likewise. 708 * generated/sum_r16.c: Likewise. 709 * generated/sum_r4.c: Likewise. 710 * generated/sum_r8.c: Likewise. 711 712 2009-07-22 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 713 714 PR libfortran/32784 715 * unix.c (regular_file): Check for CONIN$ CONOUT$, and CONERR$ and open 716 the respective /dev/conin or /dev/conout devices. This is Cygwin 717 specific. 718 719 2009-07-19 Thomas Koenig <tkoenig (a] gcc.gnu.org> 720 721 PR libfortran/34670 722 PR libfortran/36874 723 * Makefile.am: Add bounds.c 724 * libgfortran.h (bounds_equal_extents): Add prototype. 725 (bounds_iforeach_return): Likewise. 726 (bounds_ifunction_return): Likewise. 727 (bounds_reduced_extents): Likewise. 728 * runtime/bounds.c: New file. 729 (bounds_iforeach_return): New function; correct typo in 730 error message. 731 (bounds_ifunction_return): New function. 732 (bounds_equal_extents): New function. 733 (bounds_reduced_extents): Likewise. 734 * intrinsics/cshift0.c (cshift0): Use new functions 735 for bounds checking. 736 * intrinsics/eoshift0.c (eoshift0): Likewise. 737 * intrinsics/eoshift2.c (eoshift2): Likewise. 738 * m4/iforeach.m4: Likewise. 739 * m4/eoshift1.m4: Likewise. 740 * m4/eoshift3.m4: Likewise. 741 * m4/cshift1.m4: Likewise. 742 * m4/ifunction.m4: Likewise. 743 * Makefile.in: Regenerated. 744 * generated/cshift1_16.c: Regenerated. 745 * generated/cshift1_4.c: Regenerated. 746 * generated/cshift1_8.c: Regenerated. 747 * generated/eoshift1_16.c: Regenerated. 748 * generated/eoshift1_4.c: Regenerated. 749 * generated/eoshift1_8.c: Regenerated. 750 * generated/eoshift3_16.c: Regenerated. 751 * generated/eoshift3_4.c: Regenerated. 752 * generated/eoshift3_8.c: Regenerated. 753 * generated/maxloc0_16_i1.c: Regenerated. 754 * generated/maxloc0_16_i16.c: Regenerated. 755 * generated/maxloc0_16_i2.c: Regenerated. 756 * generated/maxloc0_16_i4.c: Regenerated. 757 * generated/maxloc0_16_i8.c: Regenerated. 758 * generated/maxloc0_16_r10.c: Regenerated. 759 * generated/maxloc0_16_r16.c: Regenerated. 760 * generated/maxloc0_16_r4.c: Regenerated. 761 * generated/maxloc0_16_r8.c: Regenerated. 762 * generated/maxloc0_4_i1.c: Regenerated. 763 * generated/maxloc0_4_i16.c: Regenerated. 764 * generated/maxloc0_4_i2.c: Regenerated. 765 * generated/maxloc0_4_i4.c: Regenerated. 766 * generated/maxloc0_4_i8.c: Regenerated. 767 * generated/maxloc0_4_r10.c: Regenerated. 768 * generated/maxloc0_4_r16.c: Regenerated. 769 * generated/maxloc0_4_r4.c: Regenerated. 770 * generated/maxloc0_4_r8.c: Regenerated. 771 * generated/maxloc0_8_i1.c: Regenerated. 772 * generated/maxloc0_8_i16.c: Regenerated. 773 * generated/maxloc0_8_i2.c: Regenerated. 774 * generated/maxloc0_8_i4.c: Regenerated. 775 * generated/maxloc0_8_i8.c: Regenerated. 776 * generated/maxloc0_8_r10.c: Regenerated. 777 * generated/maxloc0_8_r16.c: Regenerated. 778 * generated/maxloc0_8_r4.c: Regenerated. 779 * generated/maxloc0_8_r8.c: Regenerated. 780 * generated/maxloc1_16_i1.c: Regenerated. 781 * generated/maxloc1_16_i16.c: Regenerated. 782 * generated/maxloc1_16_i2.c: Regenerated. 783 * generated/maxloc1_16_i4.c: Regenerated. 784 * generated/maxloc1_16_i8.c: Regenerated. 785 * generated/maxloc1_16_r10.c: Regenerated. 786 * generated/maxloc1_16_r16.c: Regenerated. 787 * generated/maxloc1_16_r4.c: Regenerated. 788 * generated/maxloc1_16_r8.c: Regenerated. 789 * generated/maxloc1_4_i1.c: Regenerated. 790 * generated/maxloc1_4_i16.c: Regenerated. 791 * generated/maxloc1_4_i2.c: Regenerated. 792 * generated/maxloc1_4_i4.c: Regenerated. 793 * generated/maxloc1_4_i8.c: Regenerated. 794 * generated/maxloc1_4_r10.c: Regenerated. 795 * generated/maxloc1_4_r16.c: Regenerated. 796 * generated/maxloc1_4_r4.c: Regenerated. 797 * generated/maxloc1_4_r8.c: Regenerated. 798 * generated/maxloc1_8_i1.c: Regenerated. 799 * generated/maxloc1_8_i16.c: Regenerated. 800 * generated/maxloc1_8_i2.c: Regenerated. 801 * generated/maxloc1_8_i4.c: Regenerated. 802 * generated/maxloc1_8_i8.c: Regenerated. 803 * generated/maxloc1_8_r10.c: Regenerated. 804 * generated/maxloc1_8_r16.c: Regenerated. 805 * generated/maxloc1_8_r4.c: Regenerated. 806 * generated/maxloc1_8_r8.c: Regenerated. 807 * generated/maxval_i1.c: Regenerated. 808 * generated/maxval_i16.c: Regenerated. 809 * generated/maxval_i2.c: Regenerated. 810 * generated/maxval_i4.c: Regenerated. 811 * generated/maxval_i8.c: Regenerated. 812 * generated/maxval_r10.c: Regenerated. 813 * generated/maxval_r16.c: Regenerated. 814 * generated/maxval_r4.c: Regenerated. 815 * generated/maxval_r8.c: Regenerated. 816 * generated/minloc0_16_i1.c: Regenerated. 817 * generated/minloc0_16_i16.c: Regenerated. 818 * generated/minloc0_16_i2.c: Regenerated. 819 * generated/minloc0_16_i4.c: Regenerated. 820 * generated/minloc0_16_i8.c: Regenerated. 821 * generated/minloc0_16_r10.c: Regenerated. 822 * generated/minloc0_16_r16.c: Regenerated. 823 * generated/minloc0_16_r4.c: Regenerated. 824 * generated/minloc0_16_r8.c: Regenerated. 825 * generated/minloc0_4_i1.c: Regenerated. 826 * generated/minloc0_4_i16.c: Regenerated. 827 * generated/minloc0_4_i2.c: Regenerated. 828 * generated/minloc0_4_i4.c: Regenerated. 829 * generated/minloc0_4_i8.c: Regenerated. 830 * generated/minloc0_4_r10.c: Regenerated. 831 * generated/minloc0_4_r16.c: Regenerated. 832 * generated/minloc0_4_r4.c: Regenerated. 833 * generated/minloc0_4_r8.c: Regenerated. 834 * generated/minloc0_8_i1.c: Regenerated. 835 * generated/minloc0_8_i16.c: Regenerated. 836 * generated/minloc0_8_i2.c: Regenerated. 837 * generated/minloc0_8_i4.c: Regenerated. 838 * generated/minloc0_8_i8.c: Regenerated. 839 * generated/minloc0_8_r10.c: Regenerated. 840 * generated/minloc0_8_r16.c: Regenerated. 841 * generated/minloc0_8_r4.c: Regenerated. 842 * generated/minloc0_8_r8.c: Regenerated. 843 * generated/minloc1_16_i1.c: Regenerated. 844 * generated/minloc1_16_i16.c: Regenerated. 845 * generated/minloc1_16_i2.c: Regenerated. 846 * generated/minloc1_16_i4.c: Regenerated. 847 * generated/minloc1_16_i8.c: Regenerated. 848 * generated/minloc1_16_r10.c: Regenerated. 849 * generated/minloc1_16_r16.c: Regenerated. 850 * generated/minloc1_16_r4.c: Regenerated. 851 * generated/minloc1_16_r8.c: Regenerated. 852 * generated/minloc1_4_i1.c: Regenerated. 853 * generated/minloc1_4_i16.c: Regenerated. 854 * generated/minloc1_4_i2.c: Regenerated. 855 * generated/minloc1_4_i4.c: Regenerated. 856 * generated/minloc1_4_i8.c: Regenerated. 857 * generated/minloc1_4_r10.c: Regenerated. 858 * generated/minloc1_4_r16.c: Regenerated. 859 * generated/minloc1_4_r4.c: Regenerated. 860 * generated/minloc1_4_r8.c: Regenerated. 861 * generated/minloc1_8_i1.c: Regenerated. 862 * generated/minloc1_8_i16.c: Regenerated. 863 * generated/minloc1_8_i2.c: Regenerated. 864 * generated/minloc1_8_i4.c: Regenerated. 865 * generated/minloc1_8_i8.c: Regenerated. 866 * generated/minloc1_8_r10.c: Regenerated. 867 * generated/minloc1_8_r16.c: Regenerated. 868 * generated/minloc1_8_r4.c: Regenerated. 869 * generated/minloc1_8_r8.c: Regenerated. 870 * generated/minval_i1.c: Regenerated. 871 * generated/minval_i16.c: Regenerated. 872 * generated/minval_i2.c: Regenerated. 873 * generated/minval_i4.c: Regenerated. 874 * generated/minval_i8.c: Regenerated. 875 * generated/minval_r10.c: Regenerated. 876 * generated/minval_r16.c: Regenerated. 877 * generated/minval_r4.c: Regenerated. 878 * generated/minval_r8.c: Regenerated. 879 * generated/product_c10.c: Regenerated. 880 * generated/product_c16.c: Regenerated. 881 * generated/product_c4.c: Regenerated. 882 * generated/product_c8.c: Regenerated. 883 * generated/product_i1.c: Regenerated. 884 * generated/product_i16.c: Regenerated. 885 * generated/product_i2.c: Regenerated. 886 * generated/product_i4.c: Regenerated. 887 * generated/product_i8.c: Regenerated. 888 * generated/product_r10.c: Regenerated. 889 * generated/product_r16.c: Regenerated. 890 * generated/product_r4.c: Regenerated. 891 * generated/product_r8.c: Regenerated. 892 * generated/sum_c10.c: Regenerated. 893 * generated/sum_c16.c: Regenerated. 894 * generated/sum_c4.c: Regenerated. 895 * generated/sum_c8.c: Regenerated. 896 * generated/sum_i1.c: Regenerated. 897 * generated/sum_i16.c: Regenerated. 898 * generated/sum_i2.c: Regenerated. 899 * generated/sum_i4.c: Regenerated. 900 * generated/sum_i8.c: Regenerated. 901 * generated/sum_r10.c: Regenerated. 902 * generated/sum_r16.c: Regenerated. 903 * generated/sum_r4.c: Regenerated. 904 * generated/sum_r8.c: Regenerated. 905 906 2009-07-17 Janne Blomqvist <jb (a] gcc.gnu.org> 907 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 908 909 PR libfortran/40714 910 * io/transfer.c (finalize_transfer): Set current_record to 0 911 before returning in case of error. 912 913 2009-07-12 Tobias Burnus <burnus (a] net-b.de> 914 915 PR libfortran/22423 916 * io/io.h (namelist_type): Use the proper enum for GFC_DTYPE_*. 917 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Make sure 918 variable is initialized to silence warning. 919 920 2009-07-10 Steven G. Kargl <kargl (a] gcc.gnu.org> 921 922 * c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl): 923 Fix errant minus. 924 925 2009-07-08 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 926 927 PR libfortran/40330 928 PR libfortran/40662 929 * io/io.h (st_parameter_dt): Define format_not_saved bit used to signal 930 whether the parsed format data was previously saved. Used to determine 931 if the current format data should be freed or not. 932 * io/transfer.c (st_read_done): Use the format_not_saved bit. 933 (st_write_done): Likewise. 934 * io/format.c (parse_format_list): Add boolean pointer to arg list. This 935 pointer is used to return status to the caller regarding whether it is 936 safe to cache the parsed format data. Currently, if a FMT_STRING token 937 is encounetered, it is not safe to cache. Also, added a local boolean 938 variable to hold this information as recursive calls to 939 parse_format_list are made. Remove previous save_format logic. 940 (parse_format): Do not use the format caching facility if the current 941 unit is an internal unit or if it is not safe to save parsed format 942 data. 943 944 2009-06-29 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 945 946 PR libfortran/40576 947 * io/transfer.c (sset): Adjust exit condition for loop. 948 949 2009-06-22 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 950 951 PR libfortran/40508 952 * io/format.c: Don't save parsed format data for internal units. 953 954 2009-06-21 Thomas Koenig <tkoenig (a] gcc.gnu.org> 955 956 PR fortran/37577 957 Port from fortran-dev 958 * runtime/in_pack_generic (internal_pack): Remove unnecessary 959 test for stride == 0. 960 * runtime/in_unpack_generic.c (internal_unpack): Likewise. 961 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care 962 of stride in "shape" argument. Use array access macros for 963 accessing array descriptors. 964 * libgfortran.h (struct descriptor_dimension): Change stride 965 to _stride, lbound to _lbound and ubound to _ubound. 966 (GFC_DIMENSION_LBOUND): Use new name(s) in struct 967 descriptor_dimension. 968 (GFC_DIMENSION_UBOUND): Likewise. 969 (GFC_DIMENSION_STRIDE): Likewise. 970 (GFC_DIMENSION_EXTENT): Likewise. 971 (GFC_DIMENSION_SET): Likewise. 972 (GFC_DESCRIPTOR_LBOUND): Likewise. 973 (GFC_DESCRIPTOR_UBOUND): Likewise. 974 (GFC_DESCRIPTOR_EXTENT): Likewise. 975 (GFC_DESCRIPTOR_STRIDE): Likewise. 976 * io/transfer.c (transfer_array): Use array access macros. 977 Use byte-sized strides. 978 * intrinsics/eoshift0.c (eoshift0): Use array access 979 macros everywhere. 980 * m4/in_pack.m4 (internal_pack_'rtype_ccode`): Use 981 array access macros for accessing array descriptors. 982 * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`): 983 Likewise. 984 * m4/matmull.m4 (matmul_'rtype_code`): Likewise. 985 * m4/matmul.m4 (matmul_'rtype_code`): Likewise. 986 * m4/unpack.m4 (unpack0_'rtype_code`): Likewise. 987 (unpack1_'rtype_code`): Likewise. 988 * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Likewise. 989 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Use array access 990 macros everywhere. 991 * intrinsics/dtime.c (dtime_sub): Use array access macros 992 for accessing array descriptors. 993 * intrinsics/cshift0 (cshift0): Likewise. 994 * intrinsics/etime.c: Likewise. Remove redundant calculation 995 of rdim. 996 * m4/cshift0.m4 (cshift0_'rtype_code`): Use array access macros 997 for accessing array descriptors. 998 * m4/pack.m4 (pack_'rtype_code`): Likewise. 999 * m4/spread.m4 (spread_'rtype_code`): Likewise. 1000 (spread_scalar_'rtype_code`): Likewise. 1001 * m4/transpose.m4 (transpose_'rtype_code`): Likewise. 1002 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise. 1003 * m4/eoshift1.m4 (eoshift1): Likewise. Remove size argument, 1004 calculate within function. 1005 (eoshift1_'atype_kind`): Remove size argument from call 1006 to eoshift1. 1007 (eoshift1_'atype_kind`_char): Likewise. 1008 (eoshift1_'atype_kind`_char4): Likewise. 1009 * m4/eoshift3.m4 (eoshift3): Remove size argument, calculate 1010 within function. Use array access macros for accessing array 1011 descriptors. 1012 (eoshift3_'atype_kind`): Remove size argument from call 1013 to eoshift1. 1014 (eoshift3_'atype_kind`_char): Likewise. 1015 (eoshift3_'atype_kind`_char4): Likewise. 1016 * m4/shape.m4 (shape_'rtype_kind`): Use array access macros 1017 for accessing array descriptors. 1018 * m4/cshift1.m4 (cshift1): Remove size argument, calculate 1019 within function. Use array access macros for accessing array 1020 descriptors. 1021 (cshift1_'atype_kind`): Remove size argument from call to 1022 cshift1. 1023 (cshift1_'atype_kind`_char): Remove size argument from call to 1024 cshift1. 1025 (cshift1_'atype_kind`_char4): Remove size argument from call to 1026 cshift1. 1027 * m4/reshape.m4 (reshape_'rtype_ccode`): Use array access macros 1028 for accessing array descriptors. 1029 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise. 1030 * intrinsics/pack_generic.c (pack_internal): Use array access 1031 macros for accessing array descriptors. 1032 (pack_s_internal): Likewise. 1033 * intrinsics/transpose_generic.c (transpose_internal): Remove 1034 size argument, calculate from array descriptor. Use array 1035 access macros for accessing array descriptors. 1036 (transpose): Remove size argument from call. 1037 (transpoe_char): Likewise. 1038 (transpose_char4): Likewise. 1039 * intrinsics/move_alloc.c (move_alloc): Use array access macros 1040 for accessing array descriptors. 1041 * intrinsics/spread_generic.c (spread_internal): Remove size 1042 argument, calculate from array descriptor. Use array access 1043 macros for accessing array descriptors. 1044 (spread_internal_scalar): Likewise. 1045 (spread): Remove size argument from call to spread_internal. 1046 (spread_char): Mark argument source_length as unused. 1047 Remove size argument from call to spread_internal. 1048 (spread_char4): Likewise. 1049 (spread_char_scalar): Likewise. 1050 (spread_char4_scalar): Likewise. 1051 * intrinsics/unpack_generic.c (unpack_internal): Use array access 1052 macros for accessing array descriptors. 1053 * intrinsics/eoshift2.c (eoshift2): Remove size argument, calculate 1054 from array descriptor instead. Use array access macros for 1055 accessing array descriptors. 1056 (eoshift2_##N): Remove size argument from call to eoshift2. 1057 (eoshift2_##N_##char): Likewise. 1058 (eoshift2_##N_##char4): Likewise. 1059 * intrinsics/reshape_generic.c (reshape_internal): Use array 1060 access macross for accessing array descriptors. 1061 * libgfortran.h: Introduce new macros GFC_DIMENSION_LBOUND, 1062 GFC_DIMENSION_UBOUND,GFC_DIMENSION_STRIDE, GFC_DIMENSION_EXTENT, 1063 GFC_DIMENSION_SET, GFC_DESCRIPTOR_LBOUND, GFC_DESCRIPTOR_UBOUND, 1064 GFC_DESCRIPTOR_EXTENT, GFC_DESCRIPTOR_EXTENT_BYTES, 1065 GFC_DESCRIPTOR_STRIDE, GFC_DESCRIPTOR_STRIDE_BYTES 1066 * runtime/in_pack_generic.c (internal_pack): Use new macros 1067 for array descriptor access. 1068 * runtime/in_unpack_generic.c (internal_unpack): Likewise. 1069 * intrinsics/dtime.c (dtime_sub): Likewise. 1070 * intrinsics/cshift0 (cshift0): Remove argument size, 1071 calculate directly from the array descriptor. Use new macros 1072 for array descriptor access. 1073 * cshift0_##N: Remove shift argument in call to cshift0. 1074 * cshift0_##N_char: Mark array_length as unused. Remove 1075 array_length in call to cshift0. 1076 * cshift0_##N_char4: Likewise. 1077 * intrisics/etime.c: Use new macros for array descriptor access. 1078 * intrinsics/stat.c (stat_i4_sub_0): Likewise. 1079 (stat_i8_sub_0): Likewise. 1080 (fstat_i4_sub): Likewise. 1081 (fstat_i8_sub): Likewise. 1082 * intrinsics/date_and_time.c (date_and_time): Likewise. 1083 (secnds): Likewise. 1084 (itime_i4): Likewise. 1085 (itime_i8): Likewise. 1086 (idate_i4): Likewise. 1087 (idate_i8): Likewise. 1088 (gmtime_i4): Likewise. 1089 (gmtime_i8): Likewise. 1090 (ltime_i4): Likewise. 1091 (litme_i8): Likewise. 1092 * intrinsics/associated.c (associated): Likewise. 1093 * intrinsics/eoshift0.c (eoshift0): Likewise. 1094 * intriniscs/size.c (size0): Likewise. 1095 * intrinsics/random.c (arandom_r4): Likewise. 1096 (arandom_r8): Likewise. 1097 (arandom_r10): Likewise. 1098 (arandom_r16): Likewise. 1099 (random_seed_i4): Likewise. 1100 (random_seed_i8): Likewise. 1101 * io/list_read.c (nml_parse_qualifier): Likewise. 1102 (nml_touch_nodes): Likewise. 1103 (nml_read_obj): Likewise. 1104 (get_name): Likewise. 1105 * io/transfer.c (transfer_array): Likewise. 1106 (init_loop_spec): Likewise. 1107 (st_set_nml_var_dim): Likewise. 1108 * io/write.c (nml_write_obj): Likewise. 1109 (obj_loop): Likewise. 1110 * generated/all_l1.c: Regenerated. 1111 * generated/all_l16.c: Regenerated. 1112 * generated/all_l2.c: Regenerated. 1113 * generated/all_l4.c: Regenerated. 1114 * generated/all_l8.c: Regenerated. 1115 * generated/any_l1.c: Regenerated. 1116 * generated/any_l16.c: Regenerated. 1117 * generated/any_l2.c: Regenerated. 1118 * generated/any_l4.c: Regenerated. 1119 * generated/any_l8.c: Regenerated. 1120 * generated/count_16_l.c: Regenerated. 1121 * generated/count_1_l.c: Regenerated. 1122 * generated/count_2_l.c: Regenerated. 1123 * generated/count_4_l.c: Regenerated. 1124 * generated/count_8_l.c: Regenerated. 1125 * generated/cshift0_c10.c: Regenerated. 1126 * generated/cshift0_c16.c: Regenerated. 1127 * generated/cshift0_c4.c: Regenerated. 1128 * generated/cshift0_c8.c: Regenerated. 1129 * generated/cshift0_i1.c: Regenerated. 1130 * generated/cshift0_i16.c: Regenerated. 1131 * generated/cshift0_i2.c: Regenerated. 1132 * generated/cshift0_i4.c: Regenerated. 1133 * generated/cshift0_i8.c: Regenerated. 1134 * generated/cshift0_r10.c: Regenerated. 1135 * generated/cshift0_r16.c: Regenerated. 1136 * generated/cshift0_r4.c: Regenerated. 1137 * generated/cshift0_r8.c: Regenerated. 1138 * generated/cshift1_16.c: Regenerated. 1139 * generated/cshift1_4.c: Regenerated. 1140 * generated/cshift1_8.c: Regenerated. 1141 * generated/eoshift1_16.c: Regenerated. 1142 * generated/eoshift1_4.c: Regenerated. 1143 * generated/eoshift1_8.c: Regenerated. 1144 * generated/eoshift3_16.c: Regenerated. 1145 * generated/eoshift3_4.c: Regenerated. 1146 * generated/eoshift3_8.c: Regenerated. 1147 * generated/in_pack_c10.c: Regenerated. 1148 * generated/in_pack_c16.c: Regenerated. 1149 * generated/in_pack_c4.c: Regenerated. 1150 * generated/in_pack_c8.c: Regenerated. 1151 * generated/in_pack_i1.c: Regenerated. 1152 * generated/in_pack_i16.c: Regenerated. 1153 * generated/in_pack_i2.c: Regenerated. 1154 * generated/in_pack_i4.c: Regenerated. 1155 * generated/in_pack_i8.c: Regenerated. 1156 * generated/in_pack_r10.c: Regenerated. 1157 * generated/in_pack_r16.c: Regenerated. 1158 * generated/in_pack_r4.c: Regenerated. 1159 * generated/in_pack_r8.c: Regenerated. 1160 * generated/in_unpack_c10.c: Regenerated. 1161 * generated/in_unpack_c16.c: Regenerated. 1162 * generated/in_unpack_c4.c: Regenerated. 1163 * generated/in_unpack_c8.c: Regenerated. 1164 * generated/in_unpack_i1.c: Regenerated. 1165 * generated/in_unpack_i16.c: Regenerated. 1166 * generated/in_unpack_i2.c: Regenerated. 1167 * generated/in_unpack_i4.c: Regenerated. 1168 * generated/in_unpack_i8.c: Regenerated. 1169 * generated/in_unpack_r10.c: Regenerated. 1170 * generated/in_unpack_r16.c: Regenerated. 1171 * generated/in_unpack_r4.c: Regenerated. 1172 * generated/in_unpack_r8.c: Regenerated. 1173 * generated/matmul_c10.c: Regenerated. 1174 * generated/matmul_c16.c: Regenerated. 1175 * generated/matmul_c4.c: Regenerated. 1176 * generated/matmul_c8.c: Regenerated. 1177 * generated/matmul_i1.c: Regenerated. 1178 * generated/matmul_i16.c: Regenerated. 1179 * generated/matmul_i2.c: Regenerated. 1180 * generated/matmul_i4.c: Regenerated. 1181 * generated/matmul_i8.c: Regenerated. 1182 * generated/matmul_l16.c: Regenerated. 1183 * generated/matmul_l4.c: Regenerated. 1184 * generated/matmul_l8.c: Regenerated. 1185 * generated/matmul_r10.c: Regenerated. 1186 * generated/matmul_r16.c: Regenerated. 1187 * generated/matmul_r4.c: Regenerated. 1188 * generated/matmul_r8.c: Regenerated. 1189 * generated/maxloc0_16_i1.c: Regenerated. 1190 * generated/maxloc0_16_i16.c: Regenerated. 1191 * generated/maxloc0_16_i2.c: Regenerated. 1192 * generated/maxloc0_16_i4.c: Regenerated. 1193 * generated/maxloc0_16_i8.c: Regenerated. 1194 * generated/maxloc0_16_r10.c: Regenerated. 1195 * generated/maxloc0_16_r16.c: Regenerated. 1196 * generated/maxloc0_16_r4.c: Regenerated. 1197 * generated/maxloc0_16_r8.c: Regenerated. 1198 * generated/maxloc0_4_i1.c: Regenerated. 1199 * generated/maxloc0_4_i16.c: Regenerated. 1200 * generated/maxloc0_4_i2.c: Regenerated. 1201 * generated/maxloc0_4_i4.c: Regenerated. 1202 * generated/maxloc0_4_i8.c: Regenerated. 1203 * generated/maxloc0_4_r10.c: Regenerated. 1204 * generated/maxloc0_4_r16.c: Regenerated. 1205 * generated/maxloc0_4_r4.c: Regenerated. 1206 * generated/maxloc0_4_r8.c: Regenerated. 1207 * generated/maxloc0_8_i1.c: Regenerated. 1208 * generated/maxloc0_8_i16.c: Regenerated. 1209 * generated/maxloc0_8_i2.c: Regenerated. 1210 * generated/maxloc0_8_i4.c: Regenerated. 1211 * generated/maxloc0_8_i8.c: Regenerated. 1212 * generated/maxloc0_8_r10.c: Regenerated. 1213 * generated/maxloc0_8_r16.c: Regenerated. 1214 * generated/maxloc0_8_r4.c: Regenerated. 1215 * generated/maxloc0_8_r8.c: Regenerated. 1216 * generated/maxloc1_16_i1.c: Regenerated. 1217 * generated/maxloc1_16_i16.c: Regenerated. 1218 * generated/maxloc1_16_i2.c: Regenerated. 1219 * generated/maxloc1_16_i4.c: Regenerated. 1220 * generated/maxloc1_16_i8.c: Regenerated. 1221 * generated/maxloc1_16_r10.c: Regenerated. 1222 * generated/maxloc1_16_r16.c: Regenerated. 1223 * generated/maxloc1_16_r4.c: Regenerated. 1224 * generated/maxloc1_16_r8.c: Regenerated. 1225 * generated/maxloc1_4_i1.c: Regenerated. 1226 * generated/maxloc1_4_i16.c: Regenerated. 1227 * generated/maxloc1_4_i2.c: Regenerated. 1228 * generated/maxloc1_4_i4.c: Regenerated. 1229 * generated/maxloc1_4_i8.c: Regenerated. 1230 * generated/maxloc1_4_r10.c: Regenerated. 1231 * generated/maxloc1_4_r16.c: Regenerated. 1232 * generated/maxloc1_4_r4.c: Regenerated. 1233 * generated/maxloc1_4_r8.c: Regenerated. 1234 * generated/maxloc1_8_i1.c: Regenerated. 1235 * generated/maxloc1_8_i16.c: Regenerated. 1236 * generated/maxloc1_8_i2.c: Regenerated. 1237 * generated/maxloc1_8_i4.c: Regenerated. 1238 * generated/maxloc1_8_i8.c: Regenerated. 1239 * generated/maxloc1_8_r10.c: Regenerated. 1240 * generated/maxloc1_8_r16.c: Regenerated. 1241 * generated/maxloc1_8_r4.c: Regenerated. 1242 * generated/maxloc1_8_r8.c: Regenerated. 1243 * generated/maxval_i1.c: Regenerated. 1244 * generated/maxval_i16.c: Regenerated. 1245 * generated/maxval_i2.c: Regenerated. 1246 * generated/maxval_i4.c: Regenerated. 1247 * generated/maxval_i8.c: Regenerated. 1248 * generated/maxval_r10.c: Regenerated. 1249 * generated/maxval_r16.c: Regenerated. 1250 * generated/maxval_r4.c: Regenerated. 1251 * generated/maxval_r8.c: Regenerated. 1252 * generated/minloc0_16_i1.c: Regenerated. 1253 * generated/minloc0_16_i16.c: Regenerated. 1254 * generated/minloc0_16_i2.c: Regenerated. 1255 * generated/minloc0_16_i4.c: Regenerated. 1256 * generated/minloc0_16_i8.c: Regenerated. 1257 * generated/minloc0_16_r10.c: Regenerated. 1258 * generated/minloc0_16_r16.c: Regenerated. 1259 * generated/minloc0_16_r4.c: Regenerated. 1260 * generated/minloc0_16_r8.c: Regenerated. 1261 * generated/minloc0_4_i1.c: Regenerated. 1262 * generated/minloc0_4_i16.c: Regenerated. 1263 * generated/minloc0_4_i2.c: Regenerated. 1264 * generated/minloc0_4_i4.c: Regenerated. 1265 * generated/minloc0_4_i8.c: Regenerated. 1266 * generated/minloc0_4_r10.c: Regenerated. 1267 * generated/minloc0_4_r16.c: Regenerated. 1268 * generated/minloc0_4_r4.c: Regenerated. 1269 * generated/minloc0_4_r8.c: Regenerated. 1270 * generated/minloc0_8_i1.c: Regenerated. 1271 * generated/minloc0_8_i16.c: Regenerated. 1272 * generated/minloc0_8_i2.c: Regenerated. 1273 * generated/minloc0_8_i4.c: Regenerated. 1274 * generated/minloc0_8_i8.c: Regenerated. 1275 * generated/minloc0_8_r10.c: Regenerated. 1276 * generated/minloc0_8_r16.c: Regenerated. 1277 * generated/minloc0_8_r4.c: Regenerated. 1278 * generated/minloc0_8_r8.c: Regenerated. 1279 * generated/minloc1_16_i1.c: Regenerated. 1280 * generated/minloc1_16_i16.c: Regenerated. 1281 * generated/minloc1_16_i2.c: Regenerated. 1282 * generated/minloc1_16_i4.c: Regenerated. 1283 * generated/minloc1_16_i8.c: Regenerated. 1284 * generated/minloc1_16_r10.c: Regenerated. 1285 * generated/minloc1_16_r16.c: Regenerated. 1286 * generated/minloc1_16_r4.c: Regenerated. 1287 * generated/minloc1_16_r8.c: Regenerated. 1288 * generated/minloc1_4_i1.c: Regenerated. 1289 * generated/minloc1_4_i16.c: Regenerated. 1290 * generated/minloc1_4_i2.c: Regenerated. 1291 * generated/minloc1_4_i4.c: Regenerated. 1292 * generated/minloc1_4_i8.c: Regenerated. 1293 * generated/minloc1_4_r10.c: Regenerated. 1294 * generated/minloc1_4_r16.c: Regenerated. 1295 * generated/minloc1_4_r4.c: Regenerated. 1296 * generated/minloc1_4_r8.c: Regenerated. 1297 * generated/minloc1_8_i1.c: Regenerated. 1298 * generated/minloc1_8_i16.c: Regenerated. 1299 * generated/minloc1_8_i2.c: Regenerated. 1300 * generated/minloc1_8_i4.c: Regenerated. 1301 * generated/minloc1_8_i8.c: Regenerated. 1302 * generated/minloc1_8_r10.c: Regenerated. 1303 * generated/minloc1_8_r16.c: Regenerated. 1304 * generated/minloc1_8_r4.c: Regenerated. 1305 * generated/minloc1_8_r8.c: Regenerated. 1306 * generated/minval_i1.c: Regenerated. 1307 * generated/minval_i16.c: Regenerated. 1308 * generated/minval_i2.c: Regenerated. 1309 * generated/minval_i4.c: Regenerated. 1310 * generated/minval_i8.c: Regenerated. 1311 * generated/minval_r10.c: Regenerated. 1312 * generated/minval_r16.c: Regenerated. 1313 * generated/minval_r4.c: Regenerated. 1314 * generated/minval_r8.c: Regenerated. 1315 * generated/pack_c10.c: Regenerated. 1316 * generated/pack_c16.c: Regenerated. 1317 * generated/pack_c4.c: Regenerated. 1318 * generated/pack_c8.c: Regenerated. 1319 * generated/pack_i1.c: Regenerated. 1320 * generated/pack_i16.c: Regenerated. 1321 * generated/pack_i2.c: Regenerated. 1322 * generated/pack_i4.c: Regenerated. 1323 * generated/pack_i8.c: Regenerated. 1324 * generated/pack_r10.c: Regenerated. 1325 * generated/pack_r16.c: Regenerated. 1326 * generated/pack_r4.c: Regenerated. 1327 * generated/pack_r8.c: Regenerated. 1328 * generated/product_c10.c: Regenerated. 1329 * generated/product_c16.c: Regenerated. 1330 * generated/product_c4.c: Regenerated. 1331 * generated/product_c8.c: Regenerated. 1332 * generated/product_i1.c: Regenerated. 1333 * generated/product_i16.c: Regenerated. 1334 * generated/product_i2.c: Regenerated. 1335 * generated/product_i4.c: Regenerated. 1336 * generated/product_i8.c: Regenerated. 1337 * generated/product_r10.c: Regenerated. 1338 * generated/product_r16.c: Regenerated. 1339 * generated/product_r4.c: Regenerated. 1340 * generated/product_r8.c: Regenerated. 1341 * generated/reshape_c10.c: Regenerated. 1342 * generated/reshape_c16.c: Regenerated. 1343 * generated/reshape_c4.c: Regenerated. 1344 * generated/reshape_c8.c: Regenerated. 1345 * generated/reshape_i16.c: Regenerated. 1346 * generated/reshape_i4.c: Regenerated. 1347 * generated/reshape_i8.c: Regenerated. 1348 * generated/reshape_r10.c: Regenerated. 1349 * generated/reshape_r16.c: Regenerated. 1350 * generated/reshape_r4.c: Regenerated. 1351 * generated/reshape_r8.c: Regenerated. 1352 * generated/shape_i16.c: Regenerated. 1353 * generated/shape_i4.c: Regenerated. 1354 * generated/shape_i8.c: Regenerated. 1355 * generated/spread_c10.c: Regenerated. 1356 * generated/spread_c16.c: Regenerated. 1357 * generated/spread_c4.c: Regenerated. 1358 * generated/spread_c8.c: Regenerated. 1359 * generated/spread_i1.c: Regenerated. 1360 * generated/spread_i16.c: Regenerated. 1361 * generated/spread_i2.c: Regenerated. 1362 * generated/spread_i4.c: Regenerated. 1363 * generated/spread_i8.c: Regenerated. 1364 * generated/spread_r10.c: Regenerated. 1365 * generated/spread_r16.c: Regenerated. 1366 * generated/spread_r4.c: Regenerated. 1367 * generated/spread_r8.c: Regenerated. 1368 * generated/sum_c10.c: Regenerated. 1369 * generated/sum_c16.c: Regenerated. 1370 * generated/sum_c4.c: Regenerated. 1371 * generated/sum_c8.c: Regenerated. 1372 * generated/sum_i1.c: Regenerated. 1373 * generated/sum_i16.c: Regenerated. 1374 * generated/sum_i2.c: Regenerated. 1375 * generated/sum_i4.c: Regenerated. 1376 * generated/sum_i8.c: Regenerated. 1377 * generated/sum_r10.c: Regenerated. 1378 * generated/sum_r16.c: Regenerated. 1379 * generated/sum_r4.c: Regenerated. 1380 * generated/sum_r8.c: Regenerated. 1381 * generated/transpose_c10.c: Regenerated. 1382 * generated/transpose_c16.c: Regenerated. 1383 * generated/transpose_c4.c: Regenerated. 1384 * generated/transpose_c8.c: Regenerated. 1385 * generated/transpose_i16.c: Regenerated. 1386 * generated/transpose_i4.c: Regenerated. 1387 * generated/transpose_i8.c: Regenerated. 1388 * generated/transpose_r10.c: Regenerated. 1389 * generated/transpose_r16.c: Regenerated. 1390 * generated/transpose_r4.c: Regenerated. 1391 * generated/transpose_r8.c: Regenerated. 1392 * generated/unpack_c10.c: Regenerated. 1393 * generated/unpack_c16.c: Regenerated. 1394 * generated/unpack_c4.c: Regenerated. 1395 * generated/unpack_c8.c: Regenerated. 1396 * generated/unpack_i1.c: Regenerated. 1397 * generated/unpack_i16.c: Regenerated. 1398 * generated/unpack_i2.c: Regenerated. 1399 * generated/unpack_i4.c: Regenerated. 1400 * generated/unpack_i8.c: Regenerated. 1401 * generated/unpack_r10.c: Regenerated. 1402 * generated/unpack_r16.c: Regenerated. 1403 * generated/unpack_r4.c: Regenerated. 1404 * generated/unpack_r8.c: Regenerated. 1405 1406 2009-06-14 Francois-Xavier Coudert <fxcoudert (a] gcc.gnu.org> 1407 1408 * fmain.c (main): Don't PREFIX set_args. 1409 * libgfortran.h (set_args): Use iexport_proto. 1410 * runtime/main.c (set_args): Use iexport. 1411 1412 2009-06-07 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 1413 1414 PR libfortran/40008 1415 * libgfortran.h: Define IOPARM_OPEN_HAS_NEWUNIT. 1416 * io/open.c (st_open): Don't error on negative unit number if NEWUNIT 1417 was specified. If NEWUNIT is specified, call new function to get the 1418 unique unit number and assign it. 1419 * io/io.h (st_parameter_open): Add pointer to newunit. Add prototype for 1420 next_available_newunit. Add prototype for new function, 1421 get_unique_unit_number. 1422 * io/unit.c: Declare next_available_newunit. Define the first newunit 1423 number. (init_units): Initialize next_available_unit. 1424 (get_unique_unit_number): New function. Fix whitespace and comments. 1425 * io/transfer.c (data_transfer_init): Update error message to not be 1426 specific to OPEN statements. 1427 1428 2009-06-07 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 1429 1430 PR libfortran/40334 1431 * io/list_read.c (list_formatted_read_scalar): Set the end file 1432 conditions after a return from EOF error. 1433 1434 2009-06-04 Janne Blomqvist <jb (a] gcc.gnu.org> 1435 1436 PR libfortran/40330 1437 * io/format.c (free_format_hash_table): Also free and nullify hash key. 1438 (save_parsed_format): Copy string rather than pointer copy. 1439 1440 2009-05-29 Francois-Xavier Coudert <fxcoudert (a] gcc.gnu.org> 1441 1442 PR fortran/40019 1443 * intrinsics/bit_intrinsics.c: New file. 1444 * gfortran.map (GFORTRAN_1.2): New list. 1445 * Makefile.am: Add intrinsics/bit_intrinsics.c. 1446 * Makefile.in: Regenerate. 1447 1448 2009-05-29 Janne Blomqvist <jb (a] gcc.gnu.org> 1449 1450 PR libfortran/40190 1451 * configure.ac: Check for localtime_r and gmtime_r. 1452 * intrinsics/date_and_time.c: Add fallback implementations for 1453 localtime_r and gmtime_r. 1454 (date_and_time): Change to use localtime_r and gmtime_r instead of 1455 localtime and gmtime, respectively. 1456 (itime0): Use localtime_r instead of localtime. 1457 (ltime_0): Likewise. 1458 (gmtime_0): Use gmtime_r instead of gmtime. 1459 * config.h.in: Regenerated 1460 * configure: Regenerated. 1461 1462 2009-05-27 Janne Blomqvist <jb (a] gcc.gnu.org> 1463 1464 PR fortran/39178 1465 * runtime/main.c (store_exe_path): Remove static attribute. 1466 * libgfortran.h: Add back store_exe_path prototype. 1467 1468 2009-05-27 Thomas Koenig <tkoenig (a] gcc.gnu.org> 1469 1470 PR libfortran/40187 1471 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care 1472 of stride in "shape" argument. 1473 1474 2009-05-26 Tobias Burnus <burnus (a] net-b.de> 1475 1476 PR fortran/39178 1477 * runtime/main.c (store_exe_path): Make static 1478 and multiple-times callable. 1479 (set_args): Call store_exe_path. 1480 * libgfortran.h: Remove store_exe_path prototype. 1481 * fmain.c (main): Remove store_exe_path call. 1482 1483 2009-05-19 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 1484 1485 PR libfortran/37754 1486 * io/write_float.def: Simplify format calculation. 1487 1488 2009-05-07 Francois-Xavier Coudert <fxcoudert (a] gcc.gnu.org> 1489 1490 PR fortran/22423 1491 * io/transfer.c (read_block_direct): Avoid warning. 1492 * runtime/string.c (compare0): Avoid warning. 1493 1494 2009-04-30 Janne Blomqvist <jb (a] gcc.gnu.org> 1495 1496 PR libfortran/39667 1497 * io/file_pos.c (st_rewind): Don't truncate or flush. 1498 * io/intrinsics.c (fgetc): Flush if switching mode. 1499 (fputc): Likewise. 1500 1501 2009-04-18 Janne Blomqvist <jb (a] gcc.gnu.org> 1502 1503 PR libfortran/39782 1504 * io/transfer.c (data_transfer_init): Don't flush before seek. 1505 (finalize_transfer): Remove extra flush. 1506 1507 2009-04-17 Janne Blomqvist <jb (a] gcc.gnu.org> 1508 1509 * io/io.h (is_preconnected): Remove prototype. 1510 * io/unix.c (is_preconnected): Remove function. 1511 1512 2009-04-17 Ulrich Weigand <Ulrich.Weigand (a] de.ibm.com> 1513 1514 * configure.ac: Test for -ffunction-sections -fdata-sections and 1515 set SECTION_FLAGS accordingly. 1516 * configure: Regenerate. 1517 1518 * Makefile.am: Add SECTION_FLAGS to AM_CFLAGS. 1519 * Makefile.in: Regenerate. 1520 1521 2009-04-15 Janne Blomqvist <jb (a] gcc.gnu.org> 1522 1523 PR libfortran/38668 1524 * io/transfer.c (finalize_transfer): Don't flush for advance='no'. 1525 1526 2009-04-15 Danny Smith <dannysmith (a] clear.net.nz> 1527 1528 * io/write.c (itoa) : Rename back to gfc_itoa. 1529 (write_i): Adjust call to write_decimal. 1530 (write_integer): Use gfc_itoa. 1531 1532 2009-04-10 Janne Blomqvist <jb (a] gcc.gnu.org> 1533 1534 * io/io.h (move_pos_offset): Remove prototype. 1535 * io/transfer.c (formatted_transfer_scalar_read): Use sseek 1536 instead of move_pos_offset. 1537 * io/unix.c (move_pos_offset): Remove. 1538 1539 2009-04-10 Janne Blomqvist <jb (a] gcc.gnu.org> 1540 1541 PR libfortran/39665 libfortran/39702 libfortran/39709 1542 * io/io.h (st_parameter_dt): Revert aligned attribute from u.p.value. 1543 * io/list_read.c (read_complex): Read directly into user pointer. 1544 (read_real): Likewise. 1545 (list_formatted_read_scalar): Update read_complex and read_real calls. 1546 (nml_read_obj): Read directly into user pointer. 1547 1548 2009-04-09 Janne Blomqvist <jb (a] gcc.gnu.org> 1549 1550 PR libfortran/39665 1551 * io/io.h (st_parameter_dt): Add aligned attribute to u.p.value. 1552 * io/read.c (convert_real): Add note about alignment requirements. 1553 1554 2009-04-09 Nick Clifton <nickc (a] redhat.com> 1555 1556 * m4/cshift0.m4: Change copyright header to refer to version 3 1557 of the GNU General Public License with version 3.1 of the GCC 1558 Runtime Library Exception and to point readers at the COPYING3 1559 and COPYING3.RUNTIME files and the FSF's license web page. 1560 * c99_protos.h: Likewise. 1561 * config/fpu-387.h: Likewise. 1562 * config/fpu-aix.h: Likewise. 1563 * config/fpu-generic.h: Likewise. 1564 * config/fpu-glibc.h: Likewise. 1565 * config/fpu-sysv.h: Likewise. 1566 * intrinsics/abort.c: Likewise. 1567 * intrinsics/access.c: Likewise. 1568 * intrinsics/args.c: Likewise. 1569 * intrinsics/associated.c: Likewise. 1570 * intrinsics/c99_functions.c: Likewise. 1571 * intrinsics/chdir.c: Likewise. 1572 * intrinsics/chmod.c: Likewise. 1573 * intrinsics/clock.c: Likewise. 1574 * intrinsics/cpu_time.c: Likewise. 1575 * intrinsics/cshift0.c: Likewise. 1576 * intrinsics/ctime.c: Likewise. 1577 * intrinsics/date_and_time.c: Likewise. 1578 * intrinsics/dprod_r8.f90: Likewise. 1579 * intrinsics/dtime.c: Likewise. 1580 * intrinsics/env.c: Likewise. 1581 * intrinsics/eoshift0.c: Likewise. 1582 * intrinsics/eoshift2.c: Likewise. 1583 * intrinsics/erfc_scaled.c: Likewise. 1584 * intrinsics/erfc_scaled_inc.c: Likewise. 1585 * intrinsics/etime.c: Likewise. 1586 * intrinsics/exit.c: Likewise. 1587 * intrinsics/f2c_specifics.F90: Likewise. 1588 * intrinsics/fnum.c: Likewise. 1589 * intrinsics/gerror.c: Likewise. 1590 * intrinsics/getXid.c: Likewise. 1591 * intrinsics/getcwd.c: Likewise. 1592 * intrinsics/getlog.c: Likewise. 1593 * intrinsics/hostnm.c: Likewise. 1594 * intrinsics/ierrno.c: Likewise. 1595 * intrinsics/ishftc.c: Likewise. 1596 * intrinsics/iso_c_binding.c: Likewise. 1597 * intrinsics/iso_c_binding.h: Likewise. 1598 * intrinsics/iso_c_generated_procs.c: Likewise. 1599 * intrinsics/kill.c: Likewise. 1600 * intrinsics/link.c: Likewise. 1601 * intrinsics/malloc.c: Likewise. 1602 * intrinsics/move_alloc.c: Likewise. 1603 * intrinsics/mvbits.c: Likewise. 1604 * intrinsics/pack_generic.c: Likewise. 1605 * intrinsics/perror.c: Likewise. 1606 * intrinsics/rand.c: Likewise. 1607 * intrinsics/random.c: Likewise. 1608 * intrinsics/rename.c: Likewise. 1609 * intrinsics/reshape_generic.c: Likewise. 1610 * intrinsics/reshape_packed.c: Likewise. 1611 * intrinsics/selected_char_kind.c: Likewise. 1612 * intrinsics/selected_int_kind.f90: Likewise. 1613 * intrinsics/selected_real_kind.f90: Likewise. 1614 * intrinsics/signal.c: Likewise. 1615 * intrinsics/size.c: Likewise. 1616 * intrinsics/sleep.c: Likewise. 1617 * intrinsics/spread_generic.c: Likewise. 1618 * intrinsics/stat.c: Likewise. 1619 * intrinsics/string_intrinsics.c: Likewise. 1620 * intrinsics/string_intrinsics_inc.c: Likewise. 1621 * intrinsics/symlnk.c: Likewise. 1622 * intrinsics/system.c: Likewise. 1623 * intrinsics/system_clock.c: Likewise. 1624 * intrinsics/time.c: Likewise. 1625 * intrinsics/time_1.h: Likewise. 1626 * intrinsics/transpose_generic.c: Likewise. 1627 * intrinsics/umask.c: Likewise. 1628 * intrinsics/unlink.c: Likewise. 1629 * intrinsics/unpack_generic.c: Likewise. 1630 * io/close.c: Likewise. 1631 * io/fbuf.c: Likewise. 1632 * io/file_pos.c: Likewise. 1633 * io/format.c: Likewise. 1634 * io/inquire.c: Likewise. 1635 * io/intrinsics.c: Likewise. 1636 * io/io.h: Likewise. 1637 * io/list_read.c: Likewise. 1638 * io/lock.c: Likewise. 1639 * io/open.c: Likewise. 1640 * io/read.c: Likewise. 1641 * io/size_from_kind.c: Likewise. 1642 * io/transfer.c: Likewise. 1643 * io/unit.c: Likewise. 1644 * io/unix.c: Likewise. 1645 * io/write.c: Likewise. 1646 * io/write_float.def: Likewise. 1647 * libgfortran.h: Likewise. 1648 * m4/all.m4: Likewise. 1649 * m4/any.m4: Likewise. 1650 * m4/count.m4: Likewise. 1651 * m4/cshift1.m4: Likewise. 1652 * m4/eoshift1.m4: Likewise. 1653 * m4/eoshift3.m4: Likewise. 1654 * m4/exponent.m4: Likewise. 1655 * m4/fraction.m4: Likewise. 1656 * m4/head.m4: Likewise. 1657 * m4/in_pack.m4: Likewise. 1658 * m4/in_unpack.m4: Likewise. 1659 * m4/matmul.m4: Likewise. 1660 * m4/matmull.m4: Likewise. 1661 * m4/maxloc0.m4: Likewise. 1662 * m4/maxloc1.m4: Likewise. 1663 * m4/maxval.m4: Likewise. 1664 * m4/minloc0.m4: Likewise. 1665 * m4/minloc1.m4: Likewise. 1666 * m4/minval.m4: Likewise. 1667 * m4/nearest.m4: Likewise. 1668 * m4/pack.m4: Likewise. 1669 * m4/pow.m4: Likewise. 1670 * m4/product.m4: Likewise. 1671 * m4/reshape.m4: Likewise. 1672 * m4/rrspacing.m4: Likewise. 1673 * m4/set_exponent.m4: Likewise. 1674 * m4/shape.m4: Likewise. 1675 * m4/spacing.m4: Likewise. 1676 * m4/spread.m4: Likewise. 1677 * m4/sum.m4: Likewise. 1678 * m4/transpose.m4: Likewise. 1679 * m4/unpack.m4: Likewise. 1680 * runtime/backtrace.c: Likewise. 1681 * runtime/compile_options.c: Likewise. 1682 * runtime/convert_char.c: Likewise. 1683 * runtime/environ.c: Likewise. 1684 * runtime/error.c: Likewise. 1685 * runtime/in_pack_generic.c: Likewise. 1686 * runtime/in_unpack_generic.c: Likewise. 1687 * runtime/main.c: Likewise. 1688 * runtime/memory.c: Likewise. 1689 * runtime/pause.c: Likewise. 1690 * runtime/select.c: Likewise. 1691 * runtime/select_inc.c: Likewise. 1692 * runtime/stop.c: Likewise. 1693 * runtime/string.c: Likewise. 1694 * generated/_abs_c10.F90: Regenerate. 1695 * generated/_abs_c16.F90: Regenerate. 1696 * generated/_abs_c4.F90: Regenerate. 1697 * generated/_abs_c8.F90: Regenerate. 1698 * generated/_abs_i16.F90: Regenerate. 1699 * generated/_abs_i4.F90: Regenerate. 1700 * generated/_abs_i8.F90: Regenerate. 1701 * generated/_abs_r10.F90: Regenerate. 1702 * generated/_abs_r16.F90: Regenerate. 1703 * generated/_abs_r4.F90: Regenerate. 1704 * generated/_abs_r8.F90: Regenerate. 1705 * generated/_acos_r10.F90: Regenerate. 1706 * generated/_acos_r16.F90: Regenerate. 1707 * generated/_acos_r4.F90: Regenerate. 1708 * generated/_acos_r8.F90: Regenerate. 1709 * generated/_acosh_r10.F90: Regenerate. 1710 * generated/_acosh_r16.F90: Regenerate. 1711 * generated/_acosh_r4.F90: Regenerate. 1712 * generated/_acosh_r8.F90: Regenerate. 1713 * generated/_aimag_c10.F90: Regenerate. 1714 * generated/_aimag_c16.F90: Regenerate. 1715 * generated/_aimag_c4.F90: Regenerate. 1716 * generated/_aimag_c8.F90: Regenerate. 1717 * generated/_aint_r10.F90: Regenerate. 1718 * generated/_aint_r16.F90: Regenerate. 1719 * generated/_aint_r4.F90: Regenerate. 1720 * generated/_aint_r8.F90: Regenerate. 1721 * generated/_anint_r10.F90: Regenerate. 1722 * generated/_anint_r16.F90: Regenerate. 1723 * generated/_anint_r4.F90: Regenerate. 1724 * generated/_anint_r8.F90: Regenerate. 1725 * generated/_asin_r10.F90: Regenerate. 1726 * generated/_asin_r16.F90: Regenerate. 1727 * generated/_asin_r4.F90: Regenerate. 1728 * generated/_asin_r8.F90: Regenerate. 1729 * generated/_asinh_r10.F90: Regenerate. 1730 * generated/_asinh_r16.F90: Regenerate. 1731 * generated/_asinh_r4.F90: Regenerate. 1732 * generated/_asinh_r8.F90: Regenerate. 1733 * generated/_atan2_r10.F90: Regenerate. 1734 * generated/_atan2_r16.F90: Regenerate. 1735 * generated/_atan2_r4.F90: Regenerate. 1736 * generated/_atan2_r8.F90: Regenerate. 1737 * generated/_atan_r10.F90: Regenerate. 1738 * generated/_atan_r16.F90: Regenerate. 1739 * generated/_atan_r4.F90: Regenerate. 1740 * generated/_atan_r8.F90: Regenerate. 1741 * generated/_atanh_r10.F90: Regenerate. 1742 * generated/_atanh_r16.F90: Regenerate. 1743 * generated/_atanh_r4.F90: Regenerate. 1744 * generated/_atanh_r8.F90: Regenerate. 1745 * generated/_conjg_c10.F90: Regenerate. 1746 * generated/_conjg_c16.F90: Regenerate. 1747 * generated/_conjg_c4.F90: Regenerate. 1748 * generated/_conjg_c8.F90: Regenerate. 1749 * generated/_cos_c10.F90: Regenerate. 1750 * generated/_cos_c16.F90: Regenerate. 1751 * generated/_cos_c4.F90: Regenerate. 1752 * generated/_cos_c8.F90: Regenerate. 1753 * generated/_cos_r10.F90: Regenerate. 1754 * generated/_cos_r16.F90: Regenerate. 1755 * generated/_cos_r4.F90: Regenerate. 1756 * generated/_cos_r8.F90: Regenerate. 1757 * generated/_cosh_r10.F90: Regenerate. 1758 * generated/_cosh_r16.F90: Regenerate. 1759 * generated/_cosh_r4.F90: Regenerate. 1760 * generated/_cosh_r8.F90: Regenerate. 1761 * generated/_dim_i16.F90: Regenerate. 1762 * generated/_dim_i4.F90: Regenerate. 1763 * generated/_dim_i8.F90: Regenerate. 1764 * generated/_dim_r10.F90: Regenerate. 1765 * generated/_dim_r16.F90: Regenerate. 1766 * generated/_dim_r4.F90: Regenerate. 1767 * generated/_dim_r8.F90: Regenerate. 1768 * generated/_exp_c10.F90: Regenerate. 1769 * generated/_exp_c16.F90: Regenerate. 1770 * generated/_exp_c4.F90: Regenerate. 1771 * generated/_exp_c8.F90: Regenerate. 1772 * generated/_exp_r10.F90: Regenerate. 1773 * generated/_exp_r16.F90: Regenerate. 1774 * generated/_exp_r4.F90: Regenerate. 1775 * generated/_exp_r8.F90: Regenerate. 1776 * generated/_log10_r10.F90: Regenerate. 1777 * generated/_log10_r16.F90: Regenerate. 1778 * generated/_log10_r4.F90: Regenerate. 1779 * generated/_log10_r8.F90: Regenerate. 1780 * generated/_log_c10.F90: Regenerate. 1781 * generated/_log_c16.F90: Regenerate. 1782 * generated/_log_c4.F90: Regenerate. 1783 * generated/_log_c8.F90: Regenerate. 1784 * generated/_log_r10.F90: Regenerate. 1785 * generated/_log_r16.F90: Regenerate. 1786 * generated/_log_r4.F90: Regenerate. 1787 * generated/_log_r8.F90: Regenerate. 1788 * generated/_mod_i16.F90: Regenerate. 1789 * generated/_mod_i4.F90: Regenerate. 1790 * generated/_mod_i8.F90: Regenerate. 1791 * generated/_mod_r10.F90: Regenerate. 1792 * generated/_mod_r16.F90: Regenerate. 1793 * generated/_mod_r4.F90: Regenerate. 1794 * generated/_mod_r8.F90: Regenerate. 1795 * generated/_sign_i16.F90: Regenerate. 1796 * generated/_sign_i4.F90: Regenerate. 1797 * generated/_sign_i8.F90: Regenerate. 1798 * generated/_sign_r10.F90: Regenerate. 1799 * generated/_sign_r16.F90: Regenerate. 1800 * generated/_sign_r4.F90: Regenerate. 1801 * generated/_sign_r8.F90: Regenerate. 1802 * generated/_sin_c10.F90: Regenerate. 1803 * generated/_sin_c16.F90: Regenerate. 1804 * generated/_sin_c4.F90: Regenerate. 1805 * generated/_sin_c8.F90: Regenerate. 1806 * generated/_sin_r10.F90: Regenerate. 1807 * generated/_sin_r16.F90: Regenerate. 1808 * generated/_sin_r4.F90: Regenerate. 1809 * generated/_sin_r8.F90: Regenerate. 1810 * generated/_sinh_r10.F90: Regenerate. 1811 * generated/_sinh_r16.F90: Regenerate. 1812 * generated/_sinh_r4.F90: Regenerate. 1813 * generated/_sinh_r8.F90: Regenerate. 1814 * generated/_sqrt_c10.F90: Regenerate. 1815 * generated/_sqrt_c16.F90: Regenerate. 1816 * generated/_sqrt_c4.F90: Regenerate. 1817 * generated/_sqrt_c8.F90: Regenerate. 1818 * generated/_sqrt_r10.F90: Regenerate. 1819 * generated/_sqrt_r16.F90: Regenerate. 1820 * generated/_sqrt_r4.F90: Regenerate. 1821 * generated/_sqrt_r8.F90: Regenerate. 1822 * generated/_tan_r10.F90: Regenerate. 1823 * generated/_tan_r16.F90: Regenerate. 1824 * generated/_tan_r4.F90: Regenerate. 1825 * generated/_tan_r8.F90: Regenerate. 1826 * generated/_tanh_r10.F90: Regenerate. 1827 * generated/_tanh_r16.F90: Regenerate. 1828 * generated/_tanh_r4.F90: Regenerate. 1829 * generated/_tanh_r8.F90: Regenerate. 1830 * generated/all_l1.c: Regenerate. 1831 * generated/all_l16.c: Regenerate. 1832 * generated/all_l2.c: Regenerate. 1833 * generated/all_l4.c: Regenerate. 1834 * generated/all_l8.c: Regenerate. 1835 * generated/any_l1.c: Regenerate. 1836 * generated/any_l16.c: Regenerate. 1837 * generated/any_l2.c: Regenerate. 1838 * generated/any_l4.c: Regenerate. 1839 * generated/any_l8.c: Regenerate. 1840 * generated/count_16_l.c: Regenerate. 1841 * generated/count_1_l.c: Regenerate. 1842 * generated/count_2_l.c: Regenerate. 1843 * generated/count_4_l.c: Regenerate. 1844 * generated/count_8_l.c: Regenerate. 1845 * generated/cshift0_c10.c: Regenerate. 1846 * generated/cshift0_c16.c: Regenerate. 1847 * generated/cshift0_c4.c: Regenerate. 1848 * generated/cshift0_c8.c: Regenerate. 1849 * generated/cshift0_i1.c: Regenerate. 1850 * generated/cshift0_i16.c: Regenerate. 1851 * generated/cshift0_i2.c: Regenerate. 1852 * generated/cshift0_i4.c: Regenerate. 1853 * generated/cshift0_i8.c: Regenerate. 1854 * generated/cshift0_r10.c: Regenerate. 1855 * generated/cshift0_r16.c: Regenerate. 1856 * generated/cshift0_r4.c: Regenerate. 1857 * generated/cshift0_r8.c: Regenerate. 1858 * generated/cshift1_16.c: Regenerate. 1859 * generated/cshift1_4.c: Regenerate. 1860 * generated/cshift1_8.c: Regenerate. 1861 * generated/eoshift1_16.c: Regenerate. 1862 * generated/eoshift1_4.c: Regenerate. 1863 * generated/eoshift1_8.c: Regenerate. 1864 * generated/eoshift3_16.c: Regenerate. 1865 * generated/eoshift3_4.c: Regenerate. 1866 * generated/eoshift3_8.c: Regenerate. 1867 * generated/exponent_r10.c: Regenerate. 1868 * generated/exponent_r16.c: Regenerate. 1869 * generated/exponent_r4.c: Regenerate. 1870 * generated/exponent_r8.c: Regenerate. 1871 * generated/fraction_r10.c: Regenerate. 1872 * generated/fraction_r16.c: Regenerate. 1873 * generated/fraction_r4.c: Regenerate. 1874 * generated/fraction_r8.c: Regenerate. 1875 * generated/in_pack_c10.c: Regenerate. 1876 * generated/in_pack_c16.c: Regenerate. 1877 * generated/in_pack_c4.c: Regenerate. 1878 * generated/in_pack_c8.c: Regenerate. 1879 * generated/in_pack_i1.c: Regenerate. 1880 * generated/in_pack_i16.c: Regenerate. 1881 * generated/in_pack_i2.c: Regenerate. 1882 * generated/in_pack_i4.c: Regenerate. 1883 * generated/in_pack_i8.c: Regenerate. 1884 * generated/in_pack_r10.c: Regenerate. 1885 * generated/in_pack_r16.c: Regenerate. 1886 * generated/in_pack_r4.c: Regenerate. 1887 * generated/in_pack_r8.c: Regenerate. 1888 * generated/in_unpack_c10.c: Regenerate. 1889 * generated/in_unpack_c16.c: Regenerate. 1890 * generated/in_unpack_c4.c: Regenerate. 1891 * generated/in_unpack_c8.c: Regenerate. 1892 * generated/in_unpack_i1.c: Regenerate. 1893 * generated/in_unpack_i16.c: Regenerate. 1894 * generated/in_unpack_i2.c: Regenerate. 1895 * generated/in_unpack_i4.c: Regenerate. 1896 * generated/in_unpack_i8.c: Regenerate. 1897 * generated/in_unpack_r10.c: Regenerate. 1898 * generated/in_unpack_r16.c: Regenerate. 1899 * generated/in_unpack_r4.c: Regenerate. 1900 * generated/in_unpack_r8.c: Regenerate. 1901 * generated/matmul_c10.c: Regenerate. 1902 * generated/matmul_c16.c: Regenerate. 1903 * generated/matmul_c4.c: Regenerate. 1904 * generated/matmul_c8.c: Regenerate. 1905 * generated/matmul_i1.c: Regenerate. 1906 * generated/matmul_i16.c: Regenerate. 1907 * generated/matmul_i2.c: Regenerate. 1908 * generated/matmul_i4.c: Regenerate. 1909 * generated/matmul_i8.c: Regenerate. 1910 * generated/matmul_l16.c: Regenerate. 1911 * generated/matmul_l4.c: Regenerate. 1912 * generated/matmul_l8.c: Regenerate. 1913 * generated/matmul_r10.c: Regenerate. 1914 * generated/matmul_r16.c: Regenerate. 1915 * generated/matmul_r4.c: Regenerate. 1916 * generated/matmul_r8.c: Regenerate. 1917 * generated/maxloc0_16_i1.c: Regenerate. 1918 * generated/maxloc0_16_i16.c: Regenerate. 1919 * generated/maxloc0_16_i2.c: Regenerate. 1920 * generated/maxloc0_16_i4.c: Regenerate. 1921 * generated/maxloc0_16_i8.c: Regenerate. 1922 * generated/maxloc0_16_r10.c: Regenerate. 1923 * generated/maxloc0_16_r16.c: Regenerate. 1924 * generated/maxloc0_16_r4.c: Regenerate. 1925 * generated/maxloc0_16_r8.c: Regenerate. 1926 * generated/maxloc0_4_i1.c: Regenerate. 1927 * generated/maxloc0_4_i16.c: Regenerate. 1928 * generated/maxloc0_4_i2.c: Regenerate. 1929 * generated/maxloc0_4_i4.c: Regenerate. 1930 * generated/maxloc0_4_i8.c: Regenerate. 1931 * generated/maxloc0_4_r10.c: Regenerate. 1932 * generated/maxloc0_4_r16.c: Regenerate. 1933 * generated/maxloc0_4_r4.c: Regenerate. 1934 * generated/maxloc0_4_r8.c: Regenerate. 1935 * generated/maxloc0_8_i1.c: Regenerate. 1936 * generated/maxloc0_8_i16.c: Regenerate. 1937 * generated/maxloc0_8_i2.c: Regenerate. 1938 * generated/maxloc0_8_i4.c: Regenerate. 1939 * generated/maxloc0_8_i8.c: Regenerate. 1940 * generated/maxloc0_8_r10.c: Regenerate. 1941 * generated/maxloc0_8_r16.c: Regenerate. 1942 * generated/maxloc0_8_r4.c: Regenerate. 1943 * generated/maxloc0_8_r8.c: Regenerate. 1944 * generated/maxloc1_16_i1.c: Regenerate. 1945 * generated/maxloc1_16_i16.c: Regenerate. 1946 * generated/maxloc1_16_i2.c: Regenerate. 1947 * generated/maxloc1_16_i4.c: Regenerate. 1948 * generated/maxloc1_16_i8.c: Regenerate. 1949 * generated/maxloc1_16_r10.c: Regenerate. 1950 * generated/maxloc1_16_r16.c: Regenerate. 1951 * generated/maxloc1_16_r4.c: Regenerate. 1952 * generated/maxloc1_16_r8.c: Regenerate. 1953 * generated/maxloc1_4_i1.c: Regenerate. 1954 * generated/maxloc1_4_i16.c: Regenerate. 1955 * generated/maxloc1_4_i2.c: Regenerate. 1956 * generated/maxloc1_4_i4.c: Regenerate. 1957 * generated/maxloc1_4_i8.c: Regenerate. 1958 * generated/maxloc1_4_r10.c: Regenerate. 1959 * generated/maxloc1_4_r16.c: Regenerate. 1960 * generated/maxloc1_4_r4.c: Regenerate. 1961 * generated/maxloc1_4_r8.c: Regenerate. 1962 * generated/maxloc1_8_i1.c: Regenerate. 1963 * generated/maxloc1_8_i16.c: Regenerate. 1964 * generated/maxloc1_8_i2.c: Regenerate. 1965 * generated/maxloc1_8_i4.c: Regenerate. 1966 * generated/maxloc1_8_i8.c: Regenerate. 1967 * generated/maxloc1_8_r10.c: Regenerate. 1968 * generated/maxloc1_8_r16.c: Regenerate. 1969 * generated/maxloc1_8_r4.c: Regenerate. 1970 * generated/maxloc1_8_r8.c: Regenerate. 1971 * generated/maxval_i1.c: Regenerate. 1972 * generated/maxval_i16.c: Regenerate. 1973 * generated/maxval_i2.c: Regenerate. 1974 * generated/maxval_i4.c: Regenerate. 1975 * generated/maxval_i8.c: Regenerate. 1976 * generated/maxval_r10.c: Regenerate. 1977 * generated/maxval_r16.c: Regenerate. 1978 * generated/maxval_r4.c: Regenerate. 1979 * generated/maxval_r8.c: Regenerate. 1980 * generated/minloc0_16_i1.c: Regenerate. 1981 * generated/minloc0_16_i16.c: Regenerate. 1982 * generated/minloc0_16_i2.c: Regenerate. 1983 * generated/minloc0_16_i4.c: Regenerate. 1984 * generated/minloc0_16_i8.c: Regenerate. 1985 * generated/minloc0_16_r10.c: Regenerate. 1986 * generated/minloc0_16_r16.c: Regenerate. 1987 * generated/minloc0_16_r4.c: Regenerate. 1988 * generated/minloc0_16_r8.c: Regenerate. 1989 * generated/minloc0_4_i1.c: Regenerate. 1990 * generated/minloc0_4_i16.c: Regenerate. 1991 * generated/minloc0_4_i2.c: Regenerate. 1992 * generated/minloc0_4_i4.c: Regenerate. 1993 * generated/minloc0_4_i8.c: Regenerate. 1994 * generated/minloc0_4_r10.c: Regenerate. 1995 * generated/minloc0_4_r16.c: Regenerate. 1996 * generated/minloc0_4_r4.c: Regenerate. 1997 * generated/minloc0_4_r8.c: Regenerate. 1998 * generated/minloc0_8_i1.c: Regenerate. 1999 * generated/minloc0_8_i16.c: Regenerate. 2000 * generated/minloc0_8_i2.c: Regenerate. 2001 * generated/minloc0_8_i4.c: Regenerate. 2002 * generated/minloc0_8_i8.c: Regenerate. 2003 * generated/minloc0_8_r10.c: Regenerate. 2004 * generated/minloc0_8_r16.c: Regenerate. 2005 * generated/minloc0_8_r4.c: Regenerate. 2006 * generated/minloc0_8_r8.c: Regenerate. 2007 * generated/minloc1_16_i1.c: Regenerate. 2008 * generated/minloc1_16_i16.c: Regenerate. 2009 * generated/minloc1_16_i2.c: Regenerate. 2010 * generated/minloc1_16_i4.c: Regenerate. 2011 * generated/minloc1_16_i8.c: Regenerate. 2012 * generated/minloc1_16_r10.c: Regenerate. 2013 * generated/minloc1_16_r16.c: Regenerate. 2014 * generated/minloc1_16_r4.c: Regenerate. 2015 * generated/minloc1_16_r8.c: Regenerate. 2016 * generated/minloc1_4_i1.c: Regenerate. 2017 * generated/minloc1_4_i16.c: Regenerate. 2018 * generated/minloc1_4_i2.c: Regenerate. 2019 * generated/minloc1_4_i4.c: Regenerate. 2020 * generated/minloc1_4_i8.c: Regenerate. 2021 * generated/minloc1_4_r10.c: Regenerate. 2022 * generated/minloc1_4_r16.c: Regenerate. 2023 * generated/minloc1_4_r4.c: Regenerate. 2024 * generated/minloc1_4_r8.c: Regenerate. 2025 * generated/minloc1_8_i1.c: Regenerate. 2026 * generated/minloc1_8_i16.c: Regenerate. 2027 * generated/minloc1_8_i2.c: Regenerate. 2028 * generated/minloc1_8_i4.c: Regenerate. 2029 * generated/minloc1_8_i8.c: Regenerate. 2030 * generated/minloc1_8_r10.c: Regenerate. 2031 * generated/minloc1_8_r16.c: Regenerate. 2032 * generated/minloc1_8_r4.c: Regenerate. 2033 * generated/minloc1_8_r8.c: Regenerate. 2034 * generated/minval_i1.c: Regenerate. 2035 * generated/minval_i16.c: Regenerate. 2036 * generated/minval_i2.c: Regenerate. 2037 * generated/minval_i4.c: Regenerate. 2038 * generated/minval_i8.c: Regenerate. 2039 * generated/minval_r10.c: Regenerate. 2040 * generated/minval_r16.c: Regenerate. 2041 * generated/minval_r4.c: Regenerate. 2042 * generated/minval_r8.c: Regenerate. 2043 * generated/misc_specifics.F90: Regenerate. 2044 * generated/nearest_r10.c: Regenerate. 2045 * generated/nearest_r16.c: Regenerate. 2046 * generated/nearest_r4.c: Regenerate. 2047 * generated/nearest_r8.c: Regenerate. 2048 * generated/pack_c10.c: Regenerate. 2049 * generated/pack_c16.c: Regenerate. 2050 * generated/pack_c4.c: Regenerate. 2051 * generated/pack_c8.c: Regenerate. 2052 * generated/pack_i1.c: Regenerate. 2053 * generated/pack_i16.c: Regenerate. 2054 * generated/pack_i2.c: Regenerate. 2055 * generated/pack_i4.c: Regenerate. 2056 * generated/pack_i8.c: Regenerate. 2057 * generated/pack_r10.c: Regenerate. 2058 * generated/pack_r16.c: Regenerate. 2059 * generated/pack_r4.c: Regenerate. 2060 * generated/pack_r8.c: Regenerate. 2061 * generated/pow_c10_i16.c: Regenerate. 2062 * generated/pow_c10_i4.c: Regenerate. 2063 * generated/pow_c10_i8.c: Regenerate. 2064 * generated/pow_c16_i16.c: Regenerate. 2065 * generated/pow_c16_i4.c: Regenerate. 2066 * generated/pow_c16_i8.c: Regenerate. 2067 * generated/pow_c4_i16.c: Regenerate. 2068 * generated/pow_c4_i4.c: Regenerate. 2069 * generated/pow_c4_i8.c: Regenerate. 2070 * generated/pow_c8_i16.c: Regenerate. 2071 * generated/pow_c8_i4.c: Regenerate. 2072 * generated/pow_c8_i8.c: Regenerate. 2073 * generated/pow_i16_i16.c: Regenerate. 2074 * generated/pow_i16_i4.c: Regenerate. 2075 * generated/pow_i16_i8.c: Regenerate. 2076 * generated/pow_i4_i16.c: Regenerate. 2077 * generated/pow_i4_i4.c: Regenerate. 2078 * generated/pow_i4_i8.c: Regenerate. 2079 * generated/pow_i8_i16.c: Regenerate. 2080 * generated/pow_i8_i4.c: Regenerate. 2081 * generated/pow_i8_i8.c: Regenerate. 2082 * generated/pow_r10_i16.c: Regenerate. 2083 * generated/pow_r10_i8.c: Regenerate. 2084 * generated/pow_r16_i16.c: Regenerate. 2085 * generated/pow_r16_i8.c: Regenerate. 2086 * generated/pow_r4_i16.c: Regenerate. 2087 * generated/pow_r4_i8.c: Regenerate. 2088 * generated/pow_r8_i16.c: Regenerate. 2089 * generated/pow_r8_i8.c: Regenerate. 2090 * generated/product_c10.c: Regenerate. 2091 * generated/product_c16.c: Regenerate. 2092 * generated/product_c4.c: Regenerate. 2093 * generated/product_c8.c: Regenerate. 2094 * generated/product_i1.c: Regenerate. 2095 * generated/product_i16.c: Regenerate. 2096 * generated/product_i2.c: Regenerate. 2097 * generated/product_i4.c: Regenerate. 2098 * generated/product_i8.c: Regenerate. 2099 * generated/product_r10.c: Regenerate. 2100 * generated/product_r16.c: Regenerate. 2101 * generated/product_r4.c: Regenerate. 2102 * generated/product_r8.c: Regenerate. 2103 * generated/reshape_c10.c: Regenerate. 2104 * generated/reshape_c16.c: Regenerate. 2105 * generated/reshape_c4.c: Regenerate. 2106 * generated/reshape_c8.c: Regenerate. 2107 * generated/reshape_i16.c: Regenerate. 2108 * generated/reshape_i4.c: Regenerate. 2109 * generated/reshape_i8.c: Regenerate. 2110 * generated/reshape_r10.c: Regenerate. 2111 * generated/reshape_r16.c: Regenerate. 2112 * generated/reshape_r4.c: Regenerate. 2113 * generated/reshape_r8.c: Regenerate. 2114 * generated/rrspacing_r10.c: Regenerate. 2115 * generated/rrspacing_r16.c: Regenerate. 2116 * generated/rrspacing_r4.c: Regenerate. 2117 * generated/rrspacing_r8.c: Regenerate. 2118 * generated/set_exponent_r10.c: Regenerate. 2119 * generated/set_exponent_r16.c: Regenerate. 2120 * generated/set_exponent_r4.c: Regenerate. 2121 * generated/set_exponent_r8.c: Regenerate. 2122 * generated/shape_i16.c: Regenerate. 2123 * generated/shape_i4.c: Regenerate. 2124 * generated/shape_i8.c: Regenerate. 2125 * generated/spacing_r10.c: Regenerate. 2126 * generated/spacing_r16.c: Regenerate. 2127 * generated/spacing_r4.c: Regenerate. 2128 * generated/spacing_r8.c: Regenerate. 2129 * generated/spread_c10.c: Regenerate. 2130 * generated/spread_c16.c: Regenerate. 2131 * generated/spread_c4.c: Regenerate. 2132 * generated/spread_c8.c: Regenerate. 2133 * generated/spread_i1.c: Regenerate. 2134 * generated/spread_i16.c: Regenerate. 2135 * generated/spread_i2.c: Regenerate. 2136 * generated/spread_i4.c: Regenerate. 2137 * generated/spread_i8.c: Regenerate. 2138 * generated/spread_r10.c: Regenerate. 2139 * generated/spread_r16.c: Regenerate. 2140 * generated/spread_r4.c: Regenerate. 2141 * generated/spread_r8.c: Regenerate. 2142 * generated/sum_c10.c: Regenerate. 2143 * generated/sum_c16.c: Regenerate. 2144 * generated/sum_c4.c: Regenerate. 2145 * generated/sum_c8.c: Regenerate. 2146 * generated/sum_i1.c: Regenerate. 2147 * generated/sum_i16.c: Regenerate. 2148 * generated/sum_i2.c: Regenerate. 2149 * generated/sum_i4.c: Regenerate. 2150 * generated/sum_i8.c: Regenerate. 2151 * generated/sum_r10.c: Regenerate. 2152 * generated/sum_r16.c: Regenerate. 2153 * generated/sum_r4.c: Regenerate. 2154 * generated/sum_r8.c: Regenerate. 2155 * generated/transpose_c10.c: Regenerate. 2156 * generated/transpose_c16.c: Regenerate. 2157 * generated/transpose_c4.c: Regenerate. 2158 * generated/transpose_c8.c: Regenerate. 2159 * generated/transpose_i16.c: Regenerate. 2160 * generated/transpose_i4.c: Regenerate. 2161 * generated/transpose_i8.c: Regenerate. 2162 * generated/transpose_r10.c: Regenerate. 2163 * generated/transpose_r16.c: Regenerate. 2164 * generated/transpose_r4.c: Regenerate. 2165 * generated/transpose_r8.c: Regenerate. 2166 * generated/unpack_c10.c: Regenerate. 2167 * generated/unpack_c16.c: Regenerate. 2168 * generated/unpack_c4.c: Regenerate. 2169 * generated/unpack_c8.c: Regenerate. 2170 * generated/unpack_i1.c: Regenerate. 2171 * generated/unpack_i16.c: Regenerate. 2172 * generated/unpack_i2.c: Regenerate. 2173 * generated/unpack_i4.c: Regenerate. 2174 * generated/unpack_i8.c: Regenerate. 2175 * generated/unpack_r10.c: Regenerate. 2176 * generated/unpack_r16.c: Regenerate. 2177 * generated/unpack_r4.c: Regenerate. 2178 * generated/unpack_r8.c: Regenerate. 2179 2180 2009-04-08 Janne Blomqvist <jb (a] gcc.gnu.org> 2181 2182 * io/open.c (already_open): Test for POSIX close return value. 2183 * io/unit.c (close_unit_1): Likewise. 2184 * io/unix.c (raw_close): Return 0 for success for preconnected units. 2185 2186 2009-04-08 Janne Blomqvist <jb (a] gcc.gnu.org> 2187 2188 * runtime/string.c (compare0): Use gfc_charlen_type. 2189 * runtime/error.c (gfc_itoa): Move to io/write.c 2190 (xtoa): Rename to gfc_xtoa. 2191 * runtime/backtrace.c (show_backtrace): Call gfc_xtoa. 2192 * intrinsics/cshift0.c (cshift0): Use index_type for shift arg. 2193 * intrinsics/date_and_time.c (date_and_time): Use index_type. 2194 (itime_i4): Likewise. 2195 (itime_i8): Likewise. 2196 (idate_i4): Likewise. 2197 (idate_i8): Likewise. 2198 (gmtime_i4): Likewise. 2199 (gmtime_i8): Likewise. 2200 (ltime_i4): Likewise. 2201 (ltime_i8): Likewise. 2202 * libgfortran.h (gfc_itoa): Remove prototype. 2203 (xtoa): Rename prototype to gfc_xtoa. 2204 * io/list_read.c (nml_read_obj): Use size_t for string length. 2205 * io/transfer.c (read_block_direct): Change nbytes arg from 2206 pointer to value. 2207 (unformatted_read): Minor cleanup, call read_block_directly properly. 2208 (skip_record): Use ssize_t. 2209 (next_record_w_unf): Avoid stell() call by calling sseek with SEEK_CUR. 2210 (iolength_transfer): Make sure to multiply before cast. 2211 * io/intrinsics.c (fgetc): Remove unnecessary variable. 2212 * io/format.c (format_hash): Use gfc_charlen_type. 2213 * io/write.c (itoa): Move from runtime/error.c:gfc_itoa, rename, 2214 make static. 2215 (write_i): Call with pointer to itoa. 2216 (write_z): Call with pointer to gfc_xtoa. 2217 (write_integer): Pointer to itoa. 2218 (nml_write_obj): Type cleanup, don't call strlen in loop. 2219 2220 2009-04-06 H.J. Lu <hongjiu.lu (a] intel.com> 2221 2222 PR libgfortran/39664 2223 * io/unix.c (raw_close): Don't close STDOUT_FILENO, 2224 STDERR_FILENO nor STDIN_FILENO. 2225 2226 2009-04-06 David Edelsohn <edelsohn (a] gnu.org> 2227 2228 * io/io.h (struct stream): Rename truncate to trunc. 2229 (struncate): Same. 2230 * io/unix.c (raw_init): Rename truncate to trunc. 2231 (buf_init): Same. 2232 (open_internal): Same. 2233 2234 2009-04-05 Daniel Kraft <d (a] domob.eu> 2235 2236 PR fortran/38654 2237 * io/read.c (read_f): Reworked to speed up floating point parsing. 2238 (convert_real): Use pointer-casting instead of memcpy and temporaries. 2239 2240 2009-04-05 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 2241 2242 PR libfortran/37754 2243 * io/io.h (format_hash_entry): New structure for hash table. 2244 (format_hash_table): The hash table itself. 2245 (free_format_data): Revise function prototype. 2246 (free_format_hash_table, init_format_hash, 2247 free_format_hash): New function prototypes. 2248 * io/unit.c (close_unit_1): Use free_format_hash_table. 2249 * io/transfer.c (st_read_done, st_write_done): Free format data if 2250 internal unit. 2251 * io/format.c (free_format_hash_table): New function that frees any 2252 memory allocated previously for cached format data. 2253 (reset_node): New static helper function to reset the format counters 2254 for a format node. 2255 (reset_fnode_counters): New static function recursively calls reset_node 2256 to traverse the fnode tree. 2257 (format_hash): New simple hash function based on XOR, probabalistic, 2258 tosses collisions. 2259 (save_parsed_format): New static function to save the parsed format 2260 data to use again. 2261 (find_parsed_format): New static function searches the hash table 2262 looking for a match. 2263 (free_format_data): Revised to accept pointer to format data rather than 2264 the dtp pointer so that the function can be used in more places. 2265 (format_lex): Editorial. 2266 (parse_format_list): Set flag used to determine of format data hashing 2267 is to be used. Internal units are not persistent enough for this. 2268 (revert): Move to ne location in file. 2269 (parse_format): Use new functions to look for previously parsed 2270 format strings and use them rather than re-parse. If not found, saves 2271 the parsed format data for later use. 2272 2273 2009-04-05 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 2274 2275 PR libfortran/37754 2276 * io/transfer.c (formatted_transfer_scalar): Remove this function by 2277 factoring it into two new functions, one for read and one for write, 2278 eliminating all the conditionals for read or write mode. 2279 (formatted transfer_scalar_read): New function. 2280 (formatted transfer_scalar_write): New function. 2281 (formatted_transfer): Use new functions. 2282 2283 2009-04-05 Janne Blomqvist <jb (a] gcc.gnu.org> 2284 2285 PR libfortran/25561 libfortran/37754 2286 * io/io.h (struct stream): Define new stream interface function 2287 pointers, and inline functions for accessing it. 2288 (struct fbuf): Use int instead of size_t, remove flushed element. 2289 (mem_alloc_w): New prototype. 2290 (mem_alloc_r): New prototype. 2291 (stream_at_bof): Remove prototype. 2292 (stream_at_eof): Remove prototype. 2293 (file_position): Remove prototype. 2294 (flush): Remove prototype. 2295 (stream_offset): Remove prototype. 2296 (unit_truncate): New prototype. 2297 (read_block_form): Change to return pointer, int* argument. 2298 (hit_eof): New prototype. 2299 (fbuf_init): Change prototype. 2300 (fbuf_reset): Change prototype. 2301 (fbuf_alloc): Change prototype. 2302 (fbuf_flush): Change prototype. 2303 (fbuf_seek): Change prototype. 2304 (fbuf_read): New prototype. 2305 (fbuf_getc_refill): New prototype. 2306 (fbuf_getc): New inline function. 2307 * io/fbuf.c (fbuf_init): Use int, get rid of flushed. 2308 (fbuf_debug): New function. 2309 (fbuf_reset): Flush, and return position offset. 2310 (fbuf_alloc): Simplify, don't flush, just realloc. 2311 (fbuf_flush): Make usable for read mode, salvage remaining bytes. 2312 (fbuf_seek): New whence argument. 2313 (fbuf_read): New function. 2314 (fbuf_getc_refill): New function. 2315 * io/file_pos.c (formatted_backspace): Use new stream interface. 2316 (unformatted_backspace): Likewise. 2317 (st_backspace): Make sure format buffer is reset, use new stream 2318 interface, use unit_truncate. 2319 (st_endfile): Likewise. 2320 (st_rewind): Likewise. 2321 * io/intrinsics.c: Use new stream interface. 2322 * io/list_read.c (push_char): Don't use u.p.scratch, use realloc 2323 to resize. 2324 (free_saved): Don't check u.p.scratch. 2325 (next_char): Use new stream interface, use fbuf_getc() for external files. 2326 (finish_list_read): flush format buffer. 2327 (nml_query): Update to use modified interface:s 2328 * io/open.c (test_endfile): Use new stream interface. 2329 (edit_modes): Likewise. 2330 (new_unit): Likewise, set bytes_left to 1 for stream files. 2331 * io/read.c (read_l): Use new read_block_form interface. 2332 (read_utf8): Likewise. 2333 (read_utf8_char1): Likewise. 2334 (read_default_char1): Likewise. 2335 (read_utf8_char4): Likewise. 2336 (read_default_char4): Likewise. 2337 (read_a): Likewise. 2338 (read_a_char4): Likewise. 2339 (read_decimal): Likewise. 2340 (read_radix): Likewise. 2341 (read_f): Likewise. 2342 * io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove 2343 usage of u.p.line_buffer. 2344 (read_block_form): Update interface to return pointer, use 2345 fbuf_read for direct access. 2346 (read_block_direct): Update to new stream interface. 2347 (write_block): Use mem_alloc_w for internal I/O. 2348 (write_buf): Update to new stream interface. 2349 (formatted_transfer_scalar): Don't use u.p.line_buffer, use 2350 fbuf_seek for external files. 2351 (us_read): Update to new stream interface. 2352 (us_write): Likewise. 2353 (data_transfer_init): Always check if we switch modes and flush. 2354 (skip_record): Use new stream interface, fix comparison. 2355 (next_record_r): Check for and reset u.p.at_eof, use new stream 2356 interface, use fbuf_getc for spacing. 2357 (write_us_marker): Update to new stream interface, don't inline. 2358 (next_record_w_unf): Likewise. 2359 (sset): New function. 2360 (next_record_w): Use new stream interface, use fbuf for printing 2361 newline. 2362 (next_record): Use new stream interface. 2363 (finalize_transfer): Remove sfree call, use new stream interface. 2364 (st_iolength_done): Don't use u.p.scratch. 2365 (st_read): Don't check for end of file. 2366 (st_read_done): Don't use u.p.scratch, use unit_truncate. 2367 (hit_eof): New function. 2368 * io/unit.c (init_units): Always init fbuf for formatted units. 2369 (update_position): Use new stream interface. 2370 (unit_truncate): New function. 2371 (finish_last_advance_record): Use fbuf to print newline. 2372 * io/unix.c: Remove unused SSIZE_MAX macro. 2373 (BUFFER_SIZE): Make static const variable rather than macro. 2374 (struct unix_stream): Remove dirty_offset, len, method, 2375 small_buffer. Order elements by decreasing size. 2376 (struct int_stream): Remove. 2377 (move_pos_offset): Remove usage of dirty_offset. 2378 (reset_stream): Remove. 2379 (do_read): Rename to raw_read, update to match new stream 2380 interface. 2381 (do_write): Rename to raw_write, update to new stream interface. 2382 (raw_seek): New function. 2383 (raw_tell): New function. 2384 (raw_truncate): New function. 2385 (raw_close): New function. 2386 (raw_flush): New function. 2387 (raw_init): New function. 2388 (fd_alloc): Remove. 2389 (fd_alloc_r_at): Remove. 2390 (fd_alloc_w_at): Remove. 2391 (fd_sfree): Remove. 2392 (fd_seek): Remove. 2393 (fd_truncate): Remove. 2394 (fd_sset): Remove. 2395 (fd_read): Remove. 2396 (fd_write): Remove. 2397 (fd_close): Remove. 2398 (fd_open): Remove. 2399 (fd_flush): Rename to buf_flush, update to new stream interface 2400 and unix_stream. 2401 (buf_read): New function. 2402 (buf_write): New function. 2403 (buf_seek): New function. 2404 (buf_tell): New function. 2405 (buf_truncate): New function. 2406 (buf_close): New function. 2407 (buf_init): New function. 2408 (mem_alloc_r_at): Rename to mem_alloc_r, change prototype. 2409 (mem_alloc_w_at): Rename to mem_alloc_w, change prototype. 2410 (mem_read): Change to match new stream interface. 2411 (mem_write): Likewise. 2412 (mem_seek): Likewise. 2413 (mem_tell): Likewise. 2414 (mem_truncate): Likewise. 2415 (mem_close): Likewise. 2416 (mem_flush): New function. 2417 (mem_sfree): Remove. 2418 (empty_internal_buffer): Cast to correct type. 2419 (open_internal): Use correct type, init function pointers. 2420 (fd_to_stream): Test whether to open file as buffered or raw. 2421 (output_stream): Remove mode set. 2422 (error_stream): Likewise. 2423 (flush_all_units_1): Use new stream interface. 2424 (flush_all_units): Likewise. 2425 (stream_at_bof): Remove. 2426 (stream_at_eof): Remove. 2427 (file_position): Remove. 2428 (file_length): Update logic to use stream interface. 2429 (flush): Remove. 2430 (stream_offset): Remove. 2431 * io/write.c (write_utf8_char4): Use int instead of size_t. 2432 (write_x): Extra safety check. 2433 (namelist_write_newline): Use new stream interface. 2434 2435 2009-03-29 John David Anglin <dave.anglin (a] nrc-cnrc.gc.ca> 2436 2437 PR fortran/33595 2438 * intrinsics/c99_functions.c (round): Use floor instead of ceil. 2439 Revise checks to round up. 2440 (roundf): Likewise. 2441 2442 2009-03-28 Daniel Kraft <d (a] domob.eu> 2443 2444 * intrinsics/string_intrinsics.c: #include <assert.h> 2445 * intrinsics/string_intrinsics_inc.c (string_trim): Use string_len_trim 2446 instead of calculating the length directly. 2447 (string_len_trim): For KIND=1, speed search up. 2448 2449 2009-03-24 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 2450 2451 PR libfortran/39528 2452 * io/list_read.c (list_formatted_read_scalar): Move check for read 2453 completion to just after the check for a repeated value. 2454 2455 2009-03-08 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 2456 2457 PR libfortran/39402 2458 * io/write_float.def (output_float): Handle F0.d formatting correctly 2459 for any d when value is 0.0. 2460 2461 2009-03-01 Ralf Wildenhues <Ralf.Wildenhues (a] gmx.de> 2462 2463 * configure: Regenerate. 2464 2465 2009-01-21 Daniel Kraft <d (a] domob.eu> 2466 2467 PR fortran/38887 2468 * runtime/in_unpack_generic.c (internal_unpack): Return instead of 2469 abort when called with empty array. 2470 * m4/in_unpack.m4: Ditto. 2471 * generated/in_unpack_i1.c: Regenerated. 2472 * generated/in_unpack_i2.c: Regenerated. 2473 * generated/in_unpack_i4.c: Regenerated. 2474 * generated/in_unpack_i8.c: Regenerated. 2475 * generated/in_unpack_i16.c: Regenerated. 2476 * generated/in_unpack_r4.c: Regenerated. 2477 * generated/in_unpack_r8.c: Regenerated. 2478 * generated/in_unpack_r10.c: Regenerated. 2479 * generated/in_unpack_r16.c: Regenerated. 2480 * generated/in_unpack_c4.c: Regenerated. 2481 * generated/in_unpack_c8.c: Regenerated. 2482 * generated/in_unpack_c10.c: Regenerated. 2483 * generated/in_unpack_c16.c: Regenerated. 2484 2485 2009-01-12 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 2486 2487 PR libfortran/38772 2488 * io/read.c (read_f): Clean up loop conditions for BZ/BN, 2489 allowing proper digit testing. White space fix. 2490 2491 2009-01-05 Jerry DeLisle <jvdelisle (a] gcc.gnu.org> 2492 2493 PR libfortran/38735 2494 * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for 2495 internal units. 2496 2497 2499 Copyright (C) 2009 Free Software Foundation, Inc. 2500 2501 Copying and distribution of this file, with or without modification, 2502 are permitted in any medium without royalty provided the copyright 2503 notice and this notice are preserved. 2504
Indexes created Fri Jun 05 00:26:10 UTC 2026