| blob | ab6348b82fcc47d0ccbb5b208ad9e9d18df14241 |
1 2009-09-19 Iain Sandoe <iain.sandoe@sandoe-acoustics.co.uk>
3 * configure.ac: Check for GFORTRAN_C99_1.1 funcs in OS libm.
4 * configure: Regenerate.
5 * config.h.in: Ditto.
7 2009-09-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
9 PR libgfortran/41328
10 * io/transfer.c (read_sf): Set at_eof flag on short read if any
11 characters were successfully read so that EOF condition with no EOR
12 marker succeeds.
14 2009-09-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
16 PR libgfortran/41328
17 * io/transfer.c (read_sf): Adjust fbuf position and do proper
18 fbuf reads to traverse CR, CR-LF, and LF style line ends.
20 2009-09-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
22 PR libgfortran/41219
23 * io/write.c (write_a_char4): Use correct type for crlf constant.
25 2009-09-11 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
27 * Makefile.am (libgfortranbegin_la_LINK): New.
28 * Makefile.in: Regenerate.
30 2009-09-09 Paolo Bonzini <bonzini@gnu.org>
32 * configure: Regenerate.
34 2009-09-08 Paolo Bonzini <bonzini@gnu.org>
36 * configure: Regenerate.
38 2009-09-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
40 PR libgfortran/41192
41 * io/list_read.c (eat_line): Enable eat_line to function on
42 internal units.
44 PR libgfortran/41219
45 * io/list_read.c (nml_read_obj): Replace GFC_DTYPE_UNKNOWN with
46 BT_NULL to get rid of warning.
48 2009-09-04 Tobias Burnus <burnus@net-b.de>
50 PR fortran/41219
51 * intrinsics/getlog.c: Define _POSIX for MINGW32.
53 2009-09-03 Tobias Burnus <burnus@net-b.de>
55 PR fortran/41219
56 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Move variable
57 declaration out of the loop.
59 2009-08-30 Thomas Koenig <tkoenig@gcc.gnu.org>
61 * m4/pack.m4 (pack_'rtype_code`): Use count_0 for counting true
62 values in a logical array. Mark bounds checking tests as
63 unlikely.
64 * intrinsics/pack_generic.c (pack_internal): Likewise.
65 * runtime/bounds.c (count_0): Fix off-by-one error in detecting
66 empty arrays.
67 * generated/pack_c4.c: Regenerated.
68 * generated/pack_c8.c: Regenerated.
69 * generated/pack_c10.c: Regenerated.
70 * generated/pack_c16.c: Regenerated.
71 * generated/pack_i1.c: Regenerated.
72 * generated/pack_i16.c: Regenerated.
73 * generated/pack_i2.c: Regenerated.
74 * generated/pack_i4.c: Regenerated.
75 * generated/pack_i8.c: Regenerated.
76 * generated/pack_r4.c: Regenerated.
77 * generated/pack_r8.c: Regenerated.
78 * generated/pack_r10.c: Regenerated.
79 * generated/pack_r16.c: Regenerated.
81 2009-08-25 Thomas Koenig <tkoenig@gcc.gnu.org>
83 PR libfortran/34670
84 * runtime/bounds.c (count_0): New function.
85 * intrinsics/unpack_generic (unpack_bounds): New function.
86 (unpack_internal): Remove zero stride checks.
87 (unpack1): Use unpack_bounds.
88 (unpack1_char): Likeweise.
89 (unpack1_char4): Likewise
90 (unpack0): Likewise.
91 (unpack0_char): Likewise.
92 (unpack0_char4): Likewise.
94 2009-08-24 Steven G. Kargl <kargl@gcc.gnu.org>
96 PR fortran/41157
97 * dtime.c (dtime_sub): Fix computing time increment.
98 * time_1.h: Add <sys/types.h> header. Use RUSAGE_SELF macro instead
99 of a hardcoded 0.
101 2009-08-24 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
103 * configure.ac (AC_PREREQ): Bump to 2.64.
105 2009-08-23 Steven G. Kargl <kargl@gcc.gnu.org>
107 * intrinsics/cshift0.c: Update license to GPL3+exception.
108 * runtime/fpu.c: Add a GPL3+exception statement.
110 2009-08-22 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
112 * Makefile.am (install-html, install-pdf): Remove.
113 * Makefile.in: Regenerate.
115 * Makefile.in: Regenerate.
116 * aclocal.m4: Regenerate.
117 * config.h.in: Regenerate.
118 * configure: Regenerate.
120 2009-08-22 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
122 * Makefile.am (libgfortran_la_LINK): Add $(libgfortran_la_LDFLAGS).
123 * Makefile.in: Regenerate.
125 2009-08-20 Thomas Koenig <tkoenig@gcc.gnu.org>
127 PR libfortran/40962
128 * iso_c_binding.c (c_f_pointer_u0): Multiply stride by
129 previous stride.
131 2009-08-20 Dave Korn <dave.korn.cygwin@gmail.com>
133 * Makefile.am (LTLDFLAGS): Add -bindir flag.
134 * Makefile.in: Regenerate.
136 2009-08-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
138 PR fortran/41075
139 * io/io.h (enum format_token): Add FMT_STAR.
140 * io/format.c (format_lex): Add case for FMT_STAR.
141 (parse_format_list): Parse FMT_STAR and check for left paren
142 after. (next_format0): Modify helper function to check for
143 unimited format and return the repeated format node. Update
144 comments to clarify.
146 2009-08-15 Kai Tietz <kai.tietz@onevision.com>
148 * intrinsics/string_intrinsics_inc.c (string_len_trim): Use
149 __INTPTR_TYPE__ to cast from pointer to scalar integer, if
150 __INTPTR_TYPE is defined.
152 2009-08-14 Janne Blomqvist <jb@gcc.gnu.org>
154 * fmain.c: Add comment saying file is deprecated.
156 2009-08-14 Janne Blomqvist <jb@gcc.gnu.org>
158 PR libfortran/40863
159 * gfortran.map: Move new symbols to GFORTRAN_C99_1.1 version node.
161 2009-08-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
163 PR libfortran/40549
164 * Makefile.in (LTLDFLAGS): Add -no-undefined.
165 * Makefile.am: Regenerate.
166 * libgfortran.h: Remove unused block of code.
168 2009-08-02 Jerry DeLisle <jvdelisle@gcc.gnu.org>
170 PR libfortran/40853
171 * io/list_read.c (nml_get_obj_data): Do not set nl
172 pointer to first_nl if nl->next is NULL.
174 2009-07-31 Kaz Kojima <kkojima@gcc.gnu.org>
176 * Makefile.am: Don't set SECTION_FLAGS with @SECTION_FLAGS@.
177 Don't set IEEE_FLAGS with @IEEE_FLAGS@.
178 * Makefile.in: Regenerate.
180 2009-07-30 Kaz Kojima <kkojima@gcc.gnu.org>
182 * configure.host: Define ieee_flags and set it to -mieee for sh.
183 * configure.ac: Set IEEE_FLAGS with ieee_flags.
184 * Makefile.am: Add IEEE_FLAGS to AM_CFLAGS.
185 * configure: Regenerate.
186 * Makefile.in: Regenerate.
188 2009-07-30 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
190 * configure.ac (_AC_ARG_VAR_PRECIOUS): Use m4_rename_force.
192 2009-07-27 Tobias Burnus <burnus@net-b.de>
194 PR fortran/40863
195 * c99_functions.c: Define complex I, if not defined.
196 Create prototypes for C99 functions to silence warnings.
197 * gfortran.map: Add missing functions to GFORTRAN_C99_1.0
198 and new GFORTRAN_C99_1.1.
200 2009-07-25 Tobias Burnus <burnus@net-b.de>
202 PR fortran/33197
203 * intrinsics/c99_functions.c (cacosf,cacos,cacosl,casinf,
204 casin,casind,catanf,catan,catanl,cacoshf,cacosh,cacoshl,
205 casinhf,casinh,casinhf,catanhf,catanh,catanhl): New functions.
206 * c99_protos.h: Add prototypes for those.
208 2009-07-24 Jakub Jelinek <jakub@redhat.com>
210 PR fortran/40643
211 PR fortran/31067
212 * libgfortran.h (GFC_REAL_4_INFINITY, GFC_REAL_8_INFINITY,
213 GFC_REAL_10_INFINITY, GFC_REAL_16_INFINITY, GFC_REAL_4_QUIET_NAN,
214 GFC_REAL_8_QUIET_NAN, GFC_REAL_10_QUIET_NAN, GFC_REAL_16_QUIET_NAN):
215 Define.
216 * m4/iparm.m4 (atype_inf, atype_nan): Define.
217 * m4/ifunction.m4: Formatting.
218 * m4/iforeach.m4: Likewise.
219 (START_FOREACH_FUNCTION): Initialize dest to all 1s, not all 0s.
220 (START_FOREACH_BLOCK, FINISH_FOREACH_FUNCTION,
221 FINISH_MASKED_FOREACH_FUNCTION): Run foreach block inside a loop
222 until count[0] == extent[0].
223 * m4/minval.m4: Formatting. Handle NaNs and infinities. Optimize.
224 * m4/maxval.m4: Likewise.
225 * m4/minloc0.m4: Likewise.
226 * m4/maxloc0.m4: Likewise.
227 * m4/minloc1.m4: Likewise.
228 * m4/maxloc1.m4: Likewise.
229 * generated/maxloc0_16_i16.c: Regenerated.
230 * generated/maxloc0_16_i1.c: Likewise.
231 * generated/maxloc0_16_i2.c: Likewise.
232 * generated/maxloc0_16_i4.c: Likewise.
233 * generated/maxloc0_16_i8.c: Likewise.
234 * generated/maxloc0_16_r10.c: Likewise.
235 * generated/maxloc0_16_r16.c: Likewise.
236 * generated/maxloc0_16_r4.c: Likewise.
237 * generated/maxloc0_16_r8.c: Likewise.
238 * generated/maxloc0_4_i16.c: Likewise.
239 * generated/maxloc0_4_i1.c: Likewise.
240 * generated/maxloc0_4_i2.c: Likewise.
241 * generated/maxloc0_4_i4.c: Likewise.
242 * generated/maxloc0_4_i8.c: Likewise.
243 * generated/maxloc0_4_r10.c: Likewise.
244 * generated/maxloc0_4_r16.c: Likewise.
245 * generated/maxloc0_4_r4.c: Likewise.
246 * generated/maxloc0_4_r8.c: Likewise.
247 * generated/maxloc0_8_i16.c: Likewise.
248 * generated/maxloc0_8_i1.c: Likewise.
249 * generated/maxloc0_8_i2.c: Likewise.
250 * generated/maxloc0_8_i4.c: Likewise.
251 * generated/maxloc0_8_i8.c: Likewise.
252 * generated/maxloc0_8_r10.c: Likewise.
253 * generated/maxloc0_8_r16.c: Likewise.
254 * generated/maxloc0_8_r4.c: Likewise.
255 * generated/maxloc0_8_r8.c: Likewise.
256 * generated/maxloc1_16_i16.c: Likewise.
257 * generated/maxloc1_16_i1.c: Likewise.
258 * generated/maxloc1_16_i2.c: Likewise.
259 * generated/maxloc1_16_i4.c: Likewise.
260 * generated/maxloc1_16_i8.c: Likewise.
261 * generated/maxloc1_16_r10.c: Likewise.
262 * generated/maxloc1_16_r16.c: Likewise.
263 * generated/maxloc1_16_r4.c: Likewise.
264 * generated/maxloc1_16_r8.c: Likewise.
265 * generated/maxloc1_4_i16.c: Likewise.
266 * generated/maxloc1_4_i1.c: Likewise.
267 * generated/maxloc1_4_i2.c: Likewise.
268 * generated/maxloc1_4_i4.c: Likewise.
269 * generated/maxloc1_4_i8.c: Likewise.
270 * generated/maxloc1_4_r10.c: Likewise.
271 * generated/maxloc1_4_r16.c: Likewise.
272 * generated/maxloc1_4_r4.c: Likewise.
273 * generated/maxloc1_4_r8.c: Likewise.
274 * generated/maxloc1_8_i16.c: Likewise.
275 * generated/maxloc1_8_i1.c: Likewise.
276 * generated/maxloc1_8_i2.c: Likewise.
277 * generated/maxloc1_8_i4.c: Likewise.
278 * generated/maxloc1_8_i8.c: Likewise.
279 * generated/maxloc1_8_r10.c: Likewise.
280 * generated/maxloc1_8_r16.c: Likewise.
281 * generated/maxloc1_8_r4.c: Likewise.
282 * generated/maxloc1_8_r8.c: Likewise.
283 * generated/maxval_i16.c: Likewise.
284 * generated/maxval_i1.c: Likewise.
285 * generated/maxval_i2.c: Likewise.
286 * generated/maxval_i4.c: Likewise.
287 * generated/maxval_i8.c: Likewise.
288 * generated/maxval_r10.c: Likewise.
289 * generated/maxval_r16.c: Likewise.
290 * generated/maxval_r4.c: Likewise.
291 * generated/maxval_r8.c: Likewise.
292 * generated/minloc0_16_i16.c: Likewise.
293 * generated/minloc0_16_i1.c: Likewise.
294 * generated/minloc0_16_i2.c: Likewise.
295 * generated/minloc0_16_i4.c: Likewise.
296 * generated/minloc0_16_i8.c: Likewise.
297 * generated/minloc0_16_r10.c: Likewise.
298 * generated/minloc0_16_r16.c: Likewise.
299 * generated/minloc0_16_r4.c: Likewise.
300 * generated/minloc0_16_r8.c: Likewise.
301 * generated/minloc0_4_i16.c: Likewise.
302 * generated/minloc0_4_i1.c: Likewise.
303 * generated/minloc0_4_i2.c: Likewise.
304 * generated/minloc0_4_i4.c: Likewise.
305 * generated/minloc0_4_i8.c: Likewise.
306 * generated/minloc0_4_r10.c: Likewise.
307 * generated/minloc0_4_r16.c: Likewise.
308 * generated/minloc0_4_r4.c: Likewise.
309 * generated/minloc0_4_r8.c: Likewise.
310 * generated/minloc0_8_i16.c: Likewise.
311 * generated/minloc0_8_i1.c: Likewise.
312 * generated/minloc0_8_i2.c: Likewise.
313 * generated/minloc0_8_i4.c: Likewise.
314 * generated/minloc0_8_i8.c: Likewise.
315 * generated/minloc0_8_r10.c: Likewise.
316 * generated/minloc0_8_r16.c: Likewise.
317 * generated/minloc0_8_r4.c: Likewise.
318 * generated/minloc0_8_r8.c: Likewise.
319 * generated/minloc1_16_i16.c: Likewise.
320 * generated/minloc1_16_i1.c: Likewise.
321 * generated/minloc1_16_i2.c: Likewise.
322 * generated/minloc1_16_i4.c: Likewise.
323 * generated/minloc1_16_i8.c: Likewise.
324 * generated/minloc1_16_r10.c: Likewise.
325 * generated/minloc1_16_r16.c: Likewise.
326 * generated/minloc1_16_r4.c: Likewise.
327 * generated/minloc1_16_r8.c: Likewise.
328 * generated/minloc1_4_i16.c: Likewise.
329 * generated/minloc1_4_i1.c: Likewise.
330 * generated/minloc1_4_i2.c: Likewise.
331 * generated/minloc1_4_i4.c: Likewise.
332 * generated/minloc1_4_i8.c: Likewise.
333 * generated/minloc1_4_r10.c: Likewise.
334 * generated/minloc1_4_r16.c: Likewise.
335 * generated/minloc1_4_r4.c: Likewise.
336 * generated/minloc1_4_r8.c: Likewise.
337 * generated/minloc1_8_i16.c: Likewise.
338 * generated/minloc1_8_i1.c: Likewise.
339 * generated/minloc1_8_i2.c: Likewise.
340 * generated/minloc1_8_i4.c: Likewise.
341 * generated/minloc1_8_i8.c: Likewise.
342 * generated/minloc1_8_r10.c: Likewise.
343 * generated/minloc1_8_r16.c: Likewise.
344 * generated/minloc1_8_r4.c: Likewise.
345 * generated/minloc1_8_r8.c: Likewise.
346 * generated/minval_i16.c: Likewise.
347 * generated/minval_i1.c: Likewise.
348 * generated/minval_i2.c: Likewise.
349 * generated/minval_i4.c: Likewise.
350 * generated/minval_i8.c: Likewise.
351 * generated/minval_r10.c: Likewise.
352 * generated/minval_r16.c: Likewise.
353 * generated/minval_r4.c: Likewise.
354 * generated/minval_r8.c: Likewise.
355 * generated/product_c10.c: Likewise.
356 * generated/product_c16.c: Likewise.
357 * generated/product_c4.c: Likewise.
358 * generated/product_c8.c: Likewise.
359 * generated/product_i16.c: Likewise.
360 * generated/product_i1.c: Likewise.
361 * generated/product_i2.c: Likewise.
362 * generated/product_i4.c: Likewise.
363 * generated/product_i8.c: Likewise.
364 * generated/product_r10.c: Likewise.
365 * generated/product_r16.c: Likewise.
366 * generated/product_r4.c: Likewise.
367 * generated/product_r8.c: Likewise.
368 * generated/sum_c10.c: Likewise.
369 * generated/sum_c16.c: Likewise.
370 * generated/sum_c4.c: Likewise.
371 * generated/sum_c8.c: Likewise.
372 * generated/sum_i16.c: Likewise.
373 * generated/sum_i1.c: Likewise.
374 * generated/sum_i2.c: Likewise.
375 * generated/sum_i4.c: Likewise.
376 * generated/sum_i8.c: Likewise.
377 * generated/sum_r10.c: Likewise.
378 * generated/sum_r16.c: Likewise.
379 * generated/sum_r4.c: Likewise.
380 * generated/sum_r8.c: Likewise.
382 2009-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
384 PR libfortran/32784
385 * unix.c (regular_file): Check for CONIN$ CONOUT$, and CONERR$ and open
386 the respective /dev/conin or /dev/conout devices. This is Cygwin
387 specific.
389 2009-07-19 Thomas Koenig <tkoenig@gcc.gnu.org>
391 PR libfortran/34670
392 PR libfortran/36874
393 * Makefile.am: Add bounds.c
394 * libgfortran.h (bounds_equal_extents): Add prototype.
395 (bounds_iforeach_return): Likewise.
396 (bounds_ifunction_return): Likewise.
397 (bounds_reduced_extents): Likewise.
398 * runtime/bounds.c: New file.
399 (bounds_iforeach_return): New function; correct typo in
400 error message.
401 (bounds_ifunction_return): New function.
402 (bounds_equal_extents): New function.
403 (bounds_reduced_extents): Likewise.
404 * intrinsics/cshift0.c (cshift0): Use new functions
405 for bounds checking.
406 * intrinsics/eoshift0.c (eoshift0): Likewise.
407 * intrinsics/eoshift2.c (eoshift2): Likewise.
408 * m4/iforeach.m4: Likewise.
409 * m4/eoshift1.m4: Likewise.
410 * m4/eoshift3.m4: Likewise.
411 * m4/cshift1.m4: Likewise.
412 * m4/ifunction.m4: Likewise.
413 * Makefile.in: Regenerated.
414 * generated/cshift1_16.c: Regenerated.
415 * generated/cshift1_4.c: Regenerated.
416 * generated/cshift1_8.c: Regenerated.
417 * generated/eoshift1_16.c: Regenerated.
418 * generated/eoshift1_4.c: Regenerated.
419 * generated/eoshift1_8.c: Regenerated.
420 * generated/eoshift3_16.c: Regenerated.
421 * generated/eoshift3_4.c: Regenerated.
422 * generated/eoshift3_8.c: Regenerated.
423 * generated/maxloc0_16_i1.c: Regenerated.
424 * generated/maxloc0_16_i16.c: Regenerated.
425 * generated/maxloc0_16_i2.c: Regenerated.
426 * generated/maxloc0_16_i4.c: Regenerated.
427 * generated/maxloc0_16_i8.c: Regenerated.
428 * generated/maxloc0_16_r10.c: Regenerated.
429 * generated/maxloc0_16_r16.c: Regenerated.
430 * generated/maxloc0_16_r4.c: Regenerated.
431 * generated/maxloc0_16_r8.c: Regenerated.
432 * generated/maxloc0_4_i1.c: Regenerated.
433 * generated/maxloc0_4_i16.c: Regenerated.
434 * generated/maxloc0_4_i2.c: Regenerated.
435 * generated/maxloc0_4_i4.c: Regenerated.
436 * generated/maxloc0_4_i8.c: Regenerated.
437 * generated/maxloc0_4_r10.c: Regenerated.
438 * generated/maxloc0_4_r16.c: Regenerated.
439 * generated/maxloc0_4_r4.c: Regenerated.
440 * generated/maxloc0_4_r8.c: Regenerated.
441 * generated/maxloc0_8_i1.c: Regenerated.
442 * generated/maxloc0_8_i16.c: Regenerated.
443 * generated/maxloc0_8_i2.c: Regenerated.
444 * generated/maxloc0_8_i4.c: Regenerated.
445 * generated/maxloc0_8_i8.c: Regenerated.
446 * generated/maxloc0_8_r10.c: Regenerated.
447 * generated/maxloc0_8_r16.c: Regenerated.
448 * generated/maxloc0_8_r4.c: Regenerated.
449 * generated/maxloc0_8_r8.c: Regenerated.
450 * generated/maxloc1_16_i1.c: Regenerated.
451 * generated/maxloc1_16_i16.c: Regenerated.
452 * generated/maxloc1_16_i2.c: Regenerated.
453 * generated/maxloc1_16_i4.c: Regenerated.
454 * generated/maxloc1_16_i8.c: Regenerated.
455 * generated/maxloc1_16_r10.c: Regenerated.
456 * generated/maxloc1_16_r16.c: Regenerated.
457 * generated/maxloc1_16_r4.c: Regenerated.
458 * generated/maxloc1_16_r8.c: Regenerated.
459 * generated/maxloc1_4_i1.c: Regenerated.
460 * generated/maxloc1_4_i16.c: Regenerated.
461 * generated/maxloc1_4_i2.c: Regenerated.
462 * generated/maxloc1_4_i4.c: Regenerated.
463 * generated/maxloc1_4_i8.c: Regenerated.
464 * generated/maxloc1_4_r10.c: Regenerated.
465 * generated/maxloc1_4_r16.c: Regenerated.
466 * generated/maxloc1_4_r4.c: Regenerated.
467 * generated/maxloc1_4_r8.c: Regenerated.
468 * generated/maxloc1_8_i1.c: Regenerated.
469 * generated/maxloc1_8_i16.c: Regenerated.
470 * generated/maxloc1_8_i2.c: Regenerated.
471 * generated/maxloc1_8_i4.c: Regenerated.
472 * generated/maxloc1_8_i8.c: Regenerated.
473 * generated/maxloc1_8_r10.c: Regenerated.
474 * generated/maxloc1_8_r16.c: Regenerated.
475 * generated/maxloc1_8_r4.c: Regenerated.
476 * generated/maxloc1_8_r8.c: Regenerated.
477 * generated/maxval_i1.c: Regenerated.
478 * generated/maxval_i16.c: Regenerated.
479 * generated/maxval_i2.c: Regenerated.
480 * generated/maxval_i4.c: Regenerated.
481 * generated/maxval_i8.c: Regenerated.
482 * generated/maxval_r10.c: Regenerated.
483 * generated/maxval_r16.c: Regenerated.
484 * generated/maxval_r4.c: Regenerated.
485 * generated/maxval_r8.c: Regenerated.
486 * generated/minloc0_16_i1.c: Regenerated.
487 * generated/minloc0_16_i16.c: Regenerated.
488 * generated/minloc0_16_i2.c: Regenerated.
489 * generated/minloc0_16_i4.c: Regenerated.
490 * generated/minloc0_16_i8.c: Regenerated.
491 * generated/minloc0_16_r10.c: Regenerated.
492 * generated/minloc0_16_r16.c: Regenerated.
493 * generated/minloc0_16_r4.c: Regenerated.
494 * generated/minloc0_16_r8.c: Regenerated.
495 * generated/minloc0_4_i1.c: Regenerated.
496 * generated/minloc0_4_i16.c: Regenerated.
497 * generated/minloc0_4_i2.c: Regenerated.
498 * generated/minloc0_4_i4.c: Regenerated.
499 * generated/minloc0_4_i8.c: Regenerated.
500 * generated/minloc0_4_r10.c: Regenerated.
501 * generated/minloc0_4_r16.c: Regenerated.
502 * generated/minloc0_4_r4.c: Regenerated.
503 * generated/minloc0_4_r8.c: Regenerated.
504 * generated/minloc0_8_i1.c: Regenerated.
505 * generated/minloc0_8_i16.c: Regenerated.
506 * generated/minloc0_8_i2.c: Regenerated.
507 * generated/minloc0_8_i4.c: Regenerated.
508 * generated/minloc0_8_i8.c: Regenerated.
509 * generated/minloc0_8_r10.c: Regenerated.
510 * generated/minloc0_8_r16.c: Regenerated.
511 * generated/minloc0_8_r4.c: Regenerated.
512 * generated/minloc0_8_r8.c: Regenerated.
513 * generated/minloc1_16_i1.c: Regenerated.
514 * generated/minloc1_16_i16.c: Regenerated.
515 * generated/minloc1_16_i2.c: Regenerated.
516 * generated/minloc1_16_i4.c: Regenerated.
517 * generated/minloc1_16_i8.c: Regenerated.
518 * generated/minloc1_16_r10.c: Regenerated.
519 * generated/minloc1_16_r16.c: Regenerated.
520 * generated/minloc1_16_r4.c: Regenerated.
521 * generated/minloc1_16_r8.c: Regenerated.
522 * generated/minloc1_4_i1.c: Regenerated.
523 * generated/minloc1_4_i16.c: Regenerated.
524 * generated/minloc1_4_i2.c: Regenerated.
525 * generated/minloc1_4_i4.c: Regenerated.
526 * generated/minloc1_4_i8.c: Regenerated.
527 * generated/minloc1_4_r10.c: Regenerated.
528 * generated/minloc1_4_r16.c: Regenerated.
529 * generated/minloc1_4_r4.c: Regenerated.
530 * generated/minloc1_4_r8.c: Regenerated.
531 * generated/minloc1_8_i1.c: Regenerated.
532 * generated/minloc1_8_i16.c: Regenerated.
533 * generated/minloc1_8_i2.c: Regenerated.
534 * generated/minloc1_8_i4.c: Regenerated.
535 * generated/minloc1_8_i8.c: Regenerated.
536 * generated/minloc1_8_r10.c: Regenerated.
537 * generated/minloc1_8_r16.c: Regenerated.
538 * generated/minloc1_8_r4.c: Regenerated.
539 * generated/minloc1_8_r8.c: Regenerated.
540 * generated/minval_i1.c: Regenerated.
541 * generated/minval_i16.c: Regenerated.
542 * generated/minval_i2.c: Regenerated.
543 * generated/minval_i4.c: Regenerated.
544 * generated/minval_i8.c: Regenerated.
545 * generated/minval_r10.c: Regenerated.
546 * generated/minval_r16.c: Regenerated.
547 * generated/minval_r4.c: Regenerated.
548 * generated/minval_r8.c: Regenerated.
549 * generated/product_c10.c: Regenerated.
550 * generated/product_c16.c: Regenerated.
551 * generated/product_c4.c: Regenerated.
552 * generated/product_c8.c: Regenerated.
553 * generated/product_i1.c: Regenerated.
554 * generated/product_i16.c: Regenerated.
555 * generated/product_i2.c: Regenerated.
556 * generated/product_i4.c: Regenerated.
557 * generated/product_i8.c: Regenerated.
558 * generated/product_r10.c: Regenerated.
559 * generated/product_r16.c: Regenerated.
560 * generated/product_r4.c: Regenerated.
561 * generated/product_r8.c: Regenerated.
562 * generated/sum_c10.c: Regenerated.
563 * generated/sum_c16.c: Regenerated.
564 * generated/sum_c4.c: Regenerated.
565 * generated/sum_c8.c: Regenerated.
566 * generated/sum_i1.c: Regenerated.
567 * generated/sum_i16.c: Regenerated.
568 * generated/sum_i2.c: Regenerated.
569 * generated/sum_i4.c: Regenerated.
570 * generated/sum_i8.c: Regenerated.
571 * generated/sum_r10.c: Regenerated.
572 * generated/sum_r16.c: Regenerated.
573 * generated/sum_r4.c: Regenerated.
574 * generated/sum_r8.c: Regenerated.
576 2009-07-17 Janne Blomqvist <jb@gcc.gnu.org>
577 Jerry DeLisle <jvdelisle@gcc.gnu.org>
579 PR libfortran/40714
580 * io/transfer.c (finalize_transfer): Set current_record to 0
581 before returning in case of error.
583 2009-07-12 Tobias Burnus <burnus@net-b.de>
585 PR libfortran/22423
586 * io/io.h (namelist_type): Use the proper enum for GFC_DTYPE_*.
587 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Make sure
588 variable is initialized to silence warning.
590 2009-07-10 Steven G. Kargl <kargl@gcc.gnu.org>
592 * c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
593 Fix errant minus.
595 2009-07-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
597 PR libfortran/40330
598 PR libfortran/40662
599 * io/io.h (st_parameter_dt): Define format_not_saved bit used to signal
600 whether the parsed format data was previously saved. Used to determine
601 if the current format data should be freed or not.
602 * io/transfer.c (st_read_done): Use the format_not_saved bit.
603 (st_write_done): Likewise.
604 * io/format.c (parse_format_list): Add boolean pointer to arg list. This
605 pointer is used to return status to the caller regarding whether it is
606 safe to cache the parsed format data. Currently, if a FMT_STRING token
607 is encounetered, it is not safe to cache. Also, added a local boolean
608 variable to hold this information as recursive calls to
609 parse_format_list are made. Remove previous save_format logic.
610 (parse_format): Do not use the format caching facility if the current
611 unit is an internal unit or if it is not safe to save parsed format
612 data.
614 2009-06-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
616 PR libfortran/40576
617 * io/transfer.c (sset): Adjust exit condition for loop.
619 2009-06-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
621 PR libfortran/40508
622 * io/format.c: Don't save parsed format data for internal units.
624 2009-06-21 Thomas Koenig <tkoenig@gcc.gnu.org>
626 PR fortran/37577
627 Port from fortran-dev
628 * runtime/in_pack_generic (internal_pack): Remove unnecessary
629 test for stride == 0.
630 * runtime/in_unpack_generic.c (internal_unpack): Likewise.
631 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care
632 of stride in "shape" argument. Use array access macros for
633 accessing array descriptors.
634 * libgfortran.h (struct descriptor_dimension): Change stride
635 to _stride, lbound to _lbound and ubound to _ubound.
636 (GFC_DIMENSION_LBOUND): Use new name(s) in struct
637 descriptor_dimension.
638 (GFC_DIMENSION_UBOUND): Likewise.
639 (GFC_DIMENSION_STRIDE): Likewise.
640 (GFC_DIMENSION_EXTENT): Likewise.
641 (GFC_DIMENSION_SET): Likewise.
642 (GFC_DESCRIPTOR_LBOUND): Likewise.
643 (GFC_DESCRIPTOR_UBOUND): Likewise.
644 (GFC_DESCRIPTOR_EXTENT): Likewise.
645 (GFC_DESCRIPTOR_STRIDE): Likewise.
646 * io/transfer.c (transfer_array): Use array access macros.
647 Use byte-sized strides.
648 * intrinsics/eoshift0.c (eoshift0): Use array access
649 macros everywhere.
650 * m4/in_pack.m4 (internal_pack_'rtype_ccode`): Use
651 array access macros for accessing array descriptors.
652 * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):
653 Likewise.
654 * m4/matmull.m4 (matmul_'rtype_code`): Likewise.
655 * m4/matmul.m4 (matmul_'rtype_code`): Likewise.
656 * m4/unpack.m4 (unpack0_'rtype_code`): Likewise.
657 (unpack1_'rtype_code`): Likewise.
658 * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Likewise.
659 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Use array access
660 macros everywhere.
661 * intrinsics/dtime.c (dtime_sub): Use array access macros
662 for accessing array descriptors.
663 * intrinsics/cshift0 (cshift0): Likewise.
664 * intrinsics/etime.c: Likewise. Remove redundant calculation
665 of rdim.
666 * m4/cshift0.m4 (cshift0_'rtype_code`): Use array access macros
667 for accessing array descriptors.
668 * m4/pack.m4 (pack_'rtype_code`): Likewise.
669 * m4/spread.m4 (spread_'rtype_code`): Likewise.
670 (spread_scalar_'rtype_code`): Likewise.
671 * m4/transpose.m4 (transpose_'rtype_code`): Likewise.
672 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
673 * m4/eoshift1.m4 (eoshift1): Likewise. Remove size argument,
674 calculate within function.
675 (eoshift1_'atype_kind`): Remove size argument from call
676 to eoshift1.
677 (eoshift1_'atype_kind`_char): Likewise.
678 (eoshift1_'atype_kind`_char4): Likewise.
679 * m4/eoshift3.m4 (eoshift3): Remove size argument, calculate
680 within function. Use array access macros for accessing array
681 descriptors.
682 (eoshift3_'atype_kind`): Remove size argument from call
683 to eoshift1.
684 (eoshift3_'atype_kind`_char): Likewise.
685 (eoshift3_'atype_kind`_char4): Likewise.
686 * m4/shape.m4 (shape_'rtype_kind`): Use array access macros
687 for accessing array descriptors.
688 * m4/cshift1.m4 (cshift1): Remove size argument, calculate
689 within function. Use array access macros for accessing array
690 descriptors.
691 (cshift1_'atype_kind`): Remove size argument from call to
692 cshift1.
693 (cshift1_'atype_kind`_char): Remove size argument from call to
694 cshift1.
695 (cshift1_'atype_kind`_char4): Remove size argument from call to
696 cshift1.
697 * m4/reshape.m4 (reshape_'rtype_ccode`): Use array access macros
698 for accessing array descriptors.
699 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
700 * intrinsics/pack_generic.c (pack_internal): Use array access
701 macros for accessing array descriptors.
702 (pack_s_internal): Likewise.
703 * intrinsics/transpose_generic.c (transpose_internal): Remove
704 size argument, calculate from array descriptor. Use array
705 access macros for accessing array descriptors.
706 (transpose): Remove size argument from call.
707 (transpoe_char): Likewise.
708 (transpose_char4): Likewise.
709 * intrinsics/move_alloc.c (move_alloc): Use array access macros
710 for accessing array descriptors.
711 * intrinsics/spread_generic.c (spread_internal): Remove size
712 argument, calculate from array descriptor. Use array access
713 macros for accessing array descriptors.
714 (spread_internal_scalar): Likewise.
715 (spread): Remove size argument from call to spread_internal.
716 (spread_char): Mark argument source_length as unused.
717 Remove size argument from call to spread_internal.
718 (spread_char4): Likewise.
719 (spread_char_scalar): Likewise.
720 (spread_char4_scalar): Likewise.
721 * intrinsics/unpack_generic.c (unpack_internal): Use array access
722 macros for accessing array descriptors.
723 * intrinsics/eoshift2.c (eoshift2): Remove size argument, calculate
724 from array descriptor instead. Use array access macros for
725 accessing array descriptors.
726 (eoshift2_##N): Remove size argument from call to eoshift2.
727 (eoshift2_##N_##char): Likewise.
728 (eoshift2_##N_##char4): Likewise.
729 * intrinsics/reshape_generic.c (reshape_internal): Use array
730 access macross for accessing array descriptors.
731 * libgfortran.h: Introduce new macros GFC_DIMENSION_LBOUND,
732 GFC_DIMENSION_UBOUND,GFC_DIMENSION_STRIDE, GFC_DIMENSION_EXTENT,
733 GFC_DIMENSION_SET, GFC_DESCRIPTOR_LBOUND, GFC_DESCRIPTOR_UBOUND,
734 GFC_DESCRIPTOR_EXTENT, GFC_DESCRIPTOR_EXTENT_BYTES,
735 GFC_DESCRIPTOR_STRIDE, GFC_DESCRIPTOR_STRIDE_BYTES
736 * runtime/in_pack_generic.c (internal_pack): Use new macros
737 for array descriptor access.
738 * runtime/in_unpack_generic.c (internal_unpack): Likewise.
739 * intrinsics/dtime.c (dtime_sub): Likewise.
740 * intrinsics/cshift0 (cshift0): Remove argument size,
741 calculate directly from the array descriptor. Use new macros
742 for array descriptor access.
743 * cshift0_##N: Remove shift argument in call to cshift0.
744 * cshift0_##N_char: Mark array_length as unused. Remove
745 array_length in call to cshift0.
746 * cshift0_##N_char4: Likewise.
747 * intrisics/etime.c: Use new macros for array descriptor access.
748 * intrinsics/stat.c (stat_i4_sub_0): Likewise.
749 (stat_i8_sub_0): Likewise.
750 (fstat_i4_sub): Likewise.
751 (fstat_i8_sub): Likewise.
752 * intrinsics/date_and_time.c (date_and_time): Likewise.
753 (secnds): Likewise.
754 (itime_i4): Likewise.
755 (itime_i8): Likewise.
756 (idate_i4): Likewise.
757 (idate_i8): Likewise.
758 (gmtime_i4): Likewise.
759 (gmtime_i8): Likewise.
760 (ltime_i4): Likewise.
761 (litme_i8): Likewise.
762 * intrinsics/associated.c (associated): Likewise.
763 * intrinsics/eoshift0.c (eoshift0): Likewise.
764 * intriniscs/size.c (size0): Likewise.
765 * intrinsics/random.c (arandom_r4): Likewise.
766 (arandom_r8): Likewise.
767 (arandom_r10): Likewise.
768 (arandom_r16): Likewise.
769 (random_seed_i4): Likewise.
770 (random_seed_i8): Likewise.
771 * io/list_read.c (nml_parse_qualifier): Likewise.
772 (nml_touch_nodes): Likewise.
773 (nml_read_obj): Likewise.
774 (get_name): Likewise.
775 * io/transfer.c (transfer_array): Likewise.
776 (init_loop_spec): Likewise.
777 (st_set_nml_var_dim): Likewise.
778 * io/write.c (nml_write_obj): Likewise.
779 (obj_loop): Likewise.
780 * generated/all_l1.c: Regenerated.
781 * generated/all_l16.c: Regenerated.
782 * generated/all_l2.c: Regenerated.
783 * generated/all_l4.c: Regenerated.
784 * generated/all_l8.c: Regenerated.
785 * generated/any_l1.c: Regenerated.
786 * generated/any_l16.c: Regenerated.
787 * generated/any_l2.c: Regenerated.
788 * generated/any_l4.c: Regenerated.
789 * generated/any_l8.c: Regenerated.
790 * generated/count_16_l.c: Regenerated.
791 * generated/count_1_l.c: Regenerated.
792 * generated/count_2_l.c: Regenerated.
793 * generated/count_4_l.c: Regenerated.
794 * generated/count_8_l.c: Regenerated.
795 * generated/cshift0_c10.c: Regenerated.
796 * generated/cshift0_c16.c: Regenerated.
797 * generated/cshift0_c4.c: Regenerated.
798 * generated/cshift0_c8.c: Regenerated.
799 * generated/cshift0_i1.c: Regenerated.
800 * generated/cshift0_i16.c: Regenerated.
801 * generated/cshift0_i2.c: Regenerated.
802 * generated/cshift0_i4.c: Regenerated.
803 * generated/cshift0_i8.c: Regenerated.
804 * generated/cshift0_r10.c: Regenerated.
805 * generated/cshift0_r16.c: Regenerated.
806 * generated/cshift0_r4.c: Regenerated.
807 * generated/cshift0_r8.c: Regenerated.
808 * generated/cshift1_16.c: Regenerated.
809 * generated/cshift1_4.c: Regenerated.
810 * generated/cshift1_8.c: Regenerated.
811 * generated/eoshift1_16.c: Regenerated.
812 * generated/eoshift1_4.c: Regenerated.
813 * generated/eoshift1_8.c: Regenerated.
814 * generated/eoshift3_16.c: Regenerated.
815 * generated/eoshift3_4.c: Regenerated.
816 * generated/eoshift3_8.c: Regenerated.
817 * generated/in_pack_c10.c: Regenerated.
818 * generated/in_pack_c16.c: Regenerated.
819 * generated/in_pack_c4.c: Regenerated.
820 * generated/in_pack_c8.c: Regenerated.
821 * generated/in_pack_i1.c: Regenerated.
822 * generated/in_pack_i16.c: Regenerated.
823 * generated/in_pack_i2.c: Regenerated.
824 * generated/in_pack_i4.c: Regenerated.
825 * generated/in_pack_i8.c: Regenerated.
826 * generated/in_pack_r10.c: Regenerated.
827 * generated/in_pack_r16.c: Regenerated.
828 * generated/in_pack_r4.c: Regenerated.
829 * generated/in_pack_r8.c: Regenerated.
830 * generated/in_unpack_c10.c: Regenerated.
831 * generated/in_unpack_c16.c: Regenerated.
832 * generated/in_unpack_c4.c: Regenerated.
833 * generated/in_unpack_c8.c: Regenerated.
834 * generated/in_unpack_i1.c: Regenerated.
835 * generated/in_unpack_i16.c: Regenerated.
836 * generated/in_unpack_i2.c: Regenerated.
837 * generated/in_unpack_i4.c: Regenerated.
838 * generated/in_unpack_i8.c: Regenerated.
839 * generated/in_unpack_r10.c: Regenerated.
840 * generated/in_unpack_r16.c: Regenerated.
841 * generated/in_unpack_r4.c: Regenerated.
842 * generated/in_unpack_r8.c: Regenerated.
843 * generated/matmul_c10.c: Regenerated.
844 * generated/matmul_c16.c: Regenerated.
845 * generated/matmul_c4.c: Regenerated.
846 * generated/matmul_c8.c: Regenerated.
847 * generated/matmul_i1.c: Regenerated.
848 * generated/matmul_i16.c: Regenerated.
849 * generated/matmul_i2.c: Regenerated.
850 * generated/matmul_i4.c: Regenerated.
851 * generated/matmul_i8.c: Regenerated.
852 * generated/matmul_l16.c: Regenerated.
853 * generated/matmul_l4.c: Regenerated.
854 * generated/matmul_l8.c: Regenerated.
855 * generated/matmul_r10.c: Regenerated.
856 * generated/matmul_r16.c: Regenerated.
857 * generated/matmul_r4.c: Regenerated.
858 * generated/matmul_r8.c: Regenerated.
859 * generated/maxloc0_16_i1.c: Regenerated.
860 * generated/maxloc0_16_i16.c: Regenerated.
861 * generated/maxloc0_16_i2.c: Regenerated.
862 * generated/maxloc0_16_i4.c: Regenerated.
863 * generated/maxloc0_16_i8.c: Regenerated.
864 * generated/maxloc0_16_r10.c: Regenerated.
865 * generated/maxloc0_16_r16.c: Regenerated.
866 * generated/maxloc0_16_r4.c: Regenerated.
867 * generated/maxloc0_16_r8.c: Regenerated.
868 * generated/maxloc0_4_i1.c: Regenerated.
869 * generated/maxloc0_4_i16.c: Regenerated.
870 * generated/maxloc0_4_i2.c: Regenerated.
871 * generated/maxloc0_4_i4.c: Regenerated.
872 * generated/maxloc0_4_i8.c: Regenerated.
873 * generated/maxloc0_4_r10.c: Regenerated.
874 * generated/maxloc0_4_r16.c: Regenerated.
875 * generated/maxloc0_4_r4.c: Regenerated.
876 * generated/maxloc0_4_r8.c: Regenerated.
877 * generated/maxloc0_8_i1.c: Regenerated.
878 * generated/maxloc0_8_i16.c: Regenerated.
879 * generated/maxloc0_8_i2.c: Regenerated.
880 * generated/maxloc0_8_i4.c: Regenerated.
881 * generated/maxloc0_8_i8.c: Regenerated.
882 * generated/maxloc0_8_r10.c: Regenerated.
883 * generated/maxloc0_8_r16.c: Regenerated.
884 * generated/maxloc0_8_r4.c: Regenerated.
885 * generated/maxloc0_8_r8.c: Regenerated.
886 * generated/maxloc1_16_i1.c: Regenerated.
887 * generated/maxloc1_16_i16.c: Regenerated.
888 * generated/maxloc1_16_i2.c: Regenerated.
889 * generated/maxloc1_16_i4.c: Regenerated.
890 * generated/maxloc1_16_i8.c: Regenerated.
891 * generated/maxloc1_16_r10.c: Regenerated.
892 * generated/maxloc1_16_r16.c: Regenerated.
893 * generated/maxloc1_16_r4.c: Regenerated.
894 * generated/maxloc1_16_r8.c: Regenerated.
895 * generated/maxloc1_4_i1.c: Regenerated.
896 * generated/maxloc1_4_i16.c: Regenerated.
897 * generated/maxloc1_4_i2.c: Regenerated.
898 * generated/maxloc1_4_i4.c: Regenerated.
899 * generated/maxloc1_4_i8.c: Regenerated.
900 * generated/maxloc1_4_r10.c: Regenerated.
901 * generated/maxloc1_4_r16.c: Regenerated.
902 * generated/maxloc1_4_r4.c: Regenerated.
903 * generated/maxloc1_4_r8.c: Regenerated.
904 * generated/maxloc1_8_i1.c: Regenerated.
905 * generated/maxloc1_8_i16.c: Regenerated.
906 * generated/maxloc1_8_i2.c: Regenerated.
907 * generated/maxloc1_8_i4.c: Regenerated.
908 * generated/maxloc1_8_i8.c: Regenerated.
909 * generated/maxloc1_8_r10.c: Regenerated.
910 * generated/maxloc1_8_r16.c: Regenerated.
911 * generated/maxloc1_8_r4.c: Regenerated.
912 * generated/maxloc1_8_r8.c: Regenerated.
913 * generated/maxval_i1.c: Regenerated.
914 * generated/maxval_i16.c: Regenerated.
915 * generated/maxval_i2.c: Regenerated.
916 * generated/maxval_i4.c: Regenerated.
917 * generated/maxval_i8.c: Regenerated.
918 * generated/maxval_r10.c: Regenerated.
919 * generated/maxval_r16.c: Regenerated.
920 * generated/maxval_r4.c: Regenerated.
921 * generated/maxval_r8.c: Regenerated.
922 * generated/minloc0_16_i1.c: Regenerated.
923 * generated/minloc0_16_i16.c: Regenerated.
924 * generated/minloc0_16_i2.c: Regenerated.
925 * generated/minloc0_16_i4.c: Regenerated.
926 * generated/minloc0_16_i8.c: Regenerated.
927 * generated/minloc0_16_r10.c: Regenerated.
928 * generated/minloc0_16_r16.c: Regenerated.
929 * generated/minloc0_16_r4.c: Regenerated.
930 * generated/minloc0_16_r8.c: Regenerated.
931 * generated/minloc0_4_i1.c: Regenerated.
932 * generated/minloc0_4_i16.c: Regenerated.
933 * generated/minloc0_4_i2.c: Regenerated.
934 * generated/minloc0_4_i4.c: Regenerated.
935 * generated/minloc0_4_i8.c: Regenerated.
936 * generated/minloc0_4_r10.c: Regenerated.
937 * generated/minloc0_4_r16.c: Regenerated.
938 * generated/minloc0_4_r4.c: Regenerated.
939 * generated/minloc0_4_r8.c: Regenerated.
940 * generated/minloc0_8_i1.c: Regenerated.
941 * generated/minloc0_8_i16.c: Regenerated.
942 * generated/minloc0_8_i2.c: Regenerated.
943 * generated/minloc0_8_i4.c: Regenerated.
944 * generated/minloc0_8_i8.c: Regenerated.
945 * generated/minloc0_8_r10.c: Regenerated.
946 * generated/minloc0_8_r16.c: Regenerated.
947 * generated/minloc0_8_r4.c: Regenerated.
948 * generated/minloc0_8_r8.c: Regenerated.
949 * generated/minloc1_16_i1.c: Regenerated.
950 * generated/minloc1_16_i16.c: Regenerated.
951 * generated/minloc1_16_i2.c: Regenerated.
952 * generated/minloc1_16_i4.c: Regenerated.
953 * generated/minloc1_16_i8.c: Regenerated.
954 * generated/minloc1_16_r10.c: Regenerated.
955 * generated/minloc1_16_r16.c: Regenerated.
956 * generated/minloc1_16_r4.c: Regenerated.
957 * generated/minloc1_16_r8.c: Regenerated.
958 * generated/minloc1_4_i1.c: Regenerated.
959 * generated/minloc1_4_i16.c: Regenerated.
960 * generated/minloc1_4_i2.c: Regenerated.
961 * generated/minloc1_4_i4.c: Regenerated.
962 * generated/minloc1_4_i8.c: Regenerated.
963 * generated/minloc1_4_r10.c: Regenerated.
964 * generated/minloc1_4_r16.c: Regenerated.
965 * generated/minloc1_4_r4.c: Regenerated.
966 * generated/minloc1_4_r8.c: Regenerated.
967 * generated/minloc1_8_i1.c: Regenerated.
968 * generated/minloc1_8_i16.c: Regenerated.
969 * generated/minloc1_8_i2.c: Regenerated.
970 * generated/minloc1_8_i4.c: Regenerated.
971 * generated/minloc1_8_i8.c: Regenerated.
972 * generated/minloc1_8_r10.c: Regenerated.
973 * generated/minloc1_8_r16.c: Regenerated.
974 * generated/minloc1_8_r4.c: Regenerated.
975 * generated/minloc1_8_r8.c: Regenerated.
976 * generated/minval_i1.c: Regenerated.
977 * generated/minval_i16.c: Regenerated.
978 * generated/minval_i2.c: Regenerated.
979 * generated/minval_i4.c: Regenerated.
980 * generated/minval_i8.c: Regenerated.
981 * generated/minval_r10.c: Regenerated.
982 * generated/minval_r16.c: Regenerated.
983 * generated/minval_r4.c: Regenerated.
984 * generated/minval_r8.c: Regenerated.
985 * generated/pack_c10.c: Regenerated.
986 * generated/pack_c16.c: Regenerated.
987 * generated/pack_c4.c: Regenerated.
988 * generated/pack_c8.c: Regenerated.
989 * generated/pack_i1.c: Regenerated.
990 * generated/pack_i16.c: Regenerated.
991 * generated/pack_i2.c: Regenerated.
992 * generated/pack_i4.c: Regenerated.
993 * generated/pack_i8.c: Regenerated.
994 * generated/pack_r10.c: Regenerated.
995 * generated/pack_r16.c: Regenerated.
996 * generated/pack_r4.c: Regenerated.
997 * generated/pack_r8.c: Regenerated.
998 * generated/product_c10.c: Regenerated.
999 * generated/product_c16.c: Regenerated.
1000 * generated/product_c4.c: Regenerated.
1001 * generated/product_c8.c: Regenerated.
1002 * generated/product_i1.c: Regenerated.
1003 * generated/product_i16.c: Regenerated.
1004 * generated/product_i2.c: Regenerated.
1005 * generated/product_i4.c: Regenerated.
1006 * generated/product_i8.c: Regenerated.
1007 * generated/product_r10.c: Regenerated.
1008 * generated/product_r16.c: Regenerated.
1009 * generated/product_r4.c: Regenerated.
1010 * generated/product_r8.c: Regenerated.
1011 * generated/reshape_c10.c: Regenerated.
1012 * generated/reshape_c16.c: Regenerated.
1013 * generated/reshape_c4.c: Regenerated.
1014 * generated/reshape_c8.c: Regenerated.
1015 * generated/reshape_i16.c: Regenerated.
1016 * generated/reshape_i4.c: Regenerated.
1017 * generated/reshape_i8.c: Regenerated.
1018 * generated/reshape_r10.c: Regenerated.
1019 * generated/reshape_r16.c: Regenerated.
1020 * generated/reshape_r4.c: Regenerated.
1021 * generated/reshape_r8.c: Regenerated.
1022 * generated/shape_i16.c: Regenerated.
1023 * generated/shape_i4.c: Regenerated.
1024 * generated/shape_i8.c: Regenerated.
1025 * generated/spread_c10.c: Regenerated.
1026 * generated/spread_c16.c: Regenerated.
1027 * generated/spread_c4.c: Regenerated.
1028 * generated/spread_c8.c: Regenerated.
1029 * generated/spread_i1.c: Regenerated.
1030 * generated/spread_i16.c: Regenerated.
1031 * generated/spread_i2.c: Regenerated.
1032 * generated/spread_i4.c: Regenerated.
1033 * generated/spread_i8.c: Regenerated.
1034 * generated/spread_r10.c: Regenerated.
1035 * generated/spread_r16.c: Regenerated.
1036 * generated/spread_r4.c: Regenerated.
1037 * generated/spread_r8.c: Regenerated.
1038 * generated/sum_c10.c: Regenerated.
1039 * generated/sum_c16.c: Regenerated.
1040 * generated/sum_c4.c: Regenerated.
1041 * generated/sum_c8.c: Regenerated.
1042 * generated/sum_i1.c: Regenerated.
1043 * generated/sum_i16.c: Regenerated.
1044 * generated/sum_i2.c: Regenerated.
1045 * generated/sum_i4.c: Regenerated.
1046 * generated/sum_i8.c: Regenerated.
1047 * generated/sum_r10.c: Regenerated.
1048 * generated/sum_r16.c: Regenerated.
1049 * generated/sum_r4.c: Regenerated.
1050 * generated/sum_r8.c: Regenerated.
1051 * generated/transpose_c10.c: Regenerated.
1052 * generated/transpose_c16.c: Regenerated.
1053 * generated/transpose_c4.c: Regenerated.
1054 * generated/transpose_c8.c: Regenerated.
1055 * generated/transpose_i16.c: Regenerated.
1056 * generated/transpose_i4.c: Regenerated.
1057 * generated/transpose_i8.c: Regenerated.
1058 * generated/transpose_r10.c: Regenerated.
1059 * generated/transpose_r16.c: Regenerated.
1060 * generated/transpose_r4.c: Regenerated.
1061 * generated/transpose_r8.c: Regenerated.
1062 * generated/unpack_c10.c: Regenerated.
1063 * generated/unpack_c16.c: Regenerated.
1064 * generated/unpack_c4.c: Regenerated.
1065 * generated/unpack_c8.c: Regenerated.
1066 * generated/unpack_i1.c: Regenerated.
1067 * generated/unpack_i16.c: Regenerated.
1068 * generated/unpack_i2.c: Regenerated.
1069 * generated/unpack_i4.c: Regenerated.
1070 * generated/unpack_i8.c: Regenerated.
1071 * generated/unpack_r10.c: Regenerated.
1072 * generated/unpack_r16.c: Regenerated.
1073 * generated/unpack_r4.c: Regenerated.
1074 * generated/unpack_r8.c: Regenerated.
1076 2009-06-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1078 * fmain.c (main): Don't PREFIX set_args.
1079 * libgfortran.h (set_args): Use iexport_proto.
1080 * runtime/main.c (set_args): Use iexport.
1082 2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1084 PR libfortran/40008
1085 * libgfortran.h: Define IOPARM_OPEN_HAS_NEWUNIT.
1086 * io/open.c (st_open): Don't error on negative unit number if NEWUNIT
1087 was specified. If NEWUNIT is specified, call new function to get the
1088 unique unit number and assign it.
1089 * io/io.h (st_parameter_open): Add pointer to newunit. Add prototype for
1090 next_available_newunit. Add prototype for new function,
1091 get_unique_unit_number.
1092 * io/unit.c: Declare next_available_newunit. Define the first newunit
1093 number. (init_units): Initialize next_available_unit.
1094 (get_unique_unit_number): New function. Fix whitespace and comments.
1095 * io/transfer.c (data_transfer_init): Update error message to not be
1096 specific to OPEN statements.
1098 2009-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1100 PR libfortran/40334
1101 * io/list_read.c (list_formatted_read_scalar): Set the end file
1102 conditions after a return from EOF error.
1104 2009-06-04 Janne Blomqvist <jb@gcc.gnu.org>
1106 PR libfortran/40330
1107 * io/format.c (free_format_hash_table): Also free and nullify hash key.
1108 (save_parsed_format): Copy string rather than pointer copy.
1110 2009-05-29 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1112 PR fortran/40019
1113 * intrinsics/bit_intrinsics.c: New file.
1114 * gfortran.map (GFORTRAN_1.2): New list.
1115 * Makefile.am: Add intrinsics/bit_intrinsics.c.
1116 * Makefile.in: Regenerate.
1118 2009-05-29 Janne Blomqvist <jb@gcc.gnu.org>
1120 PR libfortran/40190
1121 * configure.ac: Check for localtime_r and gmtime_r.
1122 * intrinsics/date_and_time.c: Add fallback implementations for
1123 localtime_r and gmtime_r.
1124 (date_and_time): Change to use localtime_r and gmtime_r instead of
1125 localtime and gmtime, respectively.
1126 (itime0): Use localtime_r instead of localtime.
1127 (ltime_0): Likewise.
1128 (gmtime_0): Use gmtime_r instead of gmtime.
1129 * config.h.in: Regenerated
1130 * configure: Regenerated.
1132 2009-05-27 Janne Blomqvist <jb@gcc.gnu.org>
1134 PR fortran/39178
1135 * runtime/main.c (store_exe_path): Remove static attribute.
1136 * libgfortran.h: Add back store_exe_path prototype.
1138 2009-05-27 Thomas Koenig <tkoenig@gcc.gnu.org>
1140 PR libfortran/40187
1141 * intrinsics/iso_c_binding.c (c_f_pointer_u0): Take care
1142 of stride in "shape" argument.
1144 2009-05-26 Tobias Burnus <burnus@net-b.de>
1146 PR fortran/39178
1147 * runtime/main.c (store_exe_path): Make static
1148 and multiple-times callable.
1149 (set_args): Call store_exe_path.
1150 * libgfortran.h: Remove store_exe_path prototype.
1151 * fmain.c (main): Remove store_exe_path call.
1153 2009-05-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1155 PR libfortran/37754
1156 * io/write_float.def: Simplify format calculation.
1158 2009-05-07 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1160 PR fortran/22423
1161 * io/transfer.c (read_block_direct): Avoid warning.
1162 * runtime/string.c (compare0): Avoid warning.
1164 2009-04-30 Janne Blomqvist <jb@gcc.gnu.org>
1166 PR libfortran/39667
1167 * io/file_pos.c (st_rewind): Don't truncate or flush.
1168 * io/intrinsics.c (fgetc): Flush if switching mode.
1169 (fputc): Likewise.
1171 2009-04-18 Janne Blomqvist <jb@gcc.gnu.org>
1173 PR libfortran/39782
1174 * io/transfer.c (data_transfer_init): Don't flush before seek.
1175 (finalize_transfer): Remove extra flush.
1177 2009-04-17 Janne Blomqvist <jb@gcc.gnu.org>
1179 * io/io.h (is_preconnected): Remove prototype.
1180 * io/unix.c (is_preconnected): Remove function.
1182 2009-04-17 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
1184 * configure.ac: Test for -ffunction-sections -fdata-sections and
1185 set SECTION_FLAGS accordingly.
1186 * configure: Regenerate.
1188 * Makefile.am: Add SECTION_FLAGS to AM_CFLAGS.
1189 * Makefile.in: Regenerate.
1191 2009-04-15 Janne Blomqvist <jb@gcc.gnu.org>
1193 PR libfortran/38668
1194 * io/transfer.c (finalize_transfer): Don't flush for advance='no'.
1196 2009-04-15 Danny Smith <dannysmith@clear.net.nz>
1198 * io/write.c (itoa) : Rename back to gfc_itoa.
1199 (write_i): Adjust call to write_decimal.
1200 (write_integer): Use gfc_itoa.
1202 2009-04-10 Janne Blomqvist <jb@gcc.gnu.org>
1204 * io/io.h (move_pos_offset): Remove prototype.
1205 * io/transfer.c (formatted_transfer_scalar_read): Use sseek
1206 instead of move_pos_offset.
1207 * io/unix.c (move_pos_offset): Remove.
1209 2009-04-10 Janne Blomqvist <jb@gcc.gnu.org>
1211 PR libfortran/39665 libfortran/39702 libfortran/39709
1212 * io/io.h (st_parameter_dt): Revert aligned attribute from u.p.value.
1213 * io/list_read.c (read_complex): Read directly into user pointer.
1214 (read_real): Likewise.
1215 (list_formatted_read_scalar): Update read_complex and read_real calls.
1216 (nml_read_obj): Read directly into user pointer.
1218 2009-04-09 Janne Blomqvist <jb@gcc.gnu.org>
1220 PR libfortran/39665
1221 * io/io.h (st_parameter_dt): Add aligned attribute to u.p.value.
1222 * io/read.c (convert_real): Add note about alignment requirements.
1224 2009-04-09 Nick Clifton <nickc@redhat.com>
1226 * m4/cshift0.m4: Change copyright header to refer to version 3
1227 of the GNU General Public License with version 3.1 of the GCC
1228 Runtime Library Exception and to point readers at the COPYING3
1229 and COPYING3.RUNTIME files and the FSF's license web page.
1230 * c99_protos.h: Likewise.
1231 * config/fpu-387.h: Likewise.
1232 * config/fpu-aix.h: Likewise.
1233 * config/fpu-generic.h: Likewise.
1234 * config/fpu-glibc.h: Likewise.
1235 * config/fpu-sysv.h: Likewise.
1236 * intrinsics/abort.c: Likewise.
1237 * intrinsics/access.c: Likewise.
1238 * intrinsics/args.c: Likewise.
1239 * intrinsics/associated.c: Likewise.
1240 * intrinsics/c99_functions.c: Likewise.
1241 * intrinsics/chdir.c: Likewise.
1242 * intrinsics/chmod.c: Likewise.
1243 * intrinsics/clock.c: Likewise.
1244 * intrinsics/cpu_time.c: Likewise.
1245 * intrinsics/cshift0.c: Likewise.
1246 * intrinsics/ctime.c: Likewise.
1247 * intrinsics/date_and_time.c: Likewise.
1248 * intrinsics/dprod_r8.f90: Likewise.
1249 * intrinsics/dtime.c: Likewise.
1250 * intrinsics/env.c: Likewise.
1251 * intrinsics/eoshift0.c: Likewise.
1252 * intrinsics/eoshift2.c: Likewise.
1253 * intrinsics/erfc_scaled.c: Likewise.
1254 * intrinsics/erfc_scaled_inc.c: Likewise.
1255 * intrinsics/etime.c: Likewise.
1256 * intrinsics/exit.c: Likewise.
1257 * intrinsics/f2c_specifics.F90: Likewise.
1258 * intrinsics/fnum.c: Likewise.
1259 * intrinsics/gerror.c: Likewise.
1260 * intrinsics/getXid.c: Likewise.
1261 * intrinsics/getcwd.c: Likewise.
1262 * intrinsics/getlog.c: Likewise.
1263 * intrinsics/hostnm.c: Likewise.
1264 * intrinsics/ierrno.c: Likewise.
1265 * intrinsics/ishftc.c: Likewise.
1266 * intrinsics/iso_c_binding.c: Likewise.
1267 * intrinsics/iso_c_binding.h: Likewise.
1268 * intrinsics/iso_c_generated_procs.c: Likewise.
1269 * intrinsics/kill.c: Likewise.
1270 * intrinsics/link.c: Likewise.
1271 * intrinsics/malloc.c: Likewise.
1272 * intrinsics/move_alloc.c: Likewise.
1273 * intrinsics/mvbits.c: Likewise.
1274 * intrinsics/pack_generic.c: Likewise.
1275 * intrinsics/perror.c: Likewise.
1276 * intrinsics/rand.c: Likewise.
1277 * intrinsics/random.c: Likewise.
1278 * intrinsics/rename.c: Likewise.
1279 * intrinsics/reshape_generic.c: Likewise.
1280 * intrinsics/reshape_packed.c: Likewise.
1281 * intrinsics/selected_char_kind.c: Likewise.
1282 * intrinsics/selected_int_kind.f90: Likewise.
1283 * intrinsics/selected_real_kind.f90: Likewise.
1284 * intrinsics/signal.c: Likewise.
1285 * intrinsics/size.c: Likewise.
1286 * intrinsics/sleep.c: Likewise.
1287 * intrinsics/spread_generic.c: Likewise.
1288 * intrinsics/stat.c: Likewise.
1289 * intrinsics/string_intrinsics.c: Likewise.
1290 * intrinsics/string_intrinsics_inc.c: Likewise.
1291 * intrinsics/symlnk.c: Likewise.
1292 * intrinsics/system.c: Likewise.
1293 * intrinsics/system_clock.c: Likewise.
1294 * intrinsics/time.c: Likewise.
1295 * intrinsics/time_1.h: Likewise.
1296 * intrinsics/transpose_generic.c: Likewise.
1297 * intrinsics/umask.c: Likewise.
1298 * intrinsics/unlink.c: Likewise.
1299 * intrinsics/unpack_generic.c: Likewise.
1300 * io/close.c: Likewise.
1301 * io/fbuf.c: Likewise.
1302 * io/file_pos.c: Likewise.
1303 * io/format.c: Likewise.
1304 * io/inquire.c: Likewise.
1305 * io/intrinsics.c: Likewise.
1306 * io/io.h: Likewise.
1307 * io/list_read.c: Likewise.
1308 * io/lock.c: Likewise.
1309 * io/open.c: Likewise.
1310 * io/read.c: Likewise.
1311 * io/size_from_kind.c: Likewise.
1312 * io/transfer.c: Likewise.
1313 * io/unit.c: Likewise.
1314 * io/unix.c: Likewise.
1315 * io/write.c: Likewise.
1316 * io/write_float.def: Likewise.
1317 * libgfortran.h: Likewise.
1318 * m4/all.m4: Likewise.
1319 * m4/any.m4: Likewise.
1320 * m4/count.m4: Likewise.
1321 * m4/cshift1.m4: Likewise.
1322 * m4/eoshift1.m4: Likewise.
1323 * m4/eoshift3.m4: Likewise.
1324 * m4/exponent.m4: Likewise.
1325 * m4/fraction.m4: Likewise.
1326 * m4/head.m4: Likewise.
1327 * m4/in_pack.m4: Likewise.
1328 * m4/in_unpack.m4: Likewise.
1329 * m4/matmul.m4: Likewise.
1330 * m4/matmull.m4: Likewise.
1331 * m4/maxloc0.m4: Likewise.
1332 * m4/maxloc1.m4: Likewise.
1333 * m4/maxval.m4: Likewise.
1334 * m4/minloc0.m4: Likewise.
1335 * m4/minloc1.m4: Likewise.
1336 * m4/minval.m4: Likewise.
1337 * m4/nearest.m4: Likewise.
1338 * m4/pack.m4: Likewise.
1339 * m4/pow.m4: Likewise.
1340 * m4/product.m4: Likewise.
1341 * m4/reshape.m4: Likewise.
1342 * m4/rrspacing.m4: Likewise.
1343 * m4/set_exponent.m4: Likewise.
1344 * m4/shape.m4: Likewise.
1345 * m4/spacing.m4: Likewise.
1346 * m4/spread.m4: Likewise.
1347 * m4/sum.m4: Likewise.
1348 * m4/transpose.m4: Likewise.
1349 * m4/unpack.m4: Likewise.
1350 * runtime/backtrace.c: Likewise.
1351 * runtime/compile_options.c: Likewise.
1352 * runtime/convert_char.c: Likewise.
1353 * runtime/environ.c: Likewise.
1354 * runtime/error.c: Likewise.
1355 * runtime/in_pack_generic.c: Likewise.
1356 * runtime/in_unpack_generic.c: Likewise.
1357 * runtime/main.c: Likewise.
1358 * runtime/memory.c: Likewise.
1359 * runtime/pause.c: Likewise.
1360 * runtime/select.c: Likewise.
1361 * runtime/select_inc.c: Likewise.
1362 * runtime/stop.c: Likewise.
1363 * runtime/string.c: Likewise.
1364 * generated/_abs_c10.F90: Regenerate.
1365 * generated/_abs_c16.F90: Regenerate.
1366 * generated/_abs_c4.F90: Regenerate.
1367 * generated/_abs_c8.F90: Regenerate.
1368 * generated/_abs_i16.F90: Regenerate.
1369 * generated/_abs_i4.F90: Regenerate.
1370 * generated/_abs_i8.F90: Regenerate.
1371 * generated/_abs_r10.F90: Regenerate.
1372 * generated/_abs_r16.F90: Regenerate.
1373 * generated/_abs_r4.F90: Regenerate.
1374 * generated/_abs_r8.F90: Regenerate.
1375 * generated/_acos_r10.F90: Regenerate.
1376 * generated/_acos_r16.F90: Regenerate.
1377 * generated/_acos_r4.F90: Regenerate.
1378 * generated/_acos_r8.F90: Regenerate.
1379 * generated/_acosh_r10.F90: Regenerate.
1380 * generated/_acosh_r16.F90: Regenerate.
1381 * generated/_acosh_r4.F90: Regenerate.
1382 * generated/_acosh_r8.F90: Regenerate.
1383 * generated/_aimag_c10.F90: Regenerate.
1384 * generated/_aimag_c16.F90: Regenerate.
1385 * generated/_aimag_c4.F90: Regenerate.
1386 * generated/_aimag_c8.F90: Regenerate.
1387 * generated/_aint_r10.F90: Regenerate.
1388 * generated/_aint_r16.F90: Regenerate.
1389 * generated/_aint_r4.F90: Regenerate.
1390 * generated/_aint_r8.F90: Regenerate.
1391 * generated/_anint_r10.F90: Regenerate.
1392 * generated/_anint_r16.F90: Regenerate.
1393 * generated/_anint_r4.F90: Regenerate.
1394 * generated/_anint_r8.F90: Regenerate.
1395 * generated/_asin_r10.F90: Regenerate.
1396 * generated/_asin_r16.F90: Regenerate.
1397 * generated/_asin_r4.F90: Regenerate.
1398 * generated/_asin_r8.F90: Regenerate.
1399 * generated/_asinh_r10.F90: Regenerate.
1400 * generated/_asinh_r16.F90: Regenerate.
1401 * generated/_asinh_r4.F90: Regenerate.
1402 * generated/_asinh_r8.F90: Regenerate.
1403 * generated/_atan2_r10.F90: Regenerate.
1404 * generated/_atan2_r16.F90: Regenerate.
1405 * generated/_atan2_r4.F90: Regenerate.
1406 * generated/_atan2_r8.F90: Regenerate.
1407 * generated/_atan_r10.F90: Regenerate.
1408 * generated/_atan_r16.F90: Regenerate.
1409 * generated/_atan_r4.F90: Regenerate.
1410 * generated/_atan_r8.F90: Regenerate.
1411 * generated/_atanh_r10.F90: Regenerate.
1412 * generated/_atanh_r16.F90: Regenerate.
1413 * generated/_atanh_r4.F90: Regenerate.
1414 * generated/_atanh_r8.F90: Regenerate.
1415 * generated/_conjg_c10.F90: Regenerate.
1416 * generated/_conjg_c16.F90: Regenerate.
1417 * generated/_conjg_c4.F90: Regenerate.
1418 * generated/_conjg_c8.F90: Regenerate.
1419 * generated/_cos_c10.F90: Regenerate.
1420 * generated/_cos_c16.F90: Regenerate.
1421 * generated/_cos_c4.F90: Regenerate.
1422 * generated/_cos_c8.F90: Regenerate.
1423 * generated/_cos_r10.F90: Regenerate.
1424 * generated/_cos_r16.F90: Regenerate.
1425 * generated/_cos_r4.F90: Regenerate.
1426 * generated/_cos_r8.F90: Regenerate.
1427 * generated/_cosh_r10.F90: Regenerate.
1428 * generated/_cosh_r16.F90: Regenerate.
1429 * generated/_cosh_r4.F90: Regenerate.
1430 * generated/_cosh_r8.F90: Regenerate.
1431 * generated/_dim_i16.F90: Regenerate.
1432 * generated/_dim_i4.F90: Regenerate.
1433 * generated/_dim_i8.F90: Regenerate.
1434 * generated/_dim_r10.F90: Regenerate.
1435 * generated/_dim_r16.F90: Regenerate.
1436 * generated/_dim_r4.F90: Regenerate.
1437 * generated/_dim_r8.F90: Regenerate.
1438 * generated/_exp_c10.F90: Regenerate.
1439 * generated/_exp_c16.F90: Regenerate.
1440 * generated/_exp_c4.F90: Regenerate.
1441 * generated/_exp_c8.F90: Regenerate.
1442 * generated/_exp_r10.F90: Regenerate.
1443 * generated/_exp_r16.F90: Regenerate.
1444 * generated/_exp_r4.F90: Regenerate.
1445 * generated/_exp_r8.F90: Regenerate.
1446 * generated/_log10_r10.F90: Regenerate.
1447 * generated/_log10_r16.F90: Regenerate.
1448 * generated/_log10_r4.F90: Regenerate.
1449 * generated/_log10_r8.F90: Regenerate.
1450 * generated/_log_c10.F90: Regenerate.
1451 * generated/_log_c16.F90: Regenerate.
1452 * generated/_log_c4.F90: Regenerate.
1453 * generated/_log_c8.F90: Regenerate.
1454 * generated/_log_r10.F90: Regenerate.
1455 * generated/_log_r16.F90: Regenerate.
1456 * generated/_log_r4.F90: Regenerate.
1457 * generated/_log_r8.F90: Regenerate.
1458 * generated/_mod_i16.F90: Regenerate.
1459 * generated/_mod_i4.F90: Regenerate.
1460 * generated/_mod_i8.F90: Regenerate.
1461 * generated/_mod_r10.F90: Regenerate.
1462 * generated/_mod_r16.F90: Regenerate.
1463 * generated/_mod_r4.F90: Regenerate.
1464 * generated/_mod_r8.F90: Regenerate.
1465 * generated/_sign_i16.F90: Regenerate.
1466 * generated/_sign_i4.F90: Regenerate.
1467 * generated/_sign_i8.F90: Regenerate.
1468 * generated/_sign_r10.F90: Regenerate.
1469 * generated/_sign_r16.F90: Regenerate.
1470 * generated/_sign_r4.F90: Regenerate.
1471 * generated/_sign_r8.F90: Regenerate.
1472 * generated/_sin_c10.F90: Regenerate.
1473 * generated/_sin_c16.F90: Regenerate.
1474 * generated/_sin_c4.F90: Regenerate.
1475 * generated/_sin_c8.F90: Regenerate.
1476 * generated/_sin_r10.F90: Regenerate.
1477 * generated/_sin_r16.F90: Regenerate.
1478 * generated/_sin_r4.F90: Regenerate.
1479 * generated/_sin_r8.F90: Regenerate.
1480 * generated/_sinh_r10.F90: Regenerate.
1481 * generated/_sinh_r16.F90: Regenerate.
1482 * generated/_sinh_r4.F90: Regenerate.
1483 * generated/_sinh_r8.F90: Regenerate.
1484 * generated/_sqrt_c10.F90: Regenerate.
1485 * generated/_sqrt_c16.F90: Regenerate.
1486 * generated/_sqrt_c4.F90: Regenerate.
1487 * generated/_sqrt_c8.F90: Regenerate.
1488 * generated/_sqrt_r10.F90: Regenerate.
1489 * generated/_sqrt_r16.F90: Regenerate.
1490 * generated/_sqrt_r4.F90: Regenerate.
1491 * generated/_sqrt_r8.F90: Regenerate.
1492 * generated/_tan_r10.F90: Regenerate.
1493 * generated/_tan_r16.F90: Regenerate.
1494 * generated/_tan_r4.F90: Regenerate.
1495 * generated/_tan_r8.F90: Regenerate.
1496 * generated/_tanh_r10.F90: Regenerate.
1497 * generated/_tanh_r16.F90: Regenerate.
1498 * generated/_tanh_r4.F90: Regenerate.
1499 * generated/_tanh_r8.F90: Regenerate.
1500 * generated/all_l1.c: Regenerate.
1501 * generated/all_l16.c: Regenerate.
1502 * generated/all_l2.c: Regenerate.
1503 * generated/all_l4.c: Regenerate.
1504 * generated/all_l8.c: Regenerate.
1505 * generated/any_l1.c: Regenerate.
1506 * generated/any_l16.c: Regenerate.
1507 * generated/any_l2.c: Regenerate.
1508 * generated/any_l4.c: Regenerate.
1509 * generated/any_l8.c: Regenerate.
1510 * generated/count_16_l.c: Regenerate.
1511 * generated/count_1_l.c: Regenerate.
1512 * generated/count_2_l.c: Regenerate.
1513 * generated/count_4_l.c: Regenerate.
1514 * generated/count_8_l.c: Regenerate.
1515 * generated/cshift0_c10.c: Regenerate.
1516 * generated/cshift0_c16.c: Regenerate.
1517 * generated/cshift0_c4.c: Regenerate.
1518 * generated/cshift0_c8.c: Regenerate.
1519 * generated/cshift0_i1.c: Regenerate.
1520 * generated/cshift0_i16.c: Regenerate.
1521 * generated/cshift0_i2.c: Regenerate.
1522 * generated/cshift0_i4.c: Regenerate.
1523 * generated/cshift0_i8.c: Regenerate.
1524 * generated/cshift0_r10.c: Regenerate.
1525 * generated/cshift0_r16.c: Regenerate.
1526 * generated/cshift0_r4.c: Regenerate.
1527 * generated/cshift0_r8.c: Regenerate.
1528 * generated/cshift1_16.c: Regenerate.
1529 * generated/cshift1_4.c: Regenerate.
1530 * generated/cshift1_8.c: Regenerate.
1531 * generated/eoshift1_16.c: Regenerate.
1532 * generated/eoshift1_4.c: Regenerate.
1533 * generated/eoshift1_8.c: Regenerate.
1534 * generated/eoshift3_16.c: Regenerate.
1535 * generated/eoshift3_4.c: Regenerate.
1536 * generated/eoshift3_8.c: Regenerate.
1537 * generated/exponent_r10.c: Regenerate.
1538 * generated/exponent_r16.c: Regenerate.
1539 * generated/exponent_r4.c: Regenerate.
1540 * generated/exponent_r8.c: Regenerate.
1541 * generated/fraction_r10.c: Regenerate.
1542 * generated/fraction_r16.c: Regenerate.
1543 * generated/fraction_r4.c: Regenerate.
1544 * generated/fraction_r8.c: Regenerate.
1545 * generated/in_pack_c10.c: Regenerate.
1546 * generated/in_pack_c16.c: Regenerate.
1547 * generated/in_pack_c4.c: Regenerate.
1548 * generated/in_pack_c8.c: Regenerate.
1549 * generated/in_pack_i1.c: Regenerate.
1550 * generated/in_pack_i16.c: Regenerate.
1551 * generated/in_pack_i2.c: Regenerate.
1552 * generated/in_pack_i4.c: Regenerate.
1553 * generated/in_pack_i8.c: Regenerate.
1554 * generated/in_pack_r10.c: Regenerate.
1555 * generated/in_pack_r16.c: Regenerate.
1556 * generated/in_pack_r4.c: Regenerate.
1557 * generated/in_pack_r8.c: Regenerate.
1558 * generated/in_unpack_c10.c: Regenerate.
1559 * generated/in_unpack_c16.c: Regenerate.
1560 * generated/in_unpack_c4.c: Regenerate.
1561 * generated/in_unpack_c8.c: Regenerate.
1562 * generated/in_unpack_i1.c: Regenerate.
1563 * generated/in_unpack_i16.c: Regenerate.
1564 * generated/in_unpack_i2.c: Regenerate.
1565 * generated/in_unpack_i4.c: Regenerate.
1566 * generated/in_unpack_i8.c: Regenerate.
1567 * generated/in_unpack_r10.c: Regenerate.
1568 * generated/in_unpack_r16.c: Regenerate.
1569 * generated/in_unpack_r4.c: Regenerate.
1570 * generated/in_unpack_r8.c: Regenerate.
1571 * generated/matmul_c10.c: Regenerate.
1572 * generated/matmul_c16.c: Regenerate.
1573 * generated/matmul_c4.c: Regenerate.
1574 * generated/matmul_c8.c: Regenerate.
1575 * generated/matmul_i1.c: Regenerate.
1576 * generated/matmul_i16.c: Regenerate.
1577 * generated/matmul_i2.c: Regenerate.
1578 * generated/matmul_i4.c: Regenerate.
1579 * generated/matmul_i8.c: Regenerate.
1580 * generated/matmul_l16.c: Regenerate.
1581 * generated/matmul_l4.c: Regenerate.
1582 * generated/matmul_l8.c: Regenerate.
1583 * generated/matmul_r10.c: Regenerate.
1584 * generated/matmul_r16.c: Regenerate.
1585 * generated/matmul_r4.c: Regenerate.
1586 * generated/matmul_r8.c: Regenerate.
1587 * generated/maxloc0_16_i1.c: Regenerate.
1588 * generated/maxloc0_16_i16.c: Regenerate.
1589 * generated/maxloc0_16_i2.c: Regenerate.
1590 * generated/maxloc0_16_i4.c: Regenerate.
1591 * generated/maxloc0_16_i8.c: Regenerate.
1592 * generated/maxloc0_16_r10.c: Regenerate.
1593 * generated/maxloc0_16_r16.c: Regenerate.
1594 * generated/maxloc0_16_r4.c: Regenerate.
1595 * generated/maxloc0_16_r8.c: Regenerate.
1596 * generated/maxloc0_4_i1.c: Regenerate.
1597 * generated/maxloc0_4_i16.c: Regenerate.
1598 * generated/maxloc0_4_i2.c: Regenerate.
1599 * generated/maxloc0_4_i4.c: Regenerate.
1600 * generated/maxloc0_4_i8.c: Regenerate.
1601 * generated/maxloc0_4_r10.c: Regenerate.
1602 * generated/maxloc0_4_r16.c: Regenerate.
1603 * generated/maxloc0_4_r4.c: Regenerate.
1604 * generated/maxloc0_4_r8.c: Regenerate.
1605 * generated/maxloc0_8_i1.c: Regenerate.
1606 * generated/maxloc0_8_i16.c: Regenerate.
1607 * generated/maxloc0_8_i2.c: Regenerate.
1608 * generated/maxloc0_8_i4.c: Regenerate.
1609 * generated/maxloc0_8_i8.c: Regenerate.
1610 * generated/maxloc0_8_r10.c: Regenerate.
1611 * generated/maxloc0_8_r16.c: Regenerate.
1612 * generated/maxloc0_8_r4.c: Regenerate.
1613 * generated/maxloc0_8_r8.c: Regenerate.
1614 * generated/maxloc1_16_i1.c: Regenerate.
1615 * generated/maxloc1_16_i16.c: Regenerate.
1616 * generated/maxloc1_16_i2.c: Regenerate.
1617 * generated/maxloc1_16_i4.c: Regenerate.
1618 * generated/maxloc1_16_i8.c: Regenerate.
1619 * generated/maxloc1_16_r10.c: Regenerate.
1620 * generated/maxloc1_16_r16.c: Regenerate.
1621 * generated/maxloc1_16_r4.c: Regenerate.
1622 * generated/maxloc1_16_r8.c: Regenerate.
1623 * generated/maxloc1_4_i1.c: Regenerate.
1624 * generated/maxloc1_4_i16.c: Regenerate.
1625 * generated/maxloc1_4_i2.c: Regenerate.
1626 * generated/maxloc1_4_i4.c: Regenerate.
1627 * generated/maxloc1_4_i8.c: Regenerate.
1628 * generated/maxloc1_4_r10.c: Regenerate.
1629 * generated/maxloc1_4_r16.c: Regenerate.
1630 * generated/maxloc1_4_r4.c: Regenerate.
1631 * generated/maxloc1_4_r8.c: Regenerate.
1632 * generated/maxloc1_8_i1.c: Regenerate.
1633 * generated/maxloc1_8_i16.c: Regenerate.
1634 * generated/maxloc1_8_i2.c: Regenerate.
1635 * generated/maxloc1_8_i4.c: Regenerate.
1636 * generated/maxloc1_8_i8.c: Regenerate.
1637 * generated/maxloc1_8_r10.c: Regenerate.
1638 * generated/maxloc1_8_r16.c: Regenerate.
1639 * generated/maxloc1_8_r4.c: Regenerate.
1640 * generated/maxloc1_8_r8.c: Regenerate.
1641 * generated/maxval_i1.c: Regenerate.
1642 * generated/maxval_i16.c: Regenerate.
1643 * generated/maxval_i2.c: Regenerate.
1644 * generated/maxval_i4.c: Regenerate.
1645 * generated/maxval_i8.c: Regenerate.
1646 * generated/maxval_r10.c: Regenerate.
1647 * generated/maxval_r16.c: Regenerate.
1648 * generated/maxval_r4.c: Regenerate.
1649 * generated/maxval_r8.c: Regenerate.
1650 * generated/minloc0_16_i1.c: Regenerate.
1651 * generated/minloc0_16_i16.c: Regenerate.
1652 * generated/minloc0_16_i2.c: Regenerate.
1653 * generated/minloc0_16_i4.c: Regenerate.
1654 * generated/minloc0_16_i8.c: Regenerate.
1655 * generated/minloc0_16_r10.c: Regenerate.
1656 * generated/minloc0_16_r16.c: Regenerate.
1657 * generated/minloc0_16_r4.c: Regenerate.
1658 * generated/minloc0_16_r8.c: Regenerate.
1659 * generated/minloc0_4_i1.c: Regenerate.
1660 * generated/minloc0_4_i16.c: Regenerate.
1661 * generated/minloc0_4_i2.c: Regenerate.
1662 * generated/minloc0_4_i4.c: Regenerate.
1663 * generated/minloc0_4_i8.c: Regenerate.
1664 * generated/minloc0_4_r10.c: Regenerate.
1665 * generated/minloc0_4_r16.c: Regenerate.
1666 * generated/minloc0_4_r4.c: Regenerate.
1667 * generated/minloc0_4_r8.c: Regenerate.
1668 * generated/minloc0_8_i1.c: Regenerate.
1669 * generated/minloc0_8_i16.c: Regenerate.
1670 * generated/minloc0_8_i2.c: Regenerate.
1671 * generated/minloc0_8_i4.c: Regenerate.
1672 * generated/minloc0_8_i8.c: Regenerate.
1673 * generated/minloc0_8_r10.c: Regenerate.
1674 * generated/minloc0_8_r16.c: Regenerate.
1675 * generated/minloc0_8_r4.c: Regenerate.
1676 * generated/minloc0_8_r8.c: Regenerate.
1677 * generated/minloc1_16_i1.c: Regenerate.
1678 * generated/minloc1_16_i16.c: Regenerate.
1679 * generated/minloc1_16_i2.c: Regenerate.
1680 * generated/minloc1_16_i4.c: Regenerate.
1681 * generated/minloc1_16_i8.c: Regenerate.
1682 * generated/minloc1_16_r10.c: Regenerate.
1683 * generated/minloc1_16_r16.c: Regenerate.
1684 * generated/minloc1_16_r4.c: Regenerate.
1685 * generated/minloc1_16_r8.c: Regenerate.
1686 * generated/minloc1_4_i1.c: Regenerate.
1687 * generated/minloc1_4_i16.c: Regenerate.
1688 * generated/minloc1_4_i2.c: Regenerate.
1689 * generated/minloc1_4_i4.c: Regenerate.
1690 * generated/minloc1_4_i8.c: Regenerate.
1691 * generated/minloc1_4_r10.c: Regenerate.
1692 * generated/minloc1_4_r16.c: Regenerate.
1693 * generated/minloc1_4_r4.c: Regenerate.
1694 * generated/minloc1_4_r8.c: Regenerate.
1695 * generated/minloc1_8_i1.c: Regenerate.
1696 * generated/minloc1_8_i16.c: Regenerate.
1697 * generated/minloc1_8_i2.c: Regenerate.
1698 * generated/minloc1_8_i4.c: Regenerate.
1699 * generated/minloc1_8_i8.c: Regenerate.
1700 * generated/minloc1_8_r10.c: Regenerate.
1701 * generated/minloc1_8_r16.c: Regenerate.
1702 * generated/minloc1_8_r4.c: Regenerate.
1703 * generated/minloc1_8_r8.c: Regenerate.
1704 * generated/minval_i1.c: Regenerate.
1705 * generated/minval_i16.c: Regenerate.
1706 * generated/minval_i2.c: Regenerate.
1707 * generated/minval_i4.c: Regenerate.
1708 * generated/minval_i8.c: Regenerate.
1709 * generated/minval_r10.c: Regenerate.
1710 * generated/minval_r16.c: Regenerate.
1711 * generated/minval_r4.c: Regenerate.
1712 * generated/minval_r8.c: Regenerate.
1713 * generated/misc_specifics.F90: Regenerate.
1714 * generated/nearest_r10.c: Regenerate.
1715 * generated/nearest_r16.c: Regenerate.
1716 * generated/nearest_r4.c: Regenerate.
1717 * generated/nearest_r8.c: Regenerate.
1718 * generated/pack_c10.c: Regenerate.
1719 * generated/pack_c16.c: Regenerate.
1720 * generated/pack_c4.c: Regenerate.
1721 * generated/pack_c8.c: Regenerate.
1722 * generated/pack_i1.c: Regenerate.
1723 * generated/pack_i16.c: Regenerate.
1724 * generated/pack_i2.c: Regenerate.
1725 * generated/pack_i4.c: Regenerate.
1726 * generated/pack_i8.c: Regenerate.
1727 * generated/pack_r10.c: Regenerate.
1728 * generated/pack_r16.c: Regenerate.
1729 * generated/pack_r4.c: Regenerate.
1730 * generated/pack_r8.c: Regenerate.
1731 * generated/pow_c10_i16.c: Regenerate.
1732 * generated/pow_c10_i4.c: Regenerate.
1733 * generated/pow_c10_i8.c: Regenerate.
1734 * generated/pow_c16_i16.c: Regenerate.
1735 * generated/pow_c16_i4.c: Regenerate.
1736 * generated/pow_c16_i8.c: Regenerate.
1737 * generated/pow_c4_i16.c: Regenerate.
1738 * generated/pow_c4_i4.c: Regenerate.
1739 * generated/pow_c4_i8.c: Regenerate.
1740 * generated/pow_c8_i16.c: Regenerate.
1741 * generated/pow_c8_i4.c: Regenerate.
1742 * generated/pow_c8_i8.c: Regenerate.
1743 * generated/pow_i16_i16.c: Regenerate.
1744 * generated/pow_i16_i4.c: Regenerate.
1745 * generated/pow_i16_i8.c: Regenerate.
1746 * generated/pow_i4_i16.c: Regenerate.
1747 * generated/pow_i4_i4.c: Regenerate.
1748 * generated/pow_i4_i8.c: Regenerate.
1749 * generated/pow_i8_i16.c: Regenerate.
1750 * generated/pow_i8_i4.c: Regenerate.
1751 * generated/pow_i8_i8.c: Regenerate.
1752 * generated/pow_r10_i16.c: Regenerate.
1753 * generated/pow_r10_i8.c: Regenerate.
1754 * generated/pow_r16_i16.c: Regenerate.
1755 * generated/pow_r16_i8.c: Regenerate.
1756 * generated/pow_r4_i16.c: Regenerate.
1757 * generated/pow_r4_i8.c: Regenerate.
1758 * generated/pow_r8_i16.c: Regenerate.
1759 * generated/pow_r8_i8.c: Regenerate.
1760 * generated/product_c10.c: Regenerate.
1761 * generated/product_c16.c: Regenerate.
1762 * generated/product_c4.c: Regenerate.
1763 * generated/product_c8.c: Regenerate.
1764 * generated/product_i1.c: Regenerate.
1765 * generated/product_i16.c: Regenerate.
1766 * generated/product_i2.c: Regenerate.
1767 * generated/product_i4.c: Regenerate.
1768 * generated/product_i8.c: Regenerate.
1769 * generated/product_r10.c: Regenerate.
1770 * generated/product_r16.c: Regenerate.
1771 * generated/product_r4.c: Regenerate.
1772 * generated/product_r8.c: Regenerate.
1773 * generated/reshape_c10.c: Regenerate.
1774 * generated/reshape_c16.c: Regenerate.
1775 * generated/reshape_c4.c: Regenerate.
1776 * generated/reshape_c8.c: Regenerate.
1777 * generated/reshape_i16.c: Regenerate.
1778 * generated/reshape_i4.c: Regenerate.
1779 * generated/reshape_i8.c: Regenerate.
1780 * generated/reshape_r10.c: Regenerate.
1781 * generated/reshape_r16.c: Regenerate.
1782 * generated/reshape_r4.c: Regenerate.
1783 * generated/reshape_r8.c: Regenerate.
1784 * generated/rrspacing_r10.c: Regenerate.
1785 * generated/rrspacing_r16.c: Regenerate.
1786 * generated/rrspacing_r4.c: Regenerate.
1787 * generated/rrspacing_r8.c: Regenerate.
1788 * generated/set_exponent_r10.c: Regenerate.
1789 * generated/set_exponent_r16.c: Regenerate.
1790 * generated/set_exponent_r4.c: Regenerate.
1791 * generated/set_exponent_r8.c: Regenerate.
1792 * generated/shape_i16.c: Regenerate.
1793 * generated/shape_i4.c: Regenerate.
1794 * generated/shape_i8.c: Regenerate.
1795 * generated/spacing_r10.c: Regenerate.
1796 * generated/spacing_r16.c: Regenerate.
1797 * generated/spacing_r4.c: Regenerate.
1798 * generated/spacing_r8.c: Regenerate.
1799 * generated/spread_c10.c: Regenerate.
1800 * generated/spread_c16.c: Regenerate.
1801 * generated/spread_c4.c: Regenerate.
1802 * generated/spread_c8.c: Regenerate.
1803 * generated/spread_i1.c: Regenerate.
1804 * generated/spread_i16.c: Regenerate.
1805 * generated/spread_i2.c: Regenerate.
1806 * generated/spread_i4.c: Regenerate.
1807 * generated/spread_i8.c: Regenerate.
1808 * generated/spread_r10.c: Regenerate.
1809 * generated/spread_r16.c: Regenerate.
1810 * generated/spread_r4.c: Regenerate.
1811 * generated/spread_r8.c: Regenerate.
1812 * generated/sum_c10.c: Regenerate.
1813 * generated/sum_c16.c: Regenerate.
1814 * generated/sum_c4.c: Regenerate.
1815 * generated/sum_c8.c: Regenerate.
1816 * generated/sum_i1.c: Regenerate.
1817 * generated/sum_i16.c: Regenerate.
1818 * generated/sum_i2.c: Regenerate.
1819 * generated/sum_i4.c: Regenerate.
1820 * generated/sum_i8.c: Regenerate.
1821 * generated/sum_r10.c: Regenerate.
1822 * generated/sum_r16.c: Regenerate.
1823 * generated/sum_r4.c: Regenerate.
1824 * generated/sum_r8.c: Regenerate.
1825 * generated/transpose_c10.c: Regenerate.
1826 * generated/transpose_c16.c: Regenerate.
1827 * generated/transpose_c4.c: Regenerate.
1828 * generated/transpose_c8.c: Regenerate.
1829 * generated/transpose_i16.c: Regenerate.
1830 * generated/transpose_i4.c: Regenerate.
1831 * generated/transpose_i8.c: Regenerate.
1832 * generated/transpose_r10.c: Regenerate.
1833 * generated/transpose_r16.c: Regenerate.
1834 * generated/transpose_r4.c: Regenerate.
1835 * generated/transpose_r8.c: Regenerate.
1836 * generated/unpack_c10.c: Regenerate.
1837 * generated/unpack_c16.c: Regenerate.
1838 * generated/unpack_c4.c: Regenerate.
1839 * generated/unpack_c8.c: Regenerate.
1840 * generated/unpack_i1.c: Regenerate.
1841 * generated/unpack_i16.c: Regenerate.
1842 * generated/unpack_i2.c: Regenerate.
1843 * generated/unpack_i4.c: Regenerate.
1844 * generated/unpack_i8.c: Regenerate.
1845 * generated/unpack_r10.c: Regenerate.
1846 * generated/unpack_r16.c: Regenerate.
1847 * generated/unpack_r4.c: Regenerate.
1848 * generated/unpack_r8.c: Regenerate.
1850 2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
1852 * io/open.c (already_open): Test for POSIX close return value.
1853 * io/unit.c (close_unit_1): Likewise.
1854 * io/unix.c (raw_close): Return 0 for success for preconnected units.
1856 2009-04-08 Janne Blomqvist <jb@gcc.gnu.org>
1858 * runtime/string.c (compare0): Use gfc_charlen_type.
1859 * runtime/error.c (gfc_itoa): Move to io/write.c
1860 (xtoa): Rename to gfc_xtoa.
1861 * runtime/backtrace.c (show_backtrace): Call gfc_xtoa.
1862 * intrinsics/cshift0.c (cshift0): Use index_type for shift arg.
1863 * intrinsics/date_and_time.c (date_and_time): Use index_type.
1864 (itime_i4): Likewise.
1865 (itime_i8): Likewise.
1866 (idate_i4): Likewise.
1867 (idate_i8): Likewise.
1868 (gmtime_i4): Likewise.
1869 (gmtime_i8): Likewise.
1870 (ltime_i4): Likewise.
1871 (ltime_i8): Likewise.
1872 * libgfortran.h (gfc_itoa): Remove prototype.
1873 (xtoa): Rename prototype to gfc_xtoa.
1874 * io/list_read.c (nml_read_obj): Use size_t for string length.
1875 * io/transfer.c (read_block_direct): Change nbytes arg from
1876 pointer to value.
1877 (unformatted_read): Minor cleanup, call read_block_directly properly.
1878 (skip_record): Use ssize_t.
1879 (next_record_w_unf): Avoid stell() call by calling sseek with SEEK_CUR.
1880 (iolength_transfer): Make sure to multiply before cast.
1881 * io/intrinsics.c (fgetc): Remove unnecessary variable.
1882 * io/format.c (format_hash): Use gfc_charlen_type.
1883 * io/write.c (itoa): Move from runtime/error.c:gfc_itoa, rename,
1884 make static.
1885 (write_i): Call with pointer to itoa.
1886 (write_z): Call with pointer to gfc_xtoa.
1887 (write_integer): Pointer to itoa.
1888 (nml_write_obj): Type cleanup, don't call strlen in loop.
1890 2009-04-06 H.J. Lu <hongjiu.lu@intel.com>
1892 PR libgfortran/39664
1893 * io/unix.c (raw_close): Don't close STDOUT_FILENO,
1894 STDERR_FILENO nor STDIN_FILENO.
1896 2009-04-06 David Edelsohn <edelsohn@gnu.org>
1898 * io/io.h (struct stream): Rename truncate to trunc.
1899 (struncate): Same.
1900 * io/unix.c (raw_init): Rename truncate to trunc.
1901 (buf_init): Same.
1902 (open_internal): Same.
1904 2009-04-05 Daniel Kraft <d@domob.eu>
1906 PR fortran/38654
1907 * io/read.c (read_f): Reworked to speed up floating point parsing.
1908 (convert_real): Use pointer-casting instead of memcpy and temporaries.
1910 2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1912 PR libfortran/37754
1913 * io/io.h (format_hash_entry): New structure for hash table.
1914 (format_hash_table): The hash table itself.
1915 (free_format_data): Revise function prototype.
1916 (free_format_hash_table, init_format_hash,
1917 free_format_hash): New function prototypes.
1918 * io/unit.c (close_unit_1): Use free_format_hash_table.
1919 * io/transfer.c (st_read_done, st_write_done): Free format data if
1920 internal unit.
1921 * io/format.c (free_format_hash_table): New function that frees any
1922 memory allocated previously for cached format data.
1923 (reset_node): New static helper function to reset the format counters
1924 for a format node.
1925 (reset_fnode_counters): New static function recursively calls reset_node
1926 to traverse the fnode tree.
1927 (format_hash): New simple hash function based on XOR, probabalistic,
1928 tosses collisions.
1929 (save_parsed_format): New static function to save the parsed format
1930 data to use again.
1931 (find_parsed_format): New static function searches the hash table
1932 looking for a match.
1933 (free_format_data): Revised to accept pointer to format data rather than
1934 the dtp pointer so that the function can be used in more places.
1935 (format_lex): Editorial.
1936 (parse_format_list): Set flag used to determine of format data hashing
1937 is to be used. Internal units are not persistent enough for this.
1938 (revert): Move to ne location in file.
1939 (parse_format): Use new functions to look for previously parsed
1940 format strings and use them rather than re-parse. If not found, saves
1941 the parsed format data for later use.
1943 2009-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1945 PR libfortran/37754
1946 * io/transfer.c (formatted_transfer_scalar): Remove this function by
1947 factoring it into two new functions, one for read and one for write,
1948 eliminating all the conditionals for read or write mode.
1949 (formatted transfer_scalar_read): New function.
1950 (formatted transfer_scalar_write): New function.
1951 (formatted_transfer): Use new functions.
1953 2009-04-05 Janne Blomqvist <jb@gcc.gnu.org>
1955 PR libfortran/25561 libfortran/37754
1956 * io/io.h (struct stream): Define new stream interface function
1957 pointers, and inline functions for accessing it.
1958 (struct fbuf): Use int instead of size_t, remove flushed element.
1959 (mem_alloc_w): New prototype.
1960 (mem_alloc_r): New prototype.
1961 (stream_at_bof): Remove prototype.
1962 (stream_at_eof): Remove prototype.
1963 (file_position): Remove prototype.
1964 (flush): Remove prototype.
1965 (stream_offset): Remove prototype.
1966 (unit_truncate): New prototype.
1967 (read_block_form): Change to return pointer, int* argument.
1968 (hit_eof): New prototype.
1969 (fbuf_init): Change prototype.
1970 (fbuf_reset): Change prototype.
1971 (fbuf_alloc): Change prototype.
1972 (fbuf_flush): Change prototype.
1973 (fbuf_seek): Change prototype.
1974 (fbuf_read): New prototype.
1975 (fbuf_getc_refill): New prototype.
1976 (fbuf_getc): New inline function.
1977 * io/fbuf.c (fbuf_init): Use int, get rid of flushed.
1978 (fbuf_debug): New function.
1979 (fbuf_reset): Flush, and return position offset.
1980 (fbuf_alloc): Simplify, don't flush, just realloc.
1981 (fbuf_flush): Make usable for read mode, salvage remaining bytes.
1982 (fbuf_seek): New whence argument.
1983 (fbuf_read): New function.
1984 (fbuf_getc_refill): New function.
1985 * io/file_pos.c (formatted_backspace): Use new stream interface.
1986 (unformatted_backspace): Likewise.
1987 (st_backspace): Make sure format buffer is reset, use new stream
1988 interface, use unit_truncate.
1989 (st_endfile): Likewise.
1990 (st_rewind): Likewise.
1991 * io/intrinsics.c: Use new stream interface.
1992 * io/list_read.c (push_char): Don't use u.p.scratch, use realloc
1993 to resize.
1994 (free_saved): Don't check u.p.scratch.
1995 (next_char): Use new stream interface, use fbuf_getc() for external files.
1996 (finish_list_read): flush format buffer.
1997 (nml_query): Update to use modified interface:s
1998 * io/open.c (test_endfile): Use new stream interface.
1999 (edit_modes): Likewise.
2000 (new_unit): Likewise, set bytes_left to 1 for stream files.
2001 * io/read.c (read_l): Use new read_block_form interface.
2002 (read_utf8): Likewise.
2003 (read_utf8_char1): Likewise.
2004 (read_default_char1): Likewise.
2005 (read_utf8_char4): Likewise.
2006 (read_default_char4): Likewise.
2007 (read_a): Likewise.
2008 (read_a_char4): Likewise.
2009 (read_decimal): Likewise.
2010 (read_radix): Likewise.
2011 (read_f): Likewise.
2012 * io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
2013 usage of u.p.line_buffer.
2014 (read_block_form): Update interface to return pointer, use
2015 fbuf_read for direct access.
2016 (read_block_direct): Update to new stream interface.
2017 (write_block): Use mem_alloc_w for internal I/O.
2018 (write_buf): Update to new stream interface.
2019 (formatted_transfer_scalar): Don't use u.p.line_buffer, use
2020 fbuf_seek for external files.
2021 (us_read): Update to new stream interface.
2022 (us_write): Likewise.
2023 (data_transfer_init): Always check if we switch modes and flush.
2024 (skip_record): Use new stream interface, fix comparison.
2025 (next_record_r): Check for and reset u.p.at_eof, use new stream
2026 interface, use fbuf_getc for spacing.
2027 (write_us_marker): Update to new stream interface, don't inline.
2028 (next_record_w_unf): Likewise.
2029 (sset): New function.
2030 (next_record_w): Use new stream interface, use fbuf for printing
2031 newline.
2032 (next_record): Use new stream interface.
2033 (finalize_transfer): Remove sfree call, use new stream interface.
2034 (st_iolength_done): Don't use u.p.scratch.
2035 (st_read): Don't check for end of file.
2036 (st_read_done): Don't use u.p.scratch, use unit_truncate.
2037 (hit_eof): New function.
2038 * io/unit.c (init_units): Always init fbuf for formatted units.
2039 (update_position): Use new stream interface.
2040 (unit_truncate): New function.
2041 (finish_last_advance_record): Use fbuf to print newline.
2042 * io/unix.c: Remove unused SSIZE_MAX macro.
2043 (BUFFER_SIZE): Make static const variable rather than macro.
2044 (struct unix_stream): Remove dirty_offset, len, method,
2045 small_buffer. Order elements by decreasing size.
2046 (struct int_stream): Remove.
2047 (move_pos_offset): Remove usage of dirty_offset.
2048 (reset_stream): Remove.
2049 (do_read): Rename to raw_read, update to match new stream
2050 interface.
2051 (do_write): Rename to raw_write, update to new stream interface.
2052 (raw_seek): New function.
2053 (raw_tell): New function.
2054 (raw_truncate): New function.
2055 (raw_close): New function.
2056 (raw_flush): New function.
2057 (raw_init): New function.
2058 (fd_alloc): Remove.
2059 (fd_alloc_r_at): Remove.
2060 (fd_alloc_w_at): Remove.
2061 (fd_sfree): Remove.
2062 (fd_seek): Remove.
2063 (fd_truncate): Remove.
2064 (fd_sset): Remove.
2065 (fd_read): Remove.
2066 (fd_write): Remove.
2067 (fd_close): Remove.
2068 (fd_open): Remove.
2069 (fd_flush): Rename to buf_flush, update to new stream interface
2070 and unix_stream.
2071 (buf_read): New function.
2072 (buf_write): New function.
2073 (buf_seek): New function.
2074 (buf_tell): New function.
2075 (buf_truncate): New function.
2076 (buf_close): New function.
2077 (buf_init): New function.
2078 (mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
2079 (mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
2080 (mem_read): Change to match new stream interface.
2081 (mem_write): Likewise.
2082 (mem_seek): Likewise.
2083 (mem_tell): Likewise.
2084 (mem_truncate): Likewise.
2085 (mem_close): Likewise.
2086 (mem_flush): New function.
2087 (mem_sfree): Remove.
2088 (empty_internal_buffer): Cast to correct type.
2089 (open_internal): Use correct type, init function pointers.
2090 (fd_to_stream): Test whether to open file as buffered or raw.
2091 (output_stream): Remove mode set.
2092 (error_stream): Likewise.
2093 (flush_all_units_1): Use new stream interface.
2094 (flush_all_units): Likewise.
2095 (stream_at_bof): Remove.
2096 (stream_at_eof): Remove.
2097 (file_position): Remove.
2098 (file_length): Update logic to use stream interface.
2099 (flush): Remove.
2100 (stream_offset): Remove.
2101 * io/write.c (write_utf8_char4): Use int instead of size_t.
2102 (write_x): Extra safety check.
2103 (namelist_write_newline): Use new stream interface.
2105 2009-03-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
2107 PR fortran/33595
2108 * intrinsics/c99_functions.c (round): Use floor instead of ceil.
2109 Revise checks to round up.
2110 (roundf): Likewise.
2112 2009-03-28 Daniel Kraft <d@domob.eu>
2114 * intrinsics/string_intrinsics.c: #include <assert.h>
2115 * intrinsics/string_intrinsics_inc.c (string_trim): Use string_len_trim
2116 instead of calculating the length directly.
2117 (string_len_trim): For KIND=1, speed search up.
2119 2009-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2121 PR libfortran/39528
2122 * io/list_read.c (list_formatted_read_scalar): Move check for read
2123 completion to just after the check for a repeated value.
2125 2009-03-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2127 PR libfortran/39402
2128 * io/write_float.def (output_float): Handle F0.d formatting correctly
2129 for any d when value is 0.0.
2131 2009-03-01 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
2133 * configure: Regenerate.
2135 2009-01-21 Daniel Kraft <d@domob.eu>
2137 PR fortran/38887
2138 * runtime/in_unpack_generic.c (internal_unpack): Return instead of
2139 abort when called with empty array.
2140 * m4/in_unpack.m4: Ditto.
2141 * generated/in_unpack_i1.c: Regenerated.
2142 * generated/in_unpack_i2.c: Regenerated.
2143 * generated/in_unpack_i4.c: Regenerated.
2144 * generated/in_unpack_i8.c: Regenerated.
2145 * generated/in_unpack_i16.c: Regenerated.
2146 * generated/in_unpack_r4.c: Regenerated.
2147 * generated/in_unpack_r8.c: Regenerated.
2148 * generated/in_unpack_r10.c: Regenerated.
2149 * generated/in_unpack_r16.c: Regenerated.
2150 * generated/in_unpack_c4.c: Regenerated.
2151 * generated/in_unpack_c8.c: Regenerated.
2152 * generated/in_unpack_c10.c: Regenerated.
2153 * generated/in_unpack_c16.c: Regenerated.
2155 2009-01-12 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2157 PR libfortran/38772
2158 * io/read.c (read_f): Clean up loop conditions for BZ/BN,
2159 allowing proper digit testing. White space fix.
2161 2009-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2163 PR libfortran/38735
2164 * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
2165 internal units.
2167 2008-12-29 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
2169 PR fortran/31832
2170 * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_POWF): New autoconf check for
2171 broken powf.
2172 * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_POWF): Use it.
2173 * intrinsics/c99_functions.c: Use internal powf implementation if
2174 HAVE_BROKEN_POWF is defined.
2175 * configure: Rebuilt.
2176 * config.h.in: Rebuilt.
2178 2008-12-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2180 PR libfortran/37472
2181 * io/write_float.def (output_float_FMT_G_): Modify calculation of temp
2182 to avoid sensitivity to round-off.
2184 2008-12-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2186 PR libfortran/38398
2187 * io/io.h (st_parameter_dt): Add new bit to keep track of when to
2188 suppress blanks for g0 formatting.
2189 * io/transfer.c (formatted_transfer_scalar): Always call write_real_g0
2190 for g0 formatting.
2191 * io.c (write.c): Do not use ES formatting and use new bit to suppress
2192 blanks.
2193 * io/write_float.def (output_float): Adjust the location of setting the
2194 width so that it can be adjusted when suppressing blanks. Set number of
2195 blanks to zero when dtp->u.p.g0_no_blanks is set. Do some minor code
2196 clean-up and add some white space for readability.
2198 2008-12-18 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
2200 * configure: Regenerate.
2202 2008-12-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2204 PR libfortran/38504
2205 io/write.c (write_decimal): Skip extra sign '-' at beginning of string
2206 returned by gfc_itoa.
2208 2008-12-08 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2210 PR libfortran/38430
2211 * io/transfer.c (data_transfer_init): Move constraint check for REC=
2212 and STREAM access into condition for other REC= constraints to simplify.
2213 Comment out this constraint to avoid breaking compatibility with 4.3
2214 until later. Added a TODO for above comment and this one.
2215 Fix test for max pos.
2217 2008-12-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2219 PR libfortran/38291
2220 * io/transfer.c (data_transfer_init): Add fbuf_flush inadvertently
2221 ommitted. Add check for invalid use of REC= with ACCESS="stream". Fix
2222 comment.
2224 2008-12-06 Adam Nemet <anemet@caviumnetworks.com>
2226 * runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
2228 2008-12-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2230 PR libfortran/38291
2231 * io/transfer.c (data_transfer_init): Add checks for POS= valid range.
2232 Add check for unit opened with ACCESS="stream". Flush and seek if
2233 current stream position does not match. Check ENDFILE on read.
2235 2008-12-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2237 PR fortran/38285
2238 * write_float.def (WRITE_FLOAT): Zero the float value for special case
2239 only if scale_factor = 0.
2241 2008-11-23 Thomas Koenig <tkoenig@gcc.gnu.org>
2243 PR libfortran/38234
2244 * intrinsics/reshape_generic.c (reshape_internal):
2245 Source can be larger than shape.
2246 * m4/reshape.m4: Likewise.
2247 * generated/reshape_c10.c Regenerated.
2248 * generated/reshape_c16.c Regenerated.
2249 * generated/reshape_c4.c Regenerated.
2250 * generated/reshape_c8.c Regenerated.
2251 * generated/reshape_i16.c Regenerated.
2252 * generated/reshape_i4.c Regenerated.
2253 * generated/reshape_i8.c Regenerated.
2254 * generated/reshape_r10.c Regenerated.
2255 * generated/reshape_r16.c Regenerated.
2256 * generated/reshape_r4.c Regenerated.
2257 * generated/reshape_r8.c Regenerated.
2259 2008-11-22 Danny Smith <dannysmith@users.sourceforge.net>
2261 * libgfortran.h (__mingw_snprintf): Declare with gnu_printf
2262 format attribute.
2265 2008-11-22 Thomas Koenig <tkoenig@gcc.gnu.org>
2267 PR libfortran/38225
2268 * intrinsics/reshape_generic.c (reshape_internal):
2269 Use all dimensions of source for bounds checking.
2270 * m4/reshape.m4: Likewise.
2271 * generated/reshape_c10.c Regenerated.
2272 * generated/reshape_c16.c Regenerated.
2273 * generated/reshape_c4.c Regenerated.
2274 * generated/reshape_c8.c Regenerated.
2275 * generated/reshape_i16.c Regenerated.
2276 * generated/reshape_i4.c Regenerated.
2277 * generated/reshape_i8.c Regenerated.
2278 * generated/reshape_r10.c Regenerated.
2279 * generated/reshape_r16.c Regenerated.
2280 * generated/reshape_r4.c Regenerated.
2281 * generated/reshape_r8.c Regenerated.
2283 2008-11-22 Jakub Jelinek <jakub@redhat.com>
2285 PR libfortran/37839
2286 * io/io.h (IOPARM_INQUIRE_HAS_ROUND, IOPARM_INQUIRE_HAS_SIGN,
2287 IOPARM_INQUIRE_HAS_PENDING): Adjust values.
2288 (st_parameter_inquire): Reorder and fix types of round, sign and
2289 pending fields.
2290 (st_parameter_43, st_parameter_44): Removed.
2291 (st_parameter_dt): Put back struct definition directly to u.p
2292 declaration. Change type of u.p.size_used from gfc_offset to
2293 GFC_IO_INT. Decrease back size of u.pad to 16 pointers and
2294 32 ints. Put id, pos, asynchronous, blank, decimal, delim,
2295 pad, round and sign fields after the union.
2296 * io/inquire.c (inquire_via_unit, inquire_via_filename): Only read
2297 flags2 if it is defined.
2298 * io/transfer.c (read_sf, read_block_form, write_block): Cast
2299 additions to size_used to GFC_IO_INT instead of gfc_offset.
2300 (data_transfer_init): Clear whole u.p struct. Adjust
2301 for moving id, pos, asynchronous, blank, decimal, delim, pad,
2302 round and sign fields from u.p directly into st_parameter_dt.
2303 (finalize_transfer): Don't cast size_used to GFC_IO_INT.
2304 * io/file_pos.c (st_endfile): Clear whole u.p struct.
2306 2008-11-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2308 PR libfortran/37472
2309 * io/write_float.def (output_float_FMT_G_): Adjust conversion of
2310 G format specification to F format.
2312 2008-11-18 Thomas Koenig <tkoenig@gcc.gnu.org>
2314 PR libfortran/38135
2315 * m4/reshape.m4: Correct bounds checking when PAD is present.
2316 Treat PAD as if it were SOURCE when SOURCE is empty.
2317 * intrinsics/reshape_generic.c: Likewise.
2318 * generated/reshape_c10.c Regenerated.
2319 * generated/reshape_c16.c Regenerated.
2320 * generated/reshape_c4.c Regenerated.
2321 * generated/reshape_c8.c Regenerated.
2322 * generated/reshape_i16.c Regenerated.
2323 * generated/reshape_i4.c Regenerated.
2324 * generated/reshape_i8.c Regenerated.
2325 * generated/reshape_r10.c Regenerated.
2326 * generated/reshape_r16.c Regenerated.
2327 * generated/reshape_r4.c Regenerated.
2328 * generated/reshape_r8.c Regenerated.
2330 2008-11-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2332 PR libfortran/38097
2333 * io/read.c (read_f): Initialize exponent. Fix comment. Set loop
2334 conditions for BZ/BN.
2335 * io/unit.c (get_internal_unit): Initialize flags.blank.
2336 * io/transfer.c (data_transfer_init): Fix whitespace.
2338 2008-11-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2340 PR libfortran/37294
2341 * io/write.c (namelist_write_newline): Use array loop specification to
2342 advance to next internal array unit record. (namelist_write): Adjust to
2343 accomodate the internal array unit behavior.
2345 2008-11-01 Dennis Wassel <dennis.wassel@gmail.com>
2347 PR fortran/37159
2348 * intrinsics/random.c: Added comment to adapt check.c, should
2349 kiss_size change.
2350 Few cosmetic changes to existing comments.
2352 2008-10-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2354 PR libfortran/37707
2355 * io/list_read.c (read_character): Remove code to look ahead in namelist
2356 reads to descriminate non-delimited strings from namelist objects.
2357 * io/write.c (namelist_write): Delimit character strings with quote or
2358 apostrophe, defaulting to quote.
2360 2008-10-21 Thomas Koenig <tkoenig@gcc.gnu.org>
2362 PR libfortran/34670
2363 * intrinsics/transpose_generic.c: Implement bounds checking.
2364 * m4/transpose.m4: Likewise.
2365 * generated/transpose_c8.c: Regenerated.
2366 * generated/transpose_c16.c: Regenerated.
2367 * generated/transpose_r10.c: Regenerated.
2368 * generated/transpose_i8.c: Regenerated.
2369 * generated/transpose_c10.c: Regenerated.
2370 * generated/transpose_r4.c: Regenerated.
2371 * generated/transpose_c4.c: Regenerated.
2372 * generated/transpose_i16.c: Regenerated.
2373 * generated/transpose_i4.c: Regenerated.
2374 * generated/transpose_r8.c: Regenerated.
2375 * generated/transpose_r16.c: Regenerated.
2377 2008-10-19 Jerry DeLisle <jvdelisle@gcc.gnu.org
2379 PR libfortran/37834
2380 * io/write_float.def (output_float): Emit '0.' for special case of
2381 format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
2383 2008-10-17 Jerry DeLisle <jvdelisle@gcc.gnu.org
2385 PR libfortran/37863
2386 * io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
2387 * io/io.h (st_parameter_44): Fix id type declaration.
2389 2008-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
2391 * io/file_pos.c (unformatted_backspace): Normal case is
2392 GFC_CONVERT_NATIVE.
2393 * io/transfer.c (read_sf): Mark paths leading to generate_error()
2394 as unlikely.
2395 (readl_block_form): Likewise.
2396 (read_block_direct): Likewise.
2397 (write_block): Likewise.
2398 (write_buf): Likewise.
2399 (us_read): Likewise. Normal case is GFC_CONVERT_NATIVE.
2400 (next_record_w_unf): Mark paths leading to generate_error()
2401 as unlikely.
2403 2008-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
2405 PR libfortran/34670
2406 * generated/spread_r4.c: Regenerated.
2408 2008-10-15 Thomas Koenig <tkoenig@gcc.gnu.org>
2410 PR libfortran/34670
2411 * intrinsics/reshape_generic.c: Add bounds checking.
2412 * m4/reshape.m4: Likewise.
2413 * generated/reshape_c10.c: Regenerated.
2414 * generated/reshape_c16.c: Regenerated.
2415 * generated/reshape_c4.c: Regenerated.
2416 * generated/reshape_c8.c: Regenerated.
2417 * generated/reshape_i16.c: Regenerated.
2418 * generated/reshape_i4.c: Regenerated.
2419 * generated/reshape_i8.c: Regenerated.
2420 * generated/reshape_r10.c: Regenerated.
2421 * generated/reshape_r16.c: Regenerated.
2422 * generated/reshape_r4.c: Regenerated.
2423 * generated/reshape_r8.c: Regenerated.
2424 * generated/spread_r4.c: Regenerated.
2426 2008-10-13 Jerry DeLisle <jvdelisle@gcc.gnu.org
2428 PR libfortran/37083
2429 * io/list_read.c (next_char): Simplify EOF tests and set endfile flag.
2430 (finish_list_read): Add EOF check.
2432 2008-10-09 Thomas Koenig <tkoenig@gcc.gnu.org>
2434 PR libfortran/37753
2435 * io/transfer.c (unformatted_read): CONVERT_NATIVE
2436 is the usual case. Check for kind==1 for non-byte-reversing
2437 operation.
2438 (unformatted_write): Likewise.
2440 2008-10-08 Jerry DeLisle <jvdelisle@gcc.gnu.org
2442 PR libfortran/37707
2443 * io/list_read.c (nml_get_obj_data): If the first namelist object rank
2444 is greater than zero, call nml_object_read with the first object rather
2445 than the sub-object.
2447 2008-09-26 Peter O'Gorman <pogma@thewrittenword.com>
2448 Steve Ellcey <sje@cup.hp.com>
2450 * configure: Regenerate for new libtool.
2451 * Makefile.in: Ditto.
2453 2008-09-25 Jerry DeLisle <jvdelisle@gcc.gnu.org
2455 PR libfortran/37498
2456 * list_read.c (eat_separator): Revert previous patch and move
2457 delim_status, decimal_status, and pad_status to gfc_unit.
2458 (parse_real): Ditto. (read_real): Ditto.
2459 * read.c (read_a): Likewise. (read_a_char4): Likewise.
2460 (read_f): Likewise.
2461 * inquire.c (inquire_via_unit): Add missing check for
2462 IOPARM_INQUIRE_HAS_FLAGS2. (inquire_via_filename): Likewise.
2463 * io.h (unit_sign_s): Move delim_status, decimal_status, and pad_status
2464 to gfc_unit.
2465 * transfer.c (read_sf): Ditto. (read_block_form): Ditto.
2466 (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto.
2467 * write.c (write_default_char4): Ditto. (write_utf8_char4): Ditto.
2468 (write_character): Ditto. (write_real_g0): Ditto.
2469 (list_formatted_write_scalar): Ditto. (nml_write_obj): Ditto.
2470 (namelist_write): Ditto.
2471 * write_float.def (calculate_sign): Ditto. (output_float): Ditto.
2473 2008-09-24 Tobias Burnus <burnus@net-b.de>
2475 * runtime/compile_options.c (init_compile_options):
2476 Sync flags with front end.
2478 2008-09-22 Jerry DeLisle <jvdelisle@gcc.gnu.org
2480 PR libfortran/37498
2481 * file_pos (st_endfile): Clear memory only for libfortran 4.3 private
2482 area.
2483 * list_read.c (eat_separator): Only access F2003 I/O parameters if
2484 IOPARM_DT_HAS_F2003 bit is set. (parse_real): Ditto.
2485 (read_real): Ditto.
2486 * read.c (read_a): Likewise. (read_a_char4): Likewise though not
2487 strictly necessary. (read_f): Likewise.
2488 * io.h (unit_sign_s): New enumerator to allow duplication of
2489 st_parameter structures. (IOPARM_DT_HAS_F2003): New mask bit.
2490 (st_parameter_43): New structure copied from 4.3 version of
2491 st_paramater_dt private section. (st_parameter_44): New structure with
2492 F2003 items added. (st_parameter_dt): Modified to create union of new
2493 and old structures to allow correct memory setting for 4.3 ABI
2494 compatibility. Bumped the pad size.
2495 * transfer.c (read_sf): Do not use F2003 I/O memory areas unless
2496 IOPARM_DT_HAS_F2003 bit has been set. (read_block_form): Ditto.
2497 (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto and
2498 add comment, fix formatting.
2499 * write.c (write_default_char4): Likewise though not strictly necessary.
2500 (write_utf8_char4): Ditto. (write_character): Ditto.
2501 (write_real_g0): Ditto. (list_formatted_write_scalar): Ditto.
2502 (nml_write_obj): Ditto. (namelist_write): Ditto.
2503 * write_float.def (calculate_sign): Eliminate warning by including all
2504 cases in switch. (output_float): Output only decimal point of F2003 flag
2505 is not set.
2507 2008-09-10 Tobias Burnus <burnus@net-b.de>
2508 H. J. Lu <hongjiu.lu@intel.com>
2510 * mk-sik-inc.sh: Make -Wunused-variable proof.
2511 * mk-srk-inc.sh: Make -Wunused-variable proof.
2513 2008-09-10 Tobias Burnus <burnus@net-b.de>
2515 * mk-kinds-h.sh: Make -Wunused-variable proof.
2517 2008-09-07 Thomas Koenig <tkoenig@gcc.gnu.org>
2519 PR fortran/37203
2520 * intrinsics/reshape_generic.c: Add checking on
2521 out-of-bounds and duplicate values of order argument.
2522 * m4/reshape.m4: Likewise.
2523 * generated/reshape_c10.c: Regenerated.
2524 * generated/reshape_c16.c: Regenerated.
2525 * generated/reshape_c4.c: Regenerated.
2526 * generated/reshape_c8.c: Regenerated.
2527 * generated/reshape_i16.c: Regenerated.
2528 * generated/reshape_i4.c: Regenerated.
2529 * generated/reshape_i8.c: Regenerated.
2530 * generated/reshape_r10.c: Regenerated.
2531 * generated/reshape_r16.c: Regenerated.
2532 * generated/reshape_r4.c: Regenerated.
2533 * generated/reshape_r8.c: Regenerated.
2535 2008-09-06 Tobias Burnus <burnus@net-b.de>
2537 * libgfortran.h (likely,unlikely): New makros.
2538 (runtime_warning_at,__mingw_snprintf): Add __attribute__(format()).
2539 * m4/spread.m4 (spread_'rtype_code`): Use unlikely for bounds_check.
2540 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Ditto.
2541 * m4/matmull.m4 (matmul_'rtype_code`): Ditto.
2542 * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Ditto.
2543 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Ditto.
2544 * m4/matmul.m4 (matmul_'rtype_code`): Ditto.
2546 * generated/minval_r8.c: Regenerated.
2547 * generated/spread_r10.c: Regenerated.
2548 * generated/minloc1_16_r16.c: Regenerated.
2549 * generated/maxloc1_4_r8.c: Regenerated.
2550 * generated/sum_i8.c: Regenerated.
2551 * generated/any_l16.c: Regenerated.
2552 * generated/spread_i8.c: Regenerated.
2553 * generated/maxval_i2.c: Regenerated.
2554 * generated/any_l2.c: Regenerated.
2555 * generated/product_r4.c: Regenerated.
2556 * generated/maxloc1_8_i4.c: Regenerated.
2557 * generated/maxloc0_4_r4.c: Regenerated.
2558 * generated/all_l1.c: Regenerated.
2559 * generated/matmul_r8.c: Regenerated.
2560 * generated/product_i2.c: Regenerated.
2561 * generated/minloc0_4_r16.c: Regenerated.
2562 * generated/minloc0_4_i1.c: Regenerated.
2563 * generated/maxloc0_4_r16.c: Regenerated.
2564 * generated/maxloc0_4_i2.c: Regenerated.
2565 * generated/minloc1_8_r16.c: Regenerated.
2566 * generated/maxloc1_8_r16.c: Regenerated.
2567 * generated/maxloc0_8_i8.c: Regenerated.
2568 * generated/sum_r16.c: Regenerated.
2569 * generated/sum_i1.c: Regenerated.
2570 * generated/minloc1_4_r8.c: Regenerated.
2571 * generated/maxloc1_16_r16.c: Regenerated.
2572 * generated/minloc1_16_i4.c: Regenerated.
2573 * generated/maxloc1_16_i4.c: Regenerated.
2574 * generated/minloc0_16_i8.c: Regenerated.
2575 * generated/spread_i1.c: Regenerated.
2576 * generated/maxloc0_16_i8.c: Regenerated.
2577 * generated/maxval_r16.c: Regenerated.
2578 * generated/product_c10.c: Regenerated.
2579 * generated/minloc1_8_i4.c: Regenerated.
2580 * generated/minloc0_16_i16.c: Regenerated.
2581 * generated/matmul_r16.c: Regenerated.
2582 * generated/minloc0_4_r4.c: Regenerated.
2583 * generated/all_l2.c: Regenerated.
2584 * generated/product_c4.c: Regenerated.
2585 * generated/sum_r4.c: Regenerated.
2586 * generated/minloc0_4_i2.c: Regenerated.
2587 * generated/spread_c10.c: Regenerated.
2588 * generated/maxloc0_8_i1.c: Regenerated.
2589 * generated/spread_r4.c: Regenerated.
2590 * generated/minloc0_8_i8.c: Regenerated.
2591 * generated/matmul_c8.c: Regenerated.
2592 * generated/all_l16.c: Regenerated.
2593 * generated/minloc1_16_r10.c: Regenerated.
2594 * generated/sum_i2.c: Regenerated.
2595 * generated/minloc0_16_i1.c: Regenerated.
2596 * generated/maxloc0_16_i1.c: Regenerated.
2597 * generated/maxloc1_8_r8.c: Regenerated.
2598 * generated/minval_i16.c: Regenerated.
2599 * generated/spread_i2.c: Regenerated.
2600 * generated/maxval_i4.c: Regenerated.
2601 * generated/minval_i8.c: Regenerated.
2602 * generated/any_l4.c: Regenerated.
2603 * generated/maxloc1_4_i8.c: Regenerated.
2604 * generated/maxloc0_16_i16.c: Regenerated.
2605 * generated/maxloc0_8_r4.c: Regenerated.
2606 * generated/minloc1_4_i16.c: Regenerated.
2607 * generated/maxloc1_4_i16.c: Regenerated.
2608 * generated/minloc0_4_r10.c: Regenerated.
2609 * generated/minloc0_8_i16.c: Regenerated.
2610 * generated/maxloc0_4_r10.c: Regenerated.
2611 * generated/maxloc0_8_i16.c: Regenerated.
2612 * generated/minloc1_8_r10.c: Regenerated.
2613 * generated/product_i4.c: Regenerated.
2614 * generated/minloc0_16_r4.c: Regenerated.
2615 * generated/sum_c16.c: Regenerated.
2616 * generated/maxloc1_8_r10.c: Regenerated.
2617 * generated/maxloc0_16_r4.c: Regenerated.
2618 * generated/minloc1_16_r8.c: Regenerated.
2619 * generated/minloc0_8_i1.c: Regenerated.
2620 * generated/maxloc0_4_i4.c: Regenerated.
2621 * generated/maxloc1_16_r8.c: Regenerated.
2622 * generated/maxloc0_8_i2.c: Regenerated.
2623 * generated/sum_r10.c: Regenerated.
2624 * generated/count_4_l.c: Regenerated.
2625 * generated/sum_c4.c: Regenerated.
2626 * generated/count_8_l.c: Regenerated.
2627 * generated/maxloc1_16_r10.c: Regenerated.
2628 * generated/matmul_i8.c: Regenerated.
2629 * generated/minloc0_16_i2.c: Regenerated.
2630 * generated/minloc1_8_r8.c: Regenerated.
2631 * generated/maxloc0_16_i2.c: Regenerated.
2632 * generated/spread_c4.c: Regenerated.
2633 * generated/matmul_c16.c: Regenerated.
2634 * generated/maxval_r10.c: Regenerated.
2635 * generated/minval_i1.c: Regenerated.
2636 * generated/maxloc1_4_i1.c: Regenerated.
2637 * generated/matmul_r10.c: Regenerated.
2638 * generated/minloc1_4_i8.c: Regenerated.
2639 * generated/minloc0_8_r4.c: Regenerated.
2640 * generated/matmul_l4.c: Regenerated.
2641 * generated/product_i16.c: Regenerated.
2642 * generated/minloc0_16_r16.c: Regenerated.
2643 * generated/all_l4.c: Regenerated.
2644 * generated/minloc0_4_i4.c: Regenerated.
2645 * generated/minloc0_8_i2.c: Regenerated.
2646 * generated/matmul_i1.c: Regenerated.
2647 * generated/minval_r4.c: Regenerated.
2648 * generated/maxloc1_4_r4.c: Regenerated.
2649 * generated/spread_i16.c: Regenerated.
2650 * generated/sum_i4.c: Regenerated.
2651 * generated/maxval_r8.c: Regenerated.
2652 * generated/spread_i4.c: Regenerated.
2653 * generated/minloc1_4_i1.c: Regenerated.
2654 * generated/minval_r16.c: Regenerated.
2655 * generated/minval_i2.c: Regenerated.
2656 * generated/maxloc1_4_i2.c: Regenerated.
2657 * generated/product_r8.c: Regenerated.
2658 * generated/maxloc1_8_i8.c: Regenerated.
2659 * generated/maxloc0_4_r8.c: Regenerated.
2660 * generated/maxloc0_16_r16.c: Regenerated.
2661 * generated/matmul_r4.c: Regenerated.
2662 * generated/sum_c10.c: Regenerated.
2663 * generated/minloc1_4_r16.c: Regenerated.
2664 * generated/maxloc1_4_r16.c: Regenerated.
2665 * generated/minloc0_8_r16.c: Regenerated.
2666 * generated/maxloc0_8_r16.c: Regenerated.
2667 * generated/count_1_l.c: Regenerated.
2668 * generated/maxloc0_8_i4.c: Regenerated.
2669 * generated/matmul_i2.c: Regenerated.
2670 * generated/minloc1_4_r4.c: Regenerated.
2671 * generated/matmul_c10.c: Regenerated.
2672 * generated/minloc0_16_i4.c: Regenerated.
2673 * generated/maxloc0_16_i4.c: Regenerated.
2674 * generated/minloc1_16_i8.c: Regenerated.
2675 * generated/maxloc1_16_i8.c: Regenerated.
2676 * generated/minloc1_4_i2.c: Regenerated.
2677 * generated/matmul_l16.c: Regenerated.
2678 * generated/maxloc1_8_i1.c: Regenerated.
2679 * generated/minloc0_16_r10.c: Regenerated.
2680 * generated/minloc1_8_i8.c: Regenerated.
2681 * generated/minloc0_4_r8.c: Regenerated.
2682 * generated/product_r16.c: Regenerated.
2683 * generated/product_c8.c: Regenerated.
2684 * generated/sum_r8.c: Regenerated.
2685 * generated/minloc0_8_i4.c: Regenerated.
2686 * generated/matmul_c4.c: Regenerated.
2687 * generated/minloc1_16_i16.c: Regenerated.
2688 * generated/spread_r8.c: Regenerated.
2689 * generated/maxloc1_8_r4.c: Regenerated.
2690 * generated/minloc1_16_i1.c: Regenerated.
2691 * generated/maxloc1_16_i1.c: Regenerated.
2692 * generated/spread_r16.c: Regenerated.
2693 * generated/minval_r10.c: Regenerated.
2694 * generated/count_16_l.c: Regenerated.
2695 * generated/minval_i4.c: Regenerated.
2696 * generated/minloc1_8_i1.c: Regenerated.
2697 * generated/maxloc1_4_i4.c: Regenerated.
2698 * generated/maxloc1_8_i2.c: Regenerated.
2699 * generated/maxval_i8.c: Regenerated.
2700 * generated/any_l8.c: Regenerated.
2701 * generated/maxloc0_16_r10.c: Regenerated.
2702 * generated/minloc0_4_i16.c: Regenerated.
2703 * generated/maxloc0_8_r8.c: Regenerated.
2704 * generated/maxloc0_4_i16.c: Regenerated.
2705 * generated/minloc1_4_r10.c: Regenerated.
2706 * generated/minloc1_8_i16.c: Regenerated.
2707 * generated/maxloc1_4_r10.c: Regenerated.
2708 * generated/maxloc1_8_i16.c: Regenerated.
2709 * generated/minloc0_8_r10.c: Regenerated.
2710 * generated/maxloc0_8_r10.c: Regenerated.
2711 * generated/minloc1_16_r4.c: Regenerated.
2712 * generated/maxloc1_16_r4.c: Regenerated.
2713 * generated/minloc0_16_r8.c: Regenerated.
2714 * generated/product_i8.c: Regenerated.
2715 * generated/maxloc0_16_r8.c: Regenerated.
2716 * generated/sum_i16.c: Regenerated.
2717 * generated/count_2_l.c: Regenerated.
2718 * generated/maxloc0_4_i8.c: Regenerated.
2719 * generated/maxloc1_16_i16.c: Regenerated.
2720 * generated/matmul_i4.c: Regenerated.
2721 * generated/minloc1_8_r4.c: Regenerated.
2722 * generated/sum_c8.c: Regenerated.
2723 * generated/minloc1_16_i2.c: Regenerated.
2724 * generated/maxloc1_16_i2.c: Regenerated.
2725 * generated/maxval_i16.c: Regenerated.
2726 * generated/spread_c8.c: Regenerated.
2727 * generated/matmul_i16.c: Regenerated.
2728 * generated/minloc1_4_i4.c: Regenerated.
2729 * generated/maxval_i1.c: Regenerated.
2730 * generated/minloc1_8_i2.c: Regenerated.
2731 * generated/any_l1.c: Regenerated.
2732 * generated/product_c16.c: Regenerated.
2733 * generated/minloc0_8_r8.c: Regenerated.
2734 * generated/matmul_l8.c: Regenerated.
2735 * generated/product_r10.c: Regenerated.
2736 * generated/product_i1.c: Regenerated.
2737 * generated/all_l8.c: Regenerated.
2738 * generated/maxloc0_4_i1.c: Regenerated.
2739 * generated/minloc0_4_i8.c: Regenerated.
2740 * generated/spread_c16.c: Regenerated.
2741 * generated/maxval_r4.c: Regenerated.
2743 2008-09-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2745 PR libfortran/37301
2746 PR libfortran/37228
2747 * io/io.h (write_real_g0): Declare new function to handle g0.d format.
2748 * io/transfer.c (formatted_transfer_scalar): Use new function.
2749 * io/format.c (parse_format_list): Enable g0.d.
2750 * io/write.c (write_a_char4): Delete unused var.
2751 (set_fnode_default): New function to set the default fnode w, d, and e
2752 factored from write_real. (write_real): Use new factored function.
2753 (write_real_g0): New function that sets d to that passed by g0.d format
2754 specifier and set format to ES. Default values for w and e are used
2755 from the new function, set_fnode_default.
2757 2008-09-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2759 * runtime/error.c: Fix cast for printf.
2761 2008-08-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2763 PR libfortran/36895
2764 * io/write.c (namelist_write_newline): New function to correctly mark
2765 next records in both external and internal units.
2766 (nml_write_obj): Use new function.
2767 (namelist_write: Use new function.
2769 2008-08-19 Tobias Burnus <burnus@net-b.de>
2771 PR libfortran/35863
2772 * io/write.c (write_a_char4): Add missing variable declaration
2773 in HAVE_CRLF block.
2775 2008-08-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2777 PR libfortran/35863
2778 * intrinsics/selected_char_kind.c: Enable iso_10646.
2779 * io/read.c (typedef uchar): New type.
2780 (read_utf8): New function to read a single UTF-8 encoded character.
2781 (read_utf8_char1): New function to read UTF-8 into a KIND=1 string.
2782 (read_default_char1): New functio to read default into KIND=1 string.
2783 (read_utf8_char4): New function to read UTF-8 into a KIND=4 string.
2784 (read_default_char4): New function to read UTF-8 into a KIND=4 string.
2785 (read_a): Modify to use the new functions.
2786 (read_a_char4): Modify to use the new functions.
2787 * io/write.c (error.h): Add include. (typedef uchar): New type.
2788 (write_default_char4): New function to default write KIND=4 string.
2789 (write_utf8_char4): New function to UTF-8 write KIND=4 string.
2790 (write_a_char4): Modify to use new functions.
2791 (write_character): Modify to use new functions.
2793 2008-08-14 H.J. Lu <hongjiu.lu@intel.com>
2795 PR libfortran/37123
2796 * intrinsics/cshift0.c (cshift0): Fix 2 typos.
2798 2008-08-14 Thomas Koenig <tkoenig@gcc.gnu.org>
2800 PR libfortran/36886
2801 * Makefile.am: Added $(i_cshift0_c).
2802 Added $(i_cshift0_c) to gfor_built_specific_src.
2803 Add rule to build from cshift0.m4.
2804 * Makefile.in: Regenerated.
2805 * libgfortran.h: Addedd prototypes for cshift0_i1,
2806 cshift0_i2, cshift0_i4, cshift0_i8, cshift0_i16,
2807 cshift0_r4, cshift0_r8, cshift0_r10, cshift0_r16,
2808 cshift0_c4, cshift0_c8, cshift0_c10, cshift0_c16.
2809 Define Macros GFC_UNALIGNED_C4 and GFC_UNALIGNED_C8.
2810 * intrinsics/cshift0.c: Remove helper functions for
2811 the innter shift loop.
2812 (cshift0): Call specific functions depending on type
2813 of array argument. Only call specific functions for
2814 correct alignment for other types.
2815 * m4/cshift0.m4: New file.
2816 * generated/cshift0_i1.c: New file.
2817 * generated/cshift0_i2.c: New file.
2818 * generated/cshift0_i4.c: New file.
2819 * generated/cshift0_i8:.c New file.
2820 * generated/cshift0_i16.c: New file.
2821 * generated/cshift0_r4.c: New file.
2822 * generated/cshift0_r8.c: New file.
2823 * generated/cshift0_r10.c: New file.
2824 * generated/cshift0_r16.c: New file.
2825 * generated/cshift0_c4.c: New file.
2826 * generated/cshift0_c8.c: New file.
2827 * generated/cshift0_c10.c: New file.
2828 * generated/cshift0_c16.c: New file.
2830 2008-07-27 Tobias Burnus <burnus@net-b.de>
2832 PR fortran/36132
2833 PR fortran/29952
2834 PR fortran/36909
2835 * runtime/error.c: New function runtime_error_at.
2836 * gfortran.map: Ditto.
2837 * libgfortran.h: Ditto.
2839 2008-07-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2841 PR fortran/36582
2842 * io/list_read.c: If variable rank is zero, do not adjust the found
2843 namelist object pointer.
2845 2008-07-22 Daniel Kraft <d@domob.eu>
2847 PR fortran/29835
2848 * io/format.c (struct format_data): New member error_element.
2849 (unexpected_element): Added '%c' to message.
2850 (next_char): Keep track of last parsed character in fmt->error_element.
2851 (format_error): If the message is unexpected_element, output the
2852 offending character, too.
2854 2008-07-22 Thomas Koenig <tkoenig@gcc.gnu.org>
2856 PR libfortran/36890
2857 * io/file_pos.c: Declare READ_CHUNK as signed to avoid
2858 signed/unsigned comparison warning in formatted_backspace.
2860 2008-07-21 Thomas Koenig <tkoenig@gcc.gnu.org>
2862 PR libfortran/36773
2863 * intrinsics/cshift0.c (cshift0): Return early if size of array
2864 is zero.
2865 * intrinsics/eoshift0.c (eoshift0): Return early if size of
2866 return array is zero.
2867 * intrinsics/eoshift2.c (eoshift2): Likewise.
2868 * m4/eoshift1.m4 (eoshift1): Return early if size of array
2869 is zero.
2870 * m4/eoshift3.m4 (eoshift3): Likewise.
2871 * m4/eoshift2.m4 (eoshift2): Return early if size of return
2872 array is zero.
2873 * m4/eoshift4.m4 (eoshift2): Return early if size of return
2874 array is zero.
2875 * generated/cshift1_16.c: Regenerated.
2876 * generated/cshift1_4.c: Regenerated.
2877 * generated/cshift1_8.c: Regenerated.
2878 * generated/eoshift1_16.c: Regenerated.
2879 * generated/eoshift1_4.c: Regenerated.
2880 * generated/eoshift1_8.c: Regenerated.
2881 * generated/eoshift3_16.c: Regenerated.
2882 * generated/eoshift3_4.c: Regenerated.
2883 * generated/eoshift3_8.c: Regenerated.
2885 2008-07-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2887 PR fortran/36857
2888 * io/write_float.def: Comment out locale dependent code and fix general
2889 comments.
2891 2008-07-07 Thomas Koenig <tkoenig@gcc.gnu.org>
2893 PR fortran/36341
2894 PR fortran/34670
2895 * m4/matmul.m4: Add bounds checking.
2896 * m4/matmull.m4: Likewise.
2897 * generated/matmul_c10.c: Regenerated.
2898 * generated/matmul_c16.c: Regenerated.
2899 * generated/matmul_c4.c: Regenerated.
2900 * generated/matmul_c8.c: Regenerated.
2901 * generated/matmul_i1.c: Regenerated.
2902 * generated/matmul_i16.c: Regenerated.
2903 * generated/matmul_i2.c: Regenerated.
2904 * generated/matmul_i4.c: Regenerated.
2905 * generated/matmul_i8.c: Regenerated.
2906 * generated/matmul_l16.c: Regenerated.
2907 * generated/matmul_l4.c: Regenerated.
2908 * generated/matmul_l8.c: Regenerated.
2909 * generated/matmul_r10.c: Regenerated.
2910 * generated/matmul_r16.c: Regenerated.
2911 * generated/matmul_r4.c: Regenerated.
2912 * generated/matmul_r8.c: Regenerated.
2914 2008-07-07 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
2916 * acinclude.m4 (LIBGFOR_CHECK_GTHR_DEFAULT): Fix configure cache
2917 variable name.
2918 * configure: Regenerate.
2920 2008-07-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2922 PR fortran/36676
2923 * io/list_read.c (find_nml_name): Use eat_separator instead of eat_line.
2925 2008-06-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2927 PR fortran/36657
2928 * io/list_read.c (read_character): Check for '!' along with separators.
2929 (find_nml_name): Likewise and eat the comment if found.
2931 2008-06-17 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
2933 * configure: Regenerate.
2935 2008-06-16 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2937 PR fortran/36546
2938 * io/list_read.c (eat_separator): Add tab character to condition
2939 for looping past whitespace.
2941 2008-06-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2943 PR fortran/36515
2944 * libgfortran.h (compile_options_t): Add int range_check to structure.
2945 * runtime/compile_options.c (set_options): Add range_check option.
2946 (init_compile_options): Likewise.
2947 *io/read.c (read_decimal): Change overflow checks to include
2948 range_check.
2950 2008-06-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2952 PR fortran/36538
2953 * io/list_read.c (namelist_read): Add eat_separator to eliminate leading
2954 tabs.
2956 2008-06-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2958 PR fortran/35863
2959 * libgfortran.h: Change l8_to_l4_offset to big_endian and add endian_off.
2960 * runtime/main.c: Fix error in comment. Change l8_to_l4_offset to
2961 big_endian. (determine_endianness): Add endian_off and set its value
2962 according to big_endian.
2963 * gfortran.map: Add symbol for new _gfortran_transfer_character_wide.
2964 * io/io.h: Add prototype declarations for new functions.
2965 * io/list_read.c (list_formatted_read_scalar): Modify to handle kind=4.
2966 (list_formatted_read): Calculate stride based on kind for character type
2967 and use it when calling list_formatted_read_scalar.
2968 * io/inquire.c (inquire_via_unit): Change l8_to_l4_offset to big_endian.
2969 * io/open.c (st_open): Change l8_to_l4_offset to big_endian.
2970 * io/read.c (read_a_char4): New function to handle formatted read.
2971 * io/write.c: Define GFC_CHAR4(x) to improve readability of code.
2972 (write_a_char4): New function to handle formatted write.
2973 (write_character): Modify to accept the kind parameter and adjust for
2974 endianess of the machine. (list_formatted_write): Calculate the stride
2975 resulting from the kind and adjust the list_formatted_write_scalar call
2976 accordingly. (nml_write_obj): Adjust calls to write_character.
2977 (namelist_write): Likewise.
2978 * io/transfer.c (formatted_transfer_scaler): Rename 'len' argument to
2979 'kind' argument to better describe what it is. Add calls to new
2980 functions for kind == 4. (formatted_transfer): Modify to handle the case
2981 of type character and kind equals 4 to pass in the kind to the transfer
2982 routines. (transfer_character_wide): Add this new function.
2983 (transfer_array): Don't set kind to the character string length. Adjust
2984 strides bases on character kind.
2985 (unformatted_read): Adjust size based on kind for character types.
2986 (unformatted_write): Likewise. (data_transfer_init): Change
2987 l8_to_l4_offset to big_endian.
2988 io/fbuf.c (fbuf_seek): Add cast to eliminate warning.
2990 2008-06-13 Tobias Burnus <burnus@net-b.de>
2992 * configure.ac (AM_CFLAGS): Remove -Werror again.
2993 * configure: Regenerate.
2995 2008-06-13 Tobias Burnus <burnus@net-b.de>
2997 PR libgfortran/36518
2998 * configure.ac (AM_CFLAGS): Add -Werror.
2999 * configure: Regenerate.
3000 * m4/ifunction_logical.m4: Cast "n" to "(int)".
3001 * generated/any_l16.c: Regenerate.
3002 * generated/any_l2.c: Regenerate.
3003 * generated/all_l1.c: Regenerate.
3004 * generated/all_l2.c: Regenerate.
3005 * generated/all_l16.c: Regenerate.
3006 * generated/any_l4.c: Regenerate.
3007 * generated/count_4_l.c: Regenerate.
3008 * generated/count_8_l.c: Regenerate.
3009 * generated/all_l4.c: Regenerate.
3010 * generated/count_1_l.c: Regenerate.
3011 * generated/count_16_l.c: Regenerate.
3012 * generated/any_l8.c: Regenerate.
3013 * generated/count_2_l.c: Regenerate.
3014 * generated/any_l1.c: Regenerate.
3015 * generated/all_l8.c: Regenerate.
3017 2008-06-13 Tobias Burnus <burnus@net-b.de>
3019 PR fortran/36495
3020 * configure.ac (AM_FCFLAGS): Add "-Werror -fimplicit-none".
3021 * configure: (generated) ditto.
3022 * intrinsics/dprod_r8.f90: Add "implicit none".
3024 2008-06-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3026 PR libfortran/36420
3027 PR libfortran/36421
3028 PR libfortran/36422
3029 * io/io.h: Add prototype for write_real.
3030 * io/transfer.c (formatted_transfer_scalar): For FMT_G and width zero,
3031 use write_real.
3032 * io/format.c: Add zero width error message. (parse_format_list): Use
3033 error message for FMT_A if followed by FMT_ZERO. Use zero width error
3034 message for FMT_G if mode is READ or if -std=f95 or f2003. (fmormat0):
3035 Fix typo in comment.
3036 * io/write.c(write_a): Set wlen to len if FMT_G and length is zero.
3037 (write_l): Add wlen variable and use it if FMT_G and width is zero.
3038 (write_decimal): If FMT_G, set m to -1 to flag processor dependent
3039 formatting. (write_real): Remove static declaration.
3041 2008-05-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
3043 PR fortran/36319
3044 * intrinsics/string_intrinsics_inc.c (string_index): Return
3045 correct value for zero-length substring.
3046 * intrinsics/cshift0.c: Add _char4 variant.
3047 * intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
3048 wider than a single byte. Add _char4 variant and use above
3049 functionality.
3050 * intrinsics/eoshift2.c (eoshift2): Likewise.
3051 * m4/eoshift1.m4: Likewise.
3052 * m4/eoshift3.m4: Likewise.
3053 * m4/cshift1.m4: Add _char4 variants.
3054 * gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
3055 _gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
3056 _gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
3057 _gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
3058 _gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
3059 _gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
3060 _gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
3061 _gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
3062 _gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
3063 _gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
3064 _gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
3065 * generated/eoshift3_4.c: Regenerate.
3066 * generated/eoshift1_8.c: Regenerate.
3067 * generated/eoshift1_16.c: Regenerate.
3068 * generated/cshift1_4.c: Regenerate.
3069 * generated/eoshift1_4.c: Regenerate.
3070 * generated/eoshift3_8.c: Regenerate.
3071 * generated/eoshift3_16.c: Regenerate.
3072 * generated/cshift1_8.c: Regenerate.
3073 * generated/cshift1_16.c: Regenerate.
3075 2008-05-25 Tobias Burnus <burnus@net-b.de>
3077 PR fortran/32600
3078 * intrinsics/iso_c_binding.c (c_f_procpointer): Remove.
3079 * intrinsics/iso_c_binding.h (c_f_procpointer): Remove.
3080 * gfortran.map (c_f_procpointer): Remove.
3082 2008-05-22 Thomas Koenig <tkoenig@gcc.gnu.org>
3084 PR libgfortran/36302
3085 * gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16,
3086 _gfortran_eoshift0_16_char, _gfortran_eoshift2_16,
3087 _gfortran_eoshift2_16_char,_gfortran_cshift0_16,
3088 _gfortran_cshift0_16_char. Sort alphabetically.
3089 * intrinsics/eoshift0.c: Add function for kind=16 integer.
3090 * intrinsics/eoshift2.c: Likewise.
3091 * intrinsics/cshift0.c: Likewise.
3093 2008-05-18 Thomas Koenig <tkoenig@gcc.gnu.org>
3095 * m4/in_pack.m4 (internal_pack_'rtype_code`): Destination
3096 pointer is restrict.
3097 * m4/transpose.m4 (transpose_'rtype_code`): Likewise.
3098 * m4/pack.m4 (pack_'rtype_code`): Likewise.
3099 * m4/spread.m4 (spread_'rtype_code`): Likewise.
3100 (spread_scalar_'rtype_code`): Likewise.
3101 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise.
3102 * m4/eoshift1.m4 (eoshift1): Likewise.
3103 * m4/eoshift3.m4 (eoshift3): Likewise.
3104 * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`): Likewise.
3105 * m4/unpack.m4 (unpack0_'rtype_code`): Likewise.
3106 (unpack1_'rtype_code`): Likewise.
3107 * intrinsics/pack_generic.c (pack_generic.c): Likewise.
3108 * intrinsics/unpack_generic.c (unpack_internal): Likewise.
3109 * intrinsics/eoshift0.c (eoshift0): Likewise.
3110 * intrinsics/eoshift2.c (eoshift2): Likewise.
3111 * intrinsics/reshape_generic.c (reshape_internal): Likewise.
3112 * intrinsics/reshape_packed.c (reshape_packed): Likewise.
3113 * generated/eoshift1_16.c: Regenerated.
3114 * generated/eoshift1_4.c: Regenerated.
3115 * generated/eoshift1_8.c: Regenerated.
3116 * generated/eoshift3_16.c: Regenerated.
3117 * generated/eoshift3_4.c: Regenerated.
3118 * generated/eoshift3_8.c: Regenerated.
3119 * generated/in_pack_c10.c: Regenerated.
3120 * generated/in_pack_c16.c: Regenerated.
3121 * generated/in_pack_c4.c: Regenerated.
3122 * generated/in_pack_c8.c: Regenerated.
3123 * generated/in_pack_i1.c: Regenerated.
3124 * generated/in_pack_i16.c: Regenerated.
3125 * generated/in_pack_i2.c: Regenerated.
3126 * generated/in_pack_i4.c: Regenerated.
3127 * generated/in_pack_i8.c: Regenerated.
3128 * generated/in_pack_r10.c: Regenerated.
3129 * generated/in_pack_r16.c: Regenerated.
3130 * generated/in_pack_r4.c: Regenerated.
3131 * generated/in_pack_r8.c: Regenerated.
3132 * generated/in_unpack_c10.c: Regenerated.
3133 * generated/in_unpack_c16.c: Regenerated.
3134 * generated/in_unpack_c4.c: Regenerated.
3135 * generated/in_unpack_c8.c: Regenerated.
3136 * generated/in_unpack_i1.c: Regenerated.
3137 * generated/in_unpack_i16.c: Regenerated.
3138 * generated/in_unpack_i2.c: Regenerated.
3139 * generated/in_unpack_i4.c: Regenerated.
3140 * generated/in_unpack_i8.c: Regenerated.
3141 * generated/in_unpack_r10.c: Regenerated.
3142 * generated/in_unpack_r16.c: Regenerated.
3143 * generated/in_unpack_r4.c: Regenerated.
3144 * generated/in_unpack_r8.c: Regenerated.
3145 * generated/maxloc0_16_i1.c: Regenerated.
3146 * generated/maxloc0_16_i16.c: Regenerated.
3147 * generated/maxloc0_16_i2.c: Regenerated.
3148 * generated/maxloc0_16_i4.c: Regenerated.
3149 * generated/maxloc0_16_i8.c: Regenerated.
3150 * generated/maxloc0_16_r10.c: Regenerated.
3151 * generated/maxloc0_16_r16.c: Regenerated.
3152 * generated/maxloc0_16_r4.c: Regenerated.
3153 * generated/maxloc0_16_r8.c: Regenerated.
3154 * generated/maxloc0_4_i1.c: Regenerated.
3155 * generated/maxloc0_4_i16.c: Regenerated.
3156 * generated/maxloc0_4_i2.c: Regenerated.
3157 * generated/maxloc0_4_i4.c: Regenerated.
3158 * generated/maxloc0_4_i8.c: Regenerated.
3159 * generated/maxloc0_4_r10.c: Regenerated.
3160 * generated/maxloc0_4_r16.c: Regenerated.
3161 * generated/maxloc0_4_r4.c: Regenerated.
3162 * generated/maxloc0_4_r8.c: Regenerated.
3163 * generated/maxloc0_8_i1.c: Regenerated.
3164 * generated/maxloc0_8_i16.c: Regenerated.
3165 * generated/maxloc0_8_i2.c: Regenerated.
3166 * generated/maxloc0_8_i4.c: Regenerated.
3167 * generated/maxloc0_8_i8.c: Regenerated.
3168 * generated/maxloc0_8_r10.c: Regenerated.
3169 * generated/maxloc0_8_r16.c: Regenerated.
3170 * generated/maxloc0_8_r4.c: Regenerated.
3171 * generated/maxloc0_8_r8.c: Regenerated.
3172 * generated/minloc0_16_i1.c: Regenerated.
3173 * generated/minloc0_16_i16.c: Regenerated.
3174 * generated/minloc0_16_i2.c: Regenerated.
3175 * generated/minloc0_16_i4.c: Regenerated.
3176 * generated/minloc0_16_i8.c: Regenerated.
3177 * generated/minloc0_16_r10.c: Regenerated.
3178 * generated/minloc0_16_r16.c: Regenerated.
3179 * generated/minloc0_16_r4.c: Regenerated.
3180 * generated/minloc0_16_r8.c: Regenerated.
3181 * generated/minloc0_4_i1.c: Regenerated.
3182 * generated/minloc0_4_i16.c: Regenerated.
3183 * generated/minloc0_4_i2.c: Regenerated.
3184 * generated/minloc0_4_i4.c: Regenerated.
3185 * generated/minloc0_4_i8.c: Regenerated.
3186 * generated/minloc0_4_r10.c: Regenerated.
3187 * generated/minloc0_4_r16.c: Regenerated.
3188 * generated/minloc0_4_r4.c: Regenerated.
3189 * generated/minloc0_4_r8.c: Regenerated.
3190 * generated/minloc0_8_i1.c: Regenerated.
3191 * generated/minloc0_8_i16.c: Regenerated.
3192 * generated/minloc0_8_i2.c: Regenerated.
3193 * generated/minloc0_8_i4.c: Regenerated.
3194 * generated/minloc0_8_i8.c: Regenerated.
3195 * generated/minloc0_8_r10.c: Regenerated.
3196 * generated/minloc0_8_r16.c: Regenerated.
3197 * generated/minloc0_8_r4.c: Regenerated.
3198 * generated/minloc0_8_r8.c: Regenerated.
3199 * generated/pack_c10.c: Regenerated.
3200 * generated/pack_c16.c: Regenerated.
3201 * generated/pack_c4.c: Regenerated.
3202 * generated/pack_c8.c: Regenerated.
3203 * generated/pack_i1.c: Regenerated.
3204 * generated/pack_i16.c: Regenerated.
3205 * generated/pack_i2.c: Regenerated.
3206 * generated/pack_i4.c: Regenerated.
3207 * generated/pack_i8.c: Regenerated.
3208 * generated/pack_r10.c: Regenerated.
3209 * generated/pack_r16.c: Regenerated.
3210 * generated/pack_r4.c: Regenerated.
3211 * generated/pack_r8.c: Regenerated.
3212 * generated/spread_c10.c: Regenerated.
3213 * generated/spread_c16.c: Regenerated.
3214 * generated/spread_c4.c: Regenerated.
3215 * generated/spread_c8.c: Regenerated.
3216 * generated/spread_i1.c: Regenerated.
3217 * generated/spread_i16.c: Regenerated.
3218 * generated/spread_i2.c: Regenerated.
3219 * generated/spread_i4.c: Regenerated.
3220 * generated/spread_i8.c: Regenerated.
3221 * generated/spread_r10.c: Regenerated.
3222 * generated/spread_r16.c: Regenerated.
3223 * generated/spread_r4.c: Regenerated.
3224 * generated/spread_r8.c: Regenerated.
3225 * generated/transpose_c10.c: Regenerated.
3226 * generated/transpose_c16.c: Regenerated.
3227 * generated/transpose_c4.c: Regenerated.
3228 * generated/transpose_c8.c: Regenerated.
3229 * generated/transpose_i16.c: Regenerated.
3230 * generated/transpose_i4.c: Regenerated.
3231 * generated/transpose_i8.c: Regenerated.
3232 * generated/transpose_r10.c: Regenerated.
3233 * generated/transpose_r16.c: Regenerated.
3234 * generated/transpose_r4.c: Regenerated.
3235 * generated/transpose_r8.c: Regenerated.
3236 * generated/unpack_c10.c: Regenerated.
3237 * generated/unpack_c16.c: Regenerated.
3238 * generated/unpack_c4.c: Regenerated.
3239 * generated/unpack_c8.c: Regenerated.
3240 * generated/unpack_i1.c: Regenerated.
3241 * generated/unpack_i16.c: Regenerated.
3242 * generated/unpack_i2.c: Regenerated.
3243 * generated/unpack_i4.c: Regenerated.
3244 * generated/unpack_i8.c: Regenerated.
3245 * generated/unpack_r10.c: Regenerated.
3246 * generated/unpack_r16.c: Regenerated.
3247 * generated/unpack_r4.c: Regenerated.
3248 * generated/unpack_r8.c: Regenerated.
3250 2008-05-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
3252 * runtime/select.c: Moved content to select_inc.c. Include it.
3253 Add macros for different character types.
3254 * runtime/select_inc.c: New file.
3255 * runtime/convert_char.c: New file.
3256 * intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
3257 functions.
3258 * intrinsics/transpose_generic.c (transpose_char4): New function.
3259 * intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
3260 New functions.
3261 * intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4):
3262 New functions.
3263 * intrinsics/reshape_generic.c (reshape_char): Use
3264 gfc_charlen_type as type for length variables.
3265 (reshape_char4): New function.
3266 * gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
3267 _gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
3268 _gfortran_transpose_char4, _gfortran_spread_char4,
3269 _gfortran_spread_char4_scalar, _gfortran_reshape_char4,
3270 _gfortran_pack_char4, _gfortran_pack_s_char4,
3271 _gfortran_unpack0_char4 and _gfortran_unpack1_char4.
3272 * Makefile.am: Add runtime/convert_char.c.
3273 * Makefile.in: Regenerate.
3275 2008-05-17 Thomas Koenig <tkoenig@gcc.gnu.org>
3277 * io/list_read.c (list_formatted_read_scalar): Declare
3278 type as volatile to shut up compiler warning.
3280 2008-05-16 Janne Blomqvist <jb@gcc.gnu.org>
3282 PR libfortran/25561
3283 * io/io.h (struct fbuf): Change pointer to position offset.
3284 * io/fbuf.c (fbuf_init): Reduce default size of buffer, ptr=>pos
3285 changes.
3286 (fbuf_reset): ptr=>pos changes.
3287 (fbuf_alloc): If the request doesn't fit, don't waste memory by
3288 keeping flushed bytes. ptr=>pos changes.
3289 (fbuf_flush): ptr=>pos changes.
3290 (fbuf_seek): Don't seek past the left tab limit, don't update active
3291 byte count.
3292 * io/open.c (new_unit): If RECL has been specified, used that as
3293 initial buffer size.
3295 2008-05-16 Janne Blomqvist <jb@gcc.gnu.org>
3297 PR libfortran/35632
3298 * io/open.c (new_unit): Set stream position to correct value.
3300 2008-05-15 Janne Blomqvist <jb@gcc.gnu.org>
3302 PR libfortran/25561
3303 * Makefile.am: Add fbuf.c to gfor_io_src.
3304 * Makefile.in: Regenerate.
3305 * io/io.h (read_block): Remove.
3306 (struct stream): Remove alloc_r_at function pointer.
3307 (salloc_r): Remove.
3308 (salloc_r_at): Remove.
3309 (salloc_w_at): Remove.
3310 (salloc_w): Remove offset argument.
3311 (struct fbuf): New struct for format buffer.
3312 (struct gfc_unit): Add fbuf.
3313 (read_block_form): New prototype.
3314 (fbuf_init): Likewise.
3315 (fbuf_destroy): Likewise.
3316 (fbuf_reset): Likewise.
3317 (fbuf_alloc): Likewise.
3318 (fbuf_flush): Likewise.
3319 (fbuf_seek): Likewise.
3320 * io/file_pos.c (formatted_backspace): Change to use sread.
3321 (unformatted_backspace): Likewise.
3322 (st_backspace): Flush format buffer.
3323 (st_rewind): Likewise.
3324 * io/list_read.c (next_char): Likewise.
3325 (nml_query): Tidying, flush format buffer.
3326 * io/open.c (new_unit): Init format buffer.
3327 * io/read.c (read_l): Change to use read_block_form.
3328 (read_a): Likewise.
3329 (read_decimal): Likewise.
3330 (read_radix): Likewise.
3331 (read_f): Likewise.
3332 (read_x): Empty reads also for stream I/O.
3333 * io/transfer.c (read_sf): Change to use sread.
3334 (read_block): Rename to read_block_form, change prototype, use sread.
3335 (read_block_direct): Don't seek stream files.
3336 (write_block): Change to use fbuf if external file, don't seek stream
3337 files.
3338 (write_buf): Don't seek stream files.
3339 (formatted_transfer_scalar): Use fbuf for external files.
3340 (us_read): Change to use sread.
3341 (pre_position): Do nothing for stream I/O.
3342 (data_transfer_init): Flush fbuf when switching from write to read, if
3343 POS is specified, seek stream file to correct offset.
3344 (skip_record): Change to use sread.
3345 (min_off): New function.
3346 (next_record_r): Change to use sread.
3347 (next_record_w): Change to use sset/sseek, flush fbuf.
3348 (finalize_transfer): Flush fbuf.
3349 * io/unit.c (init_units): Init fbuf for stdout, stderr.
3350 (close_unit_1): Destroy fbuf.
3351 (finish_last_advance_record): Flush fbuf, no need to seek.
3352 * io/unix.c (fd_alloc_r_at): Remove unused where argument.
3353 (fd_alloc_w_at): Likewise.
3354 (fd_read): Remove third argument to fd_alloc_r_at.
3355 (fd_write): Remove third argument to fd_alloc_w_at.
3356 (fd_sset): Likewise.
3357 (fd_open): Don't set alloc_r_at.
3358 (mem_alloc_r_at): Remove unused where argument.
3359 (mem_alloc_w_at): Likewise.
3360 (mem_read): Don't incorrectly return previous errno, remove unused
3361 third argument to alloc function.
3362 (mem_write): Likewise.
3363 (mem_set): Likewise.
3364 (open_internal): Don't set alloc_r_at pointer.
3365 * io/fbuf.c: New file.
3367 2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
3369 * libgfortran.h (gfc_char4_t): New type.
3370 (GFC_SIZE_OF_CHAR_KIND): New macro.
3371 (compare_string): Adjust prototype.
3372 (compare_string_char4): New prototype.
3373 * gfortran.map (GFORTRAN_1.1): Add _gfortran_adjustl_char4,
3374 _gfortran_adjustr_char4, _gfortran_compare_string_char4,
3375 _gfortran_concat_string_char4, _gfortran_string_index_char4,
3376 _gfortran_string_len_trim_char4, _gfortran_string_minmax_char4,
3377 _gfortran_string_scan_char4, _gfortran_string_trim_char4 and
3378 _gfortran_string_verify_char4.
3379 * intrinsics/string_intrinsics_inc.c: New file from content of
3380 string_intrinsics.c with types replaced by macros.
3381 * intrinsics/string_intrinsics.c: Move content to
3382 string_intrinsics_inc.c.
3384 2008-05-11 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3386 PR libfortran/36202
3387 * io/list_read (eat_separator): Handle the CR-LF case correctly.
3389 2008-05-09 Julian Brown <julian@codesourcery.com>
3391 * Makefile.am (LTLDFLAGS): New.
3392 (libgfortran_la_LDFLAGS): Use above.
3393 * Makefile.in: Regenerate.
3395 2008-05-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3397 PR libfortran/36131
3398 * io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
3399 (next_record_w): Likewise.
3401 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
3403 PR libfortran/35995
3404 * m4/ifunction_logical.m4: If the extent of "array"
3405 is less than zero, set it to zero. Use an explicit
3406 flag for breaking out of the main loop to avoid, because
3407 the data pointer for "array" may be NULL for an empty
3408 array.
3409 * m4/ifunction.m4: Likewise.
3410 * generated/all_l1.c: Regenerated.
3411 * generated/all_l16.c: Regenerated.
3412 * generated/all_l2.c: Regenerated.
3413 * generated/all_l4.c: Regenerated.
3414 * generated/all_l8.c: Regenerated.
3415 * generated/any_l1.c: Regenerated.
3416 * generated/any_l16.c: Regenerated.
3417 * generated/any_l2.c: Regenerated.
3418 * generated/any_l4.c: Regenerated.
3419 * generated/any_l8.c: Regenerated.
3420 * generated/count_16_l.c: Regenerated.
3421 * generated/count_1_l.c: Regenerated.
3422 * generated/count_2_l.c: Regenerated.
3423 * generated/count_4_l.c: Regenerated.
3424 * generated/count_8_l.c: Regenerated.
3425 * generated/maxloc1_16_i1.c: Regenerated.
3426 * generated/maxloc1_16_i16.c: Regenerated.
3427 * generated/maxloc1_16_i2.c: Regenerated.
3428 * generated/maxloc1_16_i4.c: Regenerated.
3429 * generated/maxloc1_16_i8.c: Regenerated.
3430 * generated/maxloc1_16_r10.c: Regenerated.
3431 * generated/maxloc1_16_r16.c: Regenerated.
3432 * generated/maxloc1_16_r4.c: Regenerated.
3433 * generated/maxloc1_16_r8.c: Regenerated.
3434 * generated/maxloc1_4_i1.c: Regenerated.
3435 * generated/maxloc1_4_i16.c: Regenerated.
3436 * generated/maxloc1_4_i2.c: Regenerated.
3437 * generated/maxloc1_4_i4.c: Regenerated.
3438 * generated/maxloc1_4_i8.c: Regenerated.
3439 * generated/maxloc1_4_r10.c: Regenerated.
3440 * generated/maxloc1_4_r16.c: Regenerated.
3441 * generated/maxloc1_4_r4.c: Regenerated.
3442 * generated/maxloc1_4_r8.c: Regenerated.
3443 * generated/maxloc1_8_i1.c: Regenerated.
3444 * generated/maxloc1_8_i16.c: Regenerated.
3445 * generated/maxloc1_8_i2.c: Regenerated.
3446 * generated/maxloc1_8_i4.c: Regenerated.
3447 * generated/maxloc1_8_i8.c: Regenerated.
3448 * generated/maxloc1_8_r10.c: Regenerated.
3449 * generated/maxloc1_8_r16.c: Regenerated.
3450 * generated/maxloc1_8_r4.c: Regenerated.
3451 * generated/maxloc1_8_r8.c: Regenerated.
3452 * generated/maxval_i1.c: Regenerated.
3453 * generated/maxval_i16.c: Regenerated.
3454 * generated/maxval_i2.c: Regenerated.
3455 * generated/maxval_i4.c: Regenerated.
3456 * generated/maxval_i8.c: Regenerated.
3457 * generated/maxval_r10.c: Regenerated.
3458 * generated/maxval_r16.c: Regenerated.
3459 * generated/maxval_r4.c: Regenerated.
3460 * generated/maxval_r8.c: Regenerated.
3461 * generated/minloc1_16_i1.c: Regenerated.
3462 * generated/minloc1_16_i16.c: Regenerated.
3463 * generated/minloc1_16_i2.c: Regenerated.
3464 * generated/minloc1_16_i4.c: Regenerated.
3465 * generated/minloc1_16_i8.c: Regenerated.
3466 * generated/minloc1_16_r10.c: Regenerated.
3467 * generated/minloc1_16_r16.c: Regenerated.
3468 * generated/minloc1_16_r4.c: Regenerated.
3469 * generated/minloc1_16_r8.c: Regenerated.
3470 * generated/minloc1_4_i1.c: Regenerated.
3471 * generated/minloc1_4_i16.c: Regenerated.
3472 * generated/minloc1_4_i2.c: Regenerated.
3473 * generated/minloc1_4_i4.c: Regenerated.
3474 * generated/minloc1_4_i8.c: Regenerated.
3475 * generated/minloc1_4_r10.c: Regenerated.
3476 * generated/minloc1_4_r16.c: Regenerated.
3477 * generated/minloc1_4_r4.c: Regenerated.
3478 * generated/minloc1_4_r8.c: Regenerated.
3479 * generated/minloc1_8_i1.c: Regenerated.
3480 * generated/minloc1_8_i16.c: Regenerated.
3481 * generated/minloc1_8_i2.c: Regenerated.
3482 * generated/minloc1_8_i4.c: Regenerated.
3483 * generated/minloc1_8_i8.c: Regenerated.
3484 * generated/minloc1_8_r10.c: Regenerated.
3485 * generated/minloc1_8_r16.c: Regenerated.
3486 * generated/minloc1_8_r4.c: Regenerated.
3487 * generated/minloc1_8_r8.c: Regenerated.
3488 * generated/minval_i1.c: Regenerated.
3489 * generated/minval_i16.c: Regenerated.
3490 * generated/minval_i2.c: Regenerated.
3491 * generated/minval_i4.c: Regenerated.
3492 * generated/minval_i8.c: Regenerated.
3493 * generated/minval_r10.c: Regenerated.
3494 * generated/minval_r16.c: Regenerated.
3495 * generated/minval_r4.c: Regenerated.
3496 * generated/minval_r8.c: Regenerated.
3497 * generated/product_c10.c: Regenerated.
3498 * generated/product_c16.c: Regenerated.
3499 * generated/product_c4.c: Regenerated.
3500 * generated/product_c8.c: Regenerated.
3501 * generated/product_i1.c: Regenerated.
3502 * generated/product_i16.c: Regenerated.
3503 * generated/product_i2.c: Regenerated.
3504 * generated/product_i4.c: Regenerated.
3505 * generated/product_i8.c: Regenerated.
3506 * generated/product_r10.c: Regenerated.
3507 * generated/product_r16.c: Regenerated.
3508 * generated/product_r4.c: Regenerated.
3509 * generated/product_r8.c: Regenerated.
3510 * generated/sum_c10.c: Regenerated.
3511 * generated/sum_c16.c: Regenerated.
3512 * generated/sum_c4.c: Regenerated.
3513 * generated/sum_c8.c: Regenerated.
3514 * generated/sum_i1.c: Regenerated.
3515 * generated/sum_i16.c: Regenerated.
3516 * generated/sum_i2.c: Regenerated.
3517 * generated/sum_i4.c: Regenerated.
3518 * generated/sum_i8.c: Regenerated.
3519 * generated/sum_r10.c: Regenerated.
3520 * generated/sum_r16.c: Regenerated.
3521 * generated/sum_r4.c: Regenerated.
3522 * generated/sum_r8.c: Regenerated.
3524 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
3526 PR libfortran/35990
3527 * intrinsics/pack_generic.c: Really commit.
3529 2008-05-04 Thomas Koenig <tkoenig@gcc.gnu.org>
3531 PR libfortran/35990
3532 * intrinsics/pack_generic.c: If an extent of the source
3533 array is less then zero, set it to zero. Set the source
3534 pointer to NULL if the source size is zero. Set the total
3535 number of elements to zero if the vector has an extent
3536 less or equal to zero.
3537 * m4/pack.m4: Set the source pointer to NULL if the
3538 source array is zero-sized. Set the total number of
3539 elemements to zero if the vector has an extent less or
3540 equal to zero.
3541 * generated/pack_i1.c: Regenerated.
3542 * generated/pack_i2.c: Regenerated.
3543 * generated/pack_i4.c: Regenerated.
3544 * generated/pack_i8.c: Regenerated.
3545 * generated/pack_i16.c: Regenerated.
3546 * generated/pack_r4.c: Regenerated.
3547 * generated/pack_r8.c: Regenerated.
3548 * generated/pack_r10.c: Regenerated.
3549 * generated/pack_r16.c: Regenerated.
3550 * generated/pack_c4.c: Regenerated.
3551 * generated/pack_c8.c: Regenerated.
3552 * generated/pack_c10.c: Regenerated.
3553 * generated/pack_c16.c: Regenerated.
3555 2008-05-01 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3557 PR libfortran/36094
3558 * runtime/error.c (show_locus): Provide modified error message when
3559 filename has not yet been associated with a unit number.
3560 * io/open.c (encoding_opt[]): Comment out "utf-8" option and add TODO.
3562 2008-04-30 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
3564 * intrinsics/selected_char_kind.c: New file.
3565 * gfortran.map (GFORTRAN_1.1): Add _gfortran_selected_char_kind.
3566 * Makefile.am: Add intrinsics/selected_char_kind.c.
3567 * Makefile.in: Regenerate.
3569 2008-04-30 Thomas Koenig <tkoenig@gcc.gnu.org>
3571 PR libfortran/35993
3572 * ifunction.m4 (SCALAR_ARRAY_FUNCTION): Use correct
3573 implementation for multi-dimensional return arrays when
3574 the mask is .false.
3575 * generated/maxloc1_16_i1.c: Regenerated.
3576 * generated/maxloc1_16_i16.c: Regenerated.
3577 * generated/maxloc1_16_i2.c: Regenerated.
3578 * generated/maxloc1_16_i4.c: Regenerated.
3579 * generated/maxloc1_16_i8.c: Regenerated.
3580 * generated/maxloc1_16_r10.c: Regenerated.
3581 * generated/maxloc1_16_r16.c: Regenerated.
3582 * generated/maxloc1_16_r4.c: Regenerated.
3583 * generated/maxloc1_16_r8.c: Regenerated.
3584 * generated/maxloc1_4_i1.c: Regenerated.
3585 * generated/maxloc1_4_i16.c: Regenerated.
3586 * generated/maxloc1_4_i2.c: Regenerated.
3587 * generated/maxloc1_4_i4.c: Regenerated.
3588 * generated/maxloc1_4_i8.c: Regenerated.
3589 * generated/maxloc1_4_r10.c: Regenerated.
3590 * generated/maxloc1_4_r16.c: Regenerated.
3591 * generated/maxloc1_4_r4.c: Regenerated.
3592 * generated/maxloc1_4_r8.c: Regenerated.
3593 * generated/maxloc1_8_i1.c: Regenerated.
3594 * generated/maxloc1_8_i16.c: Regenerated.
3595 * generated/maxloc1_8_i2.c: Regenerated.
3596 * generated/maxloc1_8_i4.c: Regenerated.
3597 * generated/maxloc1_8_i8.c: Regenerated.
3598 * generated/maxloc1_8_r10.c: Regenerated.
3599 * generated/maxloc1_8_r16.c: Regenerated.
3600 * generated/maxloc1_8_r4.c: Regenerated.
3601 * generated/maxloc1_8_r8.c: Regenerated.
3602 * generated/maxval_i1.c: Regenerated.
3603 * generated/maxval_i16.c: Regenerated.
3604 * generated/maxval_i2.c: Regenerated.
3605 * generated/maxval_i4.c: Regenerated.
3606 * generated/maxval_i8.c: Regenerated.
3607 * generated/maxval_r10.c: Regenerated.
3608 * generated/maxval_r16.c: Regenerated.
3609 * generated/maxval_r4.c: Regenerated.
3610 * generated/maxval_r8.c: Regenerated.
3611 * generated/minloc1_16_i1.c: Regenerated.
3612 * generated/minloc1_16_i16.c: Regenerated.
3613 * generated/minloc1_16_i2.c: Regenerated.
3614 * generated/minloc1_16_i4.c: Regenerated.
3615 * generated/minloc1_16_i8.c: Regenerated.
3616 * generated/minloc1_16_r10.c: Regenerated.
3617 * generated/minloc1_16_r16.c: Regenerated.
3618 * generated/minloc1_16_r4.c: Regenerated.
3619 * generated/minloc1_16_r8.c: Regenerated.
3620 * generated/minloc1_4_i1.c: Regenerated.
3621 * generated/minloc1_4_i16.c: Regenerated.
3622 * generated/minloc1_4_i2.c: Regenerated.
3623 * generated/minloc1_4_i4.c: Regenerated.
3624 * generated/minloc1_4_i8.c: Regenerated.
3625 * generated/minloc1_4_r10.c: Regenerated.
3626 * generated/minloc1_4_r16.c: Regenerated.
3627 * generated/minloc1_4_r4.c: Regenerated.
3628 * generated/minloc1_4_r8.c: Regenerated.
3629 * generated/minloc1_8_i1.c: Regenerated.
3630 * generated/minloc1_8_i16.c: Regenerated.
3631 * generated/minloc1_8_i2.c: Regenerated.
3632 * generated/minloc1_8_i4.c: Regenerated.
3633 * generated/minloc1_8_i8.c: Regenerated.
3634 * generated/minloc1_8_r10.c: Regenerated.
3635 * generated/minloc1_8_r16.c: Regenerated.
3636 * generated/minloc1_8_r4.c: Regenerated.
3637 * generated/minloc1_8_r8.c: Regenerated.
3638 * generated/minval_i1.c: Regenerated.
3639 * generated/minval_i16.c: Regenerated.
3640 * generated/minval_i2.c: Regenerated.
3641 * generated/minval_i4.c: Regenerated.
3642 * generated/minval_i8.c: Regenerated.
3643 * generated/minval_r10.c: Regenerated.
3644 * generated/minval_r16.c: Regenerated.
3645 * generated/minval_r4.c: Regenerated.
3646 * generated/minval_r8.c: Regenerated.
3647 * generated/product_c10.c: Regenerated.
3648 * generated/product_c16.c: Regenerated.
3649 * generated/product_c4.c: Regenerated.
3650 * generated/product_c8.c: Regenerated.
3651 * generated/product_i1.c: Regenerated.
3652 * generated/product_i16.c: Regenerated.
3653 * generated/product_i2.c: Regenerated.
3654 * generated/product_i4.c: Regenerated.
3655 * generated/product_i8.c: Regenerated.
3656 * generated/product_r10.c: Regenerated.
3657 * generated/product_r16.c: Regenerated.
3658 * generated/product_r4.c: Regenerated.
3659 * generated/product_r8.c: Regenerated.
3660 * generated/sum_c10.c: Regenerated.
3661 * generated/sum_c16.c: Regenerated.
3662 * generated/sum_c4.c: Regenerated.
3663 * generated/sum_c8.c: Regenerated.
3664 * generated/sum_i1.c: Regenerated.
3665 * generated/sum_i16.c: Regenerated.
3666 * generated/sum_i2.c: Regenerated.
3667 * generated/sum_i4.c: Regenerated.
3668 * generated/sum_i8.c: Regenerated.
3669 * generated/sum_r10.c: Regenerated.
3670 * generated/sum_r16.c: Regenerated.
3671 * generated/sum_r4.c: Regenerated.
3672 * generated/sum_r8.c: Regenerated.
3674 2008-04-25 Thomas Koenig <tkoenig@gcc.gnu.org>
3676 PR libfortran/35960
3677 * m4/reshape.m4: Fix typo in last commit.
3678 * generated/reshape_i4.c: Regererated.
3679 * generated/reshape_i8.c: Regenerated.
3680 * generated/reshape_i16.c: Regenerated.
3681 * generated/reshape_r4.c: Regenerated.
3682 * generated/reshape_r8.c: Regenerated.
3683 * generated/reshape_r10.c: Regenerated.
3684 * generated/reshape_r16.c: Regenerated.
3685 * generated/reshape_c4.c: Regenerated.
3686 * generated/reshape_c8.c: Regenerated.
3687 * generated/reshape_c10.c: Regenerated.
3688 * generated/reshape_c16.c: Regenerated.
3690 2008-04-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
3692 * intrinsics/time_1.h (__time_1): Remove unused variable.
3694 2008-04-23 Thomas Koenig <tkoenig@gcc.gnu.org>
3696 PR libfortran/35988
3697 * m4/matmul.m4: Only issue a runtime error if extents are
3698 non-zero.
3699 * generated/matmul_i1.c: Regenerated.
3700 * generated/matmul_i2.c: Regenerated.
3701 * generated/matmul_i4.c: Regenerated.
3702 * generated/matmul_i8.c: Regenerated.
3703 * generated/matmul_i16.c: Regenerated.
3704 * generated/matmul_r4.c: Regenerated.
3705 * generated/matmul_r8.c: Regenerated.
3706 * generated/matmul_r10.c: Regenerated.
3707 * generated/matmul_r16.c: Regenerated.
3708 * generated/matmul_c4.c: Regenerated.
3709 * generated/matmul_c8.c: Regenerated.
3710 * generated/matmul_c10.c: Regenerated.
3711 * generated/matmul_c16.c: Regenerated.
3713 2008-04-21 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
3715 * acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY)
3716 (LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT)
3717 (LIBGFOR_CHECK_ATTRIBUTE_ALIAS, LIBGFOR_CHECK_SYNC_FETCH_AND_ADD)
3718 (LIBGFOR_GTHREAD_WEAK, LIBGFOR_CHECK_UNLINK_OPEN_FILE)
3719 (LIBGFOR_CHECK_CRLF, LIBGFOR_CHECK_FOR_BROKEN_ISFINITE)
3720 (LIBGFOR_CHECK_FOR_BROKEN_ISNAN)
3721 (LIBGFOR_CHECK_FOR_BROKEN_FPCLASSIFY, LIBGFOR_CHECK_WORKING_STAT)
3722 (LIBGFOR_CHECK_FPSETMASK, LIBGFOR_CHECK_MINGW_SNPRINTF):
3723 Fix cache variable names.
3724 * configure, Makefile.in: Regenerate.
3726 2008-04-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3728 PR fortran/35991
3729 * intrinsics/cshift0.c (cshift0): Avoid divide by zero.
3731 2008-04-20 Thomas Koenig <tkoenig@gcc.gnu.org>
3733 PR libfortran/35960
3734 * intrinsics/reshape_generic.c (reshape_internal): If the size
3735 of the resized array is zero, as determined by the SHAPE
3736 argument, return early.
3737 * m4/reshape.m4: Likewise.
3738 * generated/reshape_i4.c: Regererated.
3739 * generated/reshape_i8.c: Regenerated.
3740 * generated/reshape_i16.c: Regenerated.
3741 * generated/reshape_r4.c: Regenerated.
3742 * generated/reshape_r8.c: Regenerated.
3743 * generated/reshape_r10.c: Regenerated.
3744 * generated/reshape_r16.c: Regenerated.
3745 * generated/reshape_c4.c: Regenerated.
3746 * generated/reshape_c8.c: Regenerated.
3747 * generated/reshape_c10.c: Regenerated.
3748 * generated/reshape_c16.c: Regenerated.
3750 2008-04-18 Paolo Bonzini <bonzini@gnu.org>
3752 PR bootstrap/35457
3753 * aclocal.m4: Regenerate.
3754 * configure: Regenerate.
3756 2008-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
3758 PR libfortran/32972
3759 * intrinsics/spread_generic.c (spread): Use spread_i2()
3760 for GFC_DTYPE_DERIVED_2 (fix typo from previous commit).
3762 2008-04-13 Thomas Koenig <tkoenig@gcc.gnu.org>
3763 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
3765 PR libfortran/32972
3766 PR libfortran/32512
3767 configure.ac: Add test for uintptr_t.
3768 configure: Regenerated.
3769 config.h.in: Regenerated.
3770 * libgfortran.h: GFC_DTYPE_DERIVED_1: New macro.
3771 GFC_DTYPE_DERIVED_2: New macro.
3772 GFC_DTYPE_DERIVED_4: New macro.
3773 GFC_DTYPE_DERIVED_8: New macro.
3774 GFC_DTYPE_DERIVED_16: New macro.
3775 GFC_UNALIGNED_2: New macro.
3776 GFC_UNALIGNED_4: New macro.
3777 GFC_UNALIGNED_8: New macro.
3778 GFC_UNALIGNED_16: New macro.
3779 intptr_t: Define if we don't have it.
3780 uintptr_t: Likewise.
3781 * runtime/backtrace.c (show_backtrace): Use intptr_t.
3782 * intrinsics/signal.c (signal_sub): Likewise.
3783 (signal_sub_int): Likewise.
3784 (alarm_sub_int_i4): Likewise.
3785 * intrinsics/spread_generic.c (spread): Use the integer
3786 routines for handling derived types of sizes 1, 2, 4, 8 and 16
3787 if the alignment of all pointers is correct.
3788 (spread_scalar): Likewise.
3789 * intrinsics/pack_generic.c (pack): Likewise.
3790 Use GFD_DTYPE_TYPE_SIZE to avoid nested switch statements.
3791 * intrinsics/unpack_generic.c (unpack1): Likewise.
3792 (unpack0): Likewise.
3793 * runtime/in_pack_generic.c (internal_pack): Likewise.
3794 * runtime/in_unpack_generic.c (internal_unpack): Likewise.
3796 2008-04-09 Jakub Jelinek <jakub@redhat.com>
3798 * io/list_read.c (snprintf): Define if HAVE_SNPRINTF isn't defined.
3799 (nml_read_obj): Add nml_err_msg_size argument. Pass it down to
3800 recursive call. Use snprintf instead of sprintf when %s nl->var_name
3801 is used.
3802 (nml_get_obj_data): Add nml_err_msg_size argument. Pass it down to
3803 nml_read_obj call. Use snprintf instead of sprintf when %s
3804 nl->var_name is used. Pass nml_err_msg to nml_parse_qualifier instead
3805 of parse_err_msg array. Append " for namelist variable " and
3806 nl->var_name to it.
3807 (namelist_read): Increase size of nml_err_msg array to 200. Pass
3808 sizeof nml_err_msg as extra argument to nml_get_obj_data.
3810 2008-04-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3812 PR fortran/25829 28655
3813 * io/open.c (edit_modes): Set flags.async. (new_unit) Set flags.async
3814 and flags.status. (st_open): Initialize flags.async.
3815 * io/list_read.c (read_charactor): Use delim_status instead of
3816 flags.delim.
3817 * io/read.c (read_x): Use pad_status instead of flags.pad.
3818 * io/inquire.c (inquire_via_unit): Add new checks.
3819 (inquire_via_filename): Likewise.
3820 * io/io.h (st_parameter_inquire): Add new flags.
3821 (st_parameter_dt): Likewise.
3822 * io/unit.c (get_internal_unit): Set flags.async. (init_units): Set
3823 flags.async.
3824 * io/transfer.c: Add delim and pad option arrays. (read_sf): Use
3825 pad_status instead of flags.pad. (read_block): Likewise.
3826 (data_transfer_init): Set flags.async and add checks.
3827 * io/write.c (write_character): Use delim_status.
3828 (list_formatted_write_scalar): Likewise. (nml_write_obj): Likewise.
3829 (namelist_write): Likewise.
3831 2008-04-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3833 PR fortran/25829 28655
3834 * gfortran.map: Add new symbol, _gfortran_st_wait.
3835 * libgfortran.h (st_paramter_common): Add new I/O parameters.
3836 * open.c (st_option decimal_opt[], st_option encoding_opt[],
3837 st_option round_opt[], st_option sign_opt[], st_option async_opt[]): New
3838 parameter option arrays. (edit_modes): Add checks for new parameters.
3839 (new_unit): Likewise. (st_open): Likewise.
3840 * list_read.c (CASE_SEPERATORS): Add ';' as a valid separator.
3841 (eat_separator): Handle deimal comma. (read_logical): Fix whitespace.
3842 (parse_real): Handle decimal comma. (read_real): Handle decimal comma.
3843 * read.c (read_a): Use decimal status flag to allow comma in place of a
3844 decimal point. (read_f): Allow comma as acceptable character in float.
3845 According to decimal flag, substitute a period for a comma.
3846 (read_x): If decimal status flag is comma, disable the read_comma flag,
3847 not allowing comma as a delimiter, an extension otherwise.
3848 * io.h: (unit_decimal, unit_encoding, unit_round, unit_sign,
3849 unit_async): New enumerators. Add all new I/O parameters.
3850 * unix.c (unix_stream, int_stream): Add io_mode asychronous I/O control.
3851 (move_pos_offset, fd_alloc_w_at): Fix some whitespace.
3852 (fd_sfree): Use new enumerator. (fd_read): Likewise.
3853 (fd_write): Likewise. (fd_close): Fix whitespace.
3854 (fd_open): Use new enumertors. (tempfile, regular_file,
3855 open_external): Fix whitespace. (output_stream, error_stream): Set
3856 method. (stream_offset): Fix whitespace.
3857 * transfer.c: (st_option decimal_opt[], sign_opt[], blank_opt[]): New
3858 option arrays. (formatted_transfer_scalar): Set sf_read_comma flag
3859 based on new decimal_status flag. (data_transfer_init): Initialize new
3860 parameters. Add checks for decimal, sign, and blank. (st_wait): New stub.
3861 * format.c: (format_lex): Add format specifiers DP, DC, and D.
3862 (parse_format_list): Parse the new specifiers.
3863 * write.c (write_decimal): Use new sign enumerators to set the sign.
3864 (write_complex): Handle decimal comma and semi-colon separator.
3865 (nml_write_obj): Likewise.
3866 * write_float.def: Revise sign enumerators. (calculate_sign): Use new
3867 sign enumerators. (output_float): Likewise. Use new decimal_status flag
3868 to set the decimal character to a point or a comma.
3870 2008-03-28 Thomas Koenig <tkoenig@gcc.gnu.org>
3872 PR libfortran/32972
3873 PR libfortran/32512
3874 * Makefile.am: Add new variable, i_spread_c, containing
3875 pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, spread_i16.c,
3876 spread_r4.c, spread_r8.c, spread_r10.c, spread_r16.c,
3877 spread_c4.c, spread_c8.c, spread_c10.c, spread_c16.c.
3878 * Makefile.in: Regenerated.
3879 * libgfortran.h: Add prototypes for spread_i1, spread_i2,
3880 spread_i4, spread_i8, spread_i16, spread_r4, spread_r8,
3881 spread_c4, spread_c8, spread_c10, spread_c16,
3882 spread_scalar_i1, spread_scalar_i2, spread_scalar_i4,
3883 spread_scalar_i8, spread_scalar_i16, spread_scalar_r4
3884 spread_scalar_r8, spread_scalar_c4, spread_scalar_c8,
3885 spread_scalar_c10 and spread_scalar_c16.
3886 Add macros to isolate both type and size information
3887 from array descriptors with a single mask operation.
3888 * intrinsics/spread_generic.c: Add calls to specific
3889 spread functions.
3890 * m4/spread.m4: New file.
3891 * generated/spread_i1.c: New file.
3892 * generated/spread_i2.c: New file.
3893 * generated/spread_i4.c: New file.
3894 * generated/spread_i8.c: New file.
3895 * generated/spread_i16.c: New file.
3896 * generated/spread_r4.c: New file.
3897 * generated/spread_r8.c: New file.
3898 * generated/spread_r10.c: New file.
3899 * generated/spread_r16.c: New file.
3900 * generated/spread_c4.c: New file.
3901 * generated/spread_c8.c: New file.
3902 * generated/spread_c10.c: New file.
3903 * generated/spread_c16.c: New file.
3905 2008-03-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3907 PR libfortran/35699
3908 * io/transfer.c (write_buf): Don't pad the record, just return if the
3909 data is NULL. (next_record_w): If there are bytes left in the record
3910 for unformatted direct I/O, pad out the record with zero bytes.
3912 2008-03-28 Tobias Burnus <burnus@net-b.de>
3914 PR fortran/35721
3915 * intrinsics/associated.c (associated): Ignore different
3916 stride of pointer vs. target if only one element is referred.
3918 2008-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3920 * io/unix.c (fd_close): Do not close STDIN.
3922 2007-03-23 Thomas Koenig <tkoenig@gcc.gnu.org
3924 PR libfortran/32972
3925 * Makefile.am: Add new variable, i_unpack_c, containing
3926 unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c,
3927 unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c,
3928 unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c
3929 and unpack_c16.c
3930 Add i_unpack_c to gfor_built_src.
3931 Add rule to generate i_unpack_c from m4/unpack.m4.
3932 * Makefile.in: Regenerated.
3933 * libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2,
3934 unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8,
3935 unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10,
3936 unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8,
3937 unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16,
3938 unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16.
3939 * intrinsics/pack_generic.c (unpack1): Add calls to specific
3940 unpack1 functions.
3941 (unpack0): Add calls to specific unpack0 functions.
3942 * m4/unpack.m4: New file.
3943 * generated/unpack_i1.c: New file.
3944 * generated/unpack_i2.c: New file.
3945 * generated/unpack_i4.c: New file.
3946 * generated/unpack_i8.c: New file.
3947 * generated/unpack_i16.c: New file.
3948 * generated/unpack_r4.c: New file.
3949 * generated/unpack_r8.c: New file.
3950 * generated/unpack_r10.c: New file.
3951 * generated/unpack_r16.c: New file.
3952 * generated/unpack_c4.c: New file.
3953 * generated/unpack_c8.c: New file.
3954 * generated/unpack_c10.c: New file.
3955 * generated/unpack_c16.c: New file.
3957 2008-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3959 PR libfortran/35632
3960 * io/transfer.c (data_transfer_init): Fix whitespace.
3961 (next_record_w): Truncate the file only if the stream
3962 position is short of the file end.
3964 2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
3966 * intrinsics/pack_generic.c: Fix typo.
3968 2008-03-21 Janne Blomqvist <jb@gcc.gnu.org>
3970 * gfortran.map: Move erfc_scaled symbols to new symbol node
3971 GFORTRAN_1.1, thereby fixing ABI bug introduced in r132846.
3973 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
3975 PR libfortran/32972
3976 * runtime/in_pack_generic.c (internal_pack): Call correct
3977 function, pack_i16, for GFC_INTEGER_16.
3979 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
3981 PR libfortran/32972
3982 * Makefile.am: Add new variable, i_pack_c, containing
3983 pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c,
3984 pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c,
3985 pack_c8.c, pack_c10.c, pack_c16.c.
3986 Add m4/pack.m4 to m4_files.
3987 Add i_pack_c to gfor_built_src.
3988 Add rule to generate i_pack_c from m4/pack.m4.
3989 * Makefile.in: Regenerated.
3990 * libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4,
3991 pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8,
3992 pack_c10, pack_c16.
3993 * intrinsics/pack_generic.c: Add calls to specific
3994 pack functions.
3995 * m4/pack.m4: New file.
3996 * generated/pack_i1.c: New file.
3997 * generated/pack_i2.c: New file.
3998 * generated/pack_i4.c: New file.
3999 * generated/pack_i8.c: New file.
4000 * generated/pack_i16.c: New file.
4001 * generated/pack_r4.c: New file.
4002 * generated/pack_r8.c: New file.
4003 * generated/pack_r10.c: New file.
4004 * generated/pack_r16.c: New file.
4005 * generated/pack_c4.c: New file.
4006 * generated/pack_c8.c: New file.
4007 * generated/pack_c10.c: New file.
4008 * generated/pack_c16.c: New file.
4010 2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4012 PR libfortran/35627
4013 * io/list_read.c (free_line): Clear the line buffer enable flag and
4014 reset the index into line_buffer, aka item_count.
4015 (next_char): Cleanup whitespace.
4016 (read_logical): Use unget_char to assure that the first character of the
4017 bad logical is saved in case it is part of an object name. Remove the
4018 clearing of index and flag that is now in free_line.
4019 (read_real): Likewise.
4021 2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
4023 PR libfortran/32972
4024 * runtime/in_pack_generic.c (internal_pack): Fix typo in
4025 last commit.
4027 2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
4029 PR libfortran/32972
4030 * Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c,
4031 in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c.
4032 (in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c,
4033 in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and
4034 in_unpack_r16.c.
4035 * Makefile.in: Regenerate.
4036 * libgfortran.h: Add prototypes for internal_pack_1,
4037 internal_pack_2, internal_pack_16, internal_pack_r4,
4038 internal_pack_r8, internal_pack_r10, internal_pack_r16,
4039 internal_pack_c10 and internal_pack_c16. Add prototypes for
4040 internal_unpack_1, internal_unpack_2, internal_unpack_16,
4041 internal_unpack_r4, internal_unpack_r8, internal_unpack_r10,
4042 internal_unpack_r16, internal_unpack_c10 and
4043 internal_unpack_c16.
4044 * runtime/in_pack_generic.c (internal_pack): Use sizeof instead
4045 of hardwired sizes.
4046 Add calls to internal_pack_1, internal_pack_2,
4047 internal_pack_16, internal_pack_r4, internal_pack_r8,
4048 internal_pack_r10, internal_pack_r16, internal_pack_c10 and
4049 internal_pack_c16.
4050 * runtime/in_unpack_generic.c (internal_unpack): Use sizeof
4051 instead of hardwired sizes.
4052 Add calls to internal_unpack_1, internal_unpack_2,
4053 internal_unpack_16, internal_unpack_r4, internal_unpack_r8,
4054 internal_unpack_r10, internal_unpack_r16, internal_unpack_c10
4055 and internal_unpack_c16.
4056 * generated/in_pack_r4.c: New file.
4057 * generated/in_pack_i2.c: New file.
4058 * generated/in_unpack_i1.c: New file.
4059 * generated/in_pack_r10.c: New file.
4060 * generated/in_unpack_r4.c: New file.
4061 * generated/in_unpack_i2.c: New file.
4062 * generated/in_unpack_r16.c: New file.
4063 * generated/in_pack_r8.c: New file.
4064 * generated/in_unpack_r10.c: New file.
4065 * generated/in_unpack_r8.c: New file.
4066 * generated/in_pack_r16.c: New file.
4067 * generated/in_pack_i1.c: New file.
4069 2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4071 PR libfortran/35617
4072 * io/list_read.c (eat_separator): If next character after eatline is '!'
4073 then eatline again.
4075 2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de>
4077 * aclocal.m4: Regenerate.
4078 * configure: Likewise.
4079 * Makefile.in: Likewise.
4081 2008-03-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
4083 PR libfortran/35524
4084 * intrinsics/erfc_scaled_inc.c: Only define the long double
4085 variant of erfc_scaled if expl is available.
4087 2008-03-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
4089 PR libfortran/32812
4090 * intrinsics/random.c (scramble_seed, unscramble_seed): New
4091 functions.
4092 (random_seed_i4): Scramble the seed the user gives us before
4093 storing it, and unscramble it when we return it back later.
4095 2008-03-05 Hans-Peter Nilsson <hp@axis.com>
4097 PR libfortran/35293
4098 * io/unix.c (fd_truncate): Fold s->special_file case into
4099 success case of ftruncate/chsize call instead of the failure case.
4100 Make failure case actually return failure. Properly update stream
4101 pointers on failure. Call runtime_error for targets without
4102 neither ftruncate nor chsize where such a call would be needed.
4104 2008-03-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
4106 PR fortran/33197
4107 * intrinsics/erfc_scaled_inc.c: New file.
4108 * intrinsics/erfc_scaled.c: New file.
4109 * gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*.
4110 * Makefile.am: Add intrinsics/erfc_scaled.c.
4111 * config.h.in: Regenerate.
4112 * configure: Regenerate.
4113 * Makefile.in: Regenerate.
4115 2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
4117 PR libfortran/35355
4118 * intrinsics/time_1.h (__time_1): Fix calculation of user_usec
4119 for mingw.
4121 2008-03-01 Janne Blomqvist <jb@gcc.gnu.org>
4123 PR libfortran/35063
4124 * io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy
4125 instead of macro kludge.
4127 2008-02-25 Janne Blomqvist <jb@gcc.gnu.org>
4129 PR fortran/29549
4130 * Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of
4131 libgfortran.
4132 * Makefile.in: Regenerated.
4134 2008-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
4136 * m4/ifunction_logical.m4: Add casts to get rid of warnings.
4137 * generated/all_l1.c: Regenerate.
4138 * generated/all_l2.c: Regenerate.
4139 * generated/all_l4.c: Regenerate.
4140 * generated/all_l8.c: Regenerate.
4141 * generated/all_l16.c: Regenerate.
4142 * generated/any_l1.c: Regenerate.
4143 * generated/any_l2.c: Regenerate.
4144 * generated/any_l4.c: Regenerate.
4145 * generated/any_l8.c: Regenerate.
4146 * generated/any_l16.c: Regenerate.
4147 * generated/count_1_l.c: Regenerate.
4148 * generated/count_2_l.c: Regenerate.
4149 * generated/count_4_l.c: Regenerate.
4150 * generated/count_8_l.c: Regenerate.
4151 * generated/count_16_l.c: Regenerate.
4153 2008-02-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
4155 PR libfortran/32841
4156 * acinclude.m4: Don't use HAVE_MATH_H.
4157 * configure: Regenerate.
4159 2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4161 PR libfortran/35132
4162 * io/transfer.c (next_record_w): Truncate after the last record for
4163 STREAM I/O.
4165 PR libfortran/34954
4166 * io/transfer.c (data_transfer_init): Initialize dtp->rec if writing.
4168 PR libfortran/34974
4169 * io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips
4170 is less than zero. (next_record_w): Use sseek to position the file to
4171 the max position reached.
4173 2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4175 PR libfortran/35036
4176 * write_float.def (output_float): Add error checks for zero digits
4177 after decimal point in E and D format specifiers.
4179 2008-02-10 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4181 PR libfortran/35063
4182 * io/unit.c (destroy_unit_mutex): New function that uses
4183 __gthread_mutex_destroy_function or pthread_mutex_destroy after
4184 unlocking and before free_mem for final closure of I/O unit.
4185 (delete_root): Use new function.
4186 (free_internal_unit): Likewise.
4187 (close_unit_1): Likewise.
4189 2008-02-02 Thomas Koenig <tkoenig@gcc.gnu.org>
4191 PR libfortran/35001
4192 * m4/shape.m4: Return 0 for extents <= 0.
4193 * generated/shape_i4.c: Regenerated.
4194 * generated/shape_i8.c: Regenerated.
4195 * generated/shape_i16.c: Regenerated.
4197 2008-01-27 Thomas Koenig <tkoenig@gcc.gnu.org>
4199 PR libfortran/34980
4200 * m4/shape.m4: If return array is empty, return early.
4201 * generated/shape_i4.c: Regenerated.
4202 * generated/shape_i8.c: Regenerated.
4203 * generated/shape_i16.c: Regenerated.
4205 2008-01-26 Thomas Koenig <tkoenig@gcc.gnu.org>
4207 PR libfofortran/34887
4208 * io/transfer.c (next_record_w): Always move to the farthest
4209 position when completing the record (also when we are
4210 processing a slash edit descriptor).
4212 2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4214 PR libfortran/34876
4215 * io/transfer.c (write_buf): Handle case of zero sized array.
4216 (transfer_array): Set data pointer to NULL and size to zero. Then
4217 make a data transfer and return.
4219 2008-01-24 David Edelsohn <edelsohn@gnu.org>
4221 * configure: Regenerate.
4223 2008-01-19 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4225 PR libfortran/34795
4226 * io/inquire.c (inquire_via_unit): If a unit is opened, return values
4227 according to the open action for DIRECT, FORMATTED, and UNFORMATTED.
4228 (inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT,
4229 FORAMATTED, and UNFORMATTED inquiries.
4230 * io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate
4231 for files that are not opened. (inquire_direct): Same.
4232 (inquire_formatted): Same.
4234 2008-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4236 PR libfortran/34782
4237 * io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater
4238 of the current max_pos or the newly calculated position.
4240 2008-01-18 Tobias Burnus <burnus@net-b.de>
4242 * io/write.c (write_real): Increase default precision
4243 for REAL(16) by one.
4245 2008-01-16 Steven Bosscher <steven@gcc.gnu.org>
4247 PR libfortran/34669
4248 * mk-kinds-h.sh: Compile with -S to avoid calling the assembler,
4249 to avoid piping the -fdump-parse-tree output to the assembler
4250 when configuring with -pipe.
4251 * mk-sik-inc.sh: Likewise.
4252 * mk-srk-inc.sh: Likewise.
4254 2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
4256 PR libfortran/34671
4257 * gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
4258 _gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
4259 _gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
4260 _gfortran_count_8_l Removed _gfortran_count_16_l16,
4261 _gfortran_count_16_l4, _gfortran_count_16_l8,
4262 _gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
4263 _gfortran_count_8_l16, _gfortran_count_8_l4 and
4264 _gfortran_count_8_l8.
4265 * Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
4266 i_any_c. Added generated/all_l1. and generated/all_l2.c to
4267 i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
4268 generated/count_16_l4.c, generated/count_4_l8.c,
4269 generated/count_8_l8.c, generated/count_16_l8.c,
4270 generated/count_4_l16.c, generated/count_8_l16.c, and
4271 generated/count_16_l16.c from i_count_c. Added count_1_l.c,
4272 count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
4273 i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
4274 any of the files generated from all.m4, any.m4 and count.m4.
4275 * Makefile.in: Regenerated.
4276 * m4/ifunction_logical.m4: New file. Use
4277 GFC_LOGICAL_1 pointer for access to source arrays.
4278 * m4/any.m4: Include ifunction_logical.m4 instead of
4279 ifunction.m4. Don't check atype_name.
4280 * m4/all.m4: Likewise.
4281 * m4/count.m4: Likewise.
4282 * generated/any_l1.c: New file.
4283 * generated/any_l2.c: New file.
4284 * generated/all_l1.c: New file.
4285 * generated/count_1_l.c: New file.
4286 * generated/count_2_l.c: New file.
4287 * generated/count_4_l.c: New file.
4288 * generated/count_8_l.c: New file.
4289 * generated/count_16_l.c: New file.
4290 * generated/any_l4.c: Regenerated.
4291 * generated/any_l8.c: Regenerated.
4292 * generated/any_l16.c: Regenerated.
4293 * generated/all_l4.c: Regenerated.
4294 * generated/all_l8.c: Regenerated.
4295 * generated/all_l16.c: Regenerated.
4296 * generated/count_4_l4.c: Removed.
4297 * generated/count_4_l8.c: Removed.
4298 * generated/count_4_l16.c: Removed.
4299 * generated/count_8_l4.c: Removed.
4300 * generated/count_8_l8.c: Removed.
4301 * generated/count_8_l16.c: Removed.
4302 * generated/count_16_l4.c: Removed.
4303 * generated/count_16_l8.c: Removed.
4304 * generated/count_16_l16.c: Removed.
4306 2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
4308 PR libfortran/34746
4309 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld
4310 in printf format for all bounds checking; cast all
4311 integer-like arguments to runtime_error() to long int.
4312 (`m'name`'rtype_qual`_'atype_code): Likewise.
4313 (`s'name`'rtype_qual`_'atype_code): Likewise.
4314 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise.
4315 (`m'name`'rtype_qual`_'atype_code): Likewise.
4316 (`s'name`'rtype_qual`_'atype_code): Likewise.
4317 * generated/all_l16.c: Regenerated.
4318 * generated/all_l4.c: Regenerated.
4319 * generated/all_l8.c: Regenerated.
4320 * generated/any_l16.c: Regenerated.
4321 * generated/any_l4.c: Regenerated.
4322 * generated/any_l8.c: Regenerated.
4323 * generated/count_16_l16.c: Regenerated.
4324 * generated/count_16_l4.c: Regenerated.
4325 * generated/count_16_l8.c: Regenerated.
4326 * generated/count_4_l16.c: Regenerated.
4327 * generated/count_4_l4.c: Regenerated.
4328 * generated/count_4_l8.c: Regenerated.
4329 * generated/count_8_l16.c: Regenerated.
4330 * generated/count_8_l4.c: Regenerated.
4331 * generated/count_8_l8.c: Regenerated.
4332 * generated/maxloc0_16_i1.c: Regenerated.
4333 * generated/maxloc0_16_i16.c: Regenerated.
4334 * generated/maxloc0_16_i2.c: Regenerated.
4335 * generated/maxloc0_16_i4.c: Regenerated.
4336 * generated/maxloc0_16_i8.c: Regenerated.
4337 * generated/maxloc0_16_r10.c: Regenerated.
4338 * generated/maxloc0_16_r16.c: Regenerated.
4339 * generated/maxloc0_16_r4.c: Regenerated.
4340 * generated/maxloc0_16_r8.c: Regenerated.
4341 * generated/maxloc0_4_i1.c: Regenerated.
4342 * generated/maxloc0_4_i16.c: Regenerated.
4343 * generated/maxloc0_4_i2.c: Regenerated.
4344 * generated/maxloc0_4_i4.c: Regenerated.
4345 * generated/maxloc0_4_i8.c: Regenerated.
4346 * generated/maxloc0_4_r10.c: Regenerated.
4347 * generated/maxloc0_4_r16.c: Regenerated.
4348 * generated/maxloc0_4_r4.c: Regenerated.
4349 * generated/maxloc0_4_r8.c: Regenerated.
4350 * generated/maxloc0_8_i1.c: Regenerated.
4351 * generated/maxloc0_8_i16.c: Regenerated.
4352 * generated/maxloc0_8_i2.c: Regenerated.
4353 * generated/maxloc0_8_i4.c: Regenerated.
4354 * generated/maxloc0_8_i8.c: Regenerated.
4355 * generated/maxloc0_8_r10.c: Regenerated.
4356 * generated/maxloc0_8_r16.c: Regenerated.
4357 * generated/maxloc0_8_r4.c: Regenerated.
4358 * generated/maxloc0_8_r8.c: Regenerated.
4359 * generated/maxloc1_16_i1.c: Regenerated.
4360 * generated/maxloc1_16_i16.c: Regenerated.
4361 * generated/maxloc1_16_i2.c: Regenerated.
4362 * generated/maxloc1_16_i4.c: Regenerated.
4363 * generated/maxloc1_16_i8.c: Regenerated.
4364 * generated/maxloc1_16_r10.c: Regenerated.
4365 * generated/maxloc1_16_r16.c: Regenerated.
4366 * generated/maxloc1_16_r4.c: Regenerated.
4367 * generated/maxloc1_16_r8.c: Regenerated.
4368 * generated/maxloc1_4_i1.c: Regenerated.
4369 * generated/maxloc1_4_i16.c: Regenerated.
4370 * generated/maxloc1_4_i2.c: Regenerated.
4371 * generated/maxloc1_4_i4.c: Regenerated.
4372 * generated/maxloc1_4_i8.c: Regenerated.
4373 * generated/maxloc1_4_r10.c: Regenerated.
4374 * generated/maxloc1_4_r16.c: Regenerated.
4375 * generated/maxloc1_4_r4.c: Regenerated.
4376 * generated/maxloc1_4_r8.c: Regenerated.
4377 * generated/maxloc1_8_i1.c: Regenerated.
4378 * generated/maxloc1_8_i16.c: Regenerated.
4379 * generated/maxloc1_8_i2.c: Regenerated.
4380 * generated/maxloc1_8_i4.c: Regenerated.
4381 * generated/maxloc1_8_i8.c: Regenerated.
4382 * generated/maxloc1_8_r10.c: Regenerated.
4383 * generated/maxloc1_8_r16.c: Regenerated.
4384 * generated/maxloc1_8_r4.c: Regenerated.
4385 * generated/maxloc1_8_r8.c: Regenerated.
4386 * generated/maxval_i1.c: Regenerated.
4387 * generated/maxval_i16.c: Regenerated.
4388 * generated/maxval_i2.c: Regenerated.
4389 * generated/maxval_i4.c: Regenerated.
4390 * generated/maxval_i8.c: Regenerated.
4391 * generated/maxval_r10.c: Regenerated.
4392 * generated/maxval_r16.c: Regenerated.
4393 * generated/maxval_r4.c: Regenerated.
4394 * generated/maxval_r8.c: Regenerated.
4395 * generated/minloc0_16_i1.c: Regenerated.
4396 * generated/minloc0_16_i16.c: Regenerated.
4397 * generated/minloc0_16_i2.c: Regenerated.
4398 * generated/minloc0_16_i4.c: Regenerated.
4399 * generated/minloc0_16_i8.c: Regenerated.
4400 * generated/minloc0_16_r10.c: Regenerated.
4401 * generated/minloc0_16_r16.c: Regenerated.
4402 * generated/minloc0_16_r4.c: Regenerated.
4403 * generated/minloc0_16_r8.c: Regenerated.
4404 * generated/minloc0_4_i1.c: Regenerated.
4405 * generated/minloc0_4_i16.c: Regenerated.
4406 * generated/minloc0_4_i2.c: Regenerated.
4407 * generated/minloc0_4_i4.c: Regenerated.
4408 * generated/minloc0_4_i8.c: Regenerated.
4409 * generated/minloc0_4_r10.c: Regenerated.
4410 * generated/minloc0_4_r16.c: Regenerated.
4411 * generated/minloc0_4_r4.c: Regenerated.
4412 * generated/minloc0_4_r8.c: Regenerated.
4413 * generated/minloc0_8_i1.c: Regenerated.
4414 * generated/minloc0_8_i16.c: Regenerated.
4415 * generated/minloc0_8_i2.c: Regenerated.
4416 * generated/minloc0_8_i4.c: Regenerated.
4417 * generated/minloc0_8_i8.c: Regenerated.
4418 * generated/minloc0_8_r10.c: Regenerated.
4419 * generated/minloc0_8_r16.c: Regenerated.
4420 * generated/minloc0_8_r4.c: Regenerated.
4421 * generated/minloc0_8_r8.c: Regenerated.
4422 * generated/minloc1_16_i1.c: Regenerated.
4423 * generated/minloc1_16_i16.c: Regenerated.
4424 * generated/minloc1_16_i2.c: Regenerated.
4425 * generated/minloc1_16_i4.c: Regenerated.
4426 * generated/minloc1_16_i8.c: Regenerated.
4427 * generated/minloc1_16_r10.c: Regenerated.
4428 * generated/minloc1_16_r16.c: Regenerated.
4429 * generated/minloc1_16_r4.c: Regenerated.
4430 * generated/minloc1_16_r8.c: Regenerated.
4431 * generated/minloc1_4_i1.c: Regenerated.
4432 * generated/minloc1_4_i16.c: Regenerated.
4433 * generated/minloc1_4_i2.c: Regenerated.
4434 * generated/minloc1_4_i4.c: Regenerated.
4435 * generated/minloc1_4_i8.c: Regenerated.
4436 * generated/minloc1_4_r10.c: Regenerated.
4437 * generated/minloc1_4_r16.c: Regenerated.
4438 * generated/minloc1_4_r4.c: Regenerated.
4439 * generated/minloc1_4_r8.c: Regenerated.
4440 * generated/minloc1_8_i1.c: Regenerated.
4441 * generated/minloc1_8_i16.c: Regenerated.
4442 * generated/minloc1_8_i2.c: Regenerated.
4443 * generated/minloc1_8_i4.c: Regenerated.
4444 * generated/minloc1_8_i8.c: Regenerated.
4445 * generated/minloc1_8_r10.c: Regenerated.
4446 * generated/minloc1_8_r16.c: Regenerated.
4447 * generated/minloc1_8_r4.c: Regenerated.
4448 * generated/minloc1_8_r8.c: Regenerated.
4449 * generated/minval_i1.c: Regenerated.
4450 * generated/minval_i16.c: Regenerated.
4451 * generated/minval_i2.c: Regenerated.
4452 * generated/minval_i4.c: Regenerated.
4453 * generated/minval_i8.c: Regenerated.
4454 * generated/minval_r10.c: Regenerated.
4455 * generated/minval_r16.c: Regenerated.
4456 * generated/minval_r4.c: Regenerated.
4457 * generated/minval_r8.c: Regenerated.
4458 * generated/product_c10.c: Regenerated.
4459 * generated/product_c16.c: Regenerated.
4460 * generated/product_c4.c: Regenerated.
4461 * generated/product_c8.c: Regenerated.
4462 * generated/product_i1.c: Regenerated.
4463 * generated/product_i16.c: Regenerated.
4464 * generated/product_i2.c: Regenerated.
4465 * generated/product_i4.c: Regenerated.
4466 * generated/product_i8.c: Regenerated.
4467 * generated/product_r10.c: Regenerated.
4468 * generated/product_r16.c: Regenerated.
4469 * generated/product_r4.c: Regenerated.
4470 * generated/product_r8.c: Regenerated.
4471 * generated/sum_c10.c: Regenerated.
4472 * generated/sum_c16.c: Regenerated.
4473 * generated/sum_c4.c: Regenerated.
4474 * generated/sum_c8.c: Regenerated.
4475 * generated/sum_i1.c: Regenerated.
4476 * generated/sum_i16.c: Regenerated.
4477 * generated/sum_i2.c: Regenerated.
4478 * generated/sum_i4.c: Regenerated.
4479 * generated/sum_i8.c: Regenerated.
4480 * generated/sum_r10.c: Regenerated.
4481 * generated/sum_r16.c: Regenerated.
4482 * generated/sum_r4.c: Regenerated.
4483 * generated/sum_r8.c: Regenerated.
4485 2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org>
4487 PR libfortran/34670
4488 * m4/iparm.m4 (upcase): New macro (copied from the m4 manual).
4489 (u_name): New macro for the upper case name of the intrinsic.
4490 * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Add
4491 bounds checking and rank check, depending on
4492 compile_options.bounds_check.
4493 (`m'name`'rtype_qual`_'atype_code): Likewise.
4494 (`s'name`'rtype_qual`_'atype_code): Likewise.
4495 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Add
4496 bounds checking and rank check, depending on
4497 compile_options.bounds_check.
4498 (`m'name`'rtype_qual`_'atype_code): Likewise.
4499 (`s'name`'rtype_qual`_'atype_code): Likewise.
4500 * generated/all_l16.c: Regenerated.
4501 * generated/all_l4.c: Regenerated.
4502 * generated/all_l8.c: Regenerated.
4503 * generated/any_l16.c: Regenerated.
4504 * generated/any_l4.c: Regenerated.
4505 * generated/any_l8.c: Regenerated.
4506 * generated/count_16_l16.c: Regenerated.
4507 * generated/count_16_l4.c: Regenerated.
4508 * generated/count_16_l8.c: Regenerated.
4509 * generated/count_4_l16.c: Regenerated.
4510 * generated/count_4_l4.c: Regenerated.
4511 * generated/count_4_l8.c: Regenerated.
4512 * generated/count_8_l16.c: Regenerated.
4513 * generated/count_8_l4.c: Regenerated.
4514 * generated/count_8_l8.c: Regenerated.
4515 * generated/maxloc0_16_i1.c: Regenerated.
4516 * generated/maxloc0_16_i16.c: Regenerated.
4517 * generated/maxloc0_16_i2.c: Regenerated.
4518 * generated/maxloc0_16_i4.c: Regenerated.
4519 * generated/maxloc0_16_i8.c: Regenerated.
4520 * generated/maxloc0_16_r10.c: Regenerated.
4521 * generated/maxloc0_16_r16.c: Regenerated.
4522 * generated/maxloc0_16_r4.c: Regenerated.
4523 * generated/maxloc0_16_r8.c: Regenerated.
4524 * generated/maxloc0_4_i1.c: Regenerated.
4525 * generated/maxloc0_4_i16.c: Regenerated.
4526 * generated/maxloc0_4_i2.c: Regenerated.
4527 * generated/maxloc0_4_i4.c: Regenerated.
4528 * generated/maxloc0_4_i8.c: Regenerated.
4529 * generated/maxloc0_4_r10.c: Regenerated.
4530 * generated/maxloc0_4_r16.c: Regenerated.
4531 * generated/maxloc0_4_r4.c: Regenerated.
4532 * generated/maxloc0_4_r8.c: Regenerated.
4533 * generated/maxloc0_8_i1.c: Regenerated.
4534 * generated/maxloc0_8_i16.c: Regenerated.
4535 * generated/maxloc0_8_i2.c: Regenerated.
4536 * generated/maxloc0_8_i4.c: Regenerated.
4537 * generated/maxloc0_8_i8.c: Regenerated.
4538 * generated/maxloc0_8_r10.c: Regenerated.
4539 * generated/maxloc0_8_r16.c: Regenerated.
4540 * generated/maxloc0_8_r4.c: Regenerated.
4541 * generated/maxloc0_8_r8.c: Regenerated.
4542 * generated/maxloc1_16_i1.c: Regenerated.
4543 * generated/maxloc1_16_i16.c: Regenerated.
4544 * generated/maxloc1_16_i2.c: Regenerated.
4545 * generated/maxloc1_16_i4.c: Regenerated.
4546 * generated/maxloc1_16_i8.c: Regenerated.
4547 * generated/maxloc1_16_r10.c: Regenerated.
4548 * generated/maxloc1_16_r16.c: Regenerated.
4549 * generated/maxloc1_16_r4.c: Regenerated.
4550 * generated/maxloc1_16_r8.c: Regenerated.
4551 * generated/maxloc1_4_i1.c: Regenerated.
4552 * generated/maxloc1_4_i16.c: Regenerated.
4553 * generated/maxloc1_4_i2.c: Regenerated.
4554 * generated/maxloc1_4_i4.c: Regenerated.
4555 * generated/maxloc1_4_i8.c: Regenerated.
4556 * generated/maxloc1_4_r10.c: Regenerated.
4557 * generated/maxloc1_4_r16.c: Regenerated.
4558 * generated/maxloc1_4_r4.c: Regenerated.
4559 * generated/maxloc1_4_r8.c: Regenerated.
4560 * generated/maxloc1_8_i1.c: Regenerated.
4561 * generated/maxloc1_8_i16.c: Regenerated.
4562 * generated/maxloc1_8_i2.c: Regenerated.
4563 * generated/maxloc1_8_i4.c: Regenerated.
4564 * generated/maxloc1_8_i8.c: Regenerated.
4565 * generated/maxloc1_8_r10.c: Regenerated.
4566 * generated/maxloc1_8_r16.c: Regenerated.
4567 * generated/maxloc1_8_r4.c: Regenerated.
4568 * generated/maxloc1_8_r8.c: Regenerated.
4569 * generated/maxval_i1.c: Regenerated.
4570 * generated/maxval_i16.c: Regenerated.
4571 * generated/maxval_i2.c: Regenerated.
4572 * generated/maxval_i4.c: Regenerated.
4573 * generated/maxval_i8.c: Regenerated.
4574 * generated/maxval_r10.c: Regenerated.
4575 * generated/maxval_r16.c: Regenerated.
4576 * generated/maxval_r4.c: Regenerated.
4577 * generated/maxval_r8.c: Regenerated.
4578 * generated/minloc0_16_i1.c: Regenerated.
4579 * generated/minloc0_16_i16.c: Regenerated.
4580 * generated/minloc0_16_i2.c: Regenerated.
4581 * generated/minloc0_16_i4.c: Regenerated.
4582 * generated/minloc0_16_i8.c: Regenerated.
4583 * generated/minloc0_16_r10.c: Regenerated.
4584 * generated/minloc0_16_r16.c: Regenerated.
4585 * generated/minloc0_16_r4.c: Regenerated.
4586 * generated/minloc0_16_r8.c: Regenerated.
4587 * generated/minloc0_4_i1.c: Regenerated.
4588 * generated/minloc0_4_i16.c: Regenerated.
4589 * generated/minloc0_4_i2.c: Regenerated.
4590 * generated/minloc0_4_i4.c: Regenerated.
4591 * generated/minloc0_4_i8.c: Regenerated.
4592 * generated/minloc0_4_r10.c: Regenerated.
4593 * generated/minloc0_4_r16.c: Regenerated.
4594 * generated/minloc0_4_r4.c: Regenerated.
4595 * generated/minloc0_4_r8.c: Regenerated.
4596 * generated/minloc0_8_i1.c: Regenerated.
4597 * generated/minloc0_8_i16.c: Regenerated.
4598 * generated/minloc0_8_i2.c: Regenerated.
4599 * generated/minloc0_8_i4.c: Regenerated.
4600 * generated/minloc0_8_i8.c: Regenerated.
4601 * generated/minloc0_8_r10.c: Regenerated.
4602 * generated/minloc0_8_r16.c: Regenerated.
4603 * generated/minloc0_8_r4.c: Regenerated.
4604 * generated/minloc0_8_r8.c: Regenerated.
4605 * generated/minloc1_16_i1.c: Regenerated.
4606 * generated/minloc1_16_i16.c: Regenerated.
4607 * generated/minloc1_16_i2.c: Regenerated.
4608 * generated/minloc1_16_i4.c: Regenerated.
4609 * generated/minloc1_16_i8.c: Regenerated.
4610 * generated/minloc1_16_r10.c: Regenerated.
4611 * generated/minloc1_16_r16.c: Regenerated.
4612 * generated/minloc1_16_r4.c: Regenerated.
4613 * generated/minloc1_16_r8.c: Regenerated.
4614 * generated/minloc1_4_i1.c: Regenerated.
4615 * generated/minloc1_4_i16.c: Regenerated.
4616 * generated/minloc1_4_i2.c: Regenerated.
4617 * generated/minloc1_4_i4.c: Regenerated.
4618 * generated/minloc1_4_i8.c: Regenerated.
4619 * generated/minloc1_4_r10.c: Regenerated.
4620 * generated/minloc1_4_r16.c: Regenerated.
4621 * generated/minloc1_4_r4.c: Regenerated.
4622 * generated/minloc1_4_r8.c: Regenerated.
4623 * generated/minloc1_8_i1.c: Regenerated.
4624 * generated/minloc1_8_i16.c: Regenerated.
4625 * generated/minloc1_8_i2.c: Regenerated.
4626 * generated/minloc1_8_i4.c: Regenerated.
4627 * generated/minloc1_8_i8.c: Regenerated.
4628 * generated/minloc1_8_r10.c: Regenerated.
4629 * generated/minloc1_8_r16.c: Regenerated.
4630 * generated/minloc1_8_r4.c: Regenerated.
4631 * generated/minloc1_8_r8.c: Regenerated.
4632 * generated/minval_i1.c: Regenerated.
4633 * generated/minval_i16.c: Regenerated.
4634 * generated/minval_i2.c: Regenerated.
4635 * generated/minval_i4.c: Regenerated.
4636 * generated/minval_i8.c: Regenerated.
4637 * generated/minval_r10.c: Regenerated.
4638 * generated/minval_r16.c: Regenerated.
4639 * generated/minval_r4.c: Regenerated.
4640 * generated/minval_r8.c: Regenerated.
4641 * generated/product_c10.c: Regenerated.
4642 * generated/product_c16.c: Regenerated.
4643 * generated/product_c4.c: Regenerated.
4644 * generated/product_c8.c: Regenerated.
4645 * generated/product_i1.c: Regenerated.
4646 * generated/product_i16.c: Regenerated.
4647 * generated/product_i2.c: Regenerated.
4648 * generated/product_i4.c: Regenerated.
4649 * generated/product_i8.c: Regenerated.
4650 * generated/product_r10.c: Regenerated.
4651 * generated/product_r16.c: Regenerated.
4652 * generated/product_r4.c: Regenerated.
4653 * generated/product_r8.c: Regenerated.
4654 * generated/sum_c10.c: Regenerated.
4655 * generated/sum_c16.c: Regenerated.
4656 * generated/sum_c4.c: Regenerated.
4657 * generated/sum_c8.c: Regenerated.
4658 * generated/sum_i1.c: Regenerated.
4659 * generated/sum_i16.c: Regenerated.
4660 * generated/sum_i2.c: Regenerated.
4661 * generated/sum_i4.c: Regenerated.
4662 * generated/sum_i8.c: Regenerated.
4663 * generated/sum_r10.c: Regenerated.
4664 * generated/sum_r16.c: Regenerated.
4665 * generated/sum_r4.c: Regenerated.
4666 * generated/sum_r8.c: Regenerated.
4668 2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
4670 PR libfortran/34676
4671 * io/list_read.c (next_char): Only save the EOF condition for later if
4672 advance="no".
4674 2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
4676 PR libfortran/34565
4677 * io/io.h: Adjust protoypes for open_internal(),
4678 next_array_record() and init_loop_spec().
4679 * io/list_read.c (next_char): Use argument "finished"
4680 of next_array_record to check for end on internal file.
4681 * io/unit.c: Calculate the offset for an array
4682 internal file and supply this informatin to open_internal().
4683 * io/unix.c (open_internal): Set the offset for the internal
4684 file on open.
4685 * io/transfer.c (init_loop_spec): Calculate the starting
4686 record in case of negative strides. Return size of 0 for
4687 an empty array.
4688 (next_array_record): Use an extra flag to signal that the
4689 array is finished.
4690 (next_record_r): Use the new flag to next_array_record().
4691 (next_record_w): Likewise.