libgfortran/ChangeLog

   1 2010-08-28  Tobias Burnus  <burnus@net-b.de>
   2
   3         * mk-kinds-h.sh: Disable REAL(16) if REAL(10) is available.
   4
   5 2010-08-27  Tobias Burnus  <burnus@net-b.de>
   6
   7         PR fortran/33197
   8         * libgfortran/m4/ifunction.m4 (FINISH_ARRAY_FUNCTION,
   9         ARRAY_FUNCTION): Allow expression after loop.
  10         * libgfortran/m4/norm2.m4: New for _gfortran_norm2_r{4,8,10,16}.
  11         * libgfortran/m4/parity.m4: New for _gfortran_parity_l{1,2,4,8,16}.
  12         * libgfortran/gfortran.map: Add new functions.
  13         * libgfortran/Makefile.am: Ditto.
  14         * libgfortran/m4/minloc1.m4: Add empty argument for ARRAY_FUNCTION.
  15         * libgfortran/m4/maxloc1.m4: Ditto.
  16         * libgfortran/m4/all.m4: Ditto.
  17         * libgfortran/m4/minval.m4: Ditto.
  18         * libgfortran/m4/maxval.m4: Ditto.
  19         * libgfortran/m4/count.m4: Ditto.
  20         * libgfortran/m4/product.m4: Ditto.
  21         * libgfortran/m4/any.m4: Ditto.
  22         * Makefile.in: Regenerated.
  23         * generated/minval_r8.c: Regenerated.
  24         * generated/maxloc1_4_r8.c: Regenerated.
  25         * generated/minloc1_16_r16.c: Regenerated.
  26         * generated/norm2_r4.c: Regenerated.
  27         * generated/sum_i8.c: Regenerated.
  28         * generated/parity_l2.c: Regenerated.
  29         * generated/any_l16.c: Regenerated.
  30         * generated/maxval_i2.c: Regenerated.
  31         * generated/any_l2.c: Regenerated.
  32         * generated/product_r4.c: Regenerated.
  33         * generated/maxloc1_8_i4.c: Regenerated.
  34         * generated/parity_l16.c: Regenerated.
  35         * generated/all_l1.c: Regenerated.
  36         * generated/product_i2.c: Regenerated.
  37         * generated/minloc1_8_r16.c: Regenerated.
  38         * generated/maxloc1_8_r16.c: Regenerated.
  39         * generated/sum_r16.c: Regenerated.
  40         * generated/sum_i1.c: Regenerated.
  41         * generated/minloc1_4_r8.c: Regenerated.
  42         * generated/maxloc1_16_r16.c: Regenerated.
  43         * generated/minloc1_16_i4.c: Regenerated.
  44         * generated/maxloc1_16_i4.c: Regenerated.
  45         * generated/maxval_r16.c: Regenerated.
  46         * generated/product_c10.c: Regenerated.
  47         * generated/minloc1_8_i4.c: Regenerated.
  48         * generated/all_l2.c: Regenerated.
  49         * generated/product_c4.c: Regenerated.
  50         * generated/sum_r4.c: Regenerated.
  51         * generated/all_l16.c: Regenerated.
  52         * generated/minloc1_16_r10.c: Regenerated.
  53         * generated/sum_i2.c: Regenerated.
  54         * generated/maxloc1_8_r8.c: Regenerated.
  55         * generated/minval_i16.c: Regenerated.
  56         * generated/parity_l4.c: Regenerated.
  57         * generated/maxval_i4.c: Regenerated.
  58         * generated/any_l4.c: Regenerated.
  59         * generated/minval_i8.c: Regenerated.
  60         * generated/maxloc1_4_i8.c: Regenerated.
  61         * generated/minloc1_4_i16.c: Regenerated.
  62         * generated/maxloc1_4_i16.c: Regenerated.
  63         * generated/minloc1_8_r10.c: Regenerated.
  64         * generated/product_i4.c: Regenerated.
  65         * generated/maxloc1_8_r10.c: Regenerated.
  66         * generated/sum_c16.c: Regenerated.
  67         * generated/minloc1_16_r8.c: Regenerated.
  68         * generated/maxloc1_16_r8.c: Regenerated.
  69         * generated/count_4_l.c: Regenerated.
  70         * generated/sum_r10.c: Regenerated.
  71         * generated/count_8_l.c: Regenerated.
  72         * generated/sum_c4.c: Regenerated.
  73         * generated/maxloc1_16_r10.c: Regenerated.
  74         * generated/minloc1_8_r8.c: Regenerated.
  75         * generated/maxval_r10.c: Regenerated.
  76         * generated/minval_i1.c: Regenerated.
  77         * generated/maxloc1_4_i1.c: Regenerated.
  78         * generated/minloc1_4_i8.c: Regenerated.
  79         * generated/product_i16.c: Regenerated.
  80         * generated/all_l4.c: Regenerated.
  81         * generated/norm2_r16.c: Regenerated.
  82         * generated/minval_r4.c: Regenerated.
  83         * generated/maxloc1_4_r4.c: Regenerated.
  84         * generated/sum_i4.c: Regenerated.
  85         * generated/maxval_r8.c: Regenerated.
  86         * generated/norm2_r8.c: Regenerated.
  87         * generated/minloc1_4_i1.c: Regenerated.
  88         * generated/minval_r16.c: Regenerated.
  89         * generated/minval_i2.c: Regenerated.
  90         * generated/maxloc1_4_i2.c: Regenerated.
  91         * generated/product_r8.c: Regenerated.
  92         * generated/maxloc1_8_i8.c: Regenerated.
  93         * generated/sum_c10.c: Regenerated.
  94         * generated/minloc1_4_r16.c: Regenerated.
  95         * generated/maxloc1_4_r16.c: Regenerated.
  96         * generated/count_1_l.c: Regenerated.
  97         * generated/minloc1_4_r4.c: Regenerated.
  98         * generated/minloc1_16_i8.c: Regenerated.
  99         * generated/maxloc1_16_i8.c: Regenerated.
 100         * generated/minloc1_4_i2.c: Regenerated.
 101         * generated/maxloc1_8_i1.c: Regenerated.
 102         * generated/minloc1_8_i8.c: Regenerated.
 103         * generated/product_r16.c: Regenerated.
 104         * generated/product_c8.c: Regenerated.
 105         * generated/sum_r8.c: Regenerated.
 106         * generated/norm2_r10.c: Regenerated.
 107         * generated/minloc1_16_i16.c: Regenerated.
 108         * generated/maxloc1_8_r4.c: Regenerated.
 109         * generated/minloc1_16_i1.c: Regenerated.
 110         * generated/maxloc1_16_i1.c: Regenerated.
 111         * generated/minval_r10.c: Regenerated.
 112         * generated/count_16_l.c: Regenerated.
 113         * generated/parity_l8.c: Regenerated.
 114         * generated/minloc1_8_i1.c: Regenerated.
 115         * generated/minval_i4.c: Regenerated.
 116         * generated/maxloc1_4_i4.c: Regenerated.
 117         * generated/maxloc1_8_i2.c: Regenerated.
 118         * generated/maxval_i8.c: Regenerated.
 119         * generated/any_l8.c: Regenerated.
 120         * generated/minloc1_4_r10.c: Regenerated.
 121         * generated/minloc1_8_i16.c: Regenerated.
 122         * generated/maxloc1_4_r10.c: Regenerated.
 123         * generated/maxloc1_8_i16.c: Regenerated.
 124         * generated/minloc1_16_r4.c: Regenerated.
 125         * generated/maxloc1_16_r4.c: Regenerated.
 126         * generated/product_i8.c: Regenerated.
 127         * generated/sum_i16.c: Regenerated.
 128         * generated/count_2_l.c: Regenerated.
 129         * generated/maxloc1_16_i16.c: Regenerated.
 130         * generated/minloc1_8_r4.c: Regenerated.
 131         * generated/sum_c8.c: Regenerated.
 132         * generated/minloc1_16_i2.c: Regenerated.
 133         * generated/maxloc1_16_i2.c: Regenerated.
 134         * generated/parity_l1.c: Regenerated.
 135         * generated/maxval_i16.c: Regenerated.
 136         * generated/maxval_i1.c: Regenerated.
 137         * generated/minloc1_4_i4.c: Regenerated.
 138         * generated/any_l1.c: Regenerated.
 139         * generated/minloc1_8_i2.c: Regenerated.
 140         * generated/product_c16.c: Regenerated.
 141         * generated/product_r10.c: Regenerated.
 142         * generated/product_i1.c: Regenerated.
 143         * generated/all_l8.c: Regenerated.
 144         * generated/maxval_r4.c: Regenerated.
 145
 146 2010-08-26  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 147
 148         * config/fpu-387.h (has_sse): Remove cw_sse, unused.
 149         Use fixed-length asm.
 150
 151 2010-08-23  Tobias Burnus  <burnus@net-b.de>
 152
 153         PR fortran/45323
 154         * io/write.c (nml_write_obj, namelist_write): Cast argument
 155         of toupper to int.
 156
 157 2010-08-21  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 158
 159         * configure: Regenerate.
 160
 161 2010-08-19  Tobias Burnus  <burnus@net-b.de>
 162
 163         PR fortran/36158
 164         PR fortran/33197
 165         * m4/bessel.m4: Implement bessel_jn and bessel_yn.
 166         * gfortran.map: Add the generated bessel_jn_r{4,8,10,16}
 167         and bessel_yn_r{4,8,10,16}.
 168         * Makefile.am: Add bessel.m4.
 169         * Makefile.in: Regenerated.
 170         * generated/bessel_r4.c: Generated.
 171         * generated/bessel_r16.c: Generated.
 172         * generated/bessel_r8.c: Generated.
 173         * generated/bessel_r10.c: Generated.
 174
 175 2010-08-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 176
 177         PR libfortran/45108
 178         * io/list_read.c (namelist_read): If namelist reading fails, use
 179         generate_error and then continue the read loop.
 180
 181 2010-08-17  Jakub Jelinek  <jakub@redhat.com>
 182
 183         PR fortran/45308
 184         * intrinsics/date_and_time.c (date_and_time): Pass __{zone,time,date}_len
 185         instead of {ZONE,TIME,DATE}_LEN as second argument to fstrcpy.  Drop
 186         asserts.  Adjust comment to the F2003 wording from the F95 wording.
 187
 188 2010-08-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 189
 190         PR libfortran/44931
 191         * io/inquire.c (inquire_via_unit): Add special case for __MINGW32__ to
 192         return special file names CONIN$, CONOUT$, and CONERR$.
 193
 194 2010-08-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 195
 196         PR libfortran/45143
 197         * io/format.c: Remove fnode storage structure definitions, moving these
 198         to format.h. (parse_format_list): Add check for data descriptors,
 199         taking care of nested formats. Adjust calling parameters to pass a
 200         check flag. (parse_format): Likewise.
 201         * io/format.h: Add structures moved from format.c.
 202
 203 2010-08-02  Janne Blomqvist  <jb@gcc.gnu.org>
 204
 205         * io/unit.c (update_position): Don't update the position flag for
 206         non-seekable files, check for stell() error.
 207
 208 2010-08-01  Janne Blomqvist  <jb@gcc.gnu.org>
 209
 210         * io/unix.c (file_exists): Use access(2) instead of stat(2) to
 211         test file existence.
 212         (fallback_access): Move up in file, implement F_OK.
 213
 214 2010-07-31  David Edelsohn  <edelsohn@gnu.org>
 215
 216         * io/inquire.c: Include io.h before string.h.
 217
 218 2010-07-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 219
 220         PR libfortran/44931
 221         * io/inquire.c (inquire_via_unit): Use ttyname to return actual device
 222         file name for stdin, stdout, and stderr.  If ttyname does not succeed
 223         fall back to default names for these units. Include string.h to allow
 224         using strlen function.
 225         * unix.c: Remove typedef of unix_stream structure, move to unix.h.
 226         * unix.h: Add typedef of unix_stream structure so that it is
 227         accessible to inquire.c.
 228
 229 2010-07-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 230
 231         PR libfortran/44953
 232         * io/unix.c (mem_alloc_w4): Return gfc_char4_t instead of char type
 233         pointer. (mem_write4): Remove cast to gfc_char4_t.
 234         * io/transfer.c (write_block): Use a gfc_char4_t pointer.
 235         (memset4): New helper function. (next_record_w): Use new helper
 236         function rather than sset for internal units.  Don't attempt to pad
 237         with spaces if it is not needed.
 238         * io/unix.h: Update prototype for mem_alloc_w4.
 239         * io/write.c (memset4): Use gfc_char4_t pointer and chracter type.
 240         Don't use multiply by 4 to compute offset. (memcpy4): Likewise.
 241         (write_default_char4): Use a gfc_char4_t pointer and update memset4
 242         and memcpy calls. (write_a): Likewise. (write_l): Likewise.
 243         (write_boz): Likewise. (write_decimal): Likewise. (write_x): Likewise.
 244         (write_char): Add support for character(kind=4) internal units that
 245         was previously missed. (write_integer): Use a gfc_char4_t pointer and
 246         update memset4 and memcpy calls. (write_character): Likewise.
 247         (write_separator): Add support for character(kind=4) internal units
 248         that was previously missed.
 249         * write_float.def (output_float): Use a gfc_char4_t pointer and
 250         update memset4 and memcpy calls. (write_infnan): Likewise.
 251         (output_float_FMT_G_): Likewise.
 252
 253 2010-07-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 254
 255         PR libfortran/37077
 256         * io/read.c (read_default_char4): Add support for reading into a
 257         kind-4 character variable from a character(kind=4) internal unit.
 258         * io/io.h (read_block_form4): Add prototype.
 259         * io/unit.c (get_internal_unit): Add call to fbuf_init.
 260         (free_internal_unit): Add call to fbuf_destroy. (get_unit): Fix
 261         whitespace.
 262         * io/transfer.c (read_sf_internal): Use fbuf_alloc to allocate a string
 263         to recieve the wide characters translated to single byte chracters.
 264         (read_block_form): Fix whitespace. (read_block_form4): New function to
 265         read from a character(kind=4) internal unit into a character(kind=4)
 266         variable. (read_block_direct): Fix whitespace. (write_block): Fix
 267         whitespace. (formatted_transfer_scalar_read): Likewise.
 268         (formatted_transfer_scalar_write): Likewise.
 269         * io/write.c (write_character): Add support for list directed write of
 270         a kind=1 character string to a character(kind=4) internal unit.
 271
 272 2010-07-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 273
 274         PR libfortran/44934
 275         * io/file_pos.c (st_endfile): Correctly set unit flags for form.
 276         * io/transfer.c (data_transfer_init): Fix indentation of whitespace.
 277
 278 2010-07-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 279
 280         PR libfortran/37077
 281         * io/read.c: Fix comment.
 282         * io/io.h (is_char4_unit): New macro.
 283         * io/unit.c (get_internal_unit): Call new function open_internal4.
 284         * io/unix.c (mem_alloc_r4): New function. (mem_alloc_w4): New function.
 285         (mem_read4): New function, temporary stub. (mem_write4): New function.
 286         (open_internal4): New function to set stream pointers to use the new
 287         mem functions.
 288         * io/transfer.c (write_block): Use new mem_alloc_w4 to access internal
 289         units of kind=4.
 290         * io/unix.h: Add prototypes for open_internal4, mem_alloc_w4, and
 291         mem_alloc_r4.
 292         * io/write.c (memset4): New helper function. (memcpy4): New helper
 293         function. (write_default_char4): Use new helper functions.
 294         (write_a): Likewise. (write_l): Likewise. (write_boz): Likewise.
 295         (write_decimal): Likewise. (write_x): Likewise.
 296         (write_integer): Likewise.
 297         * io/write_float.def (output_float): Add code blocks to handle internal
 298         unit kind=4 output utilizing gfc_char4_t pointers. (write_infnan): Use
 299         new helper functions. (OUTPUT_FLOAT_FMT_G): Update this macro likewise.
 300
 301 2010-07-12  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 302
 303         * config/fpu-387.h [__sun__ && __svr4__] Include <signal.h>,
 304         <ucontext.h>.
 305         (sigill_caught): New.
 306         (sigill_hdlr): New function
 307         (has_sse) [__sun__ && __svr4__]: Check if SSE instruction causes
 308         SIGILL.
 309
 310 2010-07-11  Kai Tietz  <kai.tietz@onevision.com>
 311
 312         PR libfortran/44698
 313         * io/unix.c (flush_buf): Add _commit for WIN32.
 314
 315 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 316
 317         PR fortran/43298
 318         * list_read.c (parse_real): Do not pass (..) on for NAN(..).
 319         * read.c (convert_real): Fix comment about NAN/INF.
 320
 321 2010-07-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 322
 323         * configure.ac (gfortran_use_symver): Only check for Sun-style symbol
 324         versioning on Solaris 2.
 325         * configure: Regenerate.
 326
 327 2010-07-02  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 328
 329         * configure.ac: Check for Sun symbol versioning.
 330         * configure: Regenerate.
 331
 332         * Makefile.am [LIBGFOR_USE_SYMVER]: Protect version_arg with
 333         LIBGFOR_USE_SYMVER_GNU.
 334         Add version_dep.
 335         [LIBGFOR_USE_SYMVER_SUN]: Handle Sun symbol versioning.
 336         [!LIBGFOR_USE_SYMVER]: Add version_dep.
 337         (libgfortran_la_DEPENDENCIES): Set to $(version_dep).
 338         * Makefile.in: Regenerate.
 339
 340 2010-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 341
 342         PR libfortran/43298
 343         * io/read.c: Add code to parse and read Inf, Infinity, NaN, and Nan with
 344         optional parenthesis.
 345
 346 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 347
 348         PR fortran/43298
 349         * list_read.c (parse_real, read_real): Support NAN(alphanum).
 350
 351 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 352
 353         * intrinsics/selected_real_kind.f90
 354         (_gfortran_selected_real_kind2008): Add function.
 355         (_gfortran_selected_real_kind): Stub which calls
 356         _gfortran_selected_real_kind2008.
 357         * gfortran.map (GFORTRAN_1.4): Add
 358         _gfortran_selected_real_kind2008.
 359         * mk-srk-inc.sh: Save also RADIX.
 360
 361 2010-06-25  Tobias Burnus  <burnus@net-b.de>
 362
 363         * runtime/compile_options.c (init_compile_options): Update
 364         compile_options.allow_std for GFC_STD_F2008_OBS.
 365         * io/transfer.c (formatted_transfer_scalar_read,
 366         formatted_transfer_scalar_write): Fix allow_std check.
 367         * io/list_read.c (nml_parse_qualifier): Ditto.
 368
 369 2010-06-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 370
 371         PR libfortran/44477
 372         * io/file_pos.c (st_endfile): Add check for ENDFILE when file is
 373         already positioned after the EOF marker. Use find_or_create_unit
 374         instead of find_unit. If unit is not connected, connect it and create
 375         the file with default settings.
 376         * io/transfer.c (data_transfer_init):  Add check for attempted READ or
 377         WRITE when file is already positioned after the EOF marker.
 378
 379 2010-06-10  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 380
 381         * intrinsics/selected_char_kind.c (selected_char_kind): Fix
 382         return value for ISO_10646.
 383
 384 2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 385
 386         * mk-kinds-h.sh: Define GFC_REAL_*_LITERAL_SUFFIX and
 387         GFC_REAL_*_LITERAL macros for each kind.
 388         * intrinsics/cpu_time.c (cpu_time_4, cpu_time_8, cpu_time_10,
 389         cpu_time_16): Use them.
 390         * intrinsics/random.c (rnumber_4, rnumber_8, rnumber_10,
 391         rnumber_16): Likewise.
 392
 393 2010-06-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 394
 395         * intrinsics/system_clock.c (system_clock_4, system_clock_8):
 396         Undefine TCK.
 397
 398 2010-06-04  Thomas Koenig  <tkoenig@gcc.gnu.org>
 399
 400         PR libfortran/34670
 401         * intrinsics/date_and_time.c:  Replace assert with runtime_error
 402         when VALUE is too small.
 403
 404 2010-05-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 405
 406         PR fortran/43851
 407         * runtime/stop.c (stop_string): Make sure nothing is emitted for
 408         blank stop.
 409
 410 2010-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
 411
 412         PR fortran/43851
 413         * runtime/stop.c (error_stop_numeric): New function and updated comment.
 414         Add declaration for stop_numeric and remove declaration for stop_string.
 415         (stop_string): Use for blank STOP.
 416         (stop_numeric): Remove use of special -1 stop code.
 417         * runtime/pause.c (do_pause): Use stop_string for blank stop.
 418         (pause_numeric): Remove use of special -1 pause code.
 419         * gfortran.map: Add new symbol to run-time library.
 420         * libgfortran.h: Move declaration for stop_string to here to make
 421         function visible for do_pause. Remove declaration for stop_numeric.
 422
 423 2010-05-08  Janne Blomqvist  <jb@gcc.gnu.org>
 424
 425         * io/unix.h (mem_alloc_r): Fix typo to reduce visibility.
 426
 427 2010-05-07  Janne Blomqvist  <jb@gcc.gnu.org>
 428
 429         * libgfortran.h (free_mem): Remove prototype.
 430         * runtime/memory.c (free_mem): Remove function.
 431         * intrinsics/date_and_time.c (secnds): Replace free_mem() with
 432         free().
 433         * io/fbuf.c (fbuf_destroy): Likewise.
 434         * io/format.c (free_format_hash_table): Likewise.
 435         (save_parsed_format): Likewise.
 436         (free_format_data): Likewise.
 437         * io/list_read.c (free_saved): Likewise.
 438         (free_line): Likewise.
 439         (nml_touch_nodes): Likewise.
 440         (nml_read_obj): Likewise
 441         * io/lock.c (free_ionml): Likewise.
 442         * io/open.c (new_unit): Likewise.
 443         (already_open): Likewise.
 444         * io/unit.c (destroy_unit_mutex): Likewise.
 445         (free_internal_unit): Likewise.
 446         (close_unit_1): Likewise.
 447         * io/unix.c (raw_close): Likewise.
 448         (buf_close): Likewise.
 449         (mem_close): Likewise.
 450         (tempfile): Likewise.
 451         * io/write.c (nml_write_obj): Likewise.
 452         * io/write_float.def (output_float_FMT_G_##): Likewise.
 453         * runtime/error.c (show_locus): Likewise.
 454
 455 2010-05-04  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 456
 457         PR other/43620
 458         * configure.ac (AM_INIT_AUTOMAKE): Add no-dist.
 459         * configure: Regenerate.
 460         * Makefile.in: Regenerate.
 461
 462 2010-04-30  Kai Tietz  <kai.tietz@onevision.com>
 463
 464         PR/43844
 465         * io/unix.c (raw_truncate): Explicit cast from integer-scalar
 466         to pointer.
 467         (tempfile): Use for mingw GetTempPath and avoid double slash
 468         for path.
 469
 470 2010-04-24  Kai Tietz  <kai.tietz@onevision.com>
 471
 472         PR/43844
 473         * io/unix.c (tempfile): Correct logic for mktemp case.
 474
 475 2010-04-06  Tobias Burnus  <burnus@net-b.de>
 476
 477         PR fortran/39997
 478         * runtime/stop.c (error_stop_string): New function.
 479         * gfortran.map (_gfortran_error_stop_string): Add.
 480
 481 2010-04-02  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 482
 483         * Makefile.in: Regenerate.
 484         * aclocal.m4: Regenerate.
 485
 486 2010-04-01  Janne Blomqvist  <jb@gcc.gnu.org>
 487
 488         PR libfortran/43605
 489         * io/intrinsics.c (gf_ftell): New function, seek to correct offset.
 490         (ftell): Call gf_ftell.
 491         (FTELL_SUB): Likewise.
 492
 493 2010-04-01  Paul Thomas  <pault@gcc.gnu.org>
 494
 495         * io/transfer.c : Update copyright.
 496         * io/unix.c : ditto
 497         * io/read.c : ditto
 498         * io/io.h : ditto
 499         * io/unix.h : ditto
 500         * io/inquire.c : ditto
 501         * io/format.c : ditto
 502         * io/list_read.c : ditto
 503         * runtime/error.c : ditto
 504         * libgfortran.h : ditto
 505         * intrinsics/date_and_time.c: ditto
 506         * intrinsics/args.c : ditto
 507
 508 2010-04-01  Janne Blomqvist  <jb@gcc.gnu.org>
 509
 510         PR libfortran/43605
 511         * io/intrinsics.c (ftell): Reset fbuf, correct offset.
 512         (FTELL_SUB): Likewise.
 513
 514 2010-03-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 515
 516         PR libfortran/43265
 517         * io/transfer.c (next_record_r): Only call hit_eof for specific
 518         conditions when an EOF is encountered.
 519
 520 2010-03-29  Tobias Burnus  <burnus@net-b.de>
 521
 522         PR fortran/43551
 523         * io/unix.c (buf_write): Set physical_offset after lseek.
 524
 525 2010-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 526
 527         PR libfortran/43517
 528         * io/read.c (read_x): Return if seen EOR condition.
 529
 530 2010-03-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 531
 532         PR fortran/43409
 533         * io/io.h: Fix type of size in st_parameter_inquire structure.
 534
 535 2010-03-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 536
 537         PR fortran/43409
 538         * io/unix.h: Add prototype for new function to return file size.
 539         * io/unix.c (file_size): New function.
 540         * io/inquire.c (inquire_via_unit): Use new function.
 541         (inquire_via_filename): Use new function.
 542
 543 2010-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 544
 545         * io/transfer.c (read_sf_internal): Remove stray function declaration
 546         used during debugging.
 547
 548 2010-03-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 549
 550         PR libfortran/43265
 551         * io/io.h: Delete prototype for read_sf, making it static.
 552         * io/read.c (read_x): Modify to call hit_eof if PAD="no".
 553         * io/transfer.c (read_sf_internal): New static function extracted from
 554         read_sf for use on internal units only. Handle empty string case.
 555         (read_sf): New factoring of this function, make it static.  Add special
 556         conditions for EOF based on ADVANCE="no", PAD="no", and whether any
 557         bytes have been previously read from the record.
 558         (read_block_form): Modify to call read_sf or read_sf_internal.
 559         (next_record_r): Add a done flag similar to next_record_w. Call hit_eof
 560         if internal array unit next record returns finished, meaning an EOF was
 561         found and not done, ie not the last record expected.  For external
 562         units call hit_eof if item_count is 1 or there are no pending spaces.
 563         (next_record): Update call to next_record_r.
 564
 565 2010-03-12  Kai Tietz  <kai.tietz@onevision.com>
 566
 567         PR/42950
 568         * io/format.c (parse_format_list): Add to ERROR, WARNING,
 569         SILENT enumerators NOTIFICATION_ prefix.
 570         * runtime/error.c (notification_std): Likewise.
 571         * libgfortran.h (notification): Likewise.
 572         (GFC_LARGEST_BUF): Check for HAVE_GFC_INTEGER_16.
 573
 574 2010-03-11  Tobias Burnus  <burnus@net-b.de>
 575
 576         PR fortran/43228
 577         * io/list_read.c (nml_parse_qualifier): Disable expanded_read
 578         for array sections.
 579
 580 2010-03-10  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 581
 582         PR libfortran/43320
 583         * io/transfer.c (next_record_r): Add hit_eof based on item_count
 584         condition.
 585
 586 2010-03-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 587
 588         PR libfortran/43265
 589         * io/read.c: Include fbuf.h and unix.h to enable lower level I/O for
 590         read_x. (read_x): Replace the use of read_sf with equivalent lower level
 591         I/O, eliminating unneeded code and handling EOF and EOR conditions.
 592         * io/io.h: Revise prototype for read_sf.
 593         * io/transfer.c (read_sf): Delete no_error parameter and all uses of it.
 594         (read_block_form): Likewise.
 595         (next_record_r): Delete wrong code call to hit_eof.
 596
 597 2010-03-08  Kai TIetz  <kai.tietz@onevision.com>
 598
 599         PR/42950
 600         * libgfortran.h (_POSIX): Define if __MINGW32__ is defined.
 601         (gfc_printf): Define to gnu_printf for __MINGW32__ case,
 602         otherwise to __printf__.
 603         (gfc_strtof,gfc_strtod,gfc_strtold): Define for mingw case
 604         to POSIX compatible converter functions.
 605         (runtime_error): Use instead gfc_printf as formatter
 606         attribute name.
 607         (runtime_error_at): Likewise.
 608         (runtime_warning_at): Likewise.
 609         (st_printf): Likewise.
 610         * intrinsics/date_and_time.c (localtime_r): Undefine
 611         possible defined macro.
 612         (gmtime_r): Likewise.
 613         * io/read.c (convert_real): Use gfc_strtof, gfc_strtod,
 614         and gfc_strtold.
 615
 616 2010-02-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 617
 618         PR libfortran/43155
 619         * io/transfer.c (require_type): Subtract one from item_count for output
 620         of error message.  Add comment before formatted_transfer function
 621         explaining why the item_count is off by one.
 622
 623 2010-02-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 624
 625         * io/write_float.def (WRITE_FLOAT): Use __builtin_signbit.
 626
 627 2010-02-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 628
 629         * io/list_read.c (list_formatted_read_scalar): Remove duplicate code.
 630
 631 2010-02-09  Tobias Burnus  <burnus@net-b.de>
 632
 633         PR fortran/42996
 634         * intrinsics/args.c (get_command_argument_i4): Always return
 635         commandline-argument length for length parameter.
 636
 637 2010-02-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 638
 639         PR libfortran/42742
 640         * io/format.c (reset_fnode_counters): Use the correct pointer to the
 641         head of the fnode list. (parse_format): Remove previous hack that set
 642         limit on size of format string for caching.
 643
 644 2010-02-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 645
 646         PR libfortran
 647         * io/transfer.c (read_sf): Handle EOR and EOF conditions for
 648         ADVANCE="no" with PAD="yes" or PAD="no".
 649
 650 2010-02-03  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 651
 652         PR libfortran/42901
 653         * io/list_read.c (nml_get_obj_data): Add new qualifier flag, clean up
 654         code, and adjust logic to set namelist info pointer correctly for array
 655         qualifiers of derived type components.
 656
 657 2010-01-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 658
 659         PR libfortran/42742
 660         * io/format.c (parse_format): Set limit on size of format strings that
 661         will be cached.
 662
 663 2010-01-05  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 664
 665         * configure: Regenerate.
 666
 667 2010-01-03  Janne Blomqvist  <jb@gcc.gnu.org>
 668
 669         PR libfortran/42420
 670         * io/unix.c: Defines for MINGW stat and fstat.
 671         (gfstat_t): New typedef.
 672         (id_from_fd): Use gfstat_t instead of struct stat.
 673         (fd_to_stream): Likewise.
 674         (compare_file_filename): Likewise.
 675         (find_file): Likewise.
 676         (file_exists): Likewise.
 677         (inquire_sequential): Likewise.
 678         (inquire_direct): Likewise.
 679         (inquire_formatted): Likewise.
 680
 681 \f
 682 Copyright (C) 2010 Free Software Foundation, Inc.
 683
 684 Copying and distribution of this file, with or without modification,
 685 are permitted in any medium without royalty provided the copyright
 686 notice and this notice are preserved.