]> git.ipfire.org Git - thirdparty/gcc.git/blob - libgfortran/ChangeLog-2005
gcc/testsuite/
[thirdparty/gcc.git] / libgfortran / ChangeLog-2005
1 2005-12-31 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2
3 PR libfortran/25594
4 PR libfortran/25419
5 * io/list_read.c (list_formatted_read_scalar): Test for comma to return
6 a null value (default). Revert patch of 25419 on 2005-12-28.
7
8 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
9
10 PR libfortran/25139
11 * io/unix.c (fd_truncate): Set s->active to zero.
12 PR libfortran/25510
13 * libgfortran.h: Add ERROR_INTERNAL and ERROR_INTERNAL_UNIT.
14 * runtime/error.c (translate_error): Add messages for new errors.
15 * io/list_read.c (next_char): Use new errors.
16 * io/transfer.c (next_record_r) (next_record_w): Use new errors.
17
18 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
19
20 PR libfortran/25550
21 * io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
22 next_record_r.
23
24 2005-12-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
25
26 PR libfortran/25419
27 * io/list_read.c (list_formatted_read_scalar): Allow comma to return a
28 null value (default).
29
30 2005-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
31
32 PR libfortran/25307
33 * io/list_read.c (next_char): Handle end-of-file conditions for
34 internal units and add support for internal character array units.
35
36 2005-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
37
38 PR libfortran/25463
39 * io/transfer.c (finalize_transfer): Fix execution order so that
40 next_record is set to zero in all cases.
41
42 2005-12-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
43
44 PR libfortran/25264
45 PR libfortran/25349
46 * io/unit.c (get_unit): Delete code that cleared the string when the
47 unit was opened, which is too soon.
48 * io/transfer.c (next_record_w): Pass done flag in. Change logic for
49 setting max_pos. Add code to position unit and pad record as needed.
50
51 2005-12-13 Richard Sandiford <richard@codesourcery.com>
52 Victor Leikehman <LEI@il.ibm.com>
53
54 * m4/matmul.m4: Use a different order in the special case of a
55 transposed first argument.
56 * generated/matmul_c4.c, generated/matmul_c8.c, generated/matmul_c10.c,
57 * generated/matmul_c16.c, generated/matmul_i4.c, generated/matmul_i8.c,
58 * generated/matmul_i10.c, generated/matmul_r4.c, generated/matmul_r8.c
59 * generated/matmul_r10.c, generated/matmul_r16.c: Regenerated.
60
61 2005-12-10 Janne Blomqvist <jb@gcc.gnu.org>
62
63 * Makefile.am: Enable loop unrolling for matmul.
64 * configure: Regenerated.
65 * Makefile.in: Regenerated.
66 * aclocal.m4: Regenerated.
67
68 2005-12-10 Thomas Koenig <Thomas.Koenig@online.de>
69
70 PR fortran/23815
71 * io/file_pos.c (unformatted_backspace): If flags.convert
72 does not equal CONVERT_NATIVE, reverse the record marker.
73 * io/open.c: Add convert_opt[].
74 (st_open): If no convert option is given, set CONVERT_NATIVE.
75 If CONVERT_BIG or CONVERT_LITTLE are given, set flags.convert to
76 CONVERT_NATIVE or CONVERT_SWAP (depending on wether we have
77 a big- or little-endian system).
78 * io/transfer.c (unformatted_read): Remove unused attribute
79 from arguments.
80 If we need to reverse
81 bytes, break up large transfers into a loop. Split complex
82 numbers into its two parts.
83 (unformatted_write): Likewise.
84 (us_read): If flags.convert does not equal CONVERT_NATIVE,
85 reverse the record marker.
86 (next_record_w): Likewise.
87 (reverse_memcpy): New function.
88 * io/inquire.c (inquire_via_unit): Implement convert.
89 * io/io.h (top level): Add enum unit_convert.
90 Add convert to st_parameter_open and st_parameter_inquire.
91 Define IOPARM_OPEN_HAS_CONVERT and IOPARM_INQUIRE_HAS_CONVERT.
92 Increase padding for st_parameter_dt.
93 Declare reverse_memcpy().
94
95 2005-12-09 Jakub Jelinek <jakub@redhat.com>
96
97 PR libfortran/24991
98 * acinclude.m4: Include acx.m4 and no-executables.m4.
99 * configure.ac: Add GCC_TOPLEVEL_SUBDIRS.
100 * configure: Rebuilt.
101 * Makefile.am (AM_CPPFLAGS): Use $(host_subdir) in build dir
102 path.
103 * Makefile.in: Rebuilt.
104
105 2005-12-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
106
107 PR libfortran/25039
108 * io/io.h: Create a new flag sf_read_comma to control comma
109 separators in numeric reads.
110 * io/transfer.c (formatted_transfer_scalar): Initialize the flag.
111 (read_sf): Check for commas coming in and if the flag is set,
112 shortcut the read.
113 * io/read.c (read_a) (read_x): Clear the flag for character reads and
114 reset it after the reads.
115
116 2005-12-04 Francois-Xavier Coudert <coudert@clipper.ens.fr>
117
118 * io/format.c: Removing unused code.
119 * intrinsics/random.c: Likewise.
120
121 2005-12-02 Francois-Xavier Coudert <coudert@clipper.ens.fr>
122
123 PR libfortran/25116
124 * io/transfer.c (data_transfer_init): Don't set the default for
125 namelist I/O on preconnected files to UNFORMATTED.
126
127 2005-11-30 Eric Botcazou <ebotcazou@libertysurf.fr>
128
129 * libgfortran.h (ILP32 typedefs): Define _UINT8_T, _UINT32_T and
130 _UINT64_T on Solaris.
131
132 2005-11-28 Steven G. Kargl <kargls@comcast.net>
133
134 PR libfortran/25149
135 * intrinsics/abort.c: Add external abort_ to allow linking when
136 invoking -std=f95 in testsuite.
137
138 2005-11-28 Jakub Jelinek <jakub@redhat.com>
139
140 PR libfortran/24991
141 * acinclude.m4 (LIBGFOR_CHECK_PRAGMA_WEAK): Rename to...
142 (LIBGFOR_GTHREAD_WEAK): ... this. Define SUPPORTS_WEAK rather
143 than HAVE_PRAGMA_WEAK. Define GTHREAD_USE_WEAK to 0 on hosts
144 that shouldn't use weak in gthr.h.
145 * configure.ac: Use LIBGFOR_GTHREAD_WEAK instead of
146 LIBGFOR_CHECK_PRAGMA_WEAK.
147 * config.h.in: Regenerated.
148 * configure: Regenerated.
149 * io/io.h (SUPPORTS_WEAK): Don't define here.
150
151 * intrinsics/ftell.c (ftell, FTELL_SUB): Add unlock_unit call.
152 * intrinsics/fget.c (fgetc, fputs): Likewise.
153 * intrinsics/tty.c (ttynam): Likewise.
154
155 2005-11-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
156
157 PR libfortran/25109
158 * io/unit.c (init_units): Set default flag to BLANK_NULL per
159 requirement of F95 standard. Set PAD_YES for stdin.
160
161 2005-11-27 David Edelsohn <edelsohn@gnu.org>
162
163 * intrinsics/random.c: Include config.h
164 * io/size_from_kind.c: Include config.h and libgfortran.h
165 * io/io.h: Revert 2005-11-21 change.
166
167 2005-11-27 Francois-Xavier Coudert <coudert@clipper.ens.fr>
168
169 * io/write.c (namelist_write): Correct type in previous
170 commit.
171
172 2005-11-27 Francois-Xavier Coudert <coudert@clipper.ens.fr>
173
174 PR libfortran/24919
175 * io/list_read.c (eat_separator, finish_separator,
176 read_character): Handle CRLF separators correctly during reads.
177 (nml_query): Use the HAVE_CRLF macro to print adequate newlines.
178 * io/io.h (st_parameter_dt): Add comment about the possible
179 values for sf_seen_eor.
180 * io/unix.c (tempfile, regular_file): HAVE_CRLF doesn't imply
181 that O_BINARY is defined, so we add that condition.
182 (stream_at_bof): Fix typo in comment.
183 * io/transfer.c (read_sf): Handle correctly CRLF, setting
184 sf_seen_eor value to 2 instead of 1.
185 (formatted_transfer_scalar): Use the sf_seen_eor value to
186 handle CRLF the right way.
187 * io/write.c (nml_write_obj, namelist_write): Use CRLF as newline
188 when HAVE_CRLF is defined.
189
190 2005-11-27 Janne Blomqvist <jb@gcc.gnu.org>
191
192 * m4/ifunction.m4: Add const restrict to function arguments.
193 * m4/iforeach.m4: Likewise.
194 * m4/eoshift1.m4: Likewise.
195 * m4/eoshift3.m4: Likewise.
196 * m4/dotprod.m4: Likewise.
197 * m4/dotprodc.m4: Likewise.
198 * m4/dotprodl.m4: Likewise.
199 * m4/shape.m4: Likewise.
200 * m4/cshift1.m4: Likewise.
201 * m4/reshape.m4: Likewise.
202 * m4/transpose.m4: Likewise.
203 * generated/eoshift*: Regenerated
204 * generated/dotprod*: Likewise.
205 * generated/shape*: Likewise.
206 * generated/cshift1*: Likewise.
207 * generated/reshape*: Likewise.
208 * generated/transpose*: Likewise.
209
210 2005-11-26 Richard Henderson <rth@redhat.com>
211
212 * io/list_read.c (nml_parse_qualifier): Use ssize_t instead of int
213 in dtp->u.p.value.
214
215 2005-11-26 Janne Blomqvist <jb@gcc.gnu.org>
216
217 PR libfortran/24945
218 * io/open.c (edit_modes): Check for STATUS_UNKNOWN flag.
219
220 2005-11-25 Richard Henderson <rth@redhat.com>
221
222 * io/list_read.c (nml_parse_qualifier): Use memcpy to extract
223 values from dtp->u.p.value.
224 * io/io.h (struct st_parameter_dt): Change reversion_flag, first_item,
225 seen_dollar, sf_seen_eor, eor_condition, no_leading_blank, char_flag,
226 input_complete, at_eol, comma_flag, namelist_mode, nml_read_error to
227 single-bit fields. Move value to where it'll be at least pointer
228 aligned.
229
230 2005-11-23 Alan Modra <amodra@bigpond.net.au>
231
232 * io/open.c (new_unit): Use the right unit number when checking
233 for stdin, stdout, stderr.
234
235 2005-11-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
236
237 PR libfortran/24794
238 * io/list_read.c (read_character): Add auto completion on short
239 namelist reads.
240
241 2005-11-21 David Edelsohn <edelsohn@gnu.org>
242
243 * io/io.h (_LARGE_FILES): Undefine for AIX.
244 (_LARGE_FILE_API): Define for AIX.
245
246 2005-11-21 Jakub Jelinek <jakub@redhat.com>
247
248 PR fortran/24774
249 PR fortran/14943
250 PR fortran/21647
251 * Makefile.am (AM_CPPFLAGS): Add gcc directories as -I paths,
252 add -D_GNU_SOURCE.
253 * Makefile.in: Regenerated.
254 * acinclude.m4 (LIBGFOR_CHECK_SYNC_FETCH_AND_ADD,
255 LIBGFOR_CHECK_GTHR_DEFAULT, LIBGFOR_CHECK_PRAGMA_WEAK): New macros.
256 * configure.ac: Add them.
257 * configure: Rebuilt.
258 * config.h.in: Rebuilt.
259 * libtool-version: Bump libgfortran.so SONAME to libgfortran.so.1.
260 * libgfortran.h (library_start, show_locus, internal_error,
261 generate_error, find_option): Add st_parameter_common * argument.
262 (library_end): Change into a dummy macro.
263 * io/io.h: Include gthr.h.
264 (SUPPORTS_WEAK): Define if HAVE_PRAGMA_WEAK.
265 (CHARACTER): Remove define.
266 (st_parameter, global_t): Remove typedef.
267 (ioparm, g, ionml, current_unit): Remove variables.
268 (init_error_stream): Remove prototype.
269 (CHARACTER1, CHARACTER2): Define.
270 (st_parameter_common, st_parameter_open, st_parameter_close,
271 st_parameter_filepos, st_parameter_inquire, st_parameter_dt): New
272 typedefs.
273 (IOPARM_LIBRETURN_MASK, IOPARM_LIBRETURN_OK, IOPARM_LIBRETURN_ERROR,
274 IOPARM_LIBRETURN_END, IOPARM_LIBRETURN_EOR, IOPARM_ERR, IOPARM_END,
275 IOPARM_EOR, IOPARM_HAS_IOSTAT, IOPARM_HAS_IOMSG, IOPARM_COMMON_MASK,
276 IOPARM_OPEN_HAS_RECL_IN, IOPARM_OPEN_HAS_FILE, IOPARM_OPEN_HAS_STATUS,
277 IOPARM_OPEN_HAS_ACCESS, IOPARM_OPEN_HAS_FORM, IOPARM_OPEN_HAS_BLANK,
278 IOPARM_OPEN_HAS_POSITION, IOPARM_OPEN_HAS_ACTION,
279 IOPARM_OPEN_HAS_DELIM, IOPARM_OPEN_HAS_PAD, IOPARM_CLOSE_HAS_STATUS,
280 IOPARM_INQUIRE_HAS_EXIST, IOPARM_INQUIRE_HAS_OPENED,
281 IOPARM_INQUIRE_HAS_NUMBER, IOPARM_INQUIRE_HAS_NAMED,
282 IOPARM_INQUIRE_HAS_NEXTREC, IOPARM_INQUIRE_HAS_RECL_OUT,
283 IOPARM_INQUIRE_HAS_FILE, IOPARM_INQUIRE_HAS_ACCESS,
284 IOPARM_INQUIRE_HAS_FORM, IOPARM_INQUIRE_HAS_BLANK,
285 IOPARM_INQUIRE_HAS_POSITION, IOPARM_INQUIRE_HAS_ACTION,
286 IOPARM_INQUIRE_HAS_DELIM, IOPARM_INQUIRE_HAS_PAD,
287 IOPARM_INQUIRE_HAS_NAME, IOPARM_INQUIRE_HAS_SEQUENTIAL,
288 IOPARM_INQUIRE_HAS_DIRECT, IOPARM_INQUIRE_HAS_FORMATTED,
289 IOPARM_INQUIRE_HAS_UNFORMATTED, IOPARM_INQUIRE_HAS_READ,
290 IOPARM_INQUIRE_HAS_WRITE, IOPARM_INQUIRE_HAS_READWRITE,
291 IOPARM_DT_LIST_FORMAT, IOPARM_DT_NAMELIST_READ_MODE,
292 IOPARM_DT_HAS_REC, IOPARM_DT_HAS_SIZE, IOPARM_DT_HAS_IOLENGTH,
293 IOPARM_DT_HAS_FORMAT, IOPARM_DT_HAS_ADVANCE,
294 IOPARM_DT_HAS_INTERNAL_UNIT, IOPARM_DT_HAS_NAMELIST_NAME,
295 IOPARM_DT_IONML_SET): Define.
296 (gfc_unit): Add lock, waiting and close fields. Change file
297 from flexible array member into pointer to char.
298 (open_external): Add st_parameter_open * argument.
299 (find_file, file_exists): Add file and file_len arguments.
300 (flush_all_units): New prototype.
301 (max_offset, unit_root, unit_lock): New variable.
302 (is_internal_unit, is_array_io, next_array_record,
303 parse_format, next_format, unget_format, format_error,
304 read_block, write_block, next_record, convert_real,
305 read_a, read_f, read_l, read_x, read_radix, read_decimal,
306 list_formatted_read, finish_list_read, namelist_read,
307 namelist_write, write_a, write_b, write_d, write_e, write_en,
308 write_es, write_f, write_i, write_l, write_o, write_x, write_z,
309 list_formatted_write, get_unit): Add st_parameter_dt * argument.
310 (insert_unit): Remove prototype.
311 (find_or_create_unit, unlock_unit): New prototype.
312 (new_unit): Return gfc_unit *. Add st_parameter_open *
313 and gfc_unit * arguments.
314 (free_fnodes): Remove prototype.
315 (free_format_data): New prototype.
316 (scratch): Remove.
317 (init_at_eol): Remove prototype.
318 (free_ionml): New prototype.
319 (inc_waiting_locked, predec_waiting_locked, dec_waiting_unlocked):
320 New inline functions.
321 * io/unit.c (max_offset, unit_root, unit_lock): New variables.
322 (insert): Adjust os_error caller.
323 (insert_unit): Made static. Allocate memory here, initialize
324 lock and after inserting it return it, locked.
325 (delete_unit): Adjust for deletion of g.
326 (find_unit_1): New function.
327 (find_unit): Use it.
328 (find_or_create_unit): New function.
329 (get_unit): Add dtp argument, change meaning of the int argument
330 as creation request flag. Adjust for different st_* calling
331 conventions, lock internal unit's lock before returning it
332 and removal of g. Call find_unit_1 instead of find_unit.
333 (is_internal_unit, is_array_io): Add dtp argument, adjust for
334 removal of most of global variables.
335 (init_units): Initialize unit_lock. Adjust insert_unit callers
336 and adjust for g removal.
337 (close_unit_1): New function.
338 (close_unit): Use it.
339 (unlock_unit): New function.
340 (close_units): Lock unit_lock, use close_unit_1 rather than
341 close_unit.
342 * io/close.c (st_close): Add clp argument. Adjust for new
343 st_* calling conventions and internal function API changes.
344 * io/file_pos.c (st_backspace, st_endfile, st_rewind, st_flush):
345 Add fpp argument. Adjust for new st_* calling conventions and
346 internal function API changes.
347 (formatted_backspace, unformatted_backspace): Likewise. Add
348 u argument.
349 * io/open.c (edit_modes, st_open): Add opp argument. Adjust for
350 new st_* calling conventions and internal function API changes.
351 (already_open): Likewise. If not HAVE_UNLINK_OPEN_FILE, unlink
352 scratch file. Instead of calling close_unit just call sclose,
353 free u->file if any and clear a few u fields before calling
354 new_unit.
355 (new_unit): Return gfc_unit *. Add opp and u arguments.
356 Adjust for new st_* calling conventions and internal function
357 API changes. Don't allocate unit here, rather than work with
358 already created unit u already locked on entry. In case
359 of failure, close_unit it.
360 * io/unix.c: Include unix.h.
361 (BUFFER_SIZE, unix_stream): Moved to unix.h.
362 (unit_to_fd): Add unlock_unit call.
363 (tempfile): Add opp argument, use its fields rather than ioparm.
364 (regular_file): Likewise.
365 (open_external): Likewise. Only unlink file if fd >= 0.
366 (init_error_stream): Add error argument, set structure it points
367 to rather than filling static variable and returning its address.
368 (FIND_FILE0_DECL, FIND_FILE0_ARGS): Define.
369 (find_file0): Use them. Don't crash if u->s == NULL.
370 (find_file): Add file and file_len arguments, use them instead
371 of ioparm. Add locking. Pass either an array of 2 struct stat
372 or file and file_len pair to find_file0.
373 (flush_all_units_1, flush_all_units): New functions.
374 (file_exists): Add file and file_len arguments, use them instead
375 of ioparm.
376 * io/unix.h: New file.
377 * io/lock.c (ioparm, g, ionml): Remove variables.
378 (library_start): Add cmp argument, adjust for new st_* calling
379 conventions.
380 (library_end): Remove.
381 (free_ionml): New function.
382 * io/inquire.c (inquire_via_unit, inquire_via_filename,
383 st_inquire): Add iqp argument, adjust for new st_* calling
384 conventions and internal function API changes.
385 * io/format.c (FARRAY_SIZE): Decrease to 64.
386 (fnode_array, format_data): New typedefs.
387 (avail, array, format_string, string, error, saved_token, value,
388 format_string_len, reversion_ok, saved_format): Remove variables.
389 (colon_node): Add const.
390 (free_fnode, free_fnodes): Remove.
391 (free_format_data): New function.
392 (next_char, unget_char, get_fnode, format_lex, parse_format_list,
393 format_error, parse_format, revert, unget_format, next_test): Add
394 fmt or dtp arguments, pass it all around, adjust for internal
395 function API changes and adjust for removal of global variables.
396 (next_format): Likewise. Constify return type.
397 (next_format0): Constify return type.
398 * io/transfer.c (current_unit, sf_seen_eor, eor_condition, max_pos,
399 skips, pending_spaces, scratch, line_buffer, advance_status,
400 transfer): Remove variables.
401 (transfer_integer, transfer_real, transfer_logical,
402 transfer_character, transfer_complex, transfer_array, current_mode,
403 read_sf, read_block, read_block_direct, write_block,
404 write_block_direct, unformatted_read, unformatted_write,
405 type_name, write_constant_string, require_type,
406 formatted_transfer_scalar, us_read, us_write, pre_position,
407 data_transfer_init, next_record_r, next_record_w, next_record,
408 finalize_transfer, iolength_transfer, iolength_transfer_init,
409 st_iolength, st_iolength_done, st_read, st_read_done, st_write,
410 st_write_done, st_set_nml_var, st_set_nml_var_dim,
411 next_array_record): Add dtp argument, pass it all around, adjust for
412 internal function API changes and removal of global variables.
413 * io/list_read.c (repeat_count, saved_length, saved_used,
414 input_complete, at_eol, comma_flag, last_char, saved_string,
415 saved_type, namelist_mode, nml_read_error, value, parse_err_msg,
416 nml_err_msg, prev_nl): Remove variables.
417 (push_char, free_saved, next_char, unget_char, eat_spaces,
418 eat_separator, finish_separator, nml_bad_return, convert_integer,
419 parse_repeat, read_logical, read_integer, read_character,
420 parse_real, read_complex, read_real, check_type,
421 list_formatted_read_scalar, list_formatted_read, finish_list_read,
422 find_nml_node, nml_untouch_nodes, nml_match_name, nml_query,
423 namelist_read): Add dtp argument, pass it all around, adjust for
424 internal function API changes and removal of global variables.
425 (nml_parse_qualifier): Likewise. Add parse_err_msg argument.
426 (nml_read_obj): Likewise. Add pprev_nl, nml_err_msg, clow and
427 chigh arguments.
428 (nml_get_obj_data): Likewise. Add pprev_nl and nml_err_msg
429 arguments.
430 (init_at_eol): Removed.
431 * io/read.c (convert_real, read_l, read_a, next_char, read_decimal,
432 read_radix, read_f, read_x): Add dtp argument, pass it all around,
433 adjust for internal function API changes and removal of global
434 variables.
435 (set_integer): Adjust internal_error caller.
436 * io/write.c (no_leading_blank, nml_delim): Remove variables.
437 (write_a, calculate_sign, calculate_G_format, output_float,
438 write_l, write_float, write_int, write_decimal, write_i, write_b,
439 write_o, write_z, write_d, write_e, write_f, write_en, write_es,
440 write_x, write_char, write_logical, write_integer, write_character,
441 write_real, write_complex, write_separator,
442 list_formatted_write_scalar, list_formatted_write, nml_write_obj,
443 namelist_write): Add dtp argument, pass it all around, adjust for
444 internal function API changes and removal of global variables.
445 (extract_int, extract_uint, extract_real): Adjust internal_error
446 callers.
447 * runtime/fpu.c (_GNU_SOURCE): Don't define here.
448 * runtime/error.c: Include ../io/unix.h.
449 (filename, line): Remove variables.
450 (st_printf): Pass address of a local variable to init_error_stream.
451 (show_locus): Add cmp argument. Use fields it points to rather than
452 filename and line variables.
453 (os_error, runtime_error): Remove show_locus calls.
454 (internal_error): Add cmp argument. Pass it down to show_locus.
455 (generate_error): Likewise. Use flags bitmask instead of non-NULL
456 check for iostat and iomsg parameter presence, adjust for st_*
457 calling convention changes.
458 * runtime/stop.c (stop_numeric, stop_string): Remove show_locus
459 calls.
460 * runtime/pause.c (pause_numeric, pause_string): Likewise.
461 * runtime/string.c: Include ../io/io.h.
462 (find_option): Add cmp argument. Pass it down to generate_error.
463 * intrinsics/flush.c (recursive_flush): Remove.
464 (flush_i4, flush_i8): Use flush_all_units. Add unlock_unit
465 call.
466 * intrinsics/rand.c: Include ../io/io.h.
467 (rand_seed_lock): New variable.
468 (srand, irand): Add locking.
469 (init): New constructor function.
470 * intrinsics/random.c: Include ../io/io.h.
471 (random_lock): New variable.
472 (random_r4, random_r8, arandom_r4, arandom_r8): Add locking.
473 (random_seed): Likewise. open failed if fd < 0. Set i correctly.
474 (init): New constructor function.
475 * intrinsics/system_clock.c (tp0, t0): Remove.
476 (system_clock_4, system_clock_8): Don't subtract tp0/t0 from current
477 time, use just integer arithmetics.
478 * intrinsics/tty.c (isatty_l4, isatty_l8, ttynam_sub): Add
479 unlock_unit calls.
480
481 2005-11-20 Richard Henderson <rth@redhat.com>
482
483 * Makefile.am: Revert 2005-11-14 change. Enable -free-vectorize
484 via gmake per-target variables.
485 * Makefile.in, aclocal.m4: Regenerate.
486
487 2005-11-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
488
489 * configure.ac: Add "-I ." to the AM_FCFLAGS.
490 * configure: Regenerate.
491
492 2005-11-18 Hans-Peter Nilsson <hp@axis.com>
493
494 * config/fpu-glibc.h (set_fpu): Only call fedisableexcept for
495 nonzero FE_ALL_EXCEPT.
496
497 2005-11-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
498
499 PR fortran/24892
500 * io/io.h (unit_access): Add ACCESS_APPEND.
501 * io/open.c (access_opt): Add APPEND value for ACCESS keyword.
502 (st_open): Use that new value to set the POSITION accordingly.
503
504 2005-11-14 Janne Blomqvist <jb@gcc.gnu.org>
505
506 PR fortran/21468
507 * Makefile.am: Add -ftree-vectorize for compiling matmul.
508 * m4/matmul.m4: Add const and restrict to type declarations as
509 appropriate.
510 * m4/matmull.m4: Likewise.
511 * Makefile.in: Regenerated.
512 * generated/matmul_*.c: Likewise.
513
514 2005-11-13 Francois-Xavier Coudert <coudert@clipper.ens.fr>
515
516 * intrinsics/fget.c: New file.
517 * intrinsics/ftell.c: New file.
518 * io/unix.c (stream_offset): New function.
519 * io/io.h: Add prototype for stream_offset.
520 * Makefile.am: Add intrinsics/fget.c and intrinsics/ftell.c.
521 * Makefile.in: Regenerate.
522
523 2005-11-12 Steven G. Kargl <kargls@comcast.net>
524
525 PR libfortran/24787
526 * intrinsics/string_intrinsics.c (string_scan): Off by one; Fix typos
527 in nearby comment.
528
529 2005-11-10 Andreas Jaeger <aj@suse.de>
530
531 * libgfortran.h: Add proper defines where needed.
532
533 2005-11-10 Andreas Jaeger <aj@suse.de>
534
535 * libgfortran.h: Add missing prototypes for internal_pack
536 functions.
537
538 2005-11-06 Janne Blomqvist <jb@gcc.gnu.org>
539
540 PR fortran/24174
541 PR fortran/24305
542 * io/io.h: Add argument to prototypes, add prototypes for
543 size_from_*_kind functions.
544 * io/list_read.c (read_complex): Add size argument, use
545 it.
546 (list_formatted_read): Add size argument, cleanup.
547 (list_formatted_read_scalar): Add size argument.
548 (nml_read_obj): Fix for padding.
549 * io/transfer.c: Add argument to transfer function pointer.
550 (unformatted_read): Add size argument.
551 (unformatted_write): Likewise.
552 (formatted_transfer_scalar): Fix for padding with complex(10).
553 (formatted_transfer): Add size argument, cleanup.
554 (transfer_integer): Add size argument to transfer call.
555 (transfer_real): Likewise.
556 (transfer_logical): Likewise.
557 (transfer_character): Likewise.
558 (transfer_complex): Likewise.
559 (transfer_array): New kind argument, use it.
560 (data_transfer_init): Add size argument to formatted_transfer
561 call.
562 (iolength_transfer): Add size argument, cleanup.
563 * io/write.c (write_complex): Add size argument, fix for padding
564 with complex(10).
565 (list_formatted_write): Add size argument, cleanup.
566 (list_formatted_write_scalar): Add size argument, use it.
567 (nml_write_obj): Fix for size vs. kind issue.
568 * io/size_from_kind.c: New file.
569 * Makefile.am: Add io/size_from_kind.c.
570 * configure: Regenerate.
571 * Makefile.in: Regenerate.
572
573 2005-11-06 Francois-Xavier Coudert <coudert@clipper.ens.fr>
574
575 * intrinsics/ctime.c: New file.
576 * configure.ac: Add check for ctime.
577 * Makefile.am: Add ctime.c
578 * configure: Regenerate.
579 * config.h.in: Regenerate.
580 * Makefile.in: Regenerate.
581
582 2005-11-05 Richard Guenther <rguenther@suse.de>
583
584 * configure.ac: Use AM_FCFLAGS for extra flags, not FCFLAGS.
585 * configure: Regenerate.
586
587 2005-11-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
588
589 * intrinsics/tty.c (ttynam): New function.
590
591 2005-11-04 Steven G. Kargl <kargls@comcast.net>
592
593 PR fortran/24636
594 * runtime/stop.c (stop_numeric): Use stop_code = -1.
595
596 2005-11-04 Francois-Xavier Coudert <coudert@clipper.ens.fr>
597
598 PR libfortran/22298
599 * runtime/main.c (stupid_function_name_for_static_linking): New
600 function.
601 * runtime/error.c (internal_error): Call
602 stupid_function_name_for_static_linking.
603 * libgfortran.h: Add prototype for
604 stupid_function_name_for_static_linking.
605
606 2005-11-01 Paul Thomas <pault@gcc.gnu.org>
607
608 PR fortran/14994
609 * libgfortran/intrinsics/date_and_time.c: Add interface to
610 the functions date_and_time for the intrinsic function secnds.
611
612 2005-10-31 Jerry DeLisle <jvdelisle@verizon.net>
613
614 PR libfortran/24584
615 * io/list_read.c (free_saved): Set saved_used to zero.
616
617 2005-10-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
618
619 PR libfortran/20179
620 * io/unix.c (flush_if_preconnected): New function.
621 * io/io.h: Add prototype for flush_if_preconnected.
622 * io/transfer.c (data_transfer_init): Use flush_if_preconnected
623 to workaround buggy mixed C-Fortran code.
624
625 2005-10-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
626
627 * Makefile.am: Add intrinsics/malloc.c file.
628 * Makefile.in: Regenerate.
629 * intrinsics/malloc.c: New file, with implementations for free
630 and malloc library functions.
631
632 2005-10-29 Mike Stump <mrs@apple.com>
633
634 * Makefile.am (kinds.h): Remove target, if command fails.
635 (selected_int_kind.inc): Likewise.
636 (selected_real_kind.inc): Likewise.
637 * Makefile.in: Regenerate.
638
639 2005-10-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
640
641
642 * Makefile.am (intrinsics): Add signal.c.
643 * Makefile.in: Regenerate.
644 * configure.ac: Checks for signal and alarm.
645 * config.h.in: Regenerate.
646 * configure: Regenerate.
647 * intrinsics/signal.c: New file for SIGNAL and ALARM intrinsics.
648
649 2005-10-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
650
651 * acinclude.m4 (LIBGFOR_CHECK_FPSETMASK): New check.
652 * configure.ac: Check for floatingpoint.h, fptrap.h and float.h
653 headers. Use LIBGFOR_CHECK_FPSETMASK. Check for fp_trap and
654 fp_enable functions.
655 * configure.host: Add case for systems with fpsetmask and systems
656 with fp_trap/fp_enable.
657 * config/fpu-sysv.h: New file, FPU code using fpsetmask.
658 * config/fpu-aix.h: New file, FPU code for AIX using fp_trap and
659 fp_enable.
660 * aclocal.m4: Regenerate.
661 * configure: Regenerate.
662 * config.h.in: Regenerate.
663
664 2005-10-24 Jerry DeLisle <jvdelisle@verizon.net>
665
666 PR libfortran/24224
667 * libgfortran.h: Remove array stride error code.
668 * runtime/error.c: Remove array stride error.
669 * io/io.h: Change name of 'nml_loop_spec' to 'array_loop_spec' to be
670 generic. Add pointer to array_loop_spec and rank to gfc_unit
671 structure.
672 * io/list_read.c: Revise nml_loop_spec references to array_loop_spec.
673 * io/transfer.c (init_loop_spec): New function to initialize
674 an array_loop_spec.
675 (next_array_record): New function to return the index to the next array
676 record by incrementing through the array_loop_spec.
677 (next_record_r): Use new function.
678 (next_record_w): Use new function.
679 (finalize_transfer): Free memory allocated for array_loop_spec.
680 * io/unit.c (get_array_unit_len): Delete this function. Use new
681 function init_loop_spec to initialize the array_loop_spec.
682
683 2005-10-24 Paul Thomas <pault@gcc.gnu.org>
684
685 PR fortran/24416
686 * libgfortran/io/list_read.c (namelist_read): Exit with call to
687 free_saved () so that character strings do not accumulate.
688
689 2005-10-23 Jerry DeLisle <jvdelisle@verizon.net>
690
691 PR libfortran/24489
692 * io/transfer.c (read_block): Change the order of execution to not read
693 past end-of-record.
694 (read_block_direct): Same change.
695
696 2005-10-23 Francois-Xavier Coudert <coudert@clipper.ens.fr>
697
698 PR libfortran/23272
699 * acinclude.m4 (LIBGFOR_CHECK_WORKING_STAT): New check.
700 * configure.ac: Use LIBGFOR_CHECK_WORKING_STAT.
701 * Makefile.in: Regenerate.
702 * configure: Regenerate.
703 * config.h.in: Regenerate.
704 * aclocal.m4: Regenerate.
705 * io/unix.c (compare_file_filename): Add fallback case for
706 systems without working stat.
707 * io/open.c (already_open): Correct call to
708 compare_file_filename.
709 * io/io.h: Correct proto for compare_file_filename.
710
711 2005-10-23 Francois-Xavier Coudert <coudert@clipper.ens.fr>
712
713 * runtime/fpu.c: Add _GNU_SOURCE definition.
714 * config/fpu-glibc.h: Remove __USE_GNU definition.
715
716 2005-10-23 Paul Thomas <pault@gcc.gnu.org>
717
718 PR fortran/24384
719 * intrinsics/spread_generic.c (spread_internal_scalar): New
720 function that handles the special case of spread with a scalar
721 source. This has new interface functions -
722 (spread_scalar, spread_char_scalar): New functions to interface
723 with the calls specified in gfc_resolve_spread.
724
725 2005-10-21 Francois-Xavier Coudert <coudert@clipper.ens.fr>
726
727 PR libfortran/24383
728 * io/unix.c: Add fallback definition for SSIZE_MAX.
729
730 2005-10-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
731
732 * c99_protos.h: Define preprocessor HAVE_ macros with value 1
733 instead of empty value.
734 * intrinsics/c99_functions.c: Likewise.
735 * intrinsics/getXid.c: Define HAVE_GETPID with value 1 instead of
736 empty value.
737 * intrinsics/sleep.c: Define HAVE_SLEEP with value 1 instead of
738 empty value.
739
740 2005-10-19 Francois-Xavier Coudert <coudert@clipper.ens.fr>
741
742 PR libfortran/24432
743 * c99_protos.h: Define HAVE_ macros for all provided functions.
744
745 2005-10-14 Uros Bizjak <uros@kss-loka.si>
746
747 * config/fpu-387.h (set_fpu): Remove extra ":" in stmxcsr.
748 Change cw and cw_sse variables to unsigned.
749 (SSE): New definition.
750 (has_sse): Use it.
751
752 2005-10-13 Thomas Koenig <Thomas.Koenig@online.de>
753
754 * io/unix.c(fd_alloc_r_at): Use read() instead of do_read()
755 only in case of special files (e.g. terminals).
756
757 2005-10-13 Uros Bizjak <uros@kss-loka.si>
758
759 * config/fpu-387.h (set_fpu): Add "=m" for stmxcsr.
760
761 2005-10-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
762
763 * Makefile.am: Add fpu.c to the build process, and
764 target-dependent code as fpu-target.h.
765 * Makefile.in: Regenerate.
766 * configure.ac: Add call to configure.host to set
767 FPU_HOST_HEADER.
768 * configure: Regenerate.
769 * configure.host: New script to determine which host-dependent
770 code should go in.
771 * libgfortran.h: Add fpe option, remove previous fpu_ options.
772 Add bitmasks for different FPE traps. Add prototype for set_fpu.
773 * runtime/environ.c: Remove environment variables to control
774 fpu behaviour.
775 * runtime/fpu.c (set_fpe): New function for the front-end.
776 * runtime/main.c (init): Set FPU state.
777 * config: New directory to store host-dependent code.
778 * config/fpu-387.h: New file with code handling the i387 FPU.
779 * config/fpu-glibc.h: New file with code for glibc systems.
780 * config/fpu-generic.h: Fallback for the most generic host. Issue
781 warnings.
782
783 2005-10-12 Janne Blomqvist <jblomqvi@cc.hut.fi>
784
785 * io/unix.c(fd_alloc_r_at): Remove parts of patch of 2005/10/07 that
786 cause input from the terminal to hang.
787
788 2005-10-11 Steven G. Kargl <kargls@comcast.net>
789
790 PR libfortran/24313
791 * c99_functions.c (csqrtf, csqrt): Fix choice of branch cut. Note
792 csqrt{f} were imported from glibc, and this bug is still present
793 there. glibc PR is 1146.
794
795 2005-10-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
796
797 PR fortran/16339
798 PR fortran/23363
799 * io/io.h: Add read and write members to stream, define access
800 macros.
801 * io/transfer.c (read_block_direct): New function.
802 (write_block_direct): New function.
803 (unformatted_read): Change to use read_block_direct.
804 (unformatted_write): Change to use write_block_direct.
805 * io/unix.c: Remove mmap includes and defines.
806 (writen): Remove.
807 (readn): Remove.
808 (reset_stream): New function.
809 (do_read): New function.
810 (do_write): New function.
811 (fd_flush): Change to use do_write() instead of writen().
812 (fd_alloc_r_at): Change to use do_read().
813 (fd_seek): Change return type to try, as the prototype. Add check
814 to avoid syscall overhead if possible.
815 (fd_read): New function.
816 (fd_write): New function.
817 (fd_open): Set pointers for new functions.
818 (mem_read): New function.
819 (mem_write): New function.
820 (open_internal): Set pointers for new functions.
821 (is_seekable): Clean up comment.
822
823 2005-10-07 Jerry DeLisle <jvdelisle@verizon.net>
824
825 * io/transfer.c (write_block): Add test for end-of-file condition,
826 removed from mem_alloc_w_at. (next_record_w): Clean up checks for
827 NULL pointer returns from s_alloc_w.
828 * io/unix.c (mem_alloc_w_at): Remove call to generate_error end-of-file.
829 * io/write.c (write_float): Add checks for NULL pointer returns from
830 write_block calls. (write_integer): Same.
831
832 2005-10-03 Jakub Jelinek <jakub@redhat.com>
833
834 * runtime/memory.c (allocate_size): Malloc 1 byte if size == 0.
835
836 2005-10-03 Francois-Xavier Coudert <coudert@clipper.ens.fr>
837
838 PR libfortran/19308
839 PR libfortran/22437
840 * Makefile.am: Add generated files for large real and integers
841 kinds. Add a rule to create the kinds.inc c99_protos.inc files.
842 Use kinds.inc to preprocess Fortran generated files.
843 * libgfortran.h: Add macro definitions for GFC_INTEGER_16_HUGE,
844 GFC_REAL_10_HUGE and GFC_REAL_16_HUGE. Add types gfc_array_i16,
845 gfc_array_r10, gfc_array_r16, gfc_array_c10, gfc_array_c16,
846 gfc_array_l16.
847 * mk-kinds-h.sh: Define macros HAVE_GFC_LOGICAL_* and
848 HAVE_GFC_COMPLEX_* when these types are available.
849 * intrinsics/ishftc.c (ishftc16): New function for GFC_INTEGER_16.
850 * m4/all.m4, m4/any.m4, m4/count.m4, m4/cshift1.m4, m4/dotprod.m4,
851 m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4,
852 m4/exponent.m4, m4/fraction.m4, m4/in_pack.m4, m4/in_unpack.m4,
853 m4/matmul.m4, m4/matmull.m4, m4/maxloc0.m4, m4/maxloc1.m4,
854 m4/maxval.m4, m4/minloc0.m4, m4/minloc1.m4, m4/minval.m4, m4/mtype.m4,
855 m4/nearest.m4, m4/pow.m4, m4/product.m4, m4/reshape.m4,
856 m4/set_exponent.m4, m4/shape.m4, m4/specific.m4, m4/specific2.m4,
857 m4/sum.m4, m4/transpose.m4: Protect generated functions with
858 appropriate "#if defined (HAVE_GFC_type_kind)" preprocessor directives.
859 * Makefile.in: Regenerate.
860 * all files in generated/: Regenerate.
861
862 2005-10-01 Jakub Jelinek <jakub@redhat.com>
863
864 * runtime/memory.c (malloc_t): Remove.
865 (GFC_MALLOC_MAGIC, HEADER_SIZE, DATA_POINTER, DATA_HEADER): Remove.
866 (mem_root, runtime_cleanup, malloc_with_header): Remove.
867 (internal_malloc_size): Use just get_mem if size != 0, return NULL
868 otherwise.
869 (internal_free): Just free if non-NULL.
870 (internal_realloc_size): Remove debugging stuff.
871 (allocate_size): Use malloc directly, remove debugging stuff.
872 (deallocate): Use free directly, fix error message wording.
873
874 * libgfortran.h (GFC_ITOA_BUF_SIZE, GFC_XTOA_BUF_SIZE,
875 GFC_OTOA_BUF_SIZE, GFC_BTOA_BUF_SIZE): Define.
876 (gfc_itoa, xtoa): Add 2 extra arguments.
877 * runtime/environ.c: Include stdio.h.
878 (check_buffered): Use sprintf.
879 * runtime/error.c: Include assert.h.
880 (gfc_itoa, xtoa): Add 2 extra arguments, avoid using static
881 buffers.
882 (st_printf, st_sprintf): Adjust callers.
883 * io/write.c (otoa, btoa): Add 2 extra arguments, avoid using
884 static buffers.
885 (write_int, write_decimal): Add 2 extra arguments to conv
886 function pointer, adjust caller.
887 (write_integer): Adjust gfc_itoa caller.
888
889 * io/unit.c (get_array_unit_len): Return 0 rather than NULL.
890
891 * io/read.c (read_f): Remove spurious pointer dereference.
892
893 2005-09-30 Janne Blomqvist <jblomqvi@cc.hut.fi>
894
895 PR 24112
896 * io/open.c (edit_modes): Check for correct flag.
897
898 2005-09-29 Jakub Jelinek <jakub@redhat.com>
899
900 * runtime/string.c (find_option): Change 3rd argument to
901 const st_option *.
902 * libgfortran.h (find_option): Likewise.
903 * runtime/environ.c (rounding, precision, signal_choices): Constify.
904 (init_choice, show_choice): Change 2nd argument to const choice *.
905 * io/open.c (access_opt, action_opt, blank_opt, delim_opt, form_opt,
906 position_opt, status_opt, pad_opt): Constify.
907 * io/transfer.c (advance_opt): Likewise.
908 * io/inquire.c (undefined): Likewise.
909 * io/close.c (status_opt): Likewise.
910 * io/format.c (posint_required, period_required, nonneg_required,
911 unexpected_element, unexpected_end, bad_string, bad_hollerith,
912 reversion_error): Likewise.
913 * io/unix.c (yes, no, unknown): Change from const char *
914 into const char [].
915
916 2005-09-27 Steve Ellcey <sje@cup.hp.com>
917
918 PR target/23552
919 * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE): New.
920 (LIBGFOR_CHECK_FOR_BROKEN_ISNAN): New.
921 (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): New.
922 * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_ISFINITE): Add use.
923 (LIBGFOR_CHECK_FOR_BROKEN_ISNAN): Add use.
924 (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY): Add use.
925 * configure: Regenerate.
926 * config.h.in: Regenerate.
927 * libgfortan.h (isfinite): undef if broken, set if needed.
928 (isnan): undef if broken, set if needed.
929 (fpclassify): undef if broken, set if needed.
930 * io/write.c: Remove TODO comment about working isfinite.
931 * intrinsics/c99_functions.c (round): Use isfinite instead
932 of fpclassify.
933 * intrinsics/c99_functions.c (roundf): Ditto.
934
935 2005-09-24 Janne Blomqvist <jblomqvi@cc.hut.fi>
936
937 * io.h: Changed prototypes of list_formatted_{read|write}.
938 * list_read.c (list_formatted_read): Renamed to
939 list_formatted_read_scalar and made static.
940 (list_formatted_read): New function.
941 * transfer.c: Prototype for transfer_array. Changed transfer
942 function pointer.
943 (unformatted_read): Add nelems argument, use it.
944 (unformatted_write): Likewise.
945 (formatted_transfer): Changed name to formatted_transfer_scalar.
946 (formatted_transfer): New function.
947 (transfer_integer): Add nelems argument to transfer call, move
948 updating item count to transfer functions.
949 (transfer_real): Likewise.
950 (transfer_logical): Likewise.
951 (transfer_character): Likewise.
952 (transfer_complex): Likewise.
953 (transfer_array): New function.
954 (data_transfer_init): Call formatted_transfer with new argument.
955 (iolength_transfer): New argument, use it.
956 * write.c (list_formatted_write): Renamed to
957 list_formatted_write_scalar, made static.
958 (list_formatted_write): New function.
959
960 2005-09-26 David Edelsohn <edelsohn@gnu.org>
961
962 * configure.ac: Add check for __clog.
963 * configure: Regenerate.
964
965 2005-09-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
966
967 * c99_protos.h: Add prototypes for C99 complex functions.
968 * libgfortran.h: Include complex.h before c99_protos.h.
969 * intrinsics/c99_functions.c: Define HAVE_ macros for the
970 fallback functions we provide.
971 (cabsf, cabs, cabsl, cargf, carg, cargl, cexpf, cexp, cexpl,
972 clogf, clog, clogl, clog10f, clog10, clog10l, cpowf, cpow, cpowl,
973 cqsrtf, csqrt, csqrtl, csinhf, csinh, csinhl, ccoshf, ccosh,
974 ccoshl, ctanhf, ctanh, ctanhl, csinf, csin, csinl, ccosf, ccos,
975 ccosl, ctanf, ctan, ctanl): New fallback functions.
976 * Makefile.am (gfor_math_trig_c, gfor_math_trig_obj,
977 gfor_specific_c, gfor_cmath_src, gfor_cmath_obj): Remove.
978 * Makefile.in: Regenerate.
979 * configure.ac: Remove checks for csin. Add checks for all C99
980 complex functions.
981 * config.h.in: Regenerate.
982 * configure: Regenerate.
983 * aclocal.m4: Regenerate.
984
985 2005-09-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
986 Danny Smith <dannysmith@users.sourceforge.net>
987
988 PR libfortran/23803
989 * intrinsics/getXid.c: Add getpid wrapper for MinGW.
990 * intrinsics/getlog.c: Add getlogin wrapper for MinGW.
991 * intrinsics/hostnm.c: Add gethostname wrapper for MinGW.
992
993 2005-09-24 Francois-Xavier Coudert <coudert@clipper.ens.fr>
994
995 PR libfortran/23802
996 * intrinsics/sleep.c: Add correct sleep macro for MinGW.
997
998 2005-09-24 Francois-Xavier Coudert <coudert@clipper.ens.fr>
999
1000 PR libfortran/23380
1001 * intrinsics/cpu_time.c (__cpu_time_1): Provide a MS Windows
1002 version.
1003
1004 2005-09-14 Jerry DeLisle <jvdelisle@verizon.net
1005
1006 PR fortran/21875 Internal Unit Array I/O, NIST
1007 * libgfortran.h: Add run time error code for array stride.
1008 * runtime/error.c (translate_error): Add error message for
1009 array stride.
1010 * io/io.h: Add array descriptor pointer to IOPARM structure.
1011 Add prtotypes for two new functions.
1012 * io/transfer.c (data_transfer_init): Removed initialization and
1013 moved to unit.c (get_unit)
1014 * io/transfer.c (next_record_r): Include internal unit read
1015 functionality.
1016 * io/transfer.c (next_record_w): Include internal unit write
1017 functionality, including padding of character array records.
1018 * io/unit.c (get_array_unit_len): New function to return the number
1019 of records in the character array 'file' from the array descriptor.
1020 * io/unit.c (get_unit): Gathered initialization code from
1021 init_data_transfer for internal units and added initialization of
1022 character array unit.
1023 * io/unit.c (is_array_io): New function to determine if internal unit
1024 is an array.
1025 * io/unix.c (mem_alloc_w_at): Add error checks for bad record length
1026 and end of file.
1027
1028 2005-09-13 Richard Sandiford <richard@codesourcery.com>
1029
1030 PR target/19269
1031 * intrinsics/cshift0.c (cshift0): Add an extra size argument.
1032 (cshift0_1, cshift0_2, cshift0_4, cshift0_8): Replace explicit
1033 implementations with...
1034 (DEFINE_CSHIFT): ...this new macro. Define character versions too.
1035 * intrinsics/eoshift0.c (zeros): Delete.
1036 (eoshift0): Add extra size and filler arguments. Use memset if no
1037 bound is provided.
1038 (eoshift0_1, eoshift0_2, eoshift0_4, eoshift0_8): Replace explicit
1039 implementations with...
1040 (DEFINE_EOSHIFT): ...this new macro. Define character versions too.
1041 * intrinsics/eoshift2.c (zeros): Delete.
1042 (eoshift2): Add extra size and filler arguments. Use memset if no
1043 bound is provided.
1044 (eoshift2_1, eoshift2_2, eoshift2_4, eoshift2_8): Replace explicit
1045 implementations with...
1046 (DEFINE_EOSHIFT): ...this new macro. Define character versions too.
1047 * intrinsics/pack.c (pack_internal): New static function, reusing
1048 the contents of pack and adding an extra size argument. Change
1049 "mptr" rather than "m" when calculating the array size.
1050 (pack): Redefine as a forwarder to pack_internal.
1051 (pack_s_internal): New static function, reusing the contents of
1052 pack_s and adding an extra size argument.
1053 (pack_s): Redefine as a forwarder to pack_s_internal.
1054 (pack_char, pack_s_char): New functions.
1055 * intrinsics/reshape.c (reshape_internal): New static function,
1056 reusing the contents of reshape and adding an extra size argument.
1057 (reshape): Redefine as a forwarder to reshape_internal.
1058 (reshape_char): New function.
1059 * intrinsics/spread.c (spread_internal): New static function,
1060 reusing the contents of spread and adding an extra size argument.
1061 (spread): Redefine as a forwarder to spread_internal.
1062 (spread_char): New function.
1063 * intrinsics/transpose.c (transpose_internal): New static function,
1064 reusing the contents of transpose and adding an extra size argument.
1065 (transpose): Redefine as a forwarder to transpose_internal.
1066 (transpose_char): New function.
1067 * intrinsics/unpack.c (unpack_internal): New static function, reusing
1068 the contents of unpack1 and adding extra size and fsize arguments.
1069 (unpack1): Redefine as a forwarder to unpack_internal.
1070 (unpack0): Call unpack_internal instead of unpack1.
1071 (unpack1_char, unpack0_char): New functions.
1072 * m4/cshift1.m4 (cshift1): New static function, reusing the contents
1073 of cshift1_<kind> and adding an extra size argument.
1074 (cshift1_<kind>): Redefine as a forwarder to cshift1.
1075 (cshift1_<kind>_char): New function.
1076 * m4/eoshift1.m4 (zeros): Delete.
1077 (eoshift1): New static function, reusing the contents of
1078 eoshift1_<kind> and adding extra size and filler arguments.
1079 Fix calculation of hstride. Use memset if no bound is provided.
1080 (eoshift1_<kind>): Redefine as a forwarder to eoshift1.
1081 (eoshift1_<kind>_char): New function.
1082 * m4/eoshift3.m4 (zeros): Delete.
1083 (eoshift3): New static function, reusing the contents of
1084 eoshift3_<kind> and adding extra size and filler arguments.
1085 Use memset if no bound is provided.
1086 (eoshift3_<kind>): Redefine as a forwarder to eoshift3.
1087 (eoshift3_<kind>_char): New function.
1088 * generated/cshift1_4.c, generated/cshift1_8.c,
1089 * generated/eoshift1_4.c, generated/eoshift1_8.c,
1090 * generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerate.
1091
1092 2005-09-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1093
1094 PR libfortran/20179
1095 * io/unix.c (is_preconnected): Add function to test if a stream
1096 corresponds to a preconnected unit.
1097 * io/io.h: Add prototype for is_preconnected.
1098 * io/transfer.c (data_transfer_init): Do not truncate
1099 preconnected units.
1100
1101 2005-09-10 Janne Blomqvist <jblomqvi@cc.hut.fi>
1102
1103 * io/unix.c: Remove mmap code.
1104
1105 2005-09-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1106
1107 PR libfortran/23784
1108 * io/close.c (st_close): Call library_end even in case of error.
1109
1110 2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
1111
1112 * io/io.h: Add iomsg as last field of st_parameter.
1113 * runtime/error.c (generate_error): If iomsg is present, copy
1114 the message there.
1115
1116 2005-09-09 Richard Sandiford <richard@codesourcery.com>
1117
1118 PR fortran/12840
1119 * runtime/memory.c (internal_malloc_size): Return a null pointer
1120 if the size is zero.
1121 (internal_free): Do nothing if the pointer is null.
1122 (internal_realloc_size, internal_realloc, internal_realloc64): New.
1123
1124 2005-09-07 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1125
1126 PR libfortran/23262
1127 * acinclude.m4 (LIBGFOR_CHECK_CRLF): New check.
1128 * configure.ac: Use new check.
1129 * configure.in: Regenerate.
1130 * config.h.in: Regenerate.
1131 * configure: Regenerate.
1132 * io/transfer.c (next_record_w): Add case for CRLF as line
1133 terminator.
1134 * io/unix.c (tempfile, regular_file): Open files with
1135 O_BINARY on systems with CRLF.
1136
1137 2005-09-07 Steve Ellcey <sje@cup.hp.com>
1138
1139 PR libfortran/23419
1140 * io/write.c (extract_int): Use memcpy to access buffer.
1141 (extract_uint): Ditto.
1142 (extract_real): Ditto.
1143
1144 2005-09-05 Thomas Koenig <Thomas.Koenig@online.de>
1145
1146 * io/list_read.c: Adjust size of of value to 32 (to hold
1147 kind=16 complex values).
1148
1149 2005-09-04 Thomas Koenig <Thomas.Koenig@online.de>
1150
1151 PR libfortran/23321
1152 * io/transfer.c(data_transfer_init): Check for a too-large
1153 record number. Return if sseek failed.
1154
1155 2005-09-03 Jakub Jelinek <jakub@redhat.com>
1156
1157 * io/read.c (read_x): Take int argument instead of fnode * and
1158 digging the N from F->u.n.
1159 * io/io.h (read_x): Adjust prototype.
1160 * io/transfer.c (formatted_transfer): Adjust callers. Don't clobber
1161 f->u.n for FMT_T.
1162
1163 2005-09-02 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1164
1165 * io/unix.c (stream_ttyname): Protect use of ttyname by
1166 HAVE_TTYNAME macro.
1167 * configure.ac: Add check for ttyname.
1168 * config.h.in: Regenerate.
1169 * configure: Regenerate.
1170
1171 2005-09-02 Andreas Jaeger <aj@suse.de>
1172
1173 * libgfortran.h: Add prototype for init_compile_options.
1174
1175 * io/io.h: Add prototype for notify_std.
1176
1177 2005-08-31 Steve Ellcey <sje@cup.hp.com>
1178
1179 * io/read.c (set_integer): Use memcpy to fill buffer.
1180
1181 2005-08-31 Steve Ellcey <sje@cup.hp.com>
1182
1183 PR target/23556
1184 * io/read.c (convert_real): Use memcpy to fill buffer.
1185
1186 2005-08-29 Thomas Koenig <Thomas.Koenig@online.de>
1187
1188 PR libfortran/23598
1189 * io/lock.c(library_start): If ioparm.iostat is present, clear
1190 it unconditionally.
1191
1192 2005-08-27 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1193
1194 * acinclude.m4 (LIBGFOR_CHECK_UNLINK_OPEN_FILE): Add check to see
1195 if target can unlink open files.
1196 * configure.ac: Use this new test.
1197 * config.h.in: Regenerate.
1198 * configure: Regenerate.
1199 * Makefile.in: Regenerate.
1200 * aclocal.ac: Regenerate.
1201 * io/io.h: Add prototype for unpack_filename.
1202 * io/close.c (st_close): Delete file after closing unit if
1203 HAVE_UNLINK_OPEN_FILE is not defined.
1204 * io/unix.c (unpack_filename): Unlink scratch file after opening
1205 it only if HAVE_UNLINK_OPEN_FILE is defined.
1206
1207 2005-08-17 Kelley Cook <kcook@gcc.gnu.org>
1208
1209 * All files: Update FSF address.
1210
1211 2005-08-16 Thomas Koenig <Thomas.Koenig@online.de>
1212
1213 PR libfortran/23428
1214 * io/transfer.c (iolength_transfer): Remove __attribute__ ((unused))
1215 from type. Return correct length for inquire(iolength=)
1216 for complex variables.
1217
1218 2005-08-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1219 Steven Bosscher <stevenb@suse.de>
1220
1221 PR libfortran/20006
1222 * Makefile.am: Add file runtime/compile_options.c.
1223 * Makefile.in: Regenerate.
1224 * libgfortran.h: Create structure compile_options_t. Define the
1225 compile_options variable and GFC_STD_ macros.
1226 * runtime/compile_options.c: New file.
1227 * runtime/error.c (notify_std): New function.
1228 * runtime/main.c (init): Call init_compile_options during
1229 initialization.
1230 * io/format.c: Use the new notify_std function for the $
1231 descriptor extension.
1232
1233 2005-08-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1234 * Makefile.am: Add file intrinsics/tty.c to Makefile process.
1235 * Makefile.in: Regenerate.
1236 * io/io.h: Prototypes for new functions stream_isatty and
1237 stream_ttyname.
1238 * io/unix (stream_isatty, stream_ttyname): New functions to call
1239 isatty() and ttyname() on a given unit.
1240 * intrinsics/tty.c: New file to implement g77 intrinsics TTYNAM
1241 and ISATTY.
1242
1243 2005-08-08 Jerry DeLisle <jvdelisle@verizon.net>
1244
1245 PR libfortran/23154
1246 * io/transfer.c (data_transfer_init): Initialize
1247 current_unit->bytes_left for a read.
1248
1249 2005-08-07 Janne Blomqvist <jblomqvi@cc.hut.fi>
1250
1251 PR fortran/22390
1252 * io/backspace.c: File removed, contents moved to ...
1253 * io/endfile.c: Ditto.
1254 * io/rewind.c: Ditto.
1255 * io/file_pos.c: New file, ... here.
1256 * Makefile.am: Add file_pos.c to list, remove obsolete files.
1257 * Makefile.in: Regenerated.
1258
1259 2005-08-07 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1260
1261 * io/io.h: Change DEFAULT_TEMPDIR to /tmp instead of /var/tmp.
1262 * io/unix.c (tempfile): Look at the TEMP environment variable
1263 to find the temporary files directory. Whitespace correction.
1264
1265 2005-08-06 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1266
1267 * io/unix.c: Add O_RDWR to open() call.
1268
1269 2005-08-04 Paul Thomas <pault@gcc.gnu.org>
1270
1271 * transfer.c (data_transfer_init): Truncate file in
1272 sequential WRITE when last_record == 0, rather than
1273 current_record. Cures problem on RH9.
1274
1275 2005-08-03 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1276
1277 * libgfortran.h: When isfinite is not provided by the system,
1278 define it as a macro, so that it can accept any floating point
1279 type.
1280
1281 2005-08-01 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1282
1283 PR libfortran/23178
1284 * intrinsics/flush.c (flush_i8): Add function flush_i8. Update
1285 copyright years.
1286
1287 2005-07-31 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1288
1289 PR libfortran/21787
1290 * intrinsics/abort.c (abort): Close units before aborting.
1291 Updated copyright years.
1292
1293 2005-07-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1294
1295 PR libfortran/22436
1296 * io/write.c (write_real): Add default formats for real(10) and
1297 real(16).
1298
1299 2005-07-30 Paul Thomas <pault@gcc.gnu.org>
1300
1301 PR fortran/22570 and related issues.
1302 * transfer.c (formatted_transfer): Make sure that there
1303 really is data present before X- or T- editing. Move all
1304 treatment of tabbing during writes to start of next data
1305 producing format. Suppress incorrect zeroing of bytes_left
1306 in slash formating. Insert int cast for assignment of a
1307 difference of two gfc_offsets.
1308
1309 2005-07-23 Jerry DeLisle <jvdelisle@verizon.net>
1310
1311 * io/write.c (write_float): Revise output of IEEE exceptional
1312 values to comply with F95 and F2003 standards.
1313
1314 2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
1315
1316 PR libfortran/22570
1317 * io/unit.c (init_units): Replace BLANK_ZERO with
1318 BLANK_UNSPECIFIED.
1319
1320 2005-07-22 Jerry DeLisle <jvdelisle@verizon.net>
1321
1322 PR libfortran/21875 (FM111.f)
1323 * io/read.c (next_char): Return a ' ' character when BLANK_ZERO
1324 or BLANK_NULL are active.
1325 (read_decimal): Interpret ' ' character correctly for BZ or BN.
1326 (read_radix): Interpret ' ' character correctly for BZ or BN.
1327 (read_f): Interpret ' ' character correctly for BZ or BN.
1328
1329 2005-07-22 Paul Thomas <pault@gcc.gnu.org>
1330
1331 PR libfortran/22570
1332 * read.c (read_x): Correct the condition for doing the
1333 x-editing during formatted input.
1334 * transfer.c (formatted_transfer): Cast offset difference
1335 as int, clean-up arithmetic with new variable, bytes_used,
1336 zero counters for FMT_SLASH,
1337 (data_transfer_init) Zero X- and T-editing counters
1338 unconditionally.
1339 (next_record_w) Zero X- and T-editing counters.
1340 unconditionally.
1341
1342 2005-07-17 Jerry DeLisle <jvdelisle@verizon.net>
1343
1344 * io/write.c (write_float): Fix field width checks for
1345 printing 'Infinity' or 'Inf'.
1346 (output_float): Fix typo in comment.
1347
1348 2005-07-12 Paul Thomas <pault@gcc.gnu.org>
1349
1350 PR libfortran/16435
1351 * transfer.c (formatted_transfer): Correct the problems
1352 with X- and T-editting that caused TLs followed by TRs
1353 to overwrite data, which caused NIST FM908.FOR to fail
1354 on many tests.
1355 (data_transfer_init): Zero X- and T-editting counters at
1356 the start of formatted IO.
1357 * write.c (write_x): Write specified number of skips with
1358 specified number of spaces at the end.
1359
1360 2005-07-13 Paul Thomas <pault@gcc.gnu.org>
1361
1362 * io/read.c (read_complex): Prevent X formatting during reads
1363 from going beyond EOR to fix NIST fm908.FOR failure.
1364 * io/list_read.c (read_complex): Allow complex data in list-
1365 directed reads to have eols either side of the comma to
1366 fix NIST FM906.FOR failure.
1367
1368 2005-07-12 Thomas Koenig <Thomas.Koenig@online.de>
1369
1370 PR libfortran/21593
1371 * io/unix.c: Add member special_file to type unix_stream.
1372 (fd_truncate): Don't call ftruncate or chsize if
1373 s refers to a special file.
1374 (fd_to_stream): initialize s->special_file.
1375
1376 2005-07-11 David Edelsohn <edelsohn@gnu.org>
1377
1378 PR libfortran/22412
1379 * io/write.c (otoa): Bias p by SCRATCH_SIZE, not
1380 sizeof (SCRATCH_SIZE).
1381 (btoa): Same.
1382
1383 2005-07-09 Jerry DeLisle <jvdelisle@verizon.net>
1384
1385 PR libfortran/21875 (FM111.f)
1386 * io/read.c (next_char): Return a ' ' character when BLANK_ZERO or
1387 BLANK_NULL are active.
1388 (read_decimal): Interpret ' ' character correctly for BZ or BN.
1389 (read_radix): Interpret ' ' character correctly for BZ or BN.
1390 (read_f): Interpret ' ' character correctly for BZ or BN.
1391 * gfortran.dg/test (fmt_read_bz_bn.f90): New test case.
1392
1393 2005-07-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1394 Thomas Koenig <Thomas.Koenig@online.de>
1395
1396 PR libfortran/22217
1397 * io/write.c (extract_unit): New function; extract
1398 ints as unsigned signed int of the correct size.
1399 (write_int): Use it.
1400 * runtime/error.c: Adjust copyright years.
1401 Adjust size of buffer to maximum that can occur.
1402
1403 2005-07-07 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
1404
1405 * libgfortran.h (GFC_ARRAY_DESCRIPTOR): Replace 'type *base' by
1406 'size_t offset'.
1407 * intrinsics/cshift0.c, intrinsics/eoshift0.c,
1408 intrinsics/eoshift2.c,intrinsics/pack_generic.c,
1409 intrinsics/reshape_generic.c, intrinsics/spread_generic.c,
1410 intrinsics/transpose_generic.c, intrinsics/unpack_generic,
1411 m4/cshift1.m4, m4/eoshift1.m4, m4/eoshift3.m4, m4/iforeach.m4,
1412 m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/reshape.m4,
1413 m4,transpose.m4: Set renamed field 'offset' to zero instead of
1414 'base'.
1415 * generated/all_l4.c, generated/all_l8.c,
1416 generated/any_l4.c, generated/any_l8.c, generated/count_4_l4.c,
1417 generated/count_4_l8.c, generated/count_8_l4.c,
1418 generated/count_8_l8.c, generated/chift1_4.c,
1419 generated/cshift1_8.c, generated/eoshift1_4.c,
1420 generated/eoshift1_8.c, generated/eoshift3_4.c,
1421 generated/eoshift3_8.c, generated/matmul_c4.c,
1422 generated/matmul_c8.c, generated/matmul_i4.c, matmul_i8.c,
1423 generated/matmul_l4.c, generated/matmul_l8.c,
1424 generated/matmul_r4.c, generated/matmul_r8.c,
1425 generated/maxloc0_4_i4.c, generated/maxloc0_4_i8.c,
1426 generated/maxloc0_4_r4.c, generated/maxloc0_4_r8.c,
1427 generated/maxloc0_8_i4.c, generated/maxloc0_8_i8.c,
1428 generated/maxloc0_8_r4.c, generated/maxloc0_8_r8.c,
1429 generated/maxloc1_4_i4.c, generated/maxloc1_4_i8.c,
1430 generated/maxloc1_4_r4.c, generated/maxloc1_4_r8.c,
1431 generated/maxloc1_8_i4.c, generated/maxloc1_8_i8.c,
1432 generated/maxloc1_8_r4.c, generated/maxloc1_8_r8.c,
1433 generated/maxval_i4.c, generated/maxval_i8.c,
1434 generated/maxval_r4.c, generated/maxval_r8.c,
1435 generated/minloc0_4_i4.c, generated/minloc0_4_i8.c,
1436 generated/minloc0_4_r4.c, generated/minloc0_4_r8.c,
1437 generated/minloc0_8_i4.c, generated/minloc0_8_i8.c,
1438 generated/minloc0_8_r4.c, generated/minloc0_8_r8.c,
1439 generated/minloc1_4_i4.c, generated/minloc1_4_i8.c,
1440 generated/minloc1_4_r4.c, generated/minloc1_4_r8.c,
1441 generated/minloc1_8_i4.c, generated/minloc1_8_i8.c,
1442 generated/minloc1_8_r4.c, generated/minloc1_8_r8.c,
1443 generated/minval_i4.c, generated/minval_i8.c,
1444 generated/minval_r4.c, generated/minval_r8.c,
1445 generated/product_c4.c, generated/product_c8.c,
1446 generated/product_i4.c, generated/product_i8.c,
1447 generated/product_r4.c, generated/product_r8.c,
1448 generated/reshape_c4.c, generated/reshape_c8.c,
1449 generated/reshape_i4.c, generated/reshape_i8.c,
1450 generated/sum_c4.c, generated/sum_c8.c, generated/sum_i4.c,
1451 generated/sum_i8.c, generated/sum_r4.c, generated/sum_r8.c,
1452 generated/transpose_c4.c, generated/transpose_c8.c,
1453 generated/transpose_i4.c, generated/transpose_i8.c: Regenerate:
1454
1455 2005-07-07 Thomas Koenig <Thomas.Koenig@online.de>
1456
1457 PR libfortran/21594
1458 * intrinsics/eoshift0.c: If abs(shift) > len, fill the
1459 the whole array with the boundary value, but don't overrun it.
1460 * intrinsics/eoshift2.c: Likewise.
1461 * m4/eoshift1.m4: Likewise.
1462 * m4/eoshift3.m4: Likewise.
1463 * generated/eoshift1_4.c: Regenerated.
1464 * generated/eoshift1_8.c: Regenerated.
1465 * generated/eoshift3_4.c: Regenerated.
1466 * generated/eoshift3_8.c: Regenerated.
1467
1468 2005-07-07 Feng Wang <fengwang@nudt.edu.cn>
1469
1470 PR fortran/16531
1471 * io/transfer.c (formatted_transfer): Enable FMT_A on other types to
1472 support Hollerith constants.
1473
1474 2005-07-01 Andreas Jaeger <aj@suse.de>
1475
1476 * intrinsics/unpack_generic.c: Remove const from parameter.
1477
1478 * io/transfer.c (formatted_transfer): Remove unused variable.
1479
1480 2005-06-28 Thomas Koenig <Thomas.Koenig@online.de>
1481
1482 PR libfortran/22142
1483 * m4/eoshift1.m4: Correct bstride (it needs to be multiplied
1484 by size since it's a char pointer).
1485 * m4/eoshift1_4.c: Regenerated.
1486 * m4/eoshift1_8.c: Regenerated.
1487
1488 2005-06-28 Thomas Koenig <Thomas.Koenig@online.de>
1489
1490 PR libfortran/22142
1491 * m4/eoshift3.m4: Correct bstride (it needs to be multiplied
1492 by size since it's a char pointer).
1493 * m4/eoshift3_4.c: Regenerated.
1494 * m4/eoshift3_8.c: Regenerated.
1495
1496 2005-06-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1497
1498 PR libfortran/22170
1499 * io/transfer.c (formatted_transfer): Do not iterate on the
1500 repeat count of a FMT_SLASH, since this is already done in
1501 next_format().
1502
1503 2005-06-25 Thomas Koenig <Thomas.Koenig@online.de>
1504
1505 PR libfortran/22144
1506 * m4/cshift1.m4: Remove const from argument ret.
1507 Populate return array descriptor if ret->data is NULL.
1508 * m4/eoshift1.m4: Likewise.
1509 * m4/eoshift3.m4: Likewise.
1510 * generated/cshift1_4.c: Regenerated.
1511 * generated/cshift1_8.c: Regenerated.
1512 * generated/eoshift1_4.c: Regenerated.
1513 * generated/eoshift1_8.c: Regenerated.
1514 * generated/eoshift3_4.c: Regenerated.
1515 * generated/eoshift3_8.c: Regenerated.
1516
1517 2005-06-24 Jerry DeLisle <jvdelisle@verizon.net>
1518
1519 PR libfortran/21915
1520 * Makefile.am: Include intrinsics/hyper.c.
1521 * c99_protos.h: Add prototypes for single precision versions of
1522 acosh, asinh, and atanh for platforms that do not have these.
1523 * config.h.in: Add #undef for wrappers.
1524 * configure.ac: Add checks for single precision versions.
1525 * aclocal.m4: Regenerated.
1526 * Makefile.in: Regenerated.
1527 * configure: Regenerated.
1528 * intrinsics/hyper.c: New file, adds new wrapper functions.
1529
1530 2005-06-23 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1531
1532 * intrinsics/c99_functions.c (log10l): New log10l function for
1533 systems where this is not available.
1534 * c99_protos.h: Prototype for log10l function.
1535 * libgfortran.h: Use generated kinds.h to define GFC_INTEGER_*,
1536 GFC_UINTEGER_*, GFC_LOGICAL_*, GFC_REAL_*, GFC_COMPLEX_*. Update
1537 prototypes for gfc_itoa and xtoa.
1538 * io/io.h: Update prototypes for set_integer and max_value.
1539 * io/list_read.c (convert_integer): Use new
1540 GFC_(INTEGER|REAL)_LARGEST type.
1541 * io/read.c (set_integer): Likewise.
1542 (max_value): Likewise.
1543 (convert_real): Likewise.
1544 (real_l): Likewise.
1545 (next_char): Likewise.
1546 (read_decimal): Likewise.
1547 (read_radix): Likewise.
1548 (read_f): Likewise.
1549 * io/write.c (extract_int): Use new GFC_INTEGER_LARGEST type.
1550 (extract_real): Use new GFC_REAL_LARGEST type.
1551 (calculate_exp): Likewise.
1552 (calculate_G_format): Likewise.
1553 (output_float): Likewise. Use log10l for long double values.
1554 Add comment for sprintf format. Use GFC_REAL_LARGEST_FORMAT.
1555 (write_l): Use new GFC_INTEGER_LARGEST type.
1556 (write_float): Use new GFC_REAL_LARGEST type.
1557 (write_int): Remove useless special case for (len < 8).
1558 (write_decimal): Use GFC_INTEGER_LARGEST.
1559 (otoa): Use GFC_UINTEGER_LARGEST as argument.
1560 (btoa): Use GFC_UINTEGER_LARGEST as argument.
1561 * runtime/error.c (gfc_itoa): Use GFC_INTEGER_LARGEST as
1562 argument.
1563 (xtoa): Use GFC_UINTEGER_LARGEST as argument.
1564 * Makefile.am: Use mk-kinds-h.sh to generate header kinds.h
1565 with all Fortran kinds available.
1566 * configure.ac: Check for strtold and log10l.
1567 * Makefile.in: Regenerate.
1568 * aclocal.m4: Regenerate.
1569 * configure: Regenerate.
1570 * config.h.in: Regenerate.
1571 * mk-kinds-h.sh: Configuration script for available integer
1572 and real kinds.
1573
1574
1575 2005-06-18 Janne Blomqvist <jblomqvi@cc.hut.fi>
1576
1577 * unix.c (stream_at_bof): Don't assume that all non-mmapped files
1578 are non-seekable.
1579 (stream_at_eof): Likewise.
1580
1581 2005-06-18 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1582
1583 PR libfortran/19155
1584 * io/read.c (convert_real): strtod can set errno to EINVAL on an
1585 empty string, but we shouldn't have an error in that case.
1586
1587 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1588
1589 PR libfortran/19216
1590 * io/list_read.c (eat_separator): No need to call next_record,
1591 even in non-namelist_mode.
1592
1593 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1594
1595 * io/transfer.c (formatted_transfer): Fix typo in error message.
1596
1597 2005-06-17 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1598
1599 PR libfortran/16436
1600 * io/transfer.c (read_sf): Correct updating of bytes_left field.
1601 (formatted_transfer): Correct updating of bytes_left field and
1602 reformatting code (comments and whitespace).
1603 * io/unix.c (move_pos_offset): "active" field should not be
1604 changed here. Whitespace corrections.
1605
1606 2005-06-15 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1607
1608 PR libfortran/21950
1609 * intrinsics/c99_functions.c (scalbn): Provide fallback
1610 implementation for scalbn.
1611 * c99_protos.h: Prototype for scalbn.
1612 * configure.ac: Add check for scalbn.
1613 * configure: Regenerate.
1614 * config.h.in: Regenerate.
1615
1616 2005-06-14 Thomas Koenig <Thomas.Koenig@online.de>
1617
1618 * intrinsics/eoshift0.c: Removed prototype for eoshift0.
1619 * intrinsics/eoshift2.c: Removed prototype for eoshift2.
1620
1621 2005-06-14 Tom Tromey <tromey@redhat.com>
1622
1623 PR libgcj/19877:
1624 * configure, aclocal.m4, Makefile.in: Rebuilt.
1625
1626 2005-06-12 Thomas Koenig <Thomas.Koenig@online.de>
1627
1628 PR libfortran/21594
1629 * intrinsics/eoshift0.c: Add prototype for eoshift0.
1630 * intrinsics/eoshift2.c: Add prototype for eoshift2.
1631
1632 2005-06-12 Steven G. Kargl <kargls@comcast.net>
1633 Thomas Koenig <Thomas.Koenig@online.de>
1634
1635 PR libfortran/PR21797
1636 * m4/cexp.m4 (csqrt`'q): Add type qualifyer to
1637 sqrt and fabs.
1638 * generated/exp_c4.c: Regenerated.
1639
1640 2005-06-12 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1641
1642 PR libfortran/19155
1643 * io/read.c (read_f): Take care of spaces after initial sign.
1644
1645 2005-06-11 Thomas Koenig <Thomas.Koenig@onlinde.de>
1646
1647 PR libfortran/21333
1648 * Makefile.am: Add in_pack_c4.c, in_pack_c8.c, in_unpack_c4.c
1649 and in_unpack_c8.c.
1650 * Makefile.in: Regenerate.
1651 * libgfortran.h: Declare internal_pack_c4, internal_pack_c8,
1652 internal_unpack_c4 and internal_unpack_c8.
1653 * m4/in_pack.m4: Use rtype_ccode insteald of rtype_kind
1654 in function name.
1655 Use sizeof (rtype_name) as size for memory allocation.
1656 * m4/in_unpack.m4: Use rtype_ccode insteald of rtype_kind
1657 in function name.
1658 Use sizeof (rtype_name) for calculation of sizes for memcpy.
1659 * runtime/in_pack_generic.c: For real, integer and logical
1660 call internal_pack_4 if size==4 and internal_pack_8 if
1661 size==8.
1662 For complex, call internal_pack_c4 if size==8 and
1663 internal_pack_c8 if size==16.
1664 * runtime/in_unpack_generic.c: For real, integer and logical
1665 call internal_unpack_4 if size==4 and internal_unpack_8 if
1666 size==8.
1667 For complex, call internal_unpack_c4 if size==8 and
1668 internal_unpack_c8 if size==16.
1669 * generated/in_pack_i4.c: Regenerated.
1670 * generated/in_pack_i8.c: Regenerated.
1671 * generated/in_unpack_i4.c: Regenerated.
1672 * generated/in_unpack_i8.c: Regenerated.
1673 * generated/in_pack_c4.c: New file.
1674 * generated/in_pack_c8.c: New file.
1675 * generated/in_unpack_c4.c: New file.
1676 * generated/in_unpack_c8.c: New file.
1677
1678 2005-06-09 Thomas Koenig <Thomas.Koenig@online.de>
1679
1680 PR libfortran/21480
1681 * m4/reshape.m4: Use sizeof (rtype_name) for sizes to be passed
1682 to reshape_packed.
1683 * generated/reshape_c4.c: Regenerated.
1684 * generated/reshape_c8.c: Regenerated.
1685 * generated/reshape_i4.c: Regenerated.
1686 * generated/reshape_i8.c: Regenerated.
1687
1688 2005-06-07 Thomas Koenig <Thomas.Koenig@online.de>
1689
1690 PR libfortran/21926
1691 * m4/matmul.m4: Correct zeroing of result for non-packed
1692 arrays with lowest stride is one.
1693 * generated/matmul_c4.c: Regenerated.
1694 * generated/matmul_c8.c: Regenerated.
1695 * generated/matmul_i4.c: Regenerated.
1696 * generated/matmul_i8.c: Regenerated.
1697 * generated/matmul_r4.c: Regenerated.
1698 * generated/matmul_r8.c: Regenerated.
1699
1700 2005-05-30 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1701
1702 PR libfortran/20179
1703 * io/unix.c (fd_close): Add test so that we don't close()
1704 stdout and stderr.
1705
1706 2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1707
1708 PR libfortran/20006
1709 * io/format.c (parse_format_list): Set repeat count of $ format
1710 node to 1.
1711 * io/transfer.c (read_sf): Add g.seen_dollar to the test
1712 concerning advancing I/O.
1713 (data_transfer_init): Likewise.
1714 (finalize_transfer): Likewise.
1715
1716 2005-05-27 Thomas Koenig <Thomas.Koenig@online.de>
1717
1718 * runtime/in_pack_generic.c: Adjust copyright years.
1719 (in_pack_generic): Change dimension of auxiliary arrays from
1720 GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
1721 * runtime/in_unpack_generic.c: Adjust copyright years.
1722 (in_unpack_generic): Change dimension of auxiliary arrays from
1723 GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
1724
1725 2005-05-26 Thomas Koenig <Thomas.Koenig@online.de>
1726
1727 PR libfortran/17283
1728 * intrinsics/unpack_generic.c: Fix name of routine
1729 on top. Update copyright years.
1730 (unpack1): Remove const from return array descriptor.
1731 rs: New variable, for calculating return sizes.
1732 Populate return array descriptor if ret->data is NULL.
1733
1734 2005-05-22 Peter Wainwright <prw@ceiriog1.demon.co.uk>
1735
1736 PR libfortran/21376
1737 * io/write.c (output_float): Rework logic to avoid call to log10
1738 with argument equal to zero.
1739
1740 2005-05-21 Eric Botcazou <ebotcazou@libertysurf.fr>
1741
1742 * configure.ac: Check for trunc and truncf in libm.
1743 * configure: Regenerate.
1744 * config.h.in: Likewise.
1745 * intrinsics/c99_functions.c (trunc, truncf): New functions.
1746 * c99_protos.h (trunc, truncf): Declare them.
1747
1748 2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
1749
1750 PR libfortran/21127
1751 * Makefile.am: Really commit.
1752 * Makefile.in: Really commit.
1753
1754 2005-05-18 Thomas Koenig <Thomas.Koenig@online.de>
1755
1756 PR libfortran/21127
1757 * Makefile.am: Add generated/reshape_c4.c and
1758 generated/reshape_c8.c.
1759 * Makefile.in: Regenerated.
1760 * m4/iparm.m4: Define rtype_ccode to be c4 or c8 for
1761 complex types, 4 or 8 otherwise.
1762 * m4/reshape.m4: Use rtype_ccode instead of rtype_kind
1763 in function name.
1764 * generated/reshape_c4.c: New file.
1765 * generated/reshape_c8.c: New file.
1766
1767 2005-05-16 Andreas Jaeger <aj@suse.de>
1768
1769 * configure.ac: Add additional warning flags.
1770 * configure: Regenerate.
1771
1772 * io/write.c (calculate_G_format): Remove unused parameter.
1773 (output_float): Remove unused parameter.
1774 (write_float): Change callers.
1775 (nml_write_obj): Avoid signed warning.
1776 Make variable const to support -Wwrite-strings.
1777
1778 * io/unix.c (fd_alloc, mmap_open, mmap_sfree, mem_sfree,
1779 mem_truncate): Mark argument as unused.
1780
1781 * io/unit.c (get_unit): Mark argument as unused.
1782 (init_units): Avoid warning about signed comparision.
1783
1784 * io/transfer.c (next_record_r): Remove unused parameter.
1785 (next_record_w): Remove unused parameter.
1786 (next_record): Change callers.
1787 (iolength_transfer): Mark arguments as unused.
1788
1789 * io/open.c: Add initializer.
1790
1791 * io/list_read.c (read_character): Mark argument as unused.
1792 (nml_match_name): Add const to make compile with -Wwrite-strings.
1793
1794 * io/format.c: Add initializer.
1795
1796 2005-05-15 Andreas Jaeger <aj@suse.de>
1797
1798 * m4/eoshift1.m4: Initialize variables to avoid warnings.
1799 * m4/eoshift3.m4: Initialize variables to avoid warnings.
1800 * generated/eoshift1_4.c, generated/eoshift1_8.c,
1801 generated/eoshift3_4.c, generated/eoshift3_8.c: Regenerated.
1802
1803 * intrinsics/spread_generic.c (spread): Initialize variables to
1804 avoid warnings.
1805
1806 * intrinsics/eoshift0.c (eoshift0): Initialize variables to avoid
1807 warnings.
1808 * intrinsics/eoshift2.c (eoshift2): Initialize variables to avoid
1809 warnings.
1810
1811 * io/list_read.c (nml_get_obj_data): Initialize variables to avoid
1812 warnings.
1813
1814 * intrinsics/pack_generic.c (pack): Remove unneeded calculation.
1815
1816 * m4/matmull.m4 (matmul_): Remove unneeded calculations, fix
1817 pointer cast to avoid warning.
1818 * generated/matmul_l4.c: Regenerated.
1819 * generated/matmul_l8.c: Regenerated.
1820
1821 * Makefile.am: Remove AM_CFLAGS here.
1822 * configure.ac: Define AM_CFLAGS and AM_FCFLAGS so that warnings
1823 are set. Set additionally -Wstrict-prototypes for CFLAGS.
1824 * Makefile.in: Regenerated.
1825 * aclocal.m4: Regenerated.
1826 * configure: Regenerated.
1827
1828 * intrinsics/system_clock.c (system_clock_4, system_clock_8): Add
1829 missing returns, reformat a bit.
1830
1831 * io/write.c (nml_write_obj): Use %d again - and cast to int,
1832 st_sprintf does not handle %ld.
1833
1834 * io/unit.c (is_internal_unit): Add void as parameter list.
1835
1836 * io/transfer.c: Move prototype declarations before the functions.
1837
1838 * runtime/normalize.c (almostone_r4, almostone_r8): Fix parameter
1839 list.
1840
1841 * intrinsics/random.c (KISS_DEFAULT_SEED): Remove extra semicolon.
1842
1843 * io/transfer.c: Do not use empty initializers for global objects.
1844 Add missing initializers.
1845
1846 * io/lock.c: Do not use empty initializers for global objects.
1847
1848 * io/close.c: Add missing initializers.
1849
1850 * runtime/environ.c: Add missing initializers. Do not use empty
1851 initializers for global object.
1852 (init_string): Mark argument as unused.
1853
1854 * runtime/main.c (cleanup): Fix parameter list.
1855
1856 * io/io.h: Fix parameter lists.
1857
1858 * m4/transpose.m4, m4/matmul.m4: Fix pointer cast to avoid
1859 warning.
1860
1861 * generated/transpose_c4.c, generated/transpose_c8.c,
1862 generated/transpose_i4.c, generated/transpose_i8.c,
1863 generated/matmul_c4.c, generated/matmul_c8.c,
1864 generated/matmul_i4.c, generated/matmul_i8.c,
1865 generated/matmul_r4.c, generated/matmul_r8.c: Regenerated.
1866
1867 * io/write.c (nml_write_obj): Fix 64-bit problem.
1868
1869 * io/list_read.c (nml_get_obj_data): Add missing braces around
1870 initializer to avoid warnings.
1871
1872 * intrinsics/etime.c (etime_sub): Remove unused variable.
1873
1874 * intrinsics/chdir.c, intrinsics/getlog.c, intrinsics/link.c,
1875 intrinsics/symlnk.c, intrinsics/perror.c: Include <string.h> for
1876 prototypes.
1877
1878 * runtime/string.c (compare0): Remove unused variable.
1879 * io/unit.c (init_units): Remove unused variables.
1880 * intrinsics/getcwd.c (getcwd_i4_sub): Remove unused variable.
1881 * intrinsics/unlink.c (unlink_i4_sub): Remove unused variable.
1882 * intrinsics/stat.c (stat_i4_sub, fstat_i8_sub, fstat_i4_sub,
1883 stat_i8_sub): Remove unused variable.
1884
1885 2005-05-12 Thomas Koenig <Thomas.Koenig@online.de>
1886
1887 PR libfortran/21324
1888 * runtime/memory.c: Don't define GFC_CLEAR_MEMORY (it's a
1889 performance hog).
1890 * io/open.c (new_unit): Zero freshly allocated memory for
1891 unit structure.
1892 * io/unit.c (init_units): Zero freshly allocated memory for
1893 STDIN, STDOUT and STDERR.
1894 * io/unix.c (open_internal): Zero freshly allocated memory
1895 for unix_stream.
1896 (fd_to_stream): Likewise.
1897
1898 2005-05-11 Bud Davis <bdavis@gfortran.org>
1899
1900 PR fortran/19478
1901 * io/unix.c (fd_truncate): update positions when ftruncate
1902 fails (like writing to /dev/null).
1903
1904 2005-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1905
1906 PR libfortran/21471
1907 * open.c (new_unit): Take care of the case where POSITION_APPEND
1908 is specified (sseek to the end, and set u>-endfile).
1909
1910 2005-05-10 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
1911
1912 PR fortran/20178
1913 * Makefile.am (gfor_specific_src): Add 'intrinsics/f2c_intrinsics.F90'
1914 to dependencies.
1915 * Makefile.in: Regenerate.
1916 * intrinsics/f2c_specific.F90: New file.
1917
1918 2005-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1919
1920 PR libfortran/20788
1921 * io/unix.c (fd_to_stream): Add an avoid_mmap argument indicating
1922 we don't we to mmap this stream. Use fd_open instead of mmap_open
1923 in that case.
1924 (open_external): Call fd_to_stream with avoid_mmap = 0.
1925 (input_stream): Call fd_to_stream with avoid_mmap = 1.
1926 (output_stream): Likewise.
1927 (error_stream): Likewise.
1928
1929 2005-05-09 Mike Stump <mrs@apple.com>
1930
1931 * configure: Regenerate.
1932
1933 2005-05-09 Francois-Xavier Coudert <coudert@clipper.ens.fr>
1934
1935 PR libfortran/19155
1936 * io/read.c (read_f): Accept 'e', 'E', 'd' and 'D' as first
1937 non-blank characters of a real number.
1938
1939 2005-05-04 Thomas Koenig <Thomas.Koenig@online.de>
1940
1941 PR libfortran/21354
1942 * m4/cshift1.m4: Change dimension of auxiliary arrays from
1943 GFC_MAX_DIMENSION - 1 to GFC_MAX_DIMENSION.
1944 * m4/eoshift1.m4: Likewise.
1945 * m4/eoshift3.m4: Likewise.
1946 * m4/ifunction.m4: Likewise.
1947 * m4/in_pack.m4: Likewise.
1948 * m4/in_unpack.m4: Likewise.
1949 * intrinsics/cshift0.c: Likewise.
1950 * intrinsics/eoshift0.c: Likewise.
1951 * intrinsics/eoshift2.c: Likewise.
1952 * intrinsics/random.c: Likewise.
1953 * intrinsics/spread_generic.c: Likewise.
1954 * intrinsics/stat.c: Likewise.
1955 * generated/all_l4.c: Regenerated.
1956 * generated/all_l8.c: Regenerated.
1957 * generated/any_l4.c: Regenerated.
1958 * generated/any_l8.c: Regenerated.
1959 * generated/count_4_l4.c: Regenerated.
1960 * generated/count_4_l8.c: Regenerated.
1961 * generated/count_8_l4.c: Regenerated.
1962 * generated/count_8_l8.c: Regenerated.
1963 * generated/cshift1_4.c: Regenerated.
1964 * generated/cshift1_8.c: Regenerated.
1965 * generated/eoshift1_4.c: Regenerated.
1966 * generated/eoshift1_8.c: Regenerated.
1967 * generated/eoshift3_4.c: Regenerated.
1968 * generated/eoshift3_8.c: Regenerated.
1969 * generated/in_pack_i4.c: Regenerated.
1970 * generated/in_pack_i8.c: Regenerated.
1971 * generated/in_unpack_i4.c: Regenerated.
1972 * generated/in_unpack_i8.c: Regenerated.
1973 * generated/maxloc0_4_i4.c: Regenerated.
1974 * generated/maxloc0_4_i8.c: Regenerated.
1975 * generated/maxloc0_4_r4.c: Regenerated.
1976 * generated/maxloc0_4_r8.c: Regenerated.
1977 * generated/maxloc0_8_i4.c: Regenerated.
1978 * generated/maxloc0_8_i8.c: Regenerated.
1979 * generated/maxloc0_8_r4.c: Regenerated.
1980 * generated/maxloc0_8_r8.c: Regenerated.
1981 * generated/maxloc1_4_i4.c: Regenerated.
1982 * generated/maxloc1_4_i8.c: Regenerated.
1983 * generated/maxloc1_4_r4.c: Regenerated.
1984 * generated/maxloc1_4_r8.c: Regenerated.
1985 * generated/maxloc1_8_i4.c: Regenerated.
1986 * generated/maxloc1_8_i8.c: Regenerated.
1987 * generated/maxloc1_8_r4.c: Regenerated.
1988 * generated/maxloc1_8_r8.c: Regenerated.
1989 * generated/maxval_i4.c: Regenerated.
1990 * generated/maxval_i8.c: Regenerated.
1991 * generated/maxval_r4.c: Regenerated.
1992 * generated/maxval_r8.c: Regenerated.
1993 * generated/minloc0_4_i4.c: Regenerated.
1994 * generated/minloc0_4_i8.c: Regenerated.
1995 * generated/minloc0_4_r4.c: Regenerated.
1996 * generated/minloc0_4_r8.c: Regenerated.
1997 * generated/minloc0_8_i4.c: Regenerated.
1998 * generated/minloc0_8_i8.c: Regenerated.
1999 * generated/minloc0_8_r4.c: Regenerated.
2000 * generated/minloc0_8_r8.c: Regenerated.
2001 * generated/minloc1_4_i4.c: Regenerated.
2002 * generated/minloc1_4_i8.c: Regenerated.
2003 * generated/minloc1_4_r4.c: Regenerated.
2004 * generated/minloc1_4_r8.c: Regenerated.
2005 * generated/minloc1_8_i4.c: Regenerated.
2006 * generated/minloc1_8_i8.c: Regenerated.
2007 * generated/minloc1_8_r4.c: Regenerated.
2008 * generated/minloc1_8_r8.c: Regenerated.
2009 * generated/minval_i4.c: Regenerated.
2010 * generated/minval_i8.c: Regenerated.
2011 * generated/minval_r4.c: Regenerated.
2012 * generated/minval_r8.c: Regenerated.
2013 * generated/product_c4.c: Regenerated.
2014 * generated/product_c8.c: Regenerated.
2015 * generated/product_i4.c: Regenerated.
2016 * generated/product_i8.c: Regenerated.
2017 * generated/product_r4.c: Regenerated.
2018 * generated/product_r8.c: Regenerated.
2019 * generated/sum_c4.c: Regenerated.
2020 * generated/sum_c8.c: Regenerated.
2021 * generated/sum_i4.c: Regenerated.
2022 * generated/sum_i8.c: Regenerated.
2023 * generated/sum_r4.c: Regenerated.
2024 * generated/sum_r8.c: Regenerated.
2025
2026 2005-04-30 Thomas Koenig <Thomas.Koenig@online.de>
2027
2028 PR libfortran/18958
2029 libgfortran.h: Change typedef of index_type from size_t
2030 to ssize_t.
2031
2032 2005-04-30 Paul Thomas <pault@gcc.gnu.org>
2033
2034 PR libfortran/18857
2035 * generated/matmul_r8.c: Remove incorrect assertions.
2036 * generated/matmul_c4.c: Regenerate
2037 * generated/matmul_c8.c: Regenerate
2038 * generated/matmul_i4.c: Regenerate
2039 * generated/matmul_i8.c: Regenerate
2040 * generated/matmul_r4.c: Regenerate
2041 * generated/matmul_r8.c: Regenerate
2042
2043 2005-04-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2044
2045 * configure.ac: Check for ftruncate and chsize.
2046 * io/unix.c (fd_truncate): Provide chsize as alternative to
2047 ftruncate.
2048 * config.h.in: Regenerate.
2049 * configure: Regenerate.
2050
2051 2005-04-29 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2052
2053 * intrinsics/rename.c: Add missing #includes.
2054
2055 2005-04-28 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2056
2057 * AUTHORS, COPYING, INSTALL, NEWS, README: Remove.
2058
2059 2005-04-26 David Edelsohn <edelsohn@gnu.org>
2060
2061 PR libfortran/20930
2062 * io/rewind.c (st_rewind): Flush the stream when resetting the mode
2063 from WRITING to READING.
2064
2065 2005-04-22 Paul Thomas <pault@gcc.gnu.org>
2066 Jerry DeLisle <jvdelisle@verizon.net>
2067
2068 * io/write.c (nml_write_obj): Provide 1 more byte for ext_name.
2069 * io/list_read.c (nml_get_obj_data): Put extra brackets in get_mem
2070 call for ext_name. These fix the bug reported by Jerry DeLisle to
2071 the fortran list and are based on his suggested fix.
2072
2073 2005-04-22 Thomas Koenig <Thomas.Koenig@online.de>
2074
2075 PR libfortran/20074
2076 PR libfortran/20436
2077 PR libfortran/21108
2078 * m4/reshape.m4 (reshape_`'rtype_kind): rs, rex: New
2079 variables, to be used in calculation of return array sizes.
2080 Populate return array descriptor if ret->data is NULL.
2081 Fix condition for early return (it used to test something
2082 undefined if order was used).
2083 Remove duplicate check wether pad is used.
2084 * intrinsics/reshape_generic.c (reshape_generic): Likewise.
2085 Fix a few places where the wrong variables were set.
2086 * generated/reshape_i4.c: Regenerated.
2087 * generated/reshape_i8.c: Regenerated.
2088
2089 2005-04-18 Paul Thomas <pault@gcc.gnu.org>
2090
2091 * io/list_read.c (nml_touch_nodes, nml_read_obj,
2092 nml_get_obj_data): Fix memory leaks in code for derived types.
2093
2094 2005-04-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2095
2096 PR libfortran/20950
2097 * io/inquire.c (inquire_via_unit): Check for the gfc_unit being
2098 NULL when setting ioparm.sequential.
2099
2100 2005-04-17 Thomas Koenig <Thomas.Koenig@online.de>
2101
2102 PR libfortran/21075
2103 * m4/reshape.m4 (reshape_`'rtype_kind): Change dimension
2104 of auxiliary arrays from GFC_MAX_DIMENSIONS - 1 to
2105 GFC_MAX_DIMENSIONS.
2106 * intrinsics/reshape_generic.c (reshape_generic): Likewise.
2107 * generated/reshape_i4.c: Regenerated.
2108 * generated/reshape_i8.c: Regenerated.
2109
2110 2005-04-17 Paul Thomas <pault@gcc.gnu.org>
2111
2112 * io/list_read.c (eat_separator): at_eol = 1 replaced
2113 (zapped at some time?).
2114
2115 2005-04-17 Paul Thomas <pault@gcc.gnu.org>
2116
2117 PR libfortran/12884
2118 PR libfortran/17285
2119 PR libfortran/18122
2120 PR libfortran/18210
2121 PR libfortran/18392
2122 PR libfortran/18591
2123 PR libfortran/18879
2124 * io/io.h (nml_ls): Declare.
2125 (namelist_info): Modify for arrays.
2126 * io/list_read.c (namelist_read): Reduced to call to new functions.
2127 (match_namelist_name): Simplified.
2128 (nml_query): Handles stdin queries ? and =?. New function.
2129 (nml_get_obj_data): Parses object name. New function.
2130 (touch_nml_nodes): Marks objects for read. New function.
2131 (untouch_nml_nodes): Resets objects. New function.
2132 (parse_qualifier): Parses and checks qualifiers. New function
2133 (nml_read_object): Reads and stores object data. New function.
2134 (eat_separator): No new_record on '/' in namelist.
2135 (finish_separator): No new_record on '/' in namelist.
2136 (read_logical): Error return for namelist.
2137 (read_integer): Error return for namelist.
2138 (read_complex): Error return for namelist.
2139 (read_real): Error return for namelist.
2140 * io/lock.c (library_end): Free extended namelist_info types.
2141 * io/transfer.c (st_set_nml_var): Modified for arrays.
2142 (st_set_nml_var_dim): Dimension descriptors. New function.
2143 * io/write.c (namelist_write): Reduced to call to new functions.
2144 (nml_write_obj): Writes output for object. New function.
2145 (write_integer): Suppress leading blanks for repeat counts.
2146 (write_int): Suppress leading blanks for repeat counts.
2147 (write_float): Suppress leading blanks for repeat counts.
2148 (output_float): Suppress leading blanks for repeat counts.
2149
2150 2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>
2151
2152 PR libfortran/18495
2153 * intrinsics/spread_generic.c (spread): Remove const from
2154 return array descriptor.
2155 New variables: rrank (rank of return array), rs (for
2156 calculating the size of the return array), srank (rank
2157 of the source array).
2158 Generate runtime error if the dim= argument is larger than
2159 the rank of the return array.
2160 Generate runtime error if the needed rank of the return
2161 array is larger than 7.
2162 If ret->data is null, populate the return array descriptor
2163 and initialize the variables for the actual operation.
2164 Otherwise, set ret->dim[0].stride to one if it is zero.
2165 Change second, independent use of variable dim to srank.
2166
2167 2005-04-12 Mike Stump <mrs@apple.com>
2168
2169 * configure: Regenerate.
2170
2171 2005-04-13 Thomas Koenig <Thomas.Koenig@online.de>
2172
2173 PR libfortran/19106
2174 * m4/iforeach.c (name`'rtype_qual`_'atype_code): Add TODO
2175 that setting correct strides is a front end job.
2176 (`m'name`'rtype_qual`_'atype_code): Likewise. If mask has
2177 a lowest stride of 0, adjust to 1.
2178 * m4/ifunction.c (name`'rtype_qual`_'atype_code): Add TODO
2179 that setting correct strides is a front end job.
2180 (`m'name`'rtype_qual`_'atype_code): Likewise. If mask has
2181 a lowest stride of 0, adjust to 1.
2182 * maxloc0_4_i4.c: Regenerated
2183 * maxloc0_4_i8.c: Regenerated
2184 * maxloc0_4_r4.c: Regenerated
2185 * maxloc0_4_r8.c: Regenerated
2186 * maxloc0_8_i4.c: Regenerated
2187 * maxloc0_8_i8.c: Regenerated
2188 * maxloc0_8_r4.c: Regenerated
2189 * maxloc0_8_r8.c: Regenerated
2190 * maxloc1_4_i4.c: Regenerated
2191 * maxloc1_4_i8.c: Regenerated
2192 * maxloc1_4_r4.c: Regenerated
2193 * maxloc1_4_r8.c: Regenerated
2194 * maxloc1_8_i4.c: Regenerated
2195 * maxloc1_8_i8.c: Regenerated
2196 * maxloc1_8_r4.c: Regenerated
2197 * maxloc1_8_r8.c: Regenerated
2198 * maxval_i4.c: Regenerated
2199 * maxval_i8.c: Regenerated
2200 * maxval_r4.c: Regenerated
2201 * maxval_r8.c: Regenerated
2202 * minloc0_4_i4.c: Regenerated
2203 * minloc0_4_i8.c: Regenerated
2204 * minloc0_4_r4.c: Regenerated
2205 * minloc0_4_r8.c: Regenerated
2206 * minloc0_8_i4.c: Regenerated
2207 * minloc0_8_i8.c: Regenerated
2208 * minloc0_8_r4.c: Regenerated
2209 * minloc0_8_r8.c: Regenerated
2210 * minloc1_4_i4.c: Regenerated
2211 * minloc1_4_i8.c: Regenerated
2212 * minloc1_4_r4.c: Regenerated
2213 * minloc1_4_r8.c: Regenerated
2214 * minloc1_8_i4.c: Regenerated
2215 * minloc1_8_i8.c: Regenerated
2216 * minloc1_8_r4.c: Regenerated
2217 * minloc1_8_r8.c: Regenerated
2218 * minval_i4.c: Regenerated
2219 * minval_i8.c: Regenerated
2220 * minval_r4.c: Regenerated
2221 * minval_r8.c: Regenerated
2222 * product_c4.c: Regenerated
2223 * product_c8.c: Regenerated
2224 * product_i4.c: Regenerated
2225 * product_i8.c: Regenerated
2226 * product_r4.c: Regenerated
2227 * product_r8.c: Regenerated
2228 * sum_c4.c: Regenerated
2229 * sum_c8.c: Regenerated
2230 * sum_i4.c: Regenerated
2231 * sum_i8.c: Regenerated
2232 * sum_r4.c: Regenerated
2233 * sum_r8.c: Regenerated
2234
2235 2005-04-10 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2236
2237 PR libfortran/20788
2238 * runtime/environ.c (init_unsigned_integer): Function for
2239 environment variables we want to be positive.
2240 (init_integer): Function to allow negative environment
2241 variables (e.g. for GFORTRAN_STDIN_UNIT).
2242
2243 2005-04-10 Thomas Koenig <Thomas.Koenig@online.de>
2244
2245 PR libfortran/17992
2246 PR libfortran/19568
2247 PR libfortran/19595
2248 PR libfortran/20005
2249 PR libfortran/20092
2250 PR libfortran/20131
2251 PR libfortran/20661
2252 PR libfortran/20744
2253 * io/transfer.c (top level): eor_condition: New static variable.
2254 (read_sf): Remove unnecessary zeroing of buffer (there is enough
2255 information in its length).
2256 Return a string of length 0 (to be padded by caller) if EOR was
2257 seen previously.
2258 Remove erroneous special casing of EOR for standard input.
2259 Set eor_condition for non-advancing I/O if an end of line was
2260 detected.
2261 Increment ioparm.size if necessary.
2262 (formatted_transfer): Skip the function if there is an EOR condition.
2263 (data_transfer_init): Initialize eor_condition to zero (false).
2264 (next_record_r): Clear sf_seen_eor if a \n has been seen already.
2265 (finalize_transfer): If there is an EOR condition, raise the error.
2266
2267 2005-04-09 Bud Davis <bdavis@gfortran.org>
2268 Steven G. Kargl <kargls@comcast.net>
2269
2270 PR fortran/19872
2271 * io/transfer.c (data_transfer_init): truncate an existing
2272 file on the first write.
2273
2274 2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
2275
2276 PR libfortran/19106
2277 PR libfortran/19014
2278 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): ditto.
2279 If retarray->data is NULL (i.e. the front end does not
2280 know the rank and dimenson of the array), fill in its
2281 properties and allocate memory.
2282 Change the assertions about rank and dimension of retarray into
2283 runtime errors and only check them for retarray->data != NULL.
2284 Do the same for correcting the stride from 0 to 1 in retarray.
2285 (`m'name`'rtype_qual`_'atype_code): Likewise.
2286 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
2287 Change assertion about rank of array to runtime error.
2288 (`m'name`'rtype_qual`_'atype_code): Likewise.
2289 * generated/all_l4.c: Regenerated.
2290 * generated/all_l8.c: Regenerated.
2291 * generated/any_l4.c: Regenerated.
2292 * generated/any_l8.c: Regenerated.
2293 * generated/count_4_l4.c: Regenerated.
2294 * generated/count_4_l8.c: Regenerated.
2295 * generated/count_8_l4.c: Regenerated.
2296 * generated/count_8_l8.c: Regenerated.
2297 * generated/maxloc0_4_i4.c: Regenerated.
2298 * generated/maxloc0_4_i8.c: Regenerated.
2299 * generated/maxloc0_4_r4.c: Regenerated.
2300 * generated/maxloc0_4_r8.c: Regenerated.
2301 * generated/maxloc0_8_i4.c: Regenerated.
2302 * generated/maxloc0_8_i8.c: Regenerated.
2303 * generated/maxloc0_8_r4.c: Regenerated.
2304 * generated/maxloc0_8_r8.c: Regenerated.
2305 * generated/maxloc1_4_i4.c: Regenerated.
2306 * generated/maxloc1_4_i8.c: Regenerated.
2307 * generated/maxloc1_4_r4.c: Regenerated.
2308 * generated/maxloc1_4_r8.c: Regenerated.
2309 * generated/maxloc1_8_i4.c: Regenerated.
2310 * generated/maxloc1_8_i8.c: Regenerated.
2311 * generated/maxloc1_8_r4.c: Regenerated.
2312 * generated/maxloc1_8_r8.c: Regenerated.
2313 * generated/maxval_i4.c: Regenerated.
2314 * generated/maxval_i8.c: Regenerated.
2315 * generated/maxval_r4.c: Regenerated.
2316 * generated/maxval_r8.c: Regenerated.
2317 * generated/minloc0_4_i4.c: Regenerated.
2318 * generated/minloc0_4_i8.c: Regenerated.
2319 * generated/minloc0_4_r4.c: Regenerated.
2320 * generated/minloc0_4_r8.c: Regenerated.
2321 * generated/minloc0_8_i4.c: Regenerated.
2322 * generated/minloc0_8_i8.c: Regenerated.
2323 * generated/minloc0_8_r4.c: Regenerated.
2324 * generated/minloc0_8_r8.c: Regenerated.
2325 * generated/minloc1_4_i4.c: Regenerated.
2326 * generated/minloc1_4_i8.c: Regenerated.
2327 * generated/minloc1_4_r4.c: Regenerated.
2328 * generated/minloc1_4_r8.c: Regenerated.
2329 * generated/minloc1_8_i4.c: Regenerated.
2330 * generated/minloc1_8_i8.c: Regenerated.
2331 * generated/minloc1_8_r4.c: Regenerated.
2332 * generated/minloc1_8_r8.c: Regenerated.
2333 * generated/minval_i4.c: Regenerated.
2334 * generated/minval_i8.c: Regenerated.
2335 * generated/minval_r4.c: Regenerated.
2336 * generated/minval_r8.c: Regenerated.
2337 * generated/product_c4.c: Regenerated.
2338 * generated/product_c8.c: Regenerated.
2339 * generated/product_i4.c: Regenerated.
2340 * generated/product_i8.c: Regenerated.
2341 * generated/product_r4.c: Regenerated.
2342 * generated/product_r8.c: Regenerated.
2343 * generated/sum_c4.c: Regenerated.
2344 * generated/sum_c8.c: Regenerated.
2345 * generated/sum_i4.c: Regenerated.
2346 * generated/sum_i8.c: Regenerated.
2347 * generated/sum_r4.c: Regenerated.
2348 * generated/sum_r8.c: Regenerated.
2349
2350 2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>
2351
2352 PR libfortran/20163
2353 * runtime/string.c (compare0): Use fstrlen() to
2354 strip trailing blanks from option string.
2355
2356 2005-04-09 Andrew Pinski <pinskia@physics.uc.edu>
2357
2358 PR fortran/13257
2359 * format.c (parse_format_list): Allow an optional comma
2360 between descriptors.
2361
2362 2005-04-08 Eric Botcazou <ebotcazou@libertysurf.fr>
2363
2364 * io/backspace.c (unformatted_backspace): Do not dereference
2365 the pointer to the stream.
2366
2367 2005-04-07 Andrew Pinski <pinskia@physics.uc.edu>
2368
2369 PR libfortran/20766
2370 * configure.ac (extra_ldflags_libgfortran): Set for *-darwin* to
2371 "-Wl,-single_module".
2372 * configure: Regenerate.
2373 * Makefile.am (libgfortran_la_LDFLAGS): Add extra_ldflags_libgfortran.
2374 * Makefile.in: Regenerate.
2375
2376 2005-04-05 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2377
2378 PR libfortran/20755
2379 * write.c (write_float): A G edit descriptor may locally change
2380 the scale factor, but it needs to be restored afterwards.
2381
2382 2005-04-03 Dale Ranta <dir@lanl.gov>
2383 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2384
2385 PR libfortran/20068
2386 PR libfortran/20125
2387 PR libfortran/20156
2388 PR libfortran/20471
2389 * io/backspace.c (unformatted_backspace): Fix error in arithmetic.
2390 (st_backspace): When in WRITING mode, we flush and falling back
2391 into READING mode. In all cases, correctly position the stream.
2392
2393 2005-03-31 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2394
2395 PR libfortran/20660
2396 * io/inquire.c (inquire_via_unit): Non-opened units should still be
2397 reported by an INQUIRE statement as existing.
2398 * io/transfer.c (data_transfer_init): Never accept negative units.
2399
2400 2005-03-29 Dale Ranta <dir@lanl.gov>
2401 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2402
2403 PR libfortran/20163
2404 * io/open.c (st_open): call library_end() before returning even if
2405 an error arises.
2406
2407 2005-03-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2408
2409 PR libfortran/19678
2410 * list_read.c (next_char, eat_separator, finish_separator, read_real)
2411 (namelist_read): Add support for '\r' as well as '\n' as EOL
2412 character.
2413
2414 PR libfortran/19679
2415 * list_read.c (read_sf): Add a '\r' in a test to support DOS
2416 line-endings when line length is exceeded.
2417
2418 2005-03-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2419
2420 PR libfortran/15332
2421 * io/format.c (parse_format_list): format node for colon edit
2422 descriptor needs a repeat counter set to 1.
2423
2424 2005-02-24 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2425
2426 * config.h.in: Regenerate.
2427
2428 2005-02-23 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2429
2430 PR libfortran/18025
2431 * write.c (output_float): Handling the "F0.d" format similarly as
2432 commercial compilers.
2433
2434 2005-03-22 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2435
2436 * Makefile.am: Added new files.
2437 * Makefile.in: Regenerate.
2438 * aclocal.m4: Regenerate.
2439 * configure.ac: add checks for signal.h headers file, as well as
2440 following functions: chdir, strerror, getlogin, gethostname, kill,
2441 link, symlink, perror, sleep, time.
2442 * configure: Regenerate.
2443 * intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
2444 intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
2445 intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
2446 intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
2447 implementend g77 intrinsics.
2448
2449 2005-03-21 Zack Weinberg <zack@codesourcery.com>
2450
2451 * configure.ac: Do not invoke TL_AC_GCC_VERSION.
2452 In all substitutions, leave gcc_version to be expanded by the Makefile.
2453 * aclocal.m4, configure: Regenerate.
2454 * Makefile.am: Set gcc_version.
2455 * Makefile.in: Regenerate.
2456
2457 2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2458
2459 PR libfortran/20257
2460 * open.c (new_unit): set record length to max_offset rather than
2461 using a hard-coded limit (which was too low).
2462
2463 2005-03-16 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2464
2465 PR libfortran/20480
2466 * write.c (output_float): special check when writing 0.0 with
2467 EN and ES formats.
2468
2469 2005-03-11 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2470
2471 PR libfortran/20124
2472 * write.c (output_float): Adds a nzero_real variable to store
2473 the number of leading zeros whatever the format width is. Corrects
2474 the rounding of numbers less than 10^(-width). Fixes typo in an
2475 error message. Updates copyright years
2476
2477 2005-02-27 Toon Moene <toon@moene.indiv.nluug.nl>
2478
2479 * runtime/environ.c: Update copyright years.
2480
2481 2005-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2482
2483 * io/write.c: Update copyright years.
2484
2485 2005-02-27 Francois-Xavier Coudert <coudert@clipper.ens.fr>
2486
2487 PR libfortran/20101
2488 * io/write.c (output_float): Added special check for value 0.0 in
2489 PE format.
2490
2491 2005-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2492
2493 * io/write.c (output_float): Fix typo in condition.
2494
2495 2005-02-25 Peter O'Gorman <peter@pogma.com>
2496 Toon Moene <toon@moene.indiv.nluug.nl>
2497
2498 PR libfortran/17748
2499 * runtime/environ.c: Remove references to environ.
2500 (show_variables): remove GFORTRAN_UNBUFFERED_* and
2501 GFORTRAN_NAME_* because they require environ.
2502 (pattern_scan): Remove function.
2503
2504 2005-02-22 Paul Thomas <paulthomas2@wannado.fr>
2505 Bud Davis <bdavis@gfortran.org>
2506
2507 * io/list_read.c (read_real): Handle separators properly
2508 in list directed read.
2509
2510 2005-02-21 Bud Davis <bdavis@gfortran.org>
2511
2512 PR fortran/20086
2513 * io/transfer.c (write_constant_string): accept an 'h' as
2514 the start of a hollerith format string.
2515
2516 2005-02-21 Eric Botcazou <ebotcazou@libertysurf.fr>
2517
2518 PR libfortran/19302
2519 * intrinsics/c99_functions.c (nextafterf): Special-case infinite
2520 numbers.
2521
2522 2005-02-21 Steven G. Kargl <kargls@comcast.net>
2523
2524 * io/write.c (output_float): Typo in error meesage.
2525
2526 2005-02-20 Steven G. Kargl <kargls@comcast.net>
2527
2528 PR 20085
2529 * intrinsic/args.c (iargc): Off by 1.
2530
2531 2005-02-19 Steven G. Kargl <kargls@comcast.net>
2532
2533 * intrinsic/date_and_time.c: Fix conformance problems.
2534
2535 2005-02-01 Paul Thomas <paulthomas2@wanadoo.fr>
2536
2537 PR libfortran/19363
2538 PR libfortran/19691
2539 * libgfortran.h (isfinite): Work around broken isfinite(x) in Cygwin.
2540
2541 2005-01-30 Bud Davis <bdavis@gfortran.org>
2542
2543 PR fortran/19647
2544 * io/inquire.c (inquire_via_unit): Use correct variable for
2545 pad.
2546
2547 2005-01-29 Thomas Koenig <Thomas.Koenig@online.de>
2548
2549 PR libfortran/19595
2550 * io/transfer.c (data_transfer_init): eor requires advance="NO".
2551
2552 2005-01-25 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2553
2554 PR libfortran/19524
2555 * io/read.c (read_f): Don't free uninitialized pointer.
2556
2557 2005-01-23 James A. Morrison <phython@gcc.gnu.org>
2558 Paul Brook <paul@codesourcery.com>
2559
2560 PR fortran/19294
2561 * Makefile.am: Add transpose_c4.c and transpose_c8.c.
2562 * intrinsics/cshift0.c: Use separate optimized loops for complex types.
2563 * m4/transpose.m4: Include type letter in function name.
2564 * Makefile.in: Regenerate.
2565 * generated/transpose_*.c: Regenerate.
2566
2567 2005-01-22 Thomas Koenig <Thomas.Koenig@online.de>
2568
2569 PR libfortran/19451
2570 * io/transfer.c (finalize_transfer): Don't do anything if
2571 there is an error condition.
2572
2573 2005-01-22 David Edelsohn <edelsohn@gnu.org>
2574
2575 PR libfortran/19052
2576 * libgfortran.h (options_t): Add stderr_unit.
2577 * io/io.h (error_stream): Declare.
2578 * io/open.c (new_unit): Do not terminate abnormally if opening
2579 file preconnected to stdin, stdout, or stderr.
2580 * io/unit.c (init_units): Initialize stderr_unit.
2581 * io/unix.c (error_stream): New function.
2582 * runtime/environ.c (GFORTRAN_STDERR_UNIT): New environment variable.
2583
2584 2005-01-22 Thomas Koenig <Thomas.Koenig@online.de>
2585
2586 PR libfortran/18982
2587 * io/unix.c (regular_file): No need to change flags->action
2588 if an error occurs. Document this.
2589 No need to call stat() for STATUS_OLD, open() will
2590 fail anyway.
2591 For ACTION_UNSPECIFIED, try open for read-write, then for
2592 read-only if open fails with EACCES, then for write-only
2593 if that fails with EACCES again.
2594 * io/unix.c (open_external): Document changed behavior of
2595 regular_file.
2596
2597 2005-01-22 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
2598
2599 PR fortran/19194
2600 * io/io.h (st_parameter): Use 'GFC_INTEGER_4' instead of 'int',
2601 use CHARACTER macro for definition of string valued paramters.
2602
2603 2005-01-22 Bud Davis <bdavis9659@comcast.net>
2604
2605 PR fortran/19314
2606 * io/inquire.c(inquire_via_unit): implement POSITION=.
2607 * io/transfer.c(next_record): update position for
2608 INQUIRE.
2609 * io/rewind.c(st_rewind): update position for
2610 INQUIRE.
2611
2612 2005-01-16 Bud Davis <bdavis9659@comcast.net>
2613
2614 PR fortran/18778
2615 * io/transfer.c (us_read): no bytes available is not a
2616 runtime error.
2617
2618 2005-01-15 Bud Davis <bdavis9659@comcast.net>
2619
2620 PR fortran/18983
2621 * io/transfer.c (st_write_done): only truncate when it
2622 is required.
2623
2624 2005-01-12 Toon Moene <toon@moene.indiv.nluug.nl>
2625
2626 PR libfortran/19280
2627 c99_protos.h: License changed to GPL+exception.
2628 libgfortran.h: Ditto.
2629 intrinsics/abort.c: Ditto.
2630 intrinsics/args.c: Ditto.
2631 intrinsics/associated.c: Ditto.
2632 intrinsics/bessel.c: Ditto.
2633 intrinsics/c99_functions.c: Ditto.
2634 intrinsics/cpu_time.c: Ditto.
2635 intrinsics/cshift0.c: Ditto.
2636 intrinsics/date_and_time.c: Ditto.
2637 intrinsics/env.c: Ditto.
2638 intrinsics/eoshift0.c: Ditto.
2639 intrinsics/eoshift2.c: Ditto.
2640 intrinsics/erf.c: Ditto.
2641 intrinsics/etime.c: Ditto.
2642 intrinsics/exit.c: Ditto.
2643 intrinsics/flush.c: Ditto.
2644 intrinsics/fnum.c: Ditto.
2645 intrinsics/getXid.c: Ditto.
2646 intrinsics/getcwd.c: Ditto.
2647 intrinsics/ishftc.c: Ditto.
2648 intrinsics/mvbits.c: Ditto.
2649 intrinsics/pack_generic.c: Ditto.
2650 intrinsics/rand.c: Ditto.
2651 intrinsics/random.c: Ditto.
2652 intrinsics/reshape_generic.c: Ditto.
2653 intrinsics/reshape_packed.c: Ditto.
2654 intrinsics/size.c: Ditto.
2655 intrinsics/spread_generic.c: Ditto.
2656 intrinsics/stat.c: Ditto.
2657 intrinsics/string_intrinsics.c: Ditto.
2658 intrinsics/system.c: Ditto.
2659 intrinsics/system_clock.c: Ditto.
2660 intrinsics/transpose_generic.c: Ditto.
2661 intrinsics/umask.c: Ditto.
2662 intrinsics/unlink.c: Ditto.
2663 intrinsics/unpack_generic.c: Ditto.
2664 io/backspace.c: Ditto.
2665 io/close.c: Ditto.
2666 io/endfile.c: Ditto.
2667 io/format.c: Ditto.
2668 io/inquire.c: Ditto.
2669 io/io.h: Ditto.
2670 io/list_read.c: Ditto.
2671 io/lock.c: Ditto.
2672 io/open.c: Ditto.
2673 io/read.c: Ditto.
2674 io/rewind.c: Ditto.
2675 io/transfer.c: Ditto.
2676 io/unit.c: Ditto.
2677 io/unix.c: Ditto.
2678 io/write.c: Ditto.
2679 m4/all.m4: Ditto.
2680 m4/any.m4: Ditto.
2681 m4/cexp.m4: Ditto.
2682 m4/chyp.m4: Ditto.
2683 m4/count.m4: Ditto.
2684 m4/cshift1.m4: Ditto.
2685 m4/ctrig.m4: Ditto.
2686 m4/dotprod.m4: Ditto.
2687 m4/dotprodc.m4: Ditto.
2688 m4/dotprodl.m4: Ditto.
2689 m4/eoshift1.m4: Ditto.
2690 m4/eoshift3.m4: Ditto.
2691 m4/exponent.m4: Ditto.
2692 m4/fraction.m4: Ditto.
2693 m4/head.m4: Ditto.
2694 m4/iforeach.m4: Ditto.
2695 m4/ifunction.m4: Ditto.
2696 m4/in_pack.m4: Ditto.
2697 m4/in_unpack.m4: Ditto.
2698 m4/iparm.m4: Ditto.
2699 m4/matmul.m4: Ditto.
2700 m4/matmull.m4: Ditto.
2701 m4/maxloc0.m4: Ditto.
2702 m4/maxloc1.m4: Ditto.
2703 m4/maxval.m4: Ditto.
2704 m4/minloc0.m4: Ditto.
2705 m4/minloc1.m4: Ditto.
2706 m4/minval.m4: Ditto.
2707 m4/mtype.m4: Ditto.
2708 m4/nearest.m4: Ditto.
2709 m4/pow.m4: Ditto.
2710 m4/product.m4: Ditto.
2711 m4/reshape.m4: Ditto.
2712 m4/set_exponent.m4: Ditto.
2713 m4/shape.m4: Ditto.
2714 m4/specific.m4: Ditto.
2715 m4/specific2.m4: Ditto.
2716 m4/sum.m4: Ditto.
2717 m4/transpose.m4: Ditto.
2718 m4/types.m4: Ditto.
2719 runtime/environ.c: Ditto.
2720 runtime/error.c: Ditto.
2721 runtime/in_pack_generic.c: Ditto.
2722 runtime/in_unpack_generic.c: Ditto.
2723 runtime/main.c: Ditto.
2724 runtime/memory.c: Ditto.
2725 runtime/normalize.c: Ditto.
2726 runtime/pause.c: Ditto.
2727 runtime/select.c: Ditto.
2728 runtime/stop.c: Ditto.
2729 runtime/string.c: Ditto.
2730 generated/_abs_c4.f90: Regenerated.
2731 generated/_abs_c8.f90: Regenerated.
2732 generated/_abs_i4.f90: Regenerated.
2733 generated/_abs_i8.f90: Regenerated.
2734 generated/_abs_r4.f90: Regenerated.
2735 generated/_abs_r8.f90: Regenerated.
2736 generated/_acos_r4.f90: Regenerated.
2737 generated/_acos_r8.f90: Regenerated.
2738 generated/_aint_r4.f90: Regenerated.
2739 generated/_aint_r8.f90: Regenerated.
2740 generated/_anint_r4.f90: Regenerated.
2741 generated/_anint_r8.f90: Regenerated.
2742 generated/_asin_r4.f90: Regenerated.
2743 generated/_asin_r8.f90: Regenerated.
2744 generated/_atan2_r4.f90: Regenerated.
2745 generated/_atan2_r8.f90: Regenerated.
2746 generated/_atan_r4.f90: Regenerated.
2747 generated/_atan_r8.f90: Regenerated.
2748 generated/_conjg_c4.f90: Regenerated.
2749 generated/_conjg_c8.f90: Regenerated.
2750 generated/_cos_c4.f90: Regenerated.
2751 generated/_cos_c8.f90: Regenerated.
2752 generated/_cos_r4.f90: Regenerated.
2753 generated/_cos_r8.f90: Regenerated.
2754 generated/_cosh_r4.f90: Regenerated.
2755 generated/_cosh_r8.f90: Regenerated.
2756 generated/_dim_i4.f90: Regenerated.
2757 generated/_dim_i8.f90: Regenerated.
2758 generated/_dim_r4.f90: Regenerated.
2759 generated/_dim_r8.f90: Regenerated.
2760 generated/_exp_c4.f90: Regenerated.
2761 generated/_exp_c8.f90: Regenerated.
2762 generated/_exp_r4.f90: Regenerated.
2763 generated/_exp_r8.f90: Regenerated.
2764 generated/_log10_r4.f90: Regenerated.
2765 generated/_log10_r8.f90: Regenerated.
2766 generated/_log_c4.f90: Regenerated.
2767 generated/_log_c8.f90: Regenerated.
2768 generated/_log_r4.f90: Regenerated.
2769 generated/_log_r8.f90: Regenerated.
2770 generated/_mod_i4.f90: Regenerated.
2771 generated/_mod_i8.f90: Regenerated.
2772 generated/_mod_r4.f90: Regenerated.
2773 generated/_mod_r8.f90: Regenerated.
2774 generated/_sign_i4.f90: Regenerated.
2775 generated/_sign_i8.f90: Regenerated.
2776 generated/_sign_r4.f90: Regenerated.
2777 generated/_sign_r8.f90: Regenerated.
2778 generated/_sin_c4.f90: Regenerated.
2779 generated/_sin_c8.f90: Regenerated.
2780 generated/_sin_r4.f90: Regenerated.
2781 generated/_sin_r8.f90: Regenerated.
2782 generated/_sinh_r4.f90: Regenerated.
2783 generated/_sinh_r8.f90: Regenerated.
2784 generated/_sqrt_c4.f90: Regenerated.
2785 generated/_sqrt_c8.f90: Regenerated.
2786 generated/_sqrt_r4.f90: Regenerated.
2787 generated/_sqrt_r8.f90: Regenerated.
2788 generated/_tan_r4.f90: Regenerated.
2789 generated/_tan_r8.f90: Regenerated.
2790 generated/_tanh_r4.f90: Regenerated.
2791 generated/_tanh_r8.f90: Regenerated.
2792 generated/all_l4.c: Regenerated.
2793 generated/all_l8.c: Regenerated.
2794 generated/any_l4.c: Regenerated.
2795 generated/any_l8.c: Regenerated.
2796 generated/count_4_l4.c: Regenerated.
2797 generated/count_4_l8.c: Regenerated.
2798 generated/count_8_l4.c: Regenerated.
2799 generated/count_8_l8.c: Regenerated.
2800 generated/cshift1_4.c: Regenerated.
2801 generated/cshift1_8.c: Regenerated.
2802 generated/dotprod_c4.c: Regenerated.
2803 generated/dotprod_c8.c: Regenerated.
2804 generated/dotprod_i4.c: Regenerated.
2805 generated/dotprod_i8.c: Regenerated.
2806 generated/dotprod_l4.c: Regenerated.
2807 generated/dotprod_l8.c: Regenerated.
2808 generated/dotprod_r4.c: Regenerated.
2809 generated/dotprod_r8.c: Regenerated.
2810 generated/eoshift1_4.c: Regenerated.
2811 generated/eoshift1_8.c: Regenerated.
2812 generated/eoshift3_4.c: Regenerated.
2813 generated/eoshift3_8.c: Regenerated.
2814 generated/exp_c4.c: Regenerated.
2815 generated/exp_c8.c: Regenerated.
2816 generated/exponent_r4.c: Regenerated.
2817 generated/exponent_r8.c: Regenerated.
2818 generated/fraction_r4.c: Regenerated.
2819 generated/fraction_r8.c: Regenerated.
2820 generated/hyp_c4.c: Regenerated.
2821 generated/hyp_c8.c: Regenerated.
2822 generated/in_pack_i4.c: Regenerated.
2823 generated/in_pack_i8.c: Regenerated.
2824 generated/in_unpack_i4.c: Regenerated.
2825 generated/in_unpack_i8.c: Regenerated.
2826 generated/matmul_c4.c: Regenerated.
2827 generated/matmul_c8.c: Regenerated.
2828 generated/matmul_i4.c: Regenerated.
2829 generated/matmul_i8.c: Regenerated.
2830 generated/matmul_l4.c: Regenerated.
2831 generated/matmul_l8.c: Regenerated.
2832 generated/matmul_r4.c: Regenerated.
2833 generated/matmul_r8.c: Regenerated.
2834 generated/maxloc0_4_i4.c: Regenerated.
2835 generated/maxloc0_4_i8.c: Regenerated.
2836 generated/maxloc0_4_r4.c: Regenerated.
2837 generated/maxloc0_4_r8.c: Regenerated.
2838 generated/maxloc0_8_i4.c: Regenerated.
2839 generated/maxloc0_8_i8.c: Regenerated.
2840 generated/maxloc0_8_r4.c: Regenerated.
2841 generated/maxloc0_8_r8.c: Regenerated.
2842 generated/maxloc1_4_i4.c: Regenerated.
2843 generated/maxloc1_4_i8.c: Regenerated.
2844 generated/maxloc1_4_r4.c: Regenerated.
2845 generated/maxloc1_4_r8.c: Regenerated.
2846 generated/maxloc1_8_i4.c: Regenerated.
2847 generated/maxloc1_8_i8.c: Regenerated.
2848 generated/maxloc1_8_r4.c: Regenerated.
2849 generated/maxloc1_8_r8.c: Regenerated.
2850 generated/maxval_i4.c: Regenerated.
2851 generated/maxval_i8.c: Regenerated.
2852 generated/maxval_r4.c: Regenerated.
2853 generated/maxval_r8.c: Regenerated.
2854 generated/minloc0_4_i4.c: Regenerated.
2855 generated/minloc0_4_i8.c: Regenerated.
2856 generated/minloc0_4_r4.c: Regenerated.
2857 generated/minloc0_4_r8.c: Regenerated.
2858 generated/minloc0_8_i4.c: Regenerated.
2859 generated/minloc0_8_i8.c: Regenerated.
2860 generated/minloc0_8_r4.c: Regenerated.
2861 generated/minloc0_8_r8.c: Regenerated.
2862 generated/minloc1_4_i4.c: Regenerated.
2863 generated/minloc1_4_i8.c: Regenerated.
2864 generated/minloc1_4_r4.c: Regenerated.
2865 generated/minloc1_4_r8.c: Regenerated.
2866 generated/minloc1_8_i4.c: Regenerated.
2867 generated/minloc1_8_i8.c: Regenerated.
2868 generated/minloc1_8_r4.c: Regenerated.
2869 generated/minloc1_8_r8.c: Regenerated.
2870 generated/minval_i4.c: Regenerated.
2871 generated/minval_i8.c: Regenerated.
2872 generated/minval_r4.c: Regenerated.
2873 generated/minval_r8.c: Regenerated.
2874 generated/nearest_r4.c: Regenerated.
2875 generated/nearest_r8.c: Regenerated.
2876 generated/pow_c4_i4.c: Regenerated.
2877 generated/pow_c4_i8.c: Regenerated.
2878 generated/pow_c8_i4.c: Regenerated.
2879 generated/pow_c8_i8.c: Regenerated.
2880 generated/pow_i4_i4.c: Regenerated.
2881 generated/pow_i4_i8.c: Regenerated.
2882 generated/pow_i8_i4.c: Regenerated.
2883 generated/pow_i8_i8.c: Regenerated.
2884 generated/pow_r4_i4.c: Regenerated.
2885 generated/pow_r4_i8.c: Regenerated.
2886 generated/pow_r8_i4.c: Regenerated.
2887 generated/pow_r8_i8.c: Regenerated.
2888 generated/product_c4.c: Regenerated.
2889 generated/product_c8.c: Regenerated.
2890 generated/product_i4.c: Regenerated.
2891 generated/product_i8.c: Regenerated.
2892 generated/product_r4.c: Regenerated.
2893 generated/product_r8.c: Regenerated.
2894 generated/reshape_i4.c: Regenerated.
2895 generated/reshape_i8.c: Regenerated.
2896 generated/set_exponent_r4.c: Regenerated.
2897 generated/set_exponent_r8.c: Regenerated.
2898 generated/shape_i4.c: Regenerated.
2899 generated/shape_i8.c: Regenerated.
2900 generated/sum_c4.c: Regenerated.
2901 generated/sum_c8.c: Regenerated.
2902 generated/sum_i4.c: Regenerated.
2903 generated/sum_i8.c: Regenerated.
2904 generated/sum_r4.c: Regenerated.
2905 generated/sum_r8.c: Regenerated.
2906 generated/transpose_i4.c: Regenerated.
2907 generated/transpose_i8.c: Regenerated.
2908 generated/trig_c4.c: Regenerated.
2909 generated/trig_c8.c: Regenerated.
2910
2911 2005-01-07 Bud Davis <bdavis9659@comcast.net>
2912
2913 PR fortran/18398
2914 * transfer.c (next_record_r): always skip the
2915 eol search if it was found during sf_read.
2916
2917 \f
2918 Copyright (C) 2005 Free Software Foundation, Inc.
2919
2920 Copying and distribution of this file, with or without modification,
2921 are permitted in any medium without royalty provided the copyright
2922 notice and this notice are preserved.