]> git.ipfire.org Git - thirdparty/gcc.git/blob - libgfortran/ChangeLog
Forgot ChangeLog of part1 pr25561.
[thirdparty/gcc.git] / libgfortran / ChangeLog
1 2008-05-15 Janne Blomqvist <jb@gcc.gnu.org>
2
3 PR libfortran/25561
4 * Makefile.am: Add fbuf.c to gfor_io_src.
5 * Makefile.in: Regenerate.
6 * io/io.h (read_block): Remove.
7 (struct stream): Remove alloc_r_at function pointer.
8 (salloc_r): Remove.
9 (salloc_r_at): Remove.
10 (salloc_w_at): Remove.
11 (salloc_w): Remove offset argument.
12 (struct fbuf): New struct for format buffer.
13 (struct gfc_unit): Add fbuf.
14 (read_block_form): New prototype.
15 (fbuf_init): Likewise.
16 (fbuf_destroy): Likewise.
17 (fbuf_reset): Likewise.
18 (fbuf_alloc): Likewise.
19 (fbuf_flush): Likewise.
20 (fbuf_seek): Likewise.
21 * io/file_pos.c (formatted_backspace): Change to use sread.
22 (unformatted_backspace): Likewise.
23 (st_backspace): Flush format buffer.
24 (st_rewind): Likewise.
25 * io/list_read.c (next_char): Likewise.
26 (nml_query): Tidying, flush format buffer.
27 * io/open.c (new_unit): Init format buffer.
28 * io/read.c (read_l): Change to use read_block_form.
29 (read_a): Likewise.
30 (read_decimal): Likewise.
31 (read_radix): Likewise.
32 (read_f): Likewise.
33 (read_x): Empty reads also for stream I/O.
34 * io/transfer.c (read_sf): Change to use sread.
35 (read_block): Rename to read_block_form, change prototype, use sread.
36 (read_block_direct): Don't seek stream files.
37 (write_block): Change to use fbuf if external file, don't seek stream
38 files.
39 (write_buf): Don't seek stream files.
40 (formatted_transfer_scalar): Use fbuf for external files.
41 (us_read): Change to use sread.
42 (pre_position): Do nothing for stream I/O.
43 (data_transfer_init): Flush fbuf when switching from write to read, if
44 POS is specified, seek stream file to correct offset.
45 (skip_record): Change to use sread.
46 (min_off): New function.
47 (next_record_r): Change to use sread.
48 (next_record_w): Change to use sset/sseek, flush fbuf.
49 (finalize_transfer): Flush fbuf.
50 * io/unit.c (init_units): Init fbuf for stdout, stderr.
51 (close_unit_1): Destroy fbuf.
52 (finish_last_advance_record): Flush fbuf, no need to seek.
53 * io/unix.c (fd_alloc_r_at): Remove unused where argument.
54 (fd_alloc_w_at): Likewise.
55 (fd_read): Remove third argument to fd_alloc_r_at.
56 (fd_write): Remove third argument to fd_alloc_w_at.
57 (fd_sset): Likewise.
58 (fd_open): Don't set alloc_r_at.
59 (mem_alloc_r_at): Remove unused where argument.
60 (mem_alloc_w_at): Likewise.
61 (mem_read): Don't incorrectly return previous errno, remove unused
62 third argument to alloc function.
63 (mem_write): Likewise.
64 (mem_set): Likewise.
65 (open_internal): Don't set alloc_r_at pointer.
66 * io/fbuf.c: New file.
67
68 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
69
70 * libgfortran.h (gfc_char4_t): New type.
71 (GFC_SIZE_OF_CHAR_KIND): New macro.
72 (compare_string): Adjust prototype.
73 (compare_string_char4): New prototype.
74 * gfortran.map (GFORTRAN_1.1): Add _gfortran_adjustl_char4,
75 _gfortran_adjustr_char4, _gfortran_compare_string_char4,
76 _gfortran_concat_string_char4, _gfortran_string_index_char4,
77 _gfortran_string_len_trim_char4, _gfortran_string_minmax_char4,
78 _gfortran_string_scan_char4, _gfortran_string_trim_char4 and
79 _gfortran_string_verify_char4.
80 * intrinsics/string_intrinsics_inc.c: New file from content of
81 string_intrinsics.c with types replaced by macros.
82 * intrinsics/string_intrinsics.c: Move content to
83 string_intrinsics_inc.c.
84
85 2008-05-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
86
87 PR libfortran/36202
88 * io/list_read (eat_separator): Handle the CR-LF case correctly.
89
90 2008-05-09 Julian Brown <julian@codesourcery.com>
91
92 * Makefile.am (LTLDFLAGS): New.
93 (libgfortran_la_LDFLAGS): Use above.
94 * Makefile.in: Regenerate.
95
96 2008-05-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
97
98 PR libfortran/36131
99 * io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
100 (next_record_w): Likewise.
101
102 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
103
104 PR libfortran/35995
105 * m4/ifunction_logical.m4: If the extent of "array"
106 is less than zero, set it to zero. Use an explicit
107 flag for breaking out of the main loop to avoid, because
108 the data pointer for "array" may be NULL for an empty
109 array.
110 * m4/ifunction.m4: Likewise.
111 * generated/all_l1.c: Regenerated.
112 * generated/all_l16.c: Regenerated.
113 * generated/all_l2.c: Regenerated.
114 * generated/all_l4.c: Regenerated.
115 * generated/all_l8.c: Regenerated.
116 * generated/any_l1.c: Regenerated.
117 * generated/any_l16.c: Regenerated.
118 * generated/any_l2.c: Regenerated.
119 * generated/any_l4.c: Regenerated.
120 * generated/any_l8.c: Regenerated.
121 * generated/count_16_l.c: Regenerated.
122 * generated/count_1_l.c: Regenerated.
123 * generated/count_2_l.c: Regenerated.
124 * generated/count_4_l.c: Regenerated.
125 * generated/count_8_l.c: Regenerated.
126 * generated/maxloc1_16_i1.c: Regenerated.
127 * generated/maxloc1_16_i16.c: Regenerated.
128 * generated/maxloc1_16_i2.c: Regenerated.
129 * generated/maxloc1_16_i4.c: Regenerated.
130 * generated/maxloc1_16_i8.c: Regenerated.
131 * generated/maxloc1_16_r10.c: Regenerated.
132 * generated/maxloc1_16_r16.c: Regenerated.
133 * generated/maxloc1_16_r4.c: Regenerated.
134 * generated/maxloc1_16_r8.c: Regenerated.
135 * generated/maxloc1_4_i1.c: Regenerated.
136 * generated/maxloc1_4_i16.c: Regenerated.
137 * generated/maxloc1_4_i2.c: Regenerated.
138 * generated/maxloc1_4_i4.c: Regenerated.
139 * generated/maxloc1_4_i8.c: Regenerated.
140 * generated/maxloc1_4_r10.c: Regenerated.
141 * generated/maxloc1_4_r16.c: Regenerated.
142 * generated/maxloc1_4_r4.c: Regenerated.
143 * generated/maxloc1_4_r8.c: Regenerated.
144 * generated/maxloc1_8_i1.c: Regenerated.
145 * generated/maxloc1_8_i16.c: Regenerated.
146 * generated/maxloc1_8_i2.c: Regenerated.
147 * generated/maxloc1_8_i4.c: Regenerated.
148 * generated/maxloc1_8_i8.c: Regenerated.
149 * generated/maxloc1_8_r10.c: Regenerated.
150 * generated/maxloc1_8_r16.c: Regenerated.
151 * generated/maxloc1_8_r4.c: Regenerated.
152 * generated/maxloc1_8_r8.c: Regenerated.
153 * generated/maxval_i1.c: Regenerated.
154 * generated/maxval_i16.c: Regenerated.
155 * generated/maxval_i2.c: Regenerated.
156 * generated/maxval_i4.c: Regenerated.
157 * generated/maxval_i8.c: Regenerated.
158 * generated/maxval_r10.c: Regenerated.
159 * generated/maxval_r16.c: Regenerated.
160 * generated/maxval_r4.c: Regenerated.
161 * generated/maxval_r8.c: Regenerated.
162 * generated/minloc1_16_i1.c: Regenerated.
163 * generated/minloc1_16_i16.c: Regenerated.
164 * generated/minloc1_16_i2.c: Regenerated.
165 * generated/minloc1_16_i4.c: Regenerated.
166 * generated/minloc1_16_i8.c: Regenerated.
167 * generated/minloc1_16_r10.c: Regenerated.
168 * generated/minloc1_16_r16.c: Regenerated.
169 * generated/minloc1_16_r4.c: Regenerated.
170 * generated/minloc1_16_r8.c: Regenerated.
171 * generated/minloc1_4_i1.c: Regenerated.
172 * generated/minloc1_4_i16.c: Regenerated.
173 * generated/minloc1_4_i2.c: Regenerated.
174 * generated/minloc1_4_i4.c: Regenerated.
175 * generated/minloc1_4_i8.c: Regenerated.
176 * generated/minloc1_4_r10.c: Regenerated.
177 * generated/minloc1_4_r16.c: Regenerated.
178 * generated/minloc1_4_r4.c: Regenerated.
179 * generated/minloc1_4_r8.c: Regenerated.
180 * generated/minloc1_8_i1.c: Regenerated.
181 * generated/minloc1_8_i16.c: Regenerated.
182 * generated/minloc1_8_i2.c: Regenerated.
183 * generated/minloc1_8_i4.c: Regenerated.
184 * generated/minloc1_8_i8.c: Regenerated.
185 * generated/minloc1_8_r10.c: Regenerated.
186 * generated/minloc1_8_r16.c: Regenerated.
187 * generated/minloc1_8_r4.c: Regenerated.
188 * generated/minloc1_8_r8.c: Regenerated.
189 * generated/minval_i1.c: Regenerated.
190 * generated/minval_i16.c: Regenerated.
191 * generated/minval_i2.c: Regenerated.
192 * generated/minval_i4.c: Regenerated.
193 * generated/minval_i8.c: Regenerated.
194 * generated/minval_r10.c: Regenerated.
195 * generated/minval_r16.c: Regenerated.
196 * generated/minval_r4.c: Regenerated.
197 * generated/minval_r8.c: Regenerated.
198 * generated/product_c10.c: Regenerated.
199 * generated/product_c16.c: Regenerated.
200 * generated/product_c4.c: Regenerated.
201 * generated/product_c8.c: Regenerated.
202 * generated/product_i1.c: Regenerated.
203 * generated/product_i16.c: Regenerated.
204 * generated/product_i2.c: Regenerated.
205 * generated/product_i4.c: Regenerated.
206 * generated/product_i8.c: Regenerated.
207 * generated/product_r10.c: Regenerated.
208 * generated/product_r16.c: Regenerated.
209 * generated/product_r4.c: Regenerated.
210 * generated/product_r8.c: Regenerated.
211 * generated/sum_c10.c: Regenerated.
212 * generated/sum_c16.c: Regenerated.
213 * generated/sum_c4.c: Regenerated.
214 * generated/sum_c8.c: Regenerated.
215 * generated/sum_i1.c: Regenerated.
216 * generated/sum_i16.c: Regenerated.
217 * generated/sum_i2.c: Regenerated.
218 * generated/sum_i4.c: Regenerated.
219 * generated/sum_i8.c: Regenerated.
220 * generated/sum_r10.c: Regenerated.
221 * generated/sum_r16.c: Regenerated.
222 * generated/sum_r4.c: Regenerated.
223 * generated/sum_r8.c: Regenerated.
224
225 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
226
227 PR libfortran/35990
228 * intrinsics/pack_generic.c: Really commit.
229
230 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
231
232 PR libfortran/35990
233 * intrinsics/pack_generic.c: If an extent of the source
234 array is less then zero, set it to zero. Set the source
235 pointer to NULL if the source size is zero. Set the total
236 number of elements to zero if the vector has an extent
237 less or equal to zero.
238 * m4/pack.m4: Set the source pointer to NULL if the
239 source array is zero-sized. Set the total number of
240 elemements to zero if the vector has an extent less or
241 equal to zero.
242 * generated/pack_i1.c: Regenerated.
243 * generated/pack_i2.c: Regenerated.
244 * generated/pack_i4.c: Regenerated.
245 * generated/pack_i8.c: Regenerated.
246 * generated/pack_i16.c: Regenerated.
247 * generated/pack_r4.c: Regenerated.
248 * generated/pack_r8.c: Regenerated.
249 * generated/pack_r10.c: Regenerated.
250 * generated/pack_r16.c: Regenerated.
251 * generated/pack_c4.c: Regenerated.
252 * generated/pack_c8.c: Regenerated.
253 * generated/pack_c10.c: Regenerated.
254 * generated/pack_c16.c: Regenerated.
255
256 2008-05-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
257
258 PR libfortran/36094
259 * runtime/error.c (show_locus): Provide modified error message when
260 filename has not yet been associated with a unit number.
261 * io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.
262
263 2008-04-30 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
264
265 * intrinsics/selected_char_kind.c: New file.
266 * gfortran.map (GFORTRAN_1.1): Add _gfortran_selected_char_kind.
267 * Makefile.am: Add intrinsics/selected_char_kind.c.
268 * Makefile.in: Regenerate.
269
270 2008-04-30 Thomas Koenig <tkoenig@gcc.gnu.org>
271
272 PR libfortran/35993
273 * ifunction.m4 (SCALAR_ARRAY_FUNCTION): Use correct
274 implementation for multi-dimensional return arrays when
275 the mask is .false.
276 * generated/maxloc1_16_i1.c: Regenerated.
277 * generated/maxloc1_16_i16.c: Regenerated.
278 * generated/maxloc1_16_i2.c: Regenerated.
279 * generated/maxloc1_16_i4.c: Regenerated.
280 * generated/maxloc1_16_i8.c: Regenerated.
281 * generated/maxloc1_16_r10.c: Regenerated.
282 * generated/maxloc1_16_r16.c: Regenerated.
283 * generated/maxloc1_16_r4.c: Regenerated.
284 * generated/maxloc1_16_r8.c: Regenerated.
285 * generated/maxloc1_4_i1.c: Regenerated.
286 * generated/maxloc1_4_i16.c: Regenerated.
287 * generated/maxloc1_4_i2.c: Regenerated.
288 * generated/maxloc1_4_i4.c: Regenerated.
289 * generated/maxloc1_4_i8.c: Regenerated.
290 * generated/maxloc1_4_r10.c: Regenerated.
291 * generated/maxloc1_4_r16.c: Regenerated.
292 * generated/maxloc1_4_r4.c: Regenerated.
293 * generated/maxloc1_4_r8.c: Regenerated.
294 * generated/maxloc1_8_i1.c: Regenerated.
295 * generated/maxloc1_8_i16.c: Regenerated.
296 * generated/maxloc1_8_i2.c: Regenerated.
297 * generated/maxloc1_8_i4.c: Regenerated.
298 * generated/maxloc1_8_i8.c: Regenerated.
299 * generated/maxloc1_8_r10.c: Regenerated.
300 * generated/maxloc1_8_r16.c: Regenerated.
301 * generated/maxloc1_8_r4.c: Regenerated.
302 * generated/maxloc1_8_r8.c: Regenerated.
303 * generated/maxval_i1.c: Regenerated.
304 * generated/maxval_i16.c: Regenerated.
305 * generated/maxval_i2.c: Regenerated.
306 * generated/maxval_i4.c: Regenerated.
307 * generated/maxval_i8.c: Regenerated.
308 * generated/maxval_r10.c: Regenerated.
309 * generated/maxval_r16.c: Regenerated.
310 * generated/maxval_r4.c: Regenerated.
311 * generated/maxval_r8.c: Regenerated.
312 * generated/minloc1_16_i1.c: Regenerated.
313 * generated/minloc1_16_i16.c: Regenerated.
314 * generated/minloc1_16_i2.c: Regenerated.
315 * generated/minloc1_16_i4.c: Regenerated.
316 * generated/minloc1_16_i8.c: Regenerated.
317 * generated/minloc1_16_r10.c: Regenerated.
318 * generated/minloc1_16_r16.c: Regenerated.
319 * generated/minloc1_16_r4.c: Regenerated.
320 * generated/minloc1_16_r8.c: Regenerated.
321 * generated/minloc1_4_i1.c: Regenerated.
322 * generated/minloc1_4_i16.c: Regenerated.
323 * generated/minloc1_4_i2.c: Regenerated.
324 * generated/minloc1_4_i4.c: Regenerated.
325 * generated/minloc1_4_i8.c: Regenerated.
326 * generated/minloc1_4_r10.c: Regenerated.
327 * generated/minloc1_4_r16.c: Regenerated.
328 * generated/minloc1_4_r4.c: Regenerated.
329 * generated/minloc1_4_r8.c: Regenerated.
330 * generated/minloc1_8_i1.c: Regenerated.
331 * generated/minloc1_8_i16.c: Regenerated.
332 * generated/minloc1_8_i2.c: Regenerated.
333 * generated/minloc1_8_i4.c: Regenerated.
334 * generated/minloc1_8_i8.c: Regenerated.
335 * generated/minloc1_8_r10.c: Regenerated.
336 * generated/minloc1_8_r16.c: Regenerated.
337 * generated/minloc1_8_r4.c: Regenerated.
338 * generated/minloc1_8_r8.c: Regenerated.
339 * generated/minval_i1.c: Regenerated.
340 * generated/minval_i16.c: Regenerated.
341 * generated/minval_i2.c: Regenerated.
342 * generated/minval_i4.c: Regenerated.
343 * generated/minval_i8.c: Regenerated.
344 * generated/minval_r10.c: Regenerated.
345 * generated/minval_r16.c: Regenerated.
346 * generated/minval_r4.c: Regenerated.
347 * generated/minval_r8.c: Regenerated.
348 * generated/product_c10.c: Regenerated.
349 * generated/product_c16.c: Regenerated.
350 * generated/product_c4.c: Regenerated.
351 * generated/product_c8.c: Regenerated.
352 * generated/product_i1.c: Regenerated.
353 * generated/product_i16.c: Regenerated.
354 * generated/product_i2.c: Regenerated.
355 * generated/product_i4.c: Regenerated.
356 * generated/product_i8.c: Regenerated.
357 * generated/product_r10.c: Regenerated.
358 * generated/product_r16.c: Regenerated.
359 * generated/product_r4.c: Regenerated.
360 * generated/product_r8.c: Regenerated.
361 * generated/sum_c10.c: Regenerated.
362 * generated/sum_c16.c: Regenerated.
363 * generated/sum_c4.c: Regenerated.
364 * generated/sum_c8.c: Regenerated.
365 * generated/sum_i1.c: Regenerated.
366 * generated/sum_i16.c: Regenerated.
367 * generated/sum_i2.c: Regenerated.
368 * generated/sum_i4.c: Regenerated.
369 * generated/sum_i8.c: Regenerated.
370 * generated/sum_r10.c: Regenerated.
371 * generated/sum_r16.c: Regenerated.
372 * generated/sum_r4.c: Regenerated.
373 * generated/sum_r8.c: Regenerated.
374
375 2008-04-25 Thomas Koenig <tkoenig@gcc.gnu.org>
376
377 PR libfortran/35960
378 * m4/reshape.m4: Fix typo in last commit.
379 * generated/reshape_i4.c: Regererated.
380 * generated/reshape_i8.c: Regenerated.
381 * generated/reshape_i16.c: Regenerated.
382 * generated/reshape_r4.c: Regenerated.
383 * generated/reshape_r8.c: Regenerated.
384 * generated/reshape_r10.c: Regenerated.
385 * generated/reshape_r16.c: Regenerated.
386 * generated/reshape_c4.c: Regenerated.
387 * generated/reshape_c8.c: Regenerated.
388 * generated/reshape_c10.c: Regenerated.
389 * generated/reshape_c16.c: Regenerated.
390
391 2008-04-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
392
393 * intrinsics/time_1.h (__time_1): Remove unused variable.
394
395 2008-04-23 Thomas Koenig <tkoenig@gcc.gnu.org>
396
397 PR libfortran/35988
398 * m4/matmul.m4: Only issue a runtime error if extents are
399 non-zero.
400 * generated/matmul_i1.c: Regenerated.
401 * generated/matmul_i2.c: Regenerated.
402 * generated/matmul_i4.c: Regenerated.
403 * generated/matmul_i8.c: Regenerated.
404 * generated/matmul_i16.c: Regenerated.
405 * generated/matmul_r4.c: Regenerated.
406 * generated/matmul_r8.c: Regenerated.
407 * generated/matmul_r10.c: Regenerated.
408 * generated/matmul_r16.c: Regenerated.
409 * generated/matmul_c4.c: Regenerated.
410 * generated/matmul_c8.c: Regenerated.
411 * generated/matmul_c10.c: Regenerated.
412 * generated/matmul_c16.c: Regenerated.
413
414 2008-04-21 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
415
416 * acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY)
417 (LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT)
418 (LIBGFOR_CHECK_ATTRIBUTE_ALIAS, LIBGFOR_CHECK_SYNC_FETCH_AND_ADD)
419 (LIBGFOR_GTHREAD_WEAK, LIBGFOR_CHECK_UNLINK_OPEN_FILE)
420 (LIBGFOR_CHECK_CRLF, LIBGFOR_CHECK_FOR_BROKEN_ISFINITE)
421 (LIBGFOR_CHECK_FOR_BROKEN_ISNAN)
422 (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY, LIBGFOR_CHECK_WORKING_STAT)
423 (LIBGFOR_CHECK_FPSETMASK, LIBGFOR_CHECK_MINGW_SNPRINTF):
424 Fix cache variable names.
425 * configure, Makefile.in: Regenerate.
426
427 2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
428
429 PR fortran/35991
430 * intrinsics/cshift0.c (cshift0): Avoid divide by zero.
431
432 2008-04-20 Thomas Koenig <tkoenig@gcc.gnu.org>
433
434 PR libfortran/35960
435 * intrinsics/reshape_generic.c (reshape_internal): If the size
436 of the resized array is zero, as determined by the SHAPE
437 argument, return early.
438 * m4/reshape.m4: Likewise.
439 * generated/reshape_i4.c: Regererated.
440 * generated/reshape_i8.c: Regenerated.
441 * generated/reshape_i16.c: Regenerated.
442 * generated/reshape_r4.c: Regenerated.
443 * generated/reshape_r8.c: Regenerated.
444 * generated/reshape_r10.c: Regenerated.
445 * generated/reshape_r16.c: Regenerated.
446 * generated/reshape_c4.c: Regenerated.
447 * generated/reshape_c8.c: Regenerated.
448 * generated/reshape_c10.c: Regenerated.
449 * generated/reshape_c16.c: Regenerated.
450
451 2008-04-18 Paolo Bonzini <bonzini@gnu.org>
452
453 PR bootstrap/35457
454 * aclocal.m4: Regenerate.
455 * configure: Regenerate.
456
457 2008-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
458
459 PR libfortran/32972
460 * intrinsics/spread_generic.c (spread): Use spread_i2()
461 for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
462
463 2008-04-13 Thomas Koenig <tkoenig@gcc.gnu.org>
464 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
465
466 PR libfortran/32972
467 PR libfortran/32512
468 configure.ac: Add test for uintptr_t.
469 configure: Regenerated.
470 config.h.in: Regenerated.
471 * libgfortran.h: GFC_DTYPE_DERIVED_1: New macro.
472 GFC_DTYPE_DERIVED_2: New macro.
473 GFC_DTYPE_DERIVED_4: New macro.
474 GFC_DTYPE_DERIVED_8: New macro.
475 GFC_DTYPE_DERIVED_16: New macro.
476 GFC_UNALIGNED_2: New macro.
477 GFC_UNALIGNED_4: New macro.
478 GFC_UNALIGNED_8: New macro.
479 GFC_UNALIGNED_16: New macro.
480 intptr_t: Define if we don't have it.
481 uintptr_t: Likewise.
482 * runtime/backtrace.c (show_backtrace): Use intptr_t.
483 * intrinsics/signal.c (signal_sub): Likewise.
484 (signal_sub_int): Likewise.
485 (alarm_sub_int_i4): Likewise.
486 * intrinsics/spread_generic.c (spread): Use the integer
487 routines for handling derived types of sizes 1, 2, 4, 8 and 16
488 if the alignment of all pointers is correct.
489 (spread_scalar): Likewise.
490 * intrinsics/pack_generic.c (pack): Likewise.
491 Use GFD_DTYPE_TYPE_SIZE to avoid nested switch statements.
492 * intrinsics/unpack_generic.c (unpack1): Likewise.
493 (unpack0): Likewise.
494 * runtime/in_pack_generic.c (internal_pack): Likewise.
495 * runtime/in_unpack_generic.c (internal_unpack): Likewise.
496
497 2008-04-09 Jakub Jelinek <jakub@redhat.com>
498
499 * io/list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
500 (nml_read_obj): Add nml_err_msg_size argument. Pass it down to
501 recursive call. Use snprintf instead of sprintf when %s nl->var_name
502 is used.
503 (nml_get_obj_data): Add nml_err_msg_size argument. Pass it down to
504 nml_read_obj call. Use snprintf instead of sprintf when %s
505 nl->var_name is used. Pass nml_err_msg to nml_parse_qualifier instead
506 of parse_err_msg array. Append " for namelist variable " and
507 nl->var_name to it.
508 (namelist_read): Increase size of nml_err_msg array to 200. Pass
509 sizeof nml_err_msg as extra argument to nml_get_obj_data.
510
511 2008-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
512
513 PR fortran/25829 28655
514 * io/open.c (edit_modes): Set flags.async. (new_unit) Set flags.async
515 and flags.status. (st_open): Initialize flags.async.
516 * io/list_read.c (read_charactor): Use delim_status instead of
517 flags.delim.
518 * io/read.c (read_x): Use pad_status instead of flags.pad.
519 * io/inquire.c (inquire_via_unit): Add new checks.
520 (inquire_via_filename): Likewise.
521 * io/io.h (st_parameter_inquire): Add new flags.
522 (st_parameter_dt): Likewise.
523 * io/unit.c (get_internal_unit): Set flags.async. (init_units): Set
524 flags.async.
525 * io/transfer.c: Add delim and pad option arrays. (read_sf): Use
526 pad_status instead of flags.pad. (read_block): Likewise.
527 (data_transfer_init): Set flags.async and add checks.
528 * io/write.c (write_character): Use delim_status.
529 (list_formatted_write_scalar): Likewise. (nml_write_obj): Likewise.
530 (namelist_write): Likewise.
531
532 2008-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
533
534 PR fortran/25829 28655
535 * gfortran.map: Add new symbol, _gfortran_st_wait.
536 * libgfortran.h (st_paramter_common): Add new I/O parameters.
537 * open.c (st_option decimal_opt[], st_option encoding_opt[],
538 st_option round_opt[], st_option sign_opt[], st_option async_opt[]): New
539 parameter option arrays. (edit_modes): Add checks for new parameters.
540 (new_unit): Likewise. (st_open): Likewise.
541 * list_read.c (CASE_SEPERATORS): Add ';' as a valid separator.
542 (eat_separator): Handle deimal comma. (read_logical): Fix whitespace.
543 (parse_real): Handle decimal comma. (read_real): Handle decimal comma.
544 * read.c (read_a): Use decimal status flag to allow comma in place of a
545 decimal point. (read_f): Allow comma as acceptable character in float.
546 According to decimal flag, substitute a period for a comma.
547 (read_x): If decimal status flag is comma, disable the read_comma flag,
548 not allowing comma as a delimiter, an extension otherwise.
549 * io.h: (unit_decimal, unit_encoding, unit_round, unit_sign,
550 unit_async): New enumerators. Add all new I/O parameters.
551 * unix.c (unix_stream, int_stream): Add io_mode asychronous I/O control.
552 (move_pos_offset, fd_alloc_w_at): Fix some whitespace.
553 (fd_sfree): Use new enumerator. (fd_read): Likewise.
554 (fd_write): Likewise. (fd_close): Fix whitespace.
555 (fd_open): Use new enumertors. (tempfile, regular_file,
556 open_external): Fix whitespace. (output_stream, error_stream): Set
557 method. (stream_offset): Fix whitespace.
558 * transfer.c: (st_option decimal_opt[], sign_opt[], blank_opt[]): New
559 option arrays. (formatted_transfer_scalar): Set sf_read_comma flag
560 based on new decimal_status flag. (data_transfer_init): Initialize new
561 parameters. Add checks for decimal, sign, and blank. (st_wait): New stub.
562 * format.c: (format_lex): Add format specifiers DP, DC, and D.
563 (parse_format_list): Parse the new specifiers.
564 * write.c (write_decimal): Use new sign enumerators to set the sign.
565 (write_complex): Handle decimal comma and semi-colon separator.
566 (nml_write_obj): Likewise.
567 * write_float.def: Revise sign enumerators. (calculate_sign): Use new
568 sign enumerators. (output_float): Likewise. Use new decimal_status flag
569 to set the decimal character to a point or a comma.
570
571 2008-03-28 Thomas Koenig <tkoenig@gcc.gnu.org>
572
573 PR libfortran/32972
574 PR libfortran/32512
575 * Makefile.am: Add new variable, i_spread_c, containing
576 pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, spread_i16.c,
577 spread_r4.c, spread_r8.c, spread_r10.c, spread_r16.c,
578 spread_c4.c, spread_c8.c, spread_c10.c, spread_c16.c.
579 * Makefile.in: Regenerated.
580 * libgfortran.h: Add prototypes for spread_i1, spread_i2,
581 spread_i4, spread_i8, spread_i16, spread_r4, spread_r8,
582 spread_c4, spread_c8, spread_c10, spread_c16,
583 spread_scalar_i1, spread_scalar_i2, spread_scalar_i4,
584 spread_scalar_i8, spread_scalar_i16, spread_scalar_r4
585 spread_scalar_r8, spread_scalar_c4, spread_scalar_c8,
586 spread_scalar_c10 and spread_scalar_c16.
587 Add macros to isolate both type and size information
588 from array descriptors with a single mask operation.
589 * intrinsics/spread_generic.c: Add calls to specific
590 spread functions.
591 * m4/spread.m4: New file.
592 * generated/spread_i1.c: New file.
593 * generated/spread_i2.c: New file.
594 * generated/spread_i4.c: New file.
595 * generated/spread_i8.c: New file.
596 * generated/spread_i16.c: New file.
597 * generated/spread_r4.c: New file.
598 * generated/spread_r8.c: New file.
599 * generated/spread_r10.c: New file.
600 * generated/spread_r16.c: New file.
601 * generated/spread_c4.c: New file.
602 * generated/spread_c8.c: New file.
603 * generated/spread_c10.c: New file.
604 * generated/spread_c16.c: New file.
605
606 2008-03-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
607
608 PR libfortran/35699
609 * io/transfer.c (write_buf): Don't pad the record, just return if the
610 data is NULL. (next_record_w): If there are bytes left in the record
611 for unformatted direct I/O, pad out the record with zero bytes.
612
613 2008-03-28 Tobias Burnus <burnus@net-b.de>
614
615 PR fortran/35721
616 * intrinsics/associated.c (associated): Ignore different
617 stride of pointer vs. target if only one element is referred.
618
619 2008-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
620
621 * io/unix.c (fd_close): Do not close STDIN.
622
623 2007-03-23 Thomas Koenig <tkoenig@gcc.gnu.org
624
625 PR libfortran/32972
626 * Makefile.am: Add new variable, i_unpack_c, containing
627 unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c,
628 unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c,
629 unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c
630 and unpack_c16.c
631 Add i_unpack_c to gfor_built_src.
632 Add rule to generate i_unpack_c from m4/unpack.m4.
633 * Makefile.in: Regenerated.
634 * libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2,
635 unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8,
636 unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10,
637 unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8,
638 unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16,
639 unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16.
640 * intrinsics/pack_generic.c (unpack1): Add calls to specific
641 unpack1 functions.
642 (unpack0): Add calls to specific unpack0 functions.
643 * m4/unpack.m4: New file.
644 * generated/unpack_i1.c: New file.
645 * generated/unpack_i2.c: New file.
646 * generated/unpack_i4.c: New file.
647 * generated/unpack_i8.c: New file.
648 * generated/unpack_i16.c: New file.
649 * generated/unpack_r4.c: New file.
650 * generated/unpack_r8.c: New file.
651 * generated/unpack_r10.c: New file.
652 * generated/unpack_r16.c: New file.
653 * generated/unpack_c4.c: New file.
654 * generated/unpack_c8.c: New file.
655 * generated/unpack_c10.c: New file.
656 * generated/unpack_c16.c: New file.
657
658 2008-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
659
660 PR libfortran/35632
661 * io/transfer.c (data_transfer_init): Fix whitespace.
662 (next_record_w): Truncate the file only if the stream
663 position is short of the file end.
664
665 2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
666
667 * intrinsics/pack_generic.c: Fix typo.
668
669 2008-03-21 Janne Blomqvist <jb@gcc.gnu.org>
670
671 * gfortran.map: Move erfc_scaled symbols to new symbol node
672 GFORTRAN_1.1, thereby fixing ABI bug introduced in r132846.
673
674 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
675
676 PR libfortran/32972
677 * runtime/in_pack_generic.c (internal_pack): Call correct
678 function, pack_i16, for GFC_INTEGER_16.
679
680 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
681
682 PR libfortran/32972
683 * Makefile.am: Add new variable, i_pack_c, containing
684 pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
685 pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,
686 pack_c8.c, pack_c10.c, pack_c16.c.
687 Add m4/pack.m4 to m4_files.
688 Add i_pack_c to gfor_built_src.
689 Add rule to generate i_pack_c from m4/pack.m4.
690 * Makefile.in: Regenerated.
691 * libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4,
692 pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8,
693 pack_c10, pack_c16.
694 * intrinsics/pack_generic.c: Add calls to specific
695 pack functions.
696 * m4/pack.m4: New file.
697 * generated/pack_i1.c: New file.
698 * generated/pack_i2.c: New file.
699 * generated/pack_i4.c: New file.
700 * generated/pack_i8.c: New file.
701 * generated/pack_i16.c: New file.
702 * generated/pack_r4.c: New file.
703 * generated/pack_r8.c: New file.
704 * generated/pack_r10.c: New file.
705 * generated/pack_r16.c: New file.
706 * generated/pack_c4.c: New file.
707 * generated/pack_c8.c: New file.
708 * generated/pack_c10.c: New file.
709 * generated/pack_c16.c: New file.
710
711 2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
712
713 PR libfortran/35627
714 * io/list_read.c (free_line): Clear the line buffer enable flag and
715 reset the index into line_buffer, aka item_count.
716 (next_char): Cleanup whitespace.
717 (read_logical): Use unget_char to assure that the first character of the
718 bad logical is saved in case it is part of an object name. Remove the
719 clearing of index and flag that is now in free_line.
720 (read_real): Likewise.
721
722 2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
723
724 PR libfortran/32972
725 * runtime/in_pack_generic.c (internal_pack): Fix typo in
726 last commit.
727
728 2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
729
730 PR libfortran/32972
731 * Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
732 in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
733 (in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
734 in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
735 in_unpack_r16.c.
736 * Makefile.in: Regenerate.
737 * libgfortran.h: Add prototypes for internal_pack_1,
738 internal_pack_2, internal_pack_16, internal_pack_r4,
739 internal_pack_r8, internal_pack_r10, internal_pack_r16,
740 internal_pack_c10 and internal_pack_c16. Add prototypes for
741 internal_unpack_1, internal_unpack_2, internal_unpack_16,
742 internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
743 internal_unpack_r16, internal_unpack_c10 and
744 internal_unpack_c16.
745 * runtime/in_pack_generic.c (internal_pack): Use sizeof instead
746 of hardwired sizes.
747 Add calls to internal_pack_1, internal_pack_2,
748 internal_pack_16, internal_pack_r4, internal_pack_r8,
749 internal_pack_r10, internal_pack_r16, internal_pack_c10 and
750 internal_pack_c16.
751 * runtime/in_unpack_generic.c (internal_unpack): Use sizeof
752 instead of hardwired sizes.
753 Add calls to internal_unpack_1, internal_unpack_2,
754 internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
755 internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
756 and internal_unpack_c16.
757 * generated/in_pack_r4.c: New file.
758 * generated/in_pack_i2.c: New file.
759 * generated/in_unpack_i1.c: New file.
760 * generated/in_pack_r10.c: New file.
761 * generated/in_unpack_r4.c: New file.
762 * generated/in_unpack_i2.c: New file.
763 * generated/in_unpack_r16.c: New file.
764 * generated/in_pack_r8.c: New file.
765 * generated/in_unpack_r10.c: New file.
766 * generated/in_unpack_r8.c: New file.
767 * generated/in_pack_r16.c: New file.
768 * generated/in_pack_i1.c: New file.
769
770 2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
771
772 PR libfortran/35617
773 * io/list_read.c (eat_separator): If next character after eatline is '!'
774 then eatline again.
775
776 2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
777
778 * aclocal.m4: Regenerate.
779 * configure: Likewise.
780 * Makefile.in: Likewise.
781
782 2008-03-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
783
784 PR libfortran/35524
785 * intrinsics/erfc_scaled_inc.c: Only define the long double
786 variant of erfc_scaled if expl is available.
787
788 2008-03-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
789
790 PR libfortran/32812
791 * intrinsics/random.c (scramble_seed, unscramble_seed): New
792 functions.
793 (random_seed_i4): Scramble the seed the user gives us before
794 storing it, and unscramble it when we return it back later.
795
796 2008-03-05 Hans-Peter Nilsson <hp@axis.com>
797
798 PR libfortran/35293
799 * io/unix.c (fd_truncate): Fold s->special_file case into
800 success case of ftruncate/chsize call instead of the failure case.
801 Make failure case actually return failure. Properly update stream
802 pointers on failure. Call runtime_error for targets without
803 neither ftruncate nor chsize where such a call would be needed.
804
805 2008-03-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
806
807 PR fortran/33197
808 * intrinsics/erfc_scaled_inc.c: New file.
809 * intrinsics/erfc_scaled.c: New file.
810 * gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
811 * Makefile.am: Add intrinsics/erfc_scaled.c.
812 * config.h.in: Regenerate.
813 * configure: Regenerate.
814 * Makefile.in: Regenerate.
815
816 2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
817
818 PR libfortran/35355
819 * intrinsics/time_1.h (__time_1): Fix calculation of user_usec
820 for mingw.
821
822 2008-03-01 Janne Blomqvist <jb@gcc.gnu.org>
823
824 PR libfortran/35063
825 * io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy
826 instead of macro kludge.
827
828 2008-02-25 Janne Blomqvist <jb@gcc.gnu.org>
829
830 PR fortran/29549
831 * Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of
832 libgfortran.
833 * Makefile.in: Regenerated.
834
835 2008-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
836
837 * m4/ifunction_logical.m4: Add casts to get rid of warnings.
838 * generated/all_l1.c: Regenerate.
839 * generated/all_l2.c: Regenerate.
840 * generated/all_l4.c: Regenerate.
841 * generated/all_l8.c: Regenerate.
842 * generated/all_l16.c: Regenerate.
843 * generated/any_l1.c: Regenerate.
844 * generated/any_l2.c: Regenerate.
845 * generated/any_l4.c: Regenerate.
846 * generated/any_l8.c: Regenerate.
847 * generated/any_l16.c: Regenerate.
848 * generated/count_1_l.c: Regenerate.
849 * generated/count_2_l.c: Regenerate.
850 * generated/count_4_l.c: Regenerate.
851 * generated/count_8_l.c: Regenerate.
852 * generated/count_16_l.c: Regenerate.
853
854 2008-02-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
855
856 PR libfortran/32841
857 * acinclude.m4: Don't use HAVE_MATH_H.
858 * configure: Regenerate.
859
860 2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
861
862 PR libfortran/35132
863 * io/transfer.c (next_record_w): Truncate after the last record for
864 STREAM I/O.
865
866 PR libfortran/34954
867 * io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
868
869 PR libfortran/34974
870 * io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
871 is less than zero. (next_record_w): Use sseek to position the file to
872 the max position reached.
873
874 2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
875
876 PR libfortran/35036
877 * write_float.def (output_float): Add error checks for zero digits
878 after decimal point in E and D format specifiers.
879
880 2008-02-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
881
882 PR libfortran/35063
883 * io/unit.c (destroy_unit_mutex): New function that uses
884 __gthread_mutex_destroy_function or pthread_mutex_destroy after
885 unlocking and before free_mem for final closure of I/O unit.
886 (delete_root): Use new function.
887 (free_internal_unit): Likewise.
888 (close_unit_1): Likewise.
889
890 2008-02-02 Thomas Koenig <tkoenig@gcc.gnu.org>
891
892 PR libfortran/35001
893 * m4/shape.m4: Return 0 for extents <= 0.
894 * generated/shape_i4.c: Regenerated.
895 * generated/shape_i8.c: Regenerated.
896 * generated/shape_i16.c: Regenerated.
897
898 2008-01-27 Thomas Koenig <tkoenig@gcc.gnu.org>
899
900 PR libfortran/34980
901 * m4/shape.m4: If return array is empty, return early.
902 * generated/shape_i4.c: Regenerated.
903 * generated/shape_i8.c: Regenerated.
904 * generated/shape_i16.c: Regenerated.
905
906 2008-01-26 Thomas Koenig <tkoenig@gcc.gnu.org>
907
908 PR libfofortran/34887
909 * io/transfer.c (next_record_w): Always move to the farthest
910 position when completing the record (also when we are
911 processing a slash edit descriptor).
912
913 2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
914
915 PR libfortran/34876
916 * io/transfer.c (write_buf): Handle case of zero sized array.
917 (transfer_array): Set data pointer to NULL and size to zero. Then
918 make a data transfer and return.
919
920 2008-01-24 David Edelsohn <edelsohn@gnu.org>
921
922 * configure: Regenerate.
923
924 2008-01-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
925
926 PR libfortran/34795
927 * io/inquire.c (inquire_via_unit): If a unit is opened, return values
928 according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
929 (inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
930 FORAMATTED, and UNFORMATTED inquiries.
931 * io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
932 for files that are not opened. (inquire_direct): Same.
933 (inquire_formatted): Same.
934
935 2008-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
936
937 PR libfortran/34782
938 * io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater
939 of the current max_pos or the newly calculated position.
940
941 2008-01-18 Tobias Burnus <burnus@net-b.de>
942
943 * io/write.c (write_real): Increase default precision
944 for REAL(16) by one.
945
946 2008-01-16 Steven Bosscher <steven@gcc.gnu.org>
947
948 PR libfortran/34669
949 * mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
950 to avoid piping the -fdump-parse-tree output to the assembler
951 when configuring with -pipe.
952 * mk-sik-inc.sh: Likewise.
953 * mk-srk-inc.sh: Likewise.
954
955 2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
956
957 PR libfortran/34671
958 * gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
959 _gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
960 _gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
961 _gfortran_count_8_l Removed _gfortran_count_16_l16,
962 _gfortran_count_16_l4, _gfortran_count_16_l8,
963 _gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
964 _gfortran_count_8_l16, _gfortran_count_8_l4 and
965 _gfortran_count_8_l8.
966 * Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
967 i_any_c. Added generated/all_l1. and generated/all_l2.c to
968 i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
969 generated/count_16_l4.c, generated/count_4_l8.c,
970 generated/count_8_l8.c, generated/count_16_l8.c,
971 generated/count_4_l16.c, generated/count_8_l16.c, and
972 generated/count_16_l16.c from i_count_c. Added count_1_l.c,
973 count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
974 i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
975 any of the files generated from all.m4, any.m4 and count.m4.
976 * Makefile.in: Regenerated.
977 * m4/ifunction_logical.m4: New file. Use
978 GFC_LOGICAL_1 pointer for access to source arrays.
979 * m4/any.m4: Include ifunction_logical.m4 instead of
980 ifunction.m4. Don't check atype_name.
981 * m4/all.m4: Likewise.
982 * m4/count.m4: Likewise.
983 * generated/any_l1.c: New file.
984 * generated/any_l2.c: New file.
985 * generated/all_l1.c: New file.
986 * generated/count_1_l.c: New file.
987 * generated/count_2_l.c: New file.
988 * generated/count_4_l.c: New file.
989 * generated/count_8_l.c: New file.
990 * generated/count_16_l.c: New file.
991 * generated/any_l4.c: Regenerated.
992 * generated/any_l8.c: Regenerated.
993 * generated/any_l16.c: Regenerated.
994 * generated/all_l4.c: Regenerated.
995 * generated/all_l8.c: Regenerated.
996 * generated/all_l16.c: Regenerated.
997 * generated/count_4_l4.c: Removed.
998 * generated/count_4_l8.c: Removed.
999 * generated/count_4_l16.c: Removed.
1000 * generated/count_8_l4.c: Removed.
1001 * generated/count_8_l8.c: Removed.
1002 * generated/count_8_l16.c: Removed.
1003 * generated/count_16_l4.c: Removed.
1004 * generated/count_16_l8.c: Removed.
1005 * generated/count_16_l16.c: Removed.
1006
1007 2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1008
1009 PR libfortran/34746
1010 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld
1011 in printf format for all bounds checking; cast all
1012 integer-like arguments to runtime_error() to long int.
1013 (`m'name`'rtype_qual`_'atype_code): Likewise.
1014 (`s'name`'rtype_qual`_'atype_code): Likewise.
1015 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
1016 (`m'name`'rtype_qual`_'atype_code): Likewise.
1017 (`s'name`'rtype_qual`_'atype_code): Likewise.
1018 * generated/all_l16.c: Regenerated.
1019 * generated/all_l4.c: Regenerated.
1020 * generated/all_l8.c: Regenerated.
1021 * generated/any_l16.c: Regenerated.
1022 * generated/any_l4.c: Regenerated.
1023 * generated/any_l8.c: Regenerated.
1024 * generated/count_16_l16.c: Regenerated.
1025 * generated/count_16_l4.c: Regenerated.
1026 * generated/count_16_l8.c: Regenerated.
1027 * generated/count_4_l16.c: Regenerated.
1028 * generated/count_4_l4.c: Regenerated.
1029 * generated/count_4_l8.c: Regenerated.
1030 * generated/count_8_l16.c: Regenerated.
1031 * generated/count_8_l4.c: Regenerated.
1032 * generated/count_8_l8.c: Regenerated.
1033 * generated/maxloc0_16_i1.c: Regenerated.
1034 * generated/maxloc0_16_i16.c: Regenerated.
1035 * generated/maxloc0_16_i2.c: Regenerated.
1036 * generated/maxloc0_16_i4.c: Regenerated.
1037 * generated/maxloc0_16_i8.c: Regenerated.
1038 * generated/maxloc0_16_r10.c: Regenerated.
1039 * generated/maxloc0_16_r16.c: Regenerated.
1040 * generated/maxloc0_16_r4.c: Regenerated.
1041 * generated/maxloc0_16_r8.c: Regenerated.
1042 * generated/maxloc0_4_i1.c: Regenerated.
1043 * generated/maxloc0_4_i16.c: Regenerated.
1044 * generated/maxloc0_4_i2.c: Regenerated.
1045 * generated/maxloc0_4_i4.c: Regenerated.
1046 * generated/maxloc0_4_i8.c: Regenerated.
1047 * generated/maxloc0_4_r10.c: Regenerated.
1048 * generated/maxloc0_4_r16.c: Regenerated.
1049 * generated/maxloc0_4_r4.c: Regenerated.
1050 * generated/maxloc0_4_r8.c: Regenerated.
1051 * generated/maxloc0_8_i1.c: Regenerated.
1052 * generated/maxloc0_8_i16.c: Regenerated.
1053 * generated/maxloc0_8_i2.c: Regenerated.
1054 * generated/maxloc0_8_i4.c: Regenerated.
1055 * generated/maxloc0_8_i8.c: Regenerated.
1056 * generated/maxloc0_8_r10.c: Regenerated.
1057 * generated/maxloc0_8_r16.c: Regenerated.
1058 * generated/maxloc0_8_r4.c: Regenerated.
1059 * generated/maxloc0_8_r8.c: Regenerated.
1060 * generated/maxloc1_16_i1.c: Regenerated.
1061 * generated/maxloc1_16_i16.c: Regenerated.
1062 * generated/maxloc1_16_i2.c: Regenerated.
1063 * generated/maxloc1_16_i4.c: Regenerated.
1064 * generated/maxloc1_16_i8.c: Regenerated.
1065 * generated/maxloc1_16_r10.c: Regenerated.
1066 * generated/maxloc1_16_r16.c: Regenerated.
1067 * generated/maxloc1_16_r4.c: Regenerated.
1068 * generated/maxloc1_16_r8.c: Regenerated.
1069 * generated/maxloc1_4_i1.c: Regenerated.
1070 * generated/maxloc1_4_i16.c: Regenerated.
1071 * generated/maxloc1_4_i2.c: Regenerated.
1072 * generated/maxloc1_4_i4.c: Regenerated.
1073 * generated/maxloc1_4_i8.c: Regenerated.
1074 * generated/maxloc1_4_r10.c: Regenerated.
1075 * generated/maxloc1_4_r16.c: Regenerated.
1076 * generated/maxloc1_4_r4.c: Regenerated.
1077 * generated/maxloc1_4_r8.c: Regenerated.
1078 * generated/maxloc1_8_i1.c: Regenerated.
1079 * generated/maxloc1_8_i16.c: Regenerated.
1080 * generated/maxloc1_8_i2.c: Regenerated.
1081 * generated/maxloc1_8_i4.c: Regenerated.
1082 * generated/maxloc1_8_i8.c: Regenerated.
1083 * generated/maxloc1_8_r10.c: Regenerated.
1084 * generated/maxloc1_8_r16.c: Regenerated.
1085 * generated/maxloc1_8_r4.c: Regenerated.
1086 * generated/maxloc1_8_r8.c: Regenerated.
1087 * generated/maxval_i1.c: Regenerated.
1088 * generated/maxval_i16.c: Regenerated.
1089 * generated/maxval_i2.c: Regenerated.
1090 * generated/maxval_i4.c: Regenerated.
1091 * generated/maxval_i8.c: Regenerated.
1092 * generated/maxval_r10.c: Regenerated.
1093 * generated/maxval_r16.c: Regenerated.
1094 * generated/maxval_r4.c: Regenerated.
1095 * generated/maxval_r8.c: Regenerated.
1096 * generated/minloc0_16_i1.c: Regenerated.
1097 * generated/minloc0_16_i16.c: Regenerated.
1098 * generated/minloc0_16_i2.c: Regenerated.
1099 * generated/minloc0_16_i4.c: Regenerated.
1100 * generated/minloc0_16_i8.c: Regenerated.
1101 * generated/minloc0_16_r10.c: Regenerated.
1102 * generated/minloc0_16_r16.c: Regenerated.
1103 * generated/minloc0_16_r4.c: Regenerated.
1104 * generated/minloc0_16_r8.c: Regenerated.
1105 * generated/minloc0_4_i1.c: Regenerated.
1106 * generated/minloc0_4_i16.c: Regenerated.
1107 * generated/minloc0_4_i2.c: Regenerated.
1108 * generated/minloc0_4_i4.c: Regenerated.
1109 * generated/minloc0_4_i8.c: Regenerated.
1110 * generated/minloc0_4_r10.c: Regenerated.
1111 * generated/minloc0_4_r16.c: Regenerated.
1112 * generated/minloc0_4_r4.c: Regenerated.
1113 * generated/minloc0_4_r8.c: Regenerated.
1114 * generated/minloc0_8_i1.c: Regenerated.
1115 * generated/minloc0_8_i16.c: Regenerated.
1116 * generated/minloc0_8_i2.c: Regenerated.
1117 * generated/minloc0_8_i4.c: Regenerated.
1118 * generated/minloc0_8_i8.c: Regenerated.
1119 * generated/minloc0_8_r10.c: Regenerated.
1120 * generated/minloc0_8_r16.c: Regenerated.
1121 * generated/minloc0_8_r4.c: Regenerated.
1122 * generated/minloc0_8_r8.c: Regenerated.
1123 * generated/minloc1_16_i1.c: Regenerated.
1124 * generated/minloc1_16_i16.c: Regenerated.
1125 * generated/minloc1_16_i2.c: Regenerated.
1126 * generated/minloc1_16_i4.c: Regenerated.
1127 * generated/minloc1_16_i8.c: Regenerated.
1128 * generated/minloc1_16_r10.c: Regenerated.
1129 * generated/minloc1_16_r16.c: Regenerated.
1130 * generated/minloc1_16_r4.c: Regenerated.
1131 * generated/minloc1_16_r8.c: Regenerated.
1132 * generated/minloc1_4_i1.c: Regenerated.
1133 * generated/minloc1_4_i16.c: Regenerated.
1134 * generated/minloc1_4_i2.c: Regenerated.
1135 * generated/minloc1_4_i4.c: Regenerated.
1136 * generated/minloc1_4_i8.c: Regenerated.
1137 * generated/minloc1_4_r10.c: Regenerated.
1138 * generated/minloc1_4_r16.c: Regenerated.
1139 * generated/minloc1_4_r4.c: Regenerated.
1140 * generated/minloc1_4_r8.c: Regenerated.
1141 * generated/minloc1_8_i1.c: Regenerated.
1142 * generated/minloc1_8_i16.c: Regenerated.
1143 * generated/minloc1_8_i2.c: Regenerated.
1144 * generated/minloc1_8_i4.c: Regenerated.
1145 * generated/minloc1_8_i8.c: Regenerated.
1146 * generated/minloc1_8_r10.c: Regenerated.
1147 * generated/minloc1_8_r16.c: Regenerated.
1148 * generated/minloc1_8_r4.c: Regenerated.
1149 * generated/minloc1_8_r8.c: Regenerated.
1150 * generated/minval_i1.c: Regenerated.
1151 * generated/minval_i16.c: Regenerated.
1152 * generated/minval_i2.c: Regenerated.
1153 * generated/minval_i4.c: Regenerated.
1154 * generated/minval_i8.c: Regenerated.
1155 * generated/minval_r10.c: Regenerated.
1156 * generated/minval_r16.c: Regenerated.
1157 * generated/minval_r4.c: Regenerated.
1158 * generated/minval_r8.c: Regenerated.
1159 * generated/product_c10.c: Regenerated.
1160 * generated/product_c16.c: Regenerated.
1161 * generated/product_c4.c: Regenerated.
1162 * generated/product_c8.c: Regenerated.
1163 * generated/product_i1.c: Regenerated.
1164 * generated/product_i16.c: Regenerated.
1165 * generated/product_i2.c: Regenerated.
1166 * generated/product_i4.c: Regenerated.
1167 * generated/product_i8.c: Regenerated.
1168 * generated/product_r10.c: Regenerated.
1169 * generated/product_r16.c: Regenerated.
1170 * generated/product_r4.c: Regenerated.
1171 * generated/product_r8.c: Regenerated.
1172 * generated/sum_c10.c: Regenerated.
1173 * generated/sum_c16.c: Regenerated.
1174 * generated/sum_c4.c: Regenerated.
1175 * generated/sum_c8.c: Regenerated.
1176 * generated/sum_i1.c: Regenerated.
1177 * generated/sum_i16.c: Regenerated.
1178 * generated/sum_i2.c: Regenerated.
1179 * generated/sum_i4.c: Regenerated.
1180 * generated/sum_i8.c: Regenerated.
1181 * generated/sum_r10.c: Regenerated.
1182 * generated/sum_r16.c: Regenerated.
1183 * generated/sum_r4.c: Regenerated.
1184 * generated/sum_r8.c: Regenerated.
1185
1186 2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org>
1187
1188 PR libfortran/34670
1189 * m4/iparm.m4 (upcase): New macro (copied from the m4 manual).
1190 (u_name): New macro for the upper case name of the intrinsic.
1191 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Add
1192 bounds checking and rank check, depending on
1193 compile_options.bounds_check.
1194 (`m'name`'rtype_qual`_'atype_code): Likewise.
1195 (`s'name`'rtype_qual`_'atype_code): Likewise.
1196 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Add
1197 bounds checking and rank check, depending on
1198 compile_options.bounds_check.
1199 (`m'name`'rtype_qual`_'atype_code): Likewise.
1200 (`s'name`'rtype_qual`_'atype_code): Likewise.
1201 * generated/all_l16.c: Regenerated.
1202 * generated/all_l4.c: Regenerated.
1203 * generated/all_l8.c: Regenerated.
1204 * generated/any_l16.c: Regenerated.
1205 * generated/any_l4.c: Regenerated.
1206 * generated/any_l8.c: Regenerated.
1207 * generated/count_16_l16.c: Regenerated.
1208 * generated/count_16_l4.c: Regenerated.
1209 * generated/count_16_l8.c: Regenerated.
1210 * generated/count_4_l16.c: Regenerated.
1211 * generated/count_4_l4.c: Regenerated.
1212 * generated/count_4_l8.c: Regenerated.
1213 * generated/count_8_l16.c: Regenerated.
1214 * generated/count_8_l4.c: Regenerated.
1215 * generated/count_8_l8.c: Regenerated.
1216 * generated/maxloc0_16_i1.c: Regenerated.
1217 * generated/maxloc0_16_i16.c: Regenerated.
1218 * generated/maxloc0_16_i2.c: Regenerated.
1219 * generated/maxloc0_16_i4.c: Regenerated.
1220 * generated/maxloc0_16_i8.c: Regenerated.
1221 * generated/maxloc0_16_r10.c: Regenerated.
1222 * generated/maxloc0_16_r16.c: Regenerated.
1223 * generated/maxloc0_16_r4.c: Regenerated.
1224 * generated/maxloc0_16_r8.c: Regenerated.
1225 * generated/maxloc0_4_i1.c: Regenerated.
1226 * generated/maxloc0_4_i16.c: Regenerated.
1227 * generated/maxloc0_4_i2.c: Regenerated.
1228 * generated/maxloc0_4_i4.c: Regenerated.
1229 * generated/maxloc0_4_i8.c: Regenerated.
1230 * generated/maxloc0_4_r10.c: Regenerated.
1231 * generated/maxloc0_4_r16.c: Regenerated.
1232 * generated/maxloc0_4_r4.c: Regenerated.
1233 * generated/maxloc0_4_r8.c: Regenerated.
1234 * generated/maxloc0_8_i1.c: Regenerated.
1235 * generated/maxloc0_8_i16.c: Regenerated.
1236 * generated/maxloc0_8_i2.c: Regenerated.
1237 * generated/maxloc0_8_i4.c: Regenerated.
1238 * generated/maxloc0_8_i8.c: Regenerated.
1239 * generated/maxloc0_8_r10.c: Regenerated.
1240 * generated/maxloc0_8_r16.c: Regenerated.
1241 * generated/maxloc0_8_r4.c: Regenerated.
1242 * generated/maxloc0_8_r8.c: Regenerated.
1243 * generated/maxloc1_16_i1.c: Regenerated.
1244 * generated/maxloc1_16_i16.c: Regenerated.
1245 * generated/maxloc1_16_i2.c: Regenerated.
1246 * generated/maxloc1_16_i4.c: Regenerated.
1247 * generated/maxloc1_16_i8.c: Regenerated.
1248 * generated/maxloc1_16_r10.c: Regenerated.
1249 * generated/maxloc1_16_r16.c: Regenerated.
1250 * generated/maxloc1_16_r4.c: Regenerated.
1251 * generated/maxloc1_16_r8.c: Regenerated.
1252 * generated/maxloc1_4_i1.c: Regenerated.
1253 * generated/maxloc1_4_i16.c: Regenerated.
1254 * generated/maxloc1_4_i2.c: Regenerated.
1255 * generated/maxloc1_4_i4.c: Regenerated.
1256 * generated/maxloc1_4_i8.c: Regenerated.
1257 * generated/maxloc1_4_r10.c: Regenerated.
1258 * generated/maxloc1_4_r16.c: Regenerated.
1259 * generated/maxloc1_4_r4.c: Regenerated.
1260 * generated/maxloc1_4_r8.c: Regenerated.
1261 * generated/maxloc1_8_i1.c: Regenerated.
1262 * generated/maxloc1_8_i16.c: Regenerated.
1263 * generated/maxloc1_8_i2.c: Regenerated.
1264 * generated/maxloc1_8_i4.c: Regenerated.
1265 * generated/maxloc1_8_i8.c: Regenerated.
1266 * generated/maxloc1_8_r10.c: Regenerated.
1267 * generated/maxloc1_8_r16.c: Regenerated.
1268 * generated/maxloc1_8_r4.c: Regenerated.
1269 * generated/maxloc1_8_r8.c: Regenerated.
1270 * generated/maxval_i1.c: Regenerated.
1271 * generated/maxval_i16.c: Regenerated.
1272 * generated/maxval_i2.c: Regenerated.
1273 * generated/maxval_i4.c: Regenerated.
1274 * generated/maxval_i8.c: Regenerated.
1275 * generated/maxval_r10.c: Regenerated.
1276 * generated/maxval_r16.c: Regenerated.
1277 * generated/maxval_r4.c: Regenerated.
1278 * generated/maxval_r8.c: Regenerated.
1279 * generated/minloc0_16_i1.c: Regenerated.
1280 * generated/minloc0_16_i16.c: Regenerated.
1281 * generated/minloc0_16_i2.c: Regenerated.
1282 * generated/minloc0_16_i4.c: Regenerated.
1283 * generated/minloc0_16_i8.c: Regenerated.
1284 * generated/minloc0_16_r10.c: Regenerated.
1285 * generated/minloc0_16_r16.c: Regenerated.
1286 * generated/minloc0_16_r4.c: Regenerated.
1287 * generated/minloc0_16_r8.c: Regenerated.
1288 * generated/minloc0_4_i1.c: Regenerated.
1289 * generated/minloc0_4_i16.c: Regenerated.
1290 * generated/minloc0_4_i2.c: Regenerated.
1291 * generated/minloc0_4_i4.c: Regenerated.
1292 * generated/minloc0_4_i8.c: Regenerated.
1293 * generated/minloc0_4_r10.c: Regenerated.
1294 * generated/minloc0_4_r16.c: Regenerated.
1295 * generated/minloc0_4_r4.c: Regenerated.
1296 * generated/minloc0_4_r8.c: Regenerated.
1297 * generated/minloc0_8_i1.c: Regenerated.
1298 * generated/minloc0_8_i16.c: Regenerated.
1299 * generated/minloc0_8_i2.c: Regenerated.
1300 * generated/minloc0_8_i4.c: Regenerated.
1301 * generated/minloc0_8_i8.c: Regenerated.
1302 * generated/minloc0_8_r10.c: Regenerated.
1303 * generated/minloc0_8_r16.c: Regenerated.
1304 * generated/minloc0_8_r4.c: Regenerated.
1305 * generated/minloc0_8_r8.c: Regenerated.
1306 * generated/minloc1_16_i1.c: Regenerated.
1307 * generated/minloc1_16_i16.c: Regenerated.
1308 * generated/minloc1_16_i2.c: Regenerated.
1309 * generated/minloc1_16_i4.c: Regenerated.
1310 * generated/minloc1_16_i8.c: Regenerated.
1311 * generated/minloc1_16_r10.c: Regenerated.
1312 * generated/minloc1_16_r16.c: Regenerated.
1313 * generated/minloc1_16_r4.c: Regenerated.
1314 * generated/minloc1_16_r8.c: Regenerated.
1315 * generated/minloc1_4_i1.c: Regenerated.
1316 * generated/minloc1_4_i16.c: Regenerated.
1317 * generated/minloc1_4_i2.c: Regenerated.
1318 * generated/minloc1_4_i4.c: Regenerated.
1319 * generated/minloc1_4_i8.c: Regenerated.
1320 * generated/minloc1_4_r10.c: Regenerated.
1321 * generated/minloc1_4_r16.c: Regenerated.
1322 * generated/minloc1_4_r4.c: Regenerated.
1323 * generated/minloc1_4_r8.c: Regenerated.
1324 * generated/minloc1_8_i1.c: Regenerated.
1325 * generated/minloc1_8_i16.c: Regenerated.
1326 * generated/minloc1_8_i2.c: Regenerated.
1327 * generated/minloc1_8_i4.c: Regenerated.
1328 * generated/minloc1_8_i8.c: Regenerated.
1329 * generated/minloc1_8_r10.c: Regenerated.
1330 * generated/minloc1_8_r16.c: Regenerated.
1331 * generated/minloc1_8_r4.c: Regenerated.
1332 * generated/minloc1_8_r8.c: Regenerated.
1333 * generated/minval_i1.c: Regenerated.
1334 * generated/minval_i16.c: Regenerated.
1335 * generated/minval_i2.c: Regenerated.
1336 * generated/minval_i4.c: Regenerated.
1337 * generated/minval_i8.c: Regenerated.
1338 * generated/minval_r10.c: Regenerated.
1339 * generated/minval_r16.c: Regenerated.
1340 * generated/minval_r4.c: Regenerated.
1341 * generated/minval_r8.c: Regenerated.
1342 * generated/product_c10.c: Regenerated.
1343 * generated/product_c16.c: Regenerated.
1344 * generated/product_c4.c: Regenerated.
1345 * generated/product_c8.c: Regenerated.
1346 * generated/product_i1.c: Regenerated.
1347 * generated/product_i16.c: Regenerated.
1348 * generated/product_i2.c: Regenerated.
1349 * generated/product_i4.c: Regenerated.
1350 * generated/product_i8.c: Regenerated.
1351 * generated/product_r10.c: Regenerated.
1352 * generated/product_r16.c: Regenerated.
1353 * generated/product_r4.c: Regenerated.
1354 * generated/product_r8.c: Regenerated.
1355 * generated/sum_c10.c: Regenerated.
1356 * generated/sum_c16.c: Regenerated.
1357 * generated/sum_c4.c: Regenerated.
1358 * generated/sum_c8.c: Regenerated.
1359 * generated/sum_i1.c: Regenerated.
1360 * generated/sum_i16.c: Regenerated.
1361 * generated/sum_i2.c: Regenerated.
1362 * generated/sum_i4.c: Regenerated.
1363 * generated/sum_i8.c: Regenerated.
1364 * generated/sum_r10.c: Regenerated.
1365 * generated/sum_r16.c: Regenerated.
1366 * generated/sum_r4.c: Regenerated.
1367 * generated/sum_r8.c: Regenerated.
1368
1369 2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1370
1371 PR libfortran/34676
1372 * io/list_read.c (next_char): Only save the EOF condition for later if
1373 advance="no".
1374
1375 2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
1376
1377 PR libfortran/34565
1378 * io/io.h: Adjust protoypes for open_internal(),
1379 next_array_record() and init_loop_spec().
1380 * io/list_read.c (next_char): Use argument "finished"
1381 of next_array_record to check for end on internal file.
1382 * io/unit.c: Calculate the offset for an array
1383 internal file and supply this informatin to open_internal().
1384 * io/unix.c (open_internal): Set the offset for the internal
1385 file on open.
1386 * io/transfer.c (init_loop_spec): Calculate the starting
1387 record in case of negative strides. Return size of 0 for
1388 an empty array.
1389 (next_array_record): Use an extra flag to signal that the
1390 array is finished.
1391 (next_record_r): Use the new flag to next_array_record().
1392 (next_record_w): Likewise.