OSDN Git Service

2009-09-04 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / libgfortran / ChangeLog
1 2009-09-04  Tobias Burnus  <burnus@net-b.de>
2
3         PR fortran/41219
4         * intrinsics/getlog.c: Define _POSIX for MINGW32.
5
6 2009-09-03  Tobias Burnus  <burnus@net-b.de>
7
8         PR fortran/41219
9         * intrinsics/iso_c_binding.c (c_f_pointer_u0): Move variable
10         declaration out of the loop.
11
12 2009-08-30  Thomas Koenig  <tkoenig@gcc.gnu.org>
13
14         * m4/pack.m4 (pack_'rtype_code`): Use count_0 for counting true
15         values in a logical array.  Mark bounds checking tests as
16         unlikely.
17         * intrinsics/pack_generic.c (pack_internal): Likewise.
18         * runtime/bounds.c (count_0):  Fix off-by-one error in detecting
19         empty arrays.
20         * generated/pack_c4.c: Regenerated.
21         * generated/pack_c8.c: Regenerated.
22         * generated/pack_c10.c: Regenerated.
23         * generated/pack_c16.c: Regenerated.
24         * generated/pack_i1.c: Regenerated.
25         * generated/pack_i16.c: Regenerated.
26         * generated/pack_i2.c: Regenerated.
27         * generated/pack_i4.c: Regenerated.
28         * generated/pack_i8.c: Regenerated.
29         * generated/pack_r4.c: Regenerated.
30         * generated/pack_r8.c: Regenerated.
31         * generated/pack_r10.c: Regenerated.
32         * generated/pack_r16.c: Regenerated.
33
34 2009-08-25  Thomas Koenig  <tkoenig@gcc.gnu.org>
35
36         PR libfortran/34670
37         * runtime/bounds.c (count_0):  New function.
38         * intrinsics/unpack_generic (unpack_bounds):  New function.
39         (unpack_internal):  Remove zero stride checks.
40         (unpack1):  Use unpack_bounds.
41         (unpack1_char):  Likeweise.
42         (unpack1_char4):  Likewise
43         (unpack0):  Likewise.
44         (unpack0_char):  Likewise.
45         (unpack0_char4):  Likewise.
46
47 2009-08-24  Steven G. Kargl  <kargl@gcc.gnu.org>
48
49         PR fortran/41157
50         * dtime.c (dtime_sub): Fix computing time increment.
51         * time_1.h: Add <sys/types.h> header.  Use RUSAGE_SELF macro instead
52         of a hardcoded 0.
53
54 2009-08-24  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
55
56         * configure.ac (AC_PREREQ): Bump to 2.64.
57
58 2009-08-23  Steven G. Kargl  <kargl@gcc.gnu.org>
59
60         * intrinsics/cshift0.c: Update license to GPL3+exception.
61         * runtime/fpu.c: Add a GPL3+exception statement.
62
63 2009-08-22  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
64
65         * Makefile.am (install-html, install-pdf): Remove.
66         * Makefile.in: Regenerate.
67
68         * Makefile.in: Regenerate.
69         * aclocal.m4: Regenerate.
70         * config.h.in: Regenerate.
71         * configure: Regenerate.
72
73 2009-08-22  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
74
75         * Makefile.am (libgfortran_la_LINK): Add $(libgfortran_la_LDFLAGS).
76         * Makefile.in: Regenerate.
77
78 2009-08-20  Thomas Koenig  <tkoenig@gcc.gnu.org>
79
80         PR libfortran/40962
81         * iso_c_binding.c (c_f_pointer_u0):  Multiply stride by
82         previous stride.
83
84 2009-08-20  Dave Korn  <dave.korn.cygwin@gmail.com>
85
86         * Makefile.am (LTLDFLAGS): Add -bindir flag.
87         * Makefile.in: Regenerate.
88
89 2009-08-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
90
91         PR fortran/41075
92         * io/io.h (enum format_token): Add FMT_STAR.
93         * io/format.c (format_lex): Add case for FMT_STAR.
94         (parse_format_list): Parse FMT_STAR and check for left paren
95         after. (next_format0): Modify helper function to check for
96         unimited format and return the repeated format node.  Update
97         comments to clarify.
98         
99 2009-08-15  Kai Tietz  <kai.tietz@onevision.com>
100
101         * intrinsics/string_intrinsics_inc.c (string_len_trim): Use
102         __INTPTR_TYPE__ to cast from pointer to scalar integer, if
103         __INTPTR_TYPE is defined.
104
105 2009-08-14  Janne Blomqvist  <jb@gcc.gnu.org>
106
107         * fmain.c: Add comment saying file is deprecated.
108
109 2009-08-14  Janne Blomqvist  <jb@gcc.gnu.org>
110
111         PR libfortran/40863
112         * gfortran.map: Move new symbols to GFORTRAN_C99_1.1 version node.
113
114 2009-08-09 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
115
116         PR libfortran/40549
117         * Makefile.in (LTLDFLAGS): Add -no-undefined.
118         * Makefile.am: Regenerate.
119         * libgfortran.h: Remove unused block of code.
120
121 2009-08-02  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
122
123         PR libfortran/40853
124         * io/list_read.c (nml_get_obj_data): Do not set nl
125         pointer to first_nl if nl->next is NULL.
126
127 2009-07-31  Kaz Kojima  <kkojima@gcc.gnu.org>
128
129         * Makefile.am: Don't set SECTION_FLAGS with @SECTION_FLAGS@.
130         Don't set IEEE_FLAGS with @IEEE_FLAGS@.
131         * Makefile.in: Regenerate.
132
133 2009-07-30  Kaz Kojima  <kkojima@gcc.gnu.org>
134
135         * configure.host: Define ieee_flags and set it to -mieee for sh.
136         * configure.ac: Set IEEE_FLAGS with ieee_flags.
137         * Makefile.am: Add IEEE_FLAGS to AM_CFLAGS.
138         * configure: Regenerate.
139         * Makefile.in: Regenerate.
140
141 2009-07-30  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
142
143         * configure.ac (_AC_ARG_VAR_PRECIOUS): Use m4_rename_force.
144
145 2009-07-27  Tobias Burnus  <burnus@net-b.de>
146
147         PR fortran/40863
148         * c99_functions.c: Define complex I, if not defined.
149         Create prototypes for C99 functions to silence warnings.
150         * gfortran.map: Add missing functions to GFORTRAN_C99_1.0
151         and new GFORTRAN_C99_1.1.
152
153 2009-07-25  Tobias Burnus  <burnus@net-b.de>
154
155         PR fortran/33197
156         * intrinsics/c99_functions.c (cacosf,cacos,cacosl,casinf,
157         casin,casind,catanf,catan,catanl,cacoshf,cacosh,cacoshl,
158         casinhf,casinh,casinhf,catanhf,catanh,catanhl): New functions.
159         * c99_protos.h: Add prototypes for those.
160
161 2009-07-24  Jakub Jelinek  <jakub@redhat.com>
162
163         PR fortran/40643
164         PR fortran/31067
165         * libgfortran.h (GFC_REAL_4_INFINITY, GFC_REAL_8_INFINITY,
166         GFC_REAL_10_INFINITY, GFC_REAL_16_INFINITY, GFC_REAL_4_QUIET_NAN,
167         GFC_REAL_8_QUIET_NAN, GFC_REAL_10_QUIET_NAN, GFC_REAL_16_QUIET_NAN):
168         Define.
169         * m4/iparm.m4 (atype_inf, atype_nan): Define.
170         * m4/ifunction.m4: Formatting.
171         * m4/iforeach.m4: Likewise.
172         (START_FOREACH_FUNCTION): Initialize dest to all 1s, not all 0s.
173         (START_FOREACH_BLOCK, FINISH_FOREACH_FUNCTION,
174         FINISH_MASKED_FOREACH_FUNCTION): Run foreach block inside a loop
175         until count[0] == extent[0].
176         * m4/minval.m4: Formatting.  Handle NaNs and infinities.  Optimize.
177         * m4/maxval.m4: Likewise.
178         * m4/minloc0.m4: Likewise.
179         * m4/maxloc0.m4: Likewise.
180         * m4/minloc1.m4: Likewise.
181         * m4/maxloc1.m4: Likewise.
182         * generated/maxloc0_16_i16.c: Regenerated.
183         * generated/maxloc0_16_i1.c: Likewise.
184         * generated/maxloc0_16_i2.c: Likewise.
185         * generated/maxloc0_16_i4.c: Likewise.
186         * generated/maxloc0_16_i8.c: Likewise.
187         * generated/maxloc0_16_r10.c: Likewise.
188         * generated/maxloc0_16_r16.c: Likewise.
189         * generated/maxloc0_16_r4.c: Likewise.
190         * generated/maxloc0_16_r8.c: Likewise.
191         * generated/maxloc0_4_i16.c: Likewise.
192         * generated/maxloc0_4_i1.c: Likewise.
193         * generated/maxloc0_4_i2.c: Likewise.
194         * generated/maxloc0_4_i4.c: Likewise.
195         * generated/maxloc0_4_i8.c: Likewise.
196         * generated/maxloc0_4_r10.c: Likewise.
197         * generated/maxloc0_4_r16.c: Likewise.
198         * generated/maxloc0_4_r4.c: Likewise.
199         * generated/maxloc0_4_r8.c: Likewise.
200         * generated/maxloc0_8_i16.c: Likewise.
201         * generated/maxloc0_8_i1.c: Likewise.
202         * generated/maxloc0_8_i2.c: Likewise.
203         * generated/maxloc0_8_i4.c: Likewise.
204         * generated/maxloc0_8_i8.c: Likewise.
205         * generated/maxloc0_8_r10.c: Likewise.
206         * generated/maxloc0_8_r16.c: Likewise.
207         * generated/maxloc0_8_r4.c: Likewise.
208         * generated/maxloc0_8_r8.c: Likewise.
209         * generated/maxloc1_16_i16.c: Likewise.
210         * generated/maxloc1_16_i1.c: Likewise.
211         * generated/maxloc1_16_i2.c: Likewise.
212         * generated/maxloc1_16_i4.c: Likewise.
213         * generated/maxloc1_16_i8.c: Likewise.
214         * generated/maxloc1_16_r10.c: Likewise.
215         * generated/maxloc1_16_r16.c: Likewise.
216         * generated/maxloc1_16_r4.c: Likewise.
217         * generated/maxloc1_16_r8.c: Likewise.
218         * generated/maxloc1_4_i16.c: Likewise.
219         * generated/maxloc1_4_i1.c: Likewise.
220         * generated/maxloc1_4_i2.c: Likewise.
221         * generated/maxloc1_4_i4.c: Likewise.
222         * generated/maxloc1_4_i8.c: Likewise.
223         * generated/maxloc1_4_r10.c: Likewise.
224         * generated/maxloc1_4_r16.c: Likewise.
225         * generated/maxloc1_4_r4.c: Likewise.
226         * generated/maxloc1_4_r8.c: Likewise.
227         * generated/maxloc1_8_i16.c: Likewise.
228         * generated/maxloc1_8_i1.c: Likewise.
229         * generated/maxloc1_8_i2.c: Likewise.
230         * generated/maxloc1_8_i4.c: Likewise.
231         * generated/maxloc1_8_i8.c: Likewise.
232         * generated/maxloc1_8_r10.c: Likewise.
233         * generated/maxloc1_8_r16.c: Likewise.
234         * generated/maxloc1_8_r4.c: Likewise.
235         * generated/maxloc1_8_r8.c: Likewise.
236         * generated/maxval_i16.c: Likewise.
237         * generated/maxval_i1.c: Likewise.
238         * generated/maxval_i2.c: Likewise.
239         * generated/maxval_i4.c: Likewise.
240         * generated/maxval_i8.c: Likewise.
241         * generated/maxval_r10.c: Likewise.
242         * generated/maxval_r16.c: Likewise.
243         * generated/maxval_r4.c: Likewise.
244         * generated/maxval_r8.c: Likewise.
245         * generated/minloc0_16_i16.c: Likewise.
246         * generated/minloc0_16_i1.c: Likewise.
247         * generated/minloc0_16_i2.c: Likewise.
248         * generated/minloc0_16_i4.c: Likewise.
249         * generated/minloc0_16_i8.c: Likewise.
250         * generated/minloc0_16_r10.c: Likewise.
251         * generated/minloc0_16_r16.c: Likewise.
252         * generated/minloc0_16_r4.c: Likewise.
253         * generated/minloc0_16_r8.c: Likewise.
254         * generated/minloc0_4_i16.c: Likewise.
255         * generated/minloc0_4_i1.c: Likewise.
256         * generated/minloc0_4_i2.c: Likewise.
257         * generated/minloc0_4_i4.c: Likewise.
258         * generated/minloc0_4_i8.c: Likewise.
259         * generated/minloc0_4_r10.c: Likewise.
260         * generated/minloc0_4_r16.c: Likewise.
261         * generated/minloc0_4_r4.c: Likewise.
262         * generated/minloc0_4_r8.c: Likewise.
263         * generated/minloc0_8_i16.c: Likewise.
264         * generated/minloc0_8_i1.c: Likewise.
265         * generated/minloc0_8_i2.c: Likewise.
266         * generated/minloc0_8_i4.c: Likewise.
267         * generated/minloc0_8_i8.c: Likewise.
268         * generated/minloc0_8_r10.c: Likewise.
269         * generated/minloc0_8_r16.c: Likewise.
270         * generated/minloc0_8_r4.c: Likewise.
271         * generated/minloc0_8_r8.c: Likewise.
272         * generated/minloc1_16_i16.c: Likewise.
273         * generated/minloc1_16_i1.c: Likewise.
274         * generated/minloc1_16_i2.c: Likewise.
275         * generated/minloc1_16_i4.c: Likewise.
276         * generated/minloc1_16_i8.c: Likewise.
277         * generated/minloc1_16_r10.c: Likewise.
278         * generated/minloc1_16_r16.c: Likewise.
279         * generated/minloc1_16_r4.c: Likewise.
280         * generated/minloc1_16_r8.c: Likewise.
281         * generated/minloc1_4_i16.c: Likewise.
282         * generated/minloc1_4_i1.c: Likewise.
283         * generated/minloc1_4_i2.c: Likewise.
284         * generated/minloc1_4_i4.c: Likewise.
285         * generated/minloc1_4_i8.c: Likewise.
286         * generated/minloc1_4_r10.c: Likewise.
287         * generated/minloc1_4_r16.c: Likewise.
288         * generated/minloc1_4_r4.c: Likewise.
289         * generated/minloc1_4_r8.c: Likewise.
290         * generated/minloc1_8_i16.c: Likewise.
291         * generated/minloc1_8_i1.c: Likewise.
292         * generated/minloc1_8_i2.c: Likewise.
293         * generated/minloc1_8_i4.c: Likewise.
294         * generated/minloc1_8_i8.c: Likewise.
295         * generated/minloc1_8_r10.c: Likewise.
296         * generated/minloc1_8_r16.c: Likewise.
297         * generated/minloc1_8_r4.c: Likewise.
298         * generated/minloc1_8_r8.c: Likewise.
299         * generated/minval_i16.c: Likewise.
300         * generated/minval_i1.c: Likewise.
301         * generated/minval_i2.c: Likewise.
302         * generated/minval_i4.c: Likewise.
303         * generated/minval_i8.c: Likewise.
304         * generated/minval_r10.c: Likewise.
305         * generated/minval_r16.c: Likewise.
306         * generated/minval_r4.c: Likewise.
307         * generated/minval_r8.c: Likewise.
308         * generated/product_c10.c: Likewise.
309         * generated/product_c16.c: Likewise.
310         * generated/product_c4.c: Likewise.
311         * generated/product_c8.c: Likewise.
312         * generated/product_i16.c: Likewise.
313         * generated/product_i1.c: Likewise.
314         * generated/product_i2.c: Likewise.
315         * generated/product_i4.c: Likewise.
316         * generated/product_i8.c: Likewise.
317         * generated/product_r10.c: Likewise.
318         * generated/product_r16.c: Likewise.
319         * generated/product_r4.c: Likewise.
320         * generated/product_r8.c: Likewise.
321         * generated/sum_c10.c: Likewise.
322         * generated/sum_c16.c: Likewise.
323         * generated/sum_c4.c: Likewise.
324         * generated/sum_c8.c: Likewise.
325         * generated/sum_i16.c: Likewise.
326         * generated/sum_i1.c: Likewise.
327         * generated/sum_i2.c: Likewise.
328         * generated/sum_i4.c: Likewise.
329         * generated/sum_i8.c: Likewise.
330         * generated/sum_r10.c: Likewise.
331         * generated/sum_r16.c: Likewise.
332         * generated/sum_r4.c: Likewise.
333         * generated/sum_r8.c: Likewise.
334
335 2009-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
336
337         PR libfortran/32784
338         * unix.c (regular_file): Check for CONIN$ CONOUT$, and CONERR$ and open
339         the respective /dev/conin or /dev/conout devices.  This is Cygwin
340         specific.
341
342 2009-07-19  Thomas Koenig  <tkoenig@gcc.gnu.org>
343
344         PR libfortran/34670
345         PR libfortran/36874
346         * Makefile.am:  Add bounds.c
347         * libgfortran.h (bounds_equal_extents):  Add prototype.
348         (bounds_iforeach_return):  Likewise.
349         (bounds_ifunction_return):  Likewise.
350         (bounds_reduced_extents):  Likewise.
351         * runtime/bounds.c:  New file.
352         (bounds_iforeach_return):  New function; correct typo in
353         error message.
354         (bounds_ifunction_return):  New function.
355         (bounds_equal_extents):  New function.
356         (bounds_reduced_extents):  Likewise.
357         * intrinsics/cshift0.c (cshift0):  Use new functions
358         for bounds checking.
359         * intrinsics/eoshift0.c (eoshift0):  Likewise.
360         * intrinsics/eoshift2.c (eoshift2):  Likewise.
361         * m4/iforeach.m4:  Likewise.
362         * m4/eoshift1.m4:  Likewise.
363         * m4/eoshift3.m4:  Likewise.
364         * m4/cshift1.m4:  Likewise.
365         * m4/ifunction.m4:  Likewise.
366         * Makefile.in:  Regenerated.
367         * generated/cshift1_16.c: Regenerated.
368         * generated/cshift1_4.c: Regenerated.
369         * generated/cshift1_8.c: Regenerated.
370         * generated/eoshift1_16.c: Regenerated.
371         * generated/eoshift1_4.c: Regenerated.
372         * generated/eoshift1_8.c: Regenerated.
373         * generated/eoshift3_16.c: Regenerated.
374         * generated/eoshift3_4.c: Regenerated.
375         * generated/eoshift3_8.c: Regenerated.
376         * generated/maxloc0_16_i1.c: Regenerated.
377         * generated/maxloc0_16_i16.c: Regenerated.
378         * generated/maxloc0_16_i2.c: Regenerated.
379         * generated/maxloc0_16_i4.c: Regenerated.
380         * generated/maxloc0_16_i8.c: Regenerated.
381         * generated/maxloc0_16_r10.c: Regenerated.
382         * generated/maxloc0_16_r16.c: Regenerated.
383         * generated/maxloc0_16_r4.c: Regenerated.
384         * generated/maxloc0_16_r8.c: Regenerated.
385         * generated/maxloc0_4_i1.c: Regenerated.
386         * generated/maxloc0_4_i16.c: Regenerated.
387         * generated/maxloc0_4_i2.c: Regenerated.
388         * generated/maxloc0_4_i4.c: Regenerated.
389         * generated/maxloc0_4_i8.c: Regenerated.
390         * generated/maxloc0_4_r10.c: Regenerated.
391         * generated/maxloc0_4_r16.c: Regenerated.
392         * generated/maxloc0_4_r4.c: Regenerated.
393         * generated/maxloc0_4_r8.c: Regenerated.
394         * generated/maxloc0_8_i1.c: Regenerated.
395         * generated/maxloc0_8_i16.c: Regenerated.
396         * generated/maxloc0_8_i2.c: Regenerated.
397         * generated/maxloc0_8_i4.c: Regenerated.
398         * generated/maxloc0_8_i8.c: Regenerated.
399         * generated/maxloc0_8_r10.c: Regenerated.
400         * generated/maxloc0_8_r16.c: Regenerated.
401         * generated/maxloc0_8_r4.c: Regenerated.
402         * generated/maxloc0_8_r8.c: Regenerated.
403         * generated/maxloc1_16_i1.c: Regenerated.
404         * generated/maxloc1_16_i16.c: Regenerated.
405         * generated/maxloc1_16_i2.c: Regenerated.
406         * generated/maxloc1_16_i4.c: Regenerated.
407         * generated/maxloc1_16_i8.c: Regenerated.
408         * generated/maxloc1_16_r10.c: Regenerated.
409         * generated/maxloc1_16_r16.c: Regenerated.
410         * generated/maxloc1_16_r4.c: Regenerated.
411         * generated/maxloc1_16_r8.c: Regenerated.
412         * generated/maxloc1_4_i1.c: Regenerated.
413         * generated/maxloc1_4_i16.c: Regenerated.
414         * generated/maxloc1_4_i2.c: Regenerated.
415         * generated/maxloc1_4_i4.c: Regenerated.
416         * generated/maxloc1_4_i8.c: Regenerated.
417         * generated/maxloc1_4_r10.c: Regenerated.
418         * generated/maxloc1_4_r16.c: Regenerated.
419         * generated/maxloc1_4_r4.c: Regenerated.
420         * generated/maxloc1_4_r8.c: Regenerated.
421         * generated/maxloc1_8_i1.c: Regenerated.
422         * generated/maxloc1_8_i16.c: Regenerated.
423         * generated/maxloc1_8_i2.c: Regenerated.
424         * generated/maxloc1_8_i4.c: Regenerated.
425         * generated/maxloc1_8_i8.c: Regenerated.
426         * generated/maxloc1_8_r10.c: Regenerated.
427         * generated/maxloc1_8_r16.c: Regenerated.
428         * generated/maxloc1_8_r4.c: Regenerated.
429         * generated/maxloc1_8_r8.c: Regenerated.
430         * generated/maxval_i1.c: Regenerated.
431         * generated/maxval_i16.c: Regenerated.
432         * generated/maxval_i2.c: Regenerated.
433         * generated/maxval_i4.c: Regenerated.
434         * generated/maxval_i8.c: Regenerated.
435         * generated/maxval_r10.c: Regenerated.
436         * generated/maxval_r16.c: Regenerated.
437         * generated/maxval_r4.c: Regenerated.
438         * generated/maxval_r8.c: Regenerated.
439         * generated/minloc0_16_i1.c: Regenerated.
440         * generated/minloc0_16_i16.c: Regenerated.
441         * generated/minloc0_16_i2.c: Regenerated.
442         * generated/minloc0_16_i4.c: Regenerated.
443         * generated/minloc0_16_i8.c: Regenerated.
444         * generated/minloc0_16_r10.c: Regenerated.
445         * generated/minloc0_16_r16.c: Regenerated.
446         * generated/minloc0_16_r4.c: Regenerated.
447         * generated/minloc0_16_r8.c: Regenerated.
448         * generated/minloc0_4_i1.c: Regenerated.
449         * generated/minloc0_4_i16.c: Regenerated.
450         * generated/minloc0_4_i2.c: Regenerated.
451         * generated/minloc0_4_i4.c: Regenerated.
452         * generated/minloc0_4_i8.c: Regenerated.
453         * generated/minloc0_4_r10.c: Regenerated.
454         * generated/minloc0_4_r16.c: Regenerated.
455         * generated/minloc0_4_r4.c: Regenerated.
456         * generated/minloc0_4_r8.c: Regenerated.
457         * generated/minloc0_8_i1.c: Regenerated.
458         * generated/minloc0_8_i16.c: Regenerated.
459         * generated/minloc0_8_i2.c: Regenerated.
460         * generated/minloc0_8_i4.c: Regenerated.
461         * generated/minloc0_8_i8.c: Regenerated.
462         * generated/minloc0_8_r10.c: Regenerated.
463         * generated/minloc0_8_r16.c: Regenerated.
464         * generated/minloc0_8_r4.c: Regenerated.
465         * generated/minloc0_8_r8.c: Regenerated.
466         * generated/minloc1_16_i1.c: Regenerated.
467         * generated/minloc1_16_i16.c: Regenerated.
468         * generated/minloc1_16_i2.c: Regenerated.
469         * generated/minloc1_16_i4.c: Regenerated.
470         * generated/minloc1_16_i8.c: Regenerated.
471         * generated/minloc1_16_r10.c: Regenerated.
472         * generated/minloc1_16_r16.c: Regenerated.
473         * generated/minloc1_16_r4.c: Regenerated.
474         * generated/minloc1_16_r8.c: Regenerated.
475         * generated/minloc1_4_i1.c: Regenerated.
476         * generated/minloc1_4_i16.c: Regenerated.
477         * generated/minloc1_4_i2.c: Regenerated.
478         * generated/minloc1_4_i4.c: Regenerated.
479         * generated/minloc1_4_i8.c: Regenerated.
480         * generated/minloc1_4_r10.c: Regenerated.
481         * generated/minloc1_4_r16.c: Regenerated.
482         * generated/minloc1_4_r4.c: Regenerated.
483         * generated/minloc1_4_r8.c: Regenerated.
484         * generated/minloc1_8_i1.c: Regenerated.
485         * generated/minloc1_8_i16.c: Regenerated.
486         * generated/minloc1_8_i2.c: Regenerated.
487         * generated/minloc1_8_i4.c: Regenerated.
488         * generated/minloc1_8_i8.c: Regenerated.
489         * generated/minloc1_8_r10.c: Regenerated.
490         * generated/minloc1_8_r16.c: Regenerated.
491         * generated/minloc1_8_r4.c: Regenerated.
492         * generated/minloc1_8_r8.c: Regenerated.
493         * generated/minval_i1.c: Regenerated.
494         * generated/minval_i16.c: Regenerated.
495         * generated/minval_i2.c: Regenerated.
496         * generated/minval_i4.c: Regenerated.
497         * generated/minval_i8.c: Regenerated.
498         * generated/minval_r10.c: Regenerated.
499         * generated/minval_r16.c: Regenerated.
500         * generated/minval_r4.c: Regenerated.
501         * generated/minval_r8.c: Regenerated.
502         * generated/product_c10.c: Regenerated.
503         * generated/product_c16.c: Regenerated.
504         * generated/product_c4.c: Regenerated.
505         * generated/product_c8.c: Regenerated.
506         * generated/product_i1.c: Regenerated.
507         * generated/product_i16.c: Regenerated.
508         * generated/product_i2.c: Regenerated.
509         * generated/product_i4.c: Regenerated.
510         * generated/product_i8.c: Regenerated.
511         * generated/product_r10.c: Regenerated.
512         * generated/product_r16.c: Regenerated.
513         * generated/product_r4.c: Regenerated.
514         * generated/product_r8.c: Regenerated.
515         * generated/sum_c10.c: Regenerated.
516         * generated/sum_c16.c: Regenerated.
517         * generated/sum_c4.c: Regenerated.
518         * generated/sum_c8.c: Regenerated.
519         * generated/sum_i1.c: Regenerated.
520         * generated/sum_i16.c: Regenerated.
521         * generated/sum_i2.c: Regenerated.
522         * generated/sum_i4.c: Regenerated.
523         * generated/sum_i8.c: Regenerated.
524         * generated/sum_r10.c: Regenerated.
525         * generated/sum_r16.c: Regenerated.
526         * generated/sum_r4.c: Regenerated.
527         * generated/sum_r8.c: Regenerated.
528
529 2009-07-17  Janne Blomqvist  <jb@gcc.gnu.org>
530             Jerry DeLisle  <jvdelisle@gcc.gnu.org>
531                 
532         PR libfortran/40714
533         * io/transfer.c (finalize_transfer): Set current_record to 0
534         before returning in case of error.
535
536 2009-07-12  Tobias Burnus  <burnus@net-b.de>
537
538         PR libfortran/22423
539         * io/io.h (namelist_type): Use the proper enum for GFC_DTYPE_*.
540         * intrinsics/iso_c_binding.c (c_f_pointer_u0): Make sure
541         variable is initialized to silence warning.
542
543 2009-07-10  Steven G. Kargl  <kargl@gcc.gnu.org>
544
545         * c99_functions.c (ccoshf, ccosh, ccoshl, ctanhf, ctanh, ctanl):
546         Fix errant minus.
547
548 2009-07-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
549
550         PR libfortran/40330
551         PR libfortran/40662
552         * io/io.h (st_parameter_dt): Define format_not_saved bit used to signal
553         whether the parsed format data was previously saved. Used to determine
554         if the current format data should be freed or not.
555         * io/transfer.c (st_read_done): Use the format_not_saved bit.
556         (st_write_done): Likewise.
557         * io/format.c (parse_format_list): Add boolean pointer to arg list. This
558         pointer is used to return status to the caller regarding whether it is
559         safe to cache the parsed format data.  Currently, if a FMT_STRING token
560         is encounetered, it is not safe to cache. Also, added a local boolean
561         variable to hold this information as recursive calls to
562         parse_format_list are made.  Remove previous save_format logic.
563         (parse_format): Do not use the format caching facility if the current
564         unit is an internal unit or if it is not safe to save parsed format
565         data.
566         
567 2009-06-29  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
568
569         PR libfortran/40576
570         * io/transfer.c (sset): Adjust exit condition for loop.
571
572 2009-06-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
573
574         PR libfortran/40508
575         * io/format.c: Don't save parsed format data for internal units.
576
577 2009-06-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
578
579         PR fortran/37577
580         Port from fortran-dev
581         * runtime/in_pack_generic (internal_pack):  Remove unnecessary
582         test for stride == 0.
583         * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
584         * intrinsics/iso_c_binding.c (c_f_pointer_u0):  Take care
585         of stride in "shape" argument.  Use array access macros for
586         accessing array descriptors.
587         * libgfortran.h (struct descriptor_dimension):  Change stride
588         to _stride, lbound to _lbound and ubound to _ubound.
589         (GFC_DIMENSION_LBOUND):  Use new name(s) in struct
590         descriptor_dimension.
591         (GFC_DIMENSION_UBOUND):  Likewise.
592         (GFC_DIMENSION_STRIDE):  Likewise.
593         (GFC_DIMENSION_EXTENT):  Likewise.
594         (GFC_DIMENSION_SET):  Likewise.
595         (GFC_DESCRIPTOR_LBOUND):  Likewise.
596         (GFC_DESCRIPTOR_UBOUND):  Likewise.
597         (GFC_DESCRIPTOR_EXTENT):  Likewise.
598         (GFC_DESCRIPTOR_STRIDE):  Likewise.
599         * io/transfer.c (transfer_array):  Use array access macros.
600         Use byte-sized strides.
601         * intrinsics/eoshift0.c (eoshift0):  Use array access
602         macros everywhere.
603         * m4/in_pack.m4 (internal_pack_'rtype_ccode`):  Use
604         array access macros for accessing array descriptors.
605         * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):
606         Likewise.
607         * m4/matmull.m4 (matmul_'rtype_code`):  Likewise.
608         * m4/matmul.m4 (matmul_'rtype_code`):  Likewise.
609         * m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
610         (unpack1_'rtype_code`):  Likewise.
611         * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Likewise.
612         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Use array access
613         macros everywhere.
614                 * intrinsics/dtime.c (dtime_sub):  Use array access macros
615         for accessing array descriptors.
616         * intrinsics/cshift0 (cshift0):  Likewise.
617         * intrinsics/etime.c:  Likewise.  Remove redundant calculation
618         of rdim.
619         * m4/cshift0.m4 (cshift0_'rtype_code`):  Use array access macros
620         for accessing array descriptors.
621         * m4/pack.m4 (pack_'rtype_code`):  Likewise.
622         * m4/spread.m4 (spread_'rtype_code`):  Likewise.
623         (spread_scalar_'rtype_code`):  Likewise.
624         * m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
625         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
626         * m4/eoshift1.m4 (eoshift1):  Likewise.  Remove size argument,
627         calculate within function.
628         (eoshift1_'atype_kind`):  Remove size argument from call
629         to eoshift1.
630         (eoshift1_'atype_kind`_char):  Likewise.
631         (eoshift1_'atype_kind`_char4):  Likewise.
632         * m4/eoshift3.m4 (eoshift3):  Remove size argument, calculate
633         within function. Use array access macros for accessing array
634         descriptors.
635         (eoshift3_'atype_kind`):  Remove size argument from call
636         to eoshift1.
637         (eoshift3_'atype_kind`_char):  Likewise.
638         (eoshift3_'atype_kind`_char4):  Likewise.
639         * m4/shape.m4 (shape_'rtype_kind`):  Use array access macros
640         for accessing array descriptors.
641         * m4/cshift1.m4 (cshift1): Remove size argument, calculate
642         within function. Use array access macros for accessing array
643         descriptors.
644         (cshift1_'atype_kind`):  Remove size argument from call to
645         cshift1.
646         (cshift1_'atype_kind`_char):  Remove size argument from call to
647         cshift1.
648         (cshift1_'atype_kind`_char4):  Remove size argument from call to
649         cshift1.
650         * m4/reshape.m4 (reshape_'rtype_ccode`):  Use array access macros
651         for accessing array descriptors.
652         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Likewise.
653         * intrinsics/pack_generic.c (pack_internal):  Use array access
654         macros for accessing array descriptors.
655         (pack_s_internal):  Likewise.
656         * intrinsics/transpose_generic.c (transpose_internal):  Remove
657         size argument, calculate from array descriptor. Use array
658         access macros for accessing array descriptors.
659         (transpose):  Remove size argument from call.
660         (transpoe_char):  Likewise.
661         (transpose_char4):  Likewise.
662         * intrinsics/move_alloc.c (move_alloc):  Use array access macros
663         for accessing array descriptors.
664         * intrinsics/spread_generic.c (spread_internal):  Remove size
665         argument, calculate from array descriptor.  Use array access
666         macros for accessing array descriptors.
667         (spread_internal_scalar):  Likewise.
668         (spread):  Remove size argument from call to spread_internal.
669         (spread_char):  Mark argument source_length as unused.
670         Remove size argument from call to spread_internal.
671         (spread_char4):  Likewise.
672         (spread_char_scalar):  Likewise.
673         (spread_char4_scalar):  Likewise.
674         * intrinsics/unpack_generic.c (unpack_internal):  Use array access
675         macros for accessing array descriptors.
676         * intrinsics/eoshift2.c (eoshift2):  Remove size argument, calculate
677         from array descriptor instead.  Use array access macros for
678         accessing array descriptors.
679         (eoshift2_##N):  Remove size argument from call to eoshift2.
680         (eoshift2_##N_##char):  Likewise.
681         (eoshift2_##N_##char4):  Likewise.
682         * intrinsics/reshape_generic.c (reshape_internal):  Use array
683         access macross for accessing array descriptors.
684         * libgfortran.h:  Introduce new macros GFC_DIMENSION_LBOUND,
685         GFC_DIMENSION_UBOUND,GFC_DIMENSION_STRIDE, GFC_DIMENSION_EXTENT,
686         GFC_DIMENSION_SET, GFC_DESCRIPTOR_LBOUND, GFC_DESCRIPTOR_UBOUND,
687         GFC_DESCRIPTOR_EXTENT, GFC_DESCRIPTOR_EXTENT_BYTES,
688         GFC_DESCRIPTOR_STRIDE, GFC_DESCRIPTOR_STRIDE_BYTES
689         * runtime/in_pack_generic.c (internal_pack):  Use new macros
690         for array descriptor access.
691         * runtime/in_unpack_generic.c (internal_unpack):  Likewise.
692         * intrinsics/dtime.c (dtime_sub):  Likewise.
693         * intrinsics/cshift0 (cshift0):  Remove argument size,
694         calculate directly from the array descriptor.  Use new macros
695         for array descriptor access.
696         * cshift0_##N:  Remove shift argument in call to cshift0.
697         * cshift0_##N_char:  Mark array_length as unused.  Remove
698         array_length in call to cshift0.
699         * cshift0_##N_char4:  Likewise.
700         * intrisics/etime.c:  Use new macros for array descriptor access.
701         * intrinsics/stat.c (stat_i4_sub_0):  Likewise.
702         (stat_i8_sub_0):  Likewise.
703         (fstat_i4_sub):  Likewise.
704         (fstat_i8_sub):  Likewise.
705         * intrinsics/date_and_time.c (date_and_time):  Likewise.
706         (secnds):  Likewise.
707         (itime_i4):  Likewise.
708         (itime_i8):  Likewise.
709         (idate_i4):  Likewise.
710         (idate_i8):  Likewise.
711         (gmtime_i4):  Likewise.
712         (gmtime_i8):  Likewise.
713         (ltime_i4):  Likewise.
714         (litme_i8):  Likewise.
715         * intrinsics/associated.c (associated):  Likewise.
716         * intrinsics/eoshift0.c (eoshift0):  Likewise.
717         * intriniscs/size.c (size0):  Likewise.
718         * intrinsics/random.c (arandom_r4):  Likewise.
719         (arandom_r8):  Likewise.
720         (arandom_r10):  Likewise.
721         (arandom_r16):  Likewise.
722         (random_seed_i4):  Likewise.
723         (random_seed_i8):  Likewise.
724         * io/list_read.c (nml_parse_qualifier):  Likewise.
725         (nml_touch_nodes):  Likewise.
726         (nml_read_obj):  Likewise.
727         (get_name):  Likewise.
728         * io/transfer.c (transfer_array):  Likewise.
729         (init_loop_spec):  Likewise.
730         (st_set_nml_var_dim):  Likewise.
731         * io/write.c (nml_write_obj):  Likewise.
732         (obj_loop):  Likewise.
733         * generated/all_l1.c: Regenerated.
734         * generated/all_l16.c: Regenerated.
735         * generated/all_l2.c: Regenerated.
736         * generated/all_l4.c: Regenerated.
737         * generated/all_l8.c: Regenerated.
738         * generated/any_l1.c: Regenerated.
739         * generated/any_l16.c: Regenerated.
740         * generated/any_l2.c: Regenerated.
741         * generated/any_l4.c: Regenerated.
742         * generated/any_l8.c: Regenerated.
743         * generated/count_16_l.c: Regenerated.
744         * generated/count_1_l.c: Regenerated.
745         * generated/count_2_l.c: Regenerated.
746         * generated/count_4_l.c: Regenerated.
747         * generated/count_8_l.c: Regenerated.
748         * generated/cshift0_c10.c: Regenerated.
749         * generated/cshift0_c16.c: Regenerated.
750         * generated/cshift0_c4.c: Regenerated.
751         * generated/cshift0_c8.c: Regenerated.
752         * generated/cshift0_i1.c: Regenerated.
753         * generated/cshift0_i16.c: Regenerated.
754         * generated/cshift0_i2.c: Regenerated.
755         * generated/cshift0_i4.c: Regenerated.
756         * generated/cshift0_i8.c: Regenerated.
757         * generated/cshift0_r10.c: Regenerated.
758         * generated/cshift0_r16.c: Regenerated.
759         * generated/cshift0_r4.c: Regenerated.
760         * generated/cshift0_r8.c: Regenerated.
761         * generated/cshift1_16.c: Regenerated.
762         * generated/cshift1_4.c: Regenerated.
763         * generated/cshift1_8.c: Regenerated.
764         * generated/eoshift1_16.c: Regenerated.
765         * generated/eoshift1_4.c: Regenerated.
766         * generated/eoshift1_8.c: Regenerated.
767         * generated/eoshift3_16.c: Regenerated.
768         * generated/eoshift3_4.c: Regenerated.
769         * generated/eoshift3_8.c: Regenerated.
770         * generated/in_pack_c10.c: Regenerated.
771         * generated/in_pack_c16.c: Regenerated.
772         * generated/in_pack_c4.c: Regenerated.
773         * generated/in_pack_c8.c: Regenerated.
774         * generated/in_pack_i1.c: Regenerated.
775         * generated/in_pack_i16.c: Regenerated.
776         * generated/in_pack_i2.c: Regenerated.
777         * generated/in_pack_i4.c: Regenerated.
778         * generated/in_pack_i8.c: Regenerated.
779         * generated/in_pack_r10.c: Regenerated.
780         * generated/in_pack_r16.c: Regenerated.
781         * generated/in_pack_r4.c: Regenerated.
782         * generated/in_pack_r8.c: Regenerated.
783         * generated/in_unpack_c10.c: Regenerated.
784         * generated/in_unpack_c16.c: Regenerated.
785         * generated/in_unpack_c4.c: Regenerated.
786         * generated/in_unpack_c8.c: Regenerated.
787         * generated/in_unpack_i1.c: Regenerated.
788         * generated/in_unpack_i16.c: Regenerated.
789         * generated/in_unpack_i2.c: Regenerated.
790         * generated/in_unpack_i4.c: Regenerated.
791         * generated/in_unpack_i8.c: Regenerated.
792         * generated/in_unpack_r10.c: Regenerated.
793         * generated/in_unpack_r16.c: Regenerated.
794         * generated/in_unpack_r4.c: Regenerated.
795         * generated/in_unpack_r8.c: Regenerated.
796         * generated/matmul_c10.c: Regenerated.
797         * generated/matmul_c16.c: Regenerated.
798         * generated/matmul_c4.c: Regenerated.
799         * generated/matmul_c8.c: Regenerated.
800         * generated/matmul_i1.c: Regenerated.
801         * generated/matmul_i16.c: Regenerated.
802         * generated/matmul_i2.c: Regenerated.
803         * generated/matmul_i4.c: Regenerated.
804         * generated/matmul_i8.c: Regenerated.
805         * generated/matmul_l16.c: Regenerated.
806         * generated/matmul_l4.c: Regenerated.
807         * generated/matmul_l8.c: Regenerated.
808         * generated/matmul_r10.c: Regenerated.
809         * generated/matmul_r16.c: Regenerated.
810         * generated/matmul_r4.c: Regenerated.
811         * generated/matmul_r8.c: Regenerated.
812         * generated/maxloc0_16_i1.c: Regenerated.
813         * generated/maxloc0_16_i16.c: Regenerated.
814         * generated/maxloc0_16_i2.c: Regenerated.
815         * generated/maxloc0_16_i4.c: Regenerated.
816         * generated/maxloc0_16_i8.c: Regenerated.
817         * generated/maxloc0_16_r10.c: Regenerated.
818         * generated/maxloc0_16_r16.c: Regenerated.
819         * generated/maxloc0_16_r4.c: Regenerated.
820         * generated/maxloc0_16_r8.c: Regenerated.
821         * generated/maxloc0_4_i1.c: Regenerated.
822         * generated/maxloc0_4_i16.c: Regenerated.
823         * generated/maxloc0_4_i2.c: Regenerated.
824         * generated/maxloc0_4_i4.c: Regenerated.
825         * generated/maxloc0_4_i8.c: Regenerated.
826         * generated/maxloc0_4_r10.c: Regenerated.
827         * generated/maxloc0_4_r16.c: Regenerated.
828         * generated/maxloc0_4_r4.c: Regenerated.
829         * generated/maxloc0_4_r8.c: Regenerated.
830         * generated/maxloc0_8_i1.c: Regenerated.
831         * generated/maxloc0_8_i16.c: Regenerated.
832         * generated/maxloc0_8_i2.c: Regenerated.
833         * generated/maxloc0_8_i4.c: Regenerated.
834         * generated/maxloc0_8_i8.c: Regenerated.
835         * generated/maxloc0_8_r10.c: Regenerated.
836         * generated/maxloc0_8_r16.c: Regenerated.
837         * generated/maxloc0_8_r4.c: Regenerated.
838         * generated/maxloc0_8_r8.c: Regenerated.
839         * generated/maxloc1_16_i1.c: Regenerated.
840         * generated/maxloc1_16_i16.c: Regenerated.
841         * generated/maxloc1_16_i2.c: Regenerated.
842         * generated/maxloc1_16_i4.c: Regenerated.
843         * generated/maxloc1_16_i8.c: Regenerated.
844         * generated/maxloc1_16_r10.c: Regenerated.
845         * generated/maxloc1_16_r16.c: Regenerated.
846         * generated/maxloc1_16_r4.c: Regenerated.
847         * generated/maxloc1_16_r8.c: Regenerated.
848         * generated/maxloc1_4_i1.c: Regenerated.
849         * generated/maxloc1_4_i16.c: Regenerated.
850         * generated/maxloc1_4_i2.c: Regenerated.
851         * generated/maxloc1_4_i4.c: Regenerated.
852         * generated/maxloc1_4_i8.c: Regenerated.
853         * generated/maxloc1_4_r10.c: Regenerated.
854         * generated/maxloc1_4_r16.c: Regenerated.
855         * generated/maxloc1_4_r4.c: Regenerated.
856         * generated/maxloc1_4_r8.c: Regenerated.
857         * generated/maxloc1_8_i1.c: Regenerated.
858         * generated/maxloc1_8_i16.c: Regenerated.
859         * generated/maxloc1_8_i2.c: Regenerated.
860         * generated/maxloc1_8_i4.c: Regenerated.
861         * generated/maxloc1_8_i8.c: Regenerated.
862         * generated/maxloc1_8_r10.c: Regenerated.
863         * generated/maxloc1_8_r16.c: Regenerated.
864         * generated/maxloc1_8_r4.c: Regenerated.
865         * generated/maxloc1_8_r8.c: Regenerated.
866         * generated/maxval_i1.c: Regenerated.
867         * generated/maxval_i16.c: Regenerated.
868         * generated/maxval_i2.c: Regenerated.
869         * generated/maxval_i4.c: Regenerated.
870         * generated/maxval_i8.c: Regenerated.
871         * generated/maxval_r10.c: Regenerated.
872         * generated/maxval_r16.c: Regenerated.
873         * generated/maxval_r4.c: Regenerated.
874         * generated/maxval_r8.c: Regenerated.
875         * generated/minloc0_16_i1.c: Regenerated.
876         * generated/minloc0_16_i16.c: Regenerated.
877         * generated/minloc0_16_i2.c: Regenerated.
878         * generated/minloc0_16_i4.c: Regenerated.
879         * generated/minloc0_16_i8.c: Regenerated.
880         * generated/minloc0_16_r10.c: Regenerated.
881         * generated/minloc0_16_r16.c: Regenerated.
882         * generated/minloc0_16_r4.c: Regenerated.
883         * generated/minloc0_16_r8.c: Regenerated.
884         * generated/minloc0_4_i1.c: Regenerated.
885         * generated/minloc0_4_i16.c: Regenerated.
886         * generated/minloc0_4_i2.c: Regenerated.
887         * generated/minloc0_4_i4.c: Regenerated.
888         * generated/minloc0_4_i8.c: Regenerated.
889         * generated/minloc0_4_r10.c: Regenerated.
890         * generated/minloc0_4_r16.c: Regenerated.
891         * generated/minloc0_4_r4.c: Regenerated.
892         * generated/minloc0_4_r8.c: Regenerated.
893         * generated/minloc0_8_i1.c: Regenerated.
894         * generated/minloc0_8_i16.c: Regenerated.
895         * generated/minloc0_8_i2.c: Regenerated.
896         * generated/minloc0_8_i4.c: Regenerated.
897         * generated/minloc0_8_i8.c: Regenerated.
898         * generated/minloc0_8_r10.c: Regenerated.
899         * generated/minloc0_8_r16.c: Regenerated.
900         * generated/minloc0_8_r4.c: Regenerated.
901         * generated/minloc0_8_r8.c: Regenerated.
902         * generated/minloc1_16_i1.c: Regenerated.
903         * generated/minloc1_16_i16.c: Regenerated.
904         * generated/minloc1_16_i2.c: Regenerated.
905         * generated/minloc1_16_i4.c: Regenerated.
906         * generated/minloc1_16_i8.c: Regenerated.
907         * generated/minloc1_16_r10.c: Regenerated.
908         * generated/minloc1_16_r16.c: Regenerated.
909         * generated/minloc1_16_r4.c: Regenerated.
910         * generated/minloc1_16_r8.c: Regenerated.
911         * generated/minloc1_4_i1.c: Regenerated.
912         * generated/minloc1_4_i16.c: Regenerated.
913         * generated/minloc1_4_i2.c: Regenerated.
914         * generated/minloc1_4_i4.c: Regenerated.
915         * generated/minloc1_4_i8.c: Regenerated.
916         * generated/minloc1_4_r10.c: Regenerated.
917         * generated/minloc1_4_r16.c: Regenerated.
918         * generated/minloc1_4_r4.c: Regenerated.
919         * generated/minloc1_4_r8.c: Regenerated.
920         * generated/minloc1_8_i1.c: Regenerated.
921         * generated/minloc1_8_i16.c: Regenerated.
922         * generated/minloc1_8_i2.c: Regenerated.
923         * generated/minloc1_8_i4.c: Regenerated.
924         * generated/minloc1_8_i8.c: Regenerated.
925         * generated/minloc1_8_r10.c: Regenerated.
926         * generated/minloc1_8_r16.c: Regenerated.
927         * generated/minloc1_8_r4.c: Regenerated.
928         * generated/minloc1_8_r8.c: Regenerated.
929         * generated/minval_i1.c: Regenerated.
930         * generated/minval_i16.c: Regenerated.
931         * generated/minval_i2.c: Regenerated.
932         * generated/minval_i4.c: Regenerated.
933         * generated/minval_i8.c: Regenerated.
934         * generated/minval_r10.c: Regenerated.
935         * generated/minval_r16.c: Regenerated.
936         * generated/minval_r4.c: Regenerated.
937         * generated/minval_r8.c: Regenerated.
938         * generated/pack_c10.c: Regenerated.
939         * generated/pack_c16.c: Regenerated.
940         * generated/pack_c4.c: Regenerated.
941         * generated/pack_c8.c: Regenerated.
942         * generated/pack_i1.c: Regenerated.
943         * generated/pack_i16.c: Regenerated.
944         * generated/pack_i2.c: Regenerated.
945         * generated/pack_i4.c: Regenerated.
946         * generated/pack_i8.c: Regenerated.
947         * generated/pack_r10.c: Regenerated.
948         * generated/pack_r16.c: Regenerated.
949         * generated/pack_r4.c: Regenerated.
950         * generated/pack_r8.c: Regenerated.
951         * generated/product_c10.c: Regenerated.
952         * generated/product_c16.c: Regenerated.
953         * generated/product_c4.c: Regenerated.
954         * generated/product_c8.c: Regenerated.
955         * generated/product_i1.c: Regenerated.
956         * generated/product_i16.c: Regenerated.
957         * generated/product_i2.c: Regenerated.
958         * generated/product_i4.c: Regenerated.
959         * generated/product_i8.c: Regenerated.
960         * generated/product_r10.c: Regenerated.
961         * generated/product_r16.c: Regenerated.
962         * generated/product_r4.c: Regenerated.
963         * generated/product_r8.c: Regenerated.
964         * generated/reshape_c10.c: Regenerated.
965         * generated/reshape_c16.c: Regenerated.
966         * generated/reshape_c4.c: Regenerated.
967         * generated/reshape_c8.c: Regenerated.
968         * generated/reshape_i16.c: Regenerated.
969         * generated/reshape_i4.c: Regenerated.
970         * generated/reshape_i8.c: Regenerated.
971         * generated/reshape_r10.c: Regenerated.
972         * generated/reshape_r16.c: Regenerated.
973         * generated/reshape_r4.c: Regenerated.
974         * generated/reshape_r8.c: Regenerated.
975         * generated/shape_i16.c: Regenerated.
976         * generated/shape_i4.c: Regenerated.
977         * generated/shape_i8.c: Regenerated.
978         * generated/spread_c10.c: Regenerated.
979         * generated/spread_c16.c: Regenerated.
980         * generated/spread_c4.c: Regenerated.
981         * generated/spread_c8.c: Regenerated.
982         * generated/spread_i1.c: Regenerated.
983         * generated/spread_i16.c: Regenerated.
984         * generated/spread_i2.c: Regenerated.
985         * generated/spread_i4.c: Regenerated.
986         * generated/spread_i8.c: Regenerated.
987         * generated/spread_r10.c: Regenerated.
988         * generated/spread_r16.c: Regenerated.
989         * generated/spread_r4.c: Regenerated.
990         * generated/spread_r8.c: Regenerated.
991         * generated/sum_c10.c: Regenerated.
992         * generated/sum_c16.c: Regenerated.
993         * generated/sum_c4.c: Regenerated.
994         * generated/sum_c8.c: Regenerated.
995         * generated/sum_i1.c: Regenerated.
996         * generated/sum_i16.c: Regenerated.
997         * generated/sum_i2.c: Regenerated.
998         * generated/sum_i4.c: Regenerated.
999         * generated/sum_i8.c: Regenerated.
1000         * generated/sum_r10.c: Regenerated.
1001         * generated/sum_r16.c: Regenerated.
1002         * generated/sum_r4.c: Regenerated.
1003         * generated/sum_r8.c: Regenerated.
1004         * generated/transpose_c10.c: Regenerated.
1005         * generated/transpose_c16.c: Regenerated.
1006         * generated/transpose_c4.c: Regenerated.
1007         * generated/transpose_c8.c: Regenerated.
1008         * generated/transpose_i16.c: Regenerated.
1009         * generated/transpose_i4.c: Regenerated.
1010         * generated/transpose_i8.c: Regenerated.
1011         * generated/transpose_r10.c: Regenerated.
1012         * generated/transpose_r16.c: Regenerated.
1013         * generated/transpose_r4.c: Regenerated.
1014         * generated/transpose_r8.c: Regenerated.
1015         * generated/unpack_c10.c: Regenerated.
1016         * generated/unpack_c16.c: Regenerated.
1017         * generated/unpack_c4.c: Regenerated.
1018         * generated/unpack_c8.c: Regenerated.
1019         * generated/unpack_i1.c: Regenerated.
1020         * generated/unpack_i16.c: Regenerated.
1021         * generated/unpack_i2.c: Regenerated.
1022         * generated/unpack_i4.c: Regenerated.
1023         * generated/unpack_i8.c: Regenerated.
1024         * generated/unpack_r10.c: Regenerated.
1025         * generated/unpack_r16.c: Regenerated.
1026         * generated/unpack_r4.c: Regenerated.
1027         * generated/unpack_r8.c: Regenerated.
1028
1029 2009-06-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1030
1031         * fmain.c (main): Don't PREFIX set_args.
1032         * libgfortran.h (set_args): Use iexport_proto.
1033         * runtime/main.c (set_args): Use iexport.
1034
1035 2009-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1036
1037         PR libfortran/40008
1038         * libgfortran.h: Define IOPARM_OPEN_HAS_NEWUNIT.
1039         * io/open.c (st_open): Don't error on negative unit number if NEWUNIT
1040         was specified. If NEWUNIT is specified, call new function to get the
1041         unique unit number and assign it.
1042         * io/io.h (st_parameter_open): Add pointer to newunit.  Add prototype for
1043         next_available_newunit. Add prototype for new function,
1044         get_unique_unit_number.
1045         * io/unit.c: Declare next_available_newunit. Define the first newunit
1046         number. (init_units): Initialize next_available_unit.
1047         (get_unique_unit_number): New function. Fix whitespace and comments.
1048         * io/transfer.c (data_transfer_init): Update error message to not be
1049         specific to OPEN statements.
1050
1051 2009-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1052
1053         PR libfortran/40334
1054         * io/list_read.c (list_formatted_read_scalar): Set the end file
1055         conditions after a return from EOF error.
1056
1057 2009-06-04  Janne Blomqvist  <jb@gcc.gnu.org>
1058
1059         PR libfortran/40330
1060         * io/format.c (free_format_hash_table): Also free and nullify hash key.
1061         (save_parsed_format): Copy string rather than pointer copy.
1062         
1063 2009-05-29  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1064
1065         PR fortran/40019
1066         * intrinsics/bit_intrinsics.c: New file.
1067         * gfortran.map (GFORTRAN_1.2): New list.
1068         * Makefile.am: Add intrinsics/bit_intrinsics.c.
1069         * Makefile.in: Regenerate.
1070
1071 2009-05-29  Janne Blomqvist  <jb@gcc.gnu.org>
1072
1073         PR libfortran/40190
1074         * configure.ac: Check for localtime_r and gmtime_r.
1075         * intrinsics/date_and_time.c: Add fallback implementations for
1076         localtime_r and gmtime_r.
1077         (date_and_time): Change to use localtime_r and gmtime_r instead of
1078         localtime and gmtime, respectively.
1079         (itime0): Use localtime_r instead of localtime.
1080         (ltime_0): Likewise.
1081         (gmtime_0): Use gmtime_r instead of gmtime.
1082         * config.h.in: Regenerated
1083         * configure: Regenerated.
1084
1085 2009-05-27  Janne Blomqvist  <jb@gcc.gnu.org>
1086
1087         PR fortran/39178
1088         * runtime/main.c (store_exe_path): Remove static attribute.
1089         * libgfortran.h: Add back store_exe_path prototype.
1090
1091 2009-05-27  Thomas Koenig  <tkoenig@gcc.gnu.org>
1092
1093         PR libfortran/40187
1094         * intrinsics/iso_c_binding.c (c_f_pointer_u0):  Take care
1095         of stride in "shape" argument.
1096
1097 2009-05-26  Tobias Burnus  <burnus@net-b.de>
1098
1099         PR fortran/39178
1100         * runtime/main.c (store_exe_path): Make static
1101         and multiple-times callable.
1102         (set_args): Call store_exe_path.
1103         * libgfortran.h: Remove store_exe_path prototype.
1104         * fmain.c (main): Remove store_exe_path call.
1105
1106 2009-05-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1107
1108         PR libfortran/37754
1109         * io/write_float.def: Simplify format calculation.
1110         
1111 2009-05-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
1112
1113         PR fortran/22423
1114         * io/transfer.c (read_block_direct): Avoid warning.
1115         * runtime/string.c (compare0): Avoid warning.
1116
1117 2009-04-30  Janne Blomqvist  <jb@gcc.gnu.org>
1118
1119         PR libfortran/39667
1120         * io/file_pos.c (st_rewind): Don't truncate or flush.
1121         * io/intrinsics.c (fgetc): Flush if switching mode.
1122         (fputc): Likewise.
1123
1124 2009-04-18  Janne Blomqvist  <jb@gcc.gnu.org>
1125
1126         PR libfortran/39782
1127         * io/transfer.c (data_transfer_init): Don't flush before seek.
1128         (finalize_transfer): Remove extra flush.
1129
1130 2009-04-17  Janne Blomqvist  <jb@gcc.gnu.org>
1131
1132         * io/io.h (is_preconnected): Remove prototype.
1133         * io/unix.c (is_preconnected): Remove function.
1134
1135 2009-04-17  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
1136
1137         * configure.ac: Test for -ffunction-sections -fdata-sections and
1138         set SECTION_FLAGS accordingly.
1139         * configure: Regenerate.
1140
1141         * Makefile.am: Add SECTION_FLAGS to AM_CFLAGS.
1142         * Makefile.in: Regenerate.
1143
1144 2009-04-15  Janne Blomqvist  <jb@gcc.gnu.org>
1145
1146         PR libfortran/38668
1147         * io/transfer.c (finalize_transfer): Don't flush for advance='no'.
1148
1149 2009-04-15 Danny Smith  <dannysmith@clear.net.nz>
1150
1151         * io/write.c (itoa) : Rename back to gfc_itoa.
1152         (write_i): Adjust call to write_decimal.
1153         (write_integer):  Use gfc_itoa.
1154
1155 2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>
1156
1157         * io/io.h (move_pos_offset): Remove prototype.
1158         * io/transfer.c (formatted_transfer_scalar_read): Use sseek
1159         instead of move_pos_offset.
1160         * io/unix.c (move_pos_offset): Remove.
1161
1162 2009-04-10  Janne Blomqvist  <jb@gcc.gnu.org>
1163
1164         PR libfortran/39665 libfortran/39702 libfortran/39709
1165         * io/io.h (st_parameter_dt): Revert aligned attribute from u.p.value.
1166         * io/list_read.c (read_complex): Read directly into user pointer.
1167         (read_real): Likewise.
1168         (list_formatted_read_scalar): Update read_complex and read_real calls.
1169         (nml_read_obj): Read directly into user pointer.
1170
1171 2009-04-09  Janne Blomqvist  <jb@gcc.gnu.org>
1172
1173         PR libfortran/39665
1174         * io/io.h (st_parameter_dt): Add aligned attribute to u.p.value.
1175         * io/read.c (convert_real): Add note about alignment requirements.
1176
1177 2009-04-09  Nick Clifton  <nickc@redhat.com>
1178
1179         * m4/cshift0.m4: Change copyright header to refer to version 3
1180         of the GNU General Public License with version 3.1 of the GCC
1181         Runtime Library Exception and to point readers at the COPYING3
1182         and COPYING3.RUNTIME files and the FSF's license web page.
1183         * c99_protos.h: Likewise.
1184         * config/fpu-387.h: Likewise.
1185         * config/fpu-aix.h: Likewise.
1186         * config/fpu-generic.h: Likewise.
1187         * config/fpu-glibc.h: Likewise.
1188         * config/fpu-sysv.h: Likewise.
1189         * intrinsics/abort.c: Likewise.
1190         * intrinsics/access.c: Likewise.
1191         * intrinsics/args.c: Likewise.
1192         * intrinsics/associated.c: Likewise.
1193         * intrinsics/c99_functions.c: Likewise.
1194         * intrinsics/chdir.c: Likewise.
1195         * intrinsics/chmod.c: Likewise.
1196         * intrinsics/clock.c: Likewise.
1197         * intrinsics/cpu_time.c: Likewise.
1198         * intrinsics/cshift0.c: Likewise.
1199         * intrinsics/ctime.c: Likewise.
1200         * intrinsics/date_and_time.c: Likewise.
1201         * intrinsics/dprod_r8.f90: Likewise.
1202         * intrinsics/dtime.c: Likewise.
1203         * intrinsics/env.c: Likewise.
1204         * intrinsics/eoshift0.c: Likewise.
1205         * intrinsics/eoshift2.c: Likewise.
1206         * intrinsics/erfc_scaled.c: Likewise.
1207         * intrinsics/erfc_scaled_inc.c: Likewise.
1208         * intrinsics/etime.c: Likewise.
1209         * intrinsics/exit.c: Likewise.
1210         * intrinsics/f2c_specifics.F90: Likewise.
1211         * intrinsics/fnum.c: Likewise.
1212         * intrinsics/gerror.c: Likewise.
1213         * intrinsics/getXid.c: Likewise.
1214         * intrinsics/getcwd.c: Likewise.
1215         * intrinsics/getlog.c: Likewise.
1216         * intrinsics/hostnm.c: Likewise.
1217         * intrinsics/ierrno.c: Likewise.
1218         * intrinsics/ishftc.c: Likewise.
1219         * intrinsics/iso_c_binding.c: Likewise.
1220         * intrinsics/iso_c_binding.h: Likewise.
1221         * intrinsics/iso_c_generated_procs.c: Likewise.
1222         * intrinsics/kill.c: Likewise.
1223         * intrinsics/link.c: Likewise.
1224         * intrinsics/malloc.c: Likewise.
1225         * intrinsics/move_alloc.c: Likewise.
1226         * intrinsics/mvbits.c: Likewise.
1227         * intrinsics/pack_generic.c: Likewise.
1228         * intrinsics/perror.c: Likewise.
1229         * intrinsics/rand.c: Likewise.
1230         * intrinsics/random.c: Likewise.
1231         * intrinsics/rename.c: Likewise.
1232         * intrinsics/reshape_generic.c: Likewise.
1233         * intrinsics/reshape_packed.c: Likewise.
1234         * intrinsics/selected_char_kind.c: Likewise.
1235         * intrinsics/selected_int_kind.f90: Likewise.
1236         * intrinsics/selected_real_kind.f90: Likewise.
1237         * intrinsics/signal.c: Likewise.
1238         * intrinsics/size.c: Likewise.
1239         * intrinsics/sleep.c: Likewise.
1240         * intrinsics/spread_generic.c: Likewise.
1241         * intrinsics/stat.c: Likewise.
1242         * intrinsics/string_intrinsics.c: Likewise.
1243         * intrinsics/string_intrinsics_inc.c: Likewise.
1244         * intrinsics/symlnk.c: Likewise.
1245         * intrinsics/system.c: Likewise.
1246         * intrinsics/system_clock.c: Likewise.
1247         * intrinsics/time.c: Likewise.
1248         * intrinsics/time_1.h: Likewise.
1249         * intrinsics/transpose_generic.c: Likewise.
1250         * intrinsics/umask.c: Likewise.
1251         * intrinsics/unlink.c: Likewise.
1252         * intrinsics/unpack_generic.c: Likewise.
1253         * io/close.c: Likewise.
1254         * io/fbuf.c: Likewise.
1255         * io/file_pos.c: Likewise.
1256         * io/format.c: Likewise.
1257         * io/inquire.c: Likewise.
1258         * io/intrinsics.c: Likewise.
1259         * io/io.h: Likewise.
1260         * io/list_read.c: Likewise.
1261         * io/lock.c: Likewise.
1262         * io/open.c: Likewise.
1263         * io/read.c: Likewise.
1264         * io/size_from_kind.c: Likewise.
1265         * io/transfer.c: Likewise.
1266         * io/unit.c: Likewise.
1267         * io/unix.c: Likewise.
1268         * io/write.c: Likewise.
1269         * io/write_float.def: Likewise.
1270         * libgfortran.h: Likewise.
1271         * m4/all.m4: Likewise.
1272         * m4/any.m4: Likewise.
1273         * m4/count.m4: Likewise.
1274         * m4/cshift1.m4: Likewise.
1275         * m4/eoshift1.m4: Likewise.
1276         * m4/eoshift3.m4: Likewise.
1277         * m4/exponent.m4: Likewise.
1278         * m4/fraction.m4: Likewise.
1279         * m4/head.m4: Likewise.
1280         * m4/in_pack.m4: Likewise.
1281         * m4/in_unpack.m4: Likewise.
1282         * m4/matmul.m4: Likewise.
1283         * m4/matmull.m4: Likewise.
1284         * m4/maxloc0.m4: Likewise.
1285         * m4/maxloc1.m4: Likewise.
1286         * m4/maxval.m4: Likewise.
1287         * m4/minloc0.m4: Likewise.
1288         * m4/minloc1.m4: Likewise.
1289         * m4/minval.m4: Likewise.
1290         * m4/nearest.m4: Likewise.
1291         * m4/pack.m4: Likewise.
1292         * m4/pow.m4: Likewise.
1293         * m4/product.m4: Likewise.
1294         * m4/reshape.m4: Likewise.
1295         * m4/rrspacing.m4: Likewise.
1296         * m4/set_exponent.m4: Likewise.
1297         * m4/shape.m4: Likewise.
1298         * m4/spacing.m4: Likewise.
1299         * m4/spread.m4: Likewise.
1300         * m4/sum.m4: Likewise.
1301         * m4/transpose.m4: Likewise.
1302         * m4/unpack.m4: Likewise.
1303         * runtime/backtrace.c: Likewise.
1304         * runtime/compile_options.c: Likewise.
1305         * runtime/convert_char.c: Likewise.
1306         * runtime/environ.c: Likewise.
1307         * runtime/error.c: Likewise.
1308         * runtime/in_pack_generic.c: Likewise.
1309         * runtime/in_unpack_generic.c: Likewise.
1310         * runtime/main.c: Likewise.
1311         * runtime/memory.c: Likewise.
1312         * runtime/pause.c: Likewise.
1313         * runtime/select.c: Likewise.
1314         * runtime/select_inc.c: Likewise.
1315         * runtime/stop.c: Likewise.
1316         * runtime/string.c: Likewise.
1317         * generated/_abs_c10.F90: Regenerate.
1318         * generated/_abs_c16.F90: Regenerate.
1319         * generated/_abs_c4.F90: Regenerate.
1320         * generated/_abs_c8.F90: Regenerate.
1321         * generated/_abs_i16.F90: Regenerate.
1322         * generated/_abs_i4.F90: Regenerate.
1323         * generated/_abs_i8.F90: Regenerate.
1324         * generated/_abs_r10.F90: Regenerate.
1325         * generated/_abs_r16.F90: Regenerate.
1326         * generated/_abs_r4.F90: Regenerate.
1327         * generated/_abs_r8.F90: Regenerate.
1328         * generated/_acos_r10.F90: Regenerate.
1329         * generated/_acos_r16.F90: Regenerate.
1330         * generated/_acos_r4.F90: Regenerate.
1331         * generated/_acos_r8.F90: Regenerate.
1332         * generated/_acosh_r10.F90: Regenerate.
1333         * generated/_acosh_r16.F90: Regenerate.
1334         * generated/_acosh_r4.F90: Regenerate.
1335         * generated/_acosh_r8.F90: Regenerate.
1336         * generated/_aimag_c10.F90: Regenerate.
1337         * generated/_aimag_c16.F90: Regenerate.
1338         * generated/_aimag_c4.F90: Regenerate.
1339         * generated/_aimag_c8.F90: Regenerate.
1340         * generated/_aint_r10.F90: Regenerate.
1341         * generated/_aint_r16.F90: Regenerate.
1342         * generated/_aint_r4.F90: Regenerate.
1343         * generated/_aint_r8.F90: Regenerate.
1344         * generated/_anint_r10.F90: Regenerate.
1345         * generated/_anint_r16.F90: Regenerate.
1346         * generated/_anint_r4.F90: Regenerate.
1347         * generated/_anint_r8.F90: Regenerate.
1348         * generated/_asin_r10.F90: Regenerate.
1349         * generated/_asin_r16.F90: Regenerate.
1350         * generated/_asin_r4.F90: Regenerate.
1351         * generated/_asin_r8.F90: Regenerate.
1352         * generated/_asinh_r10.F90: Regenerate.
1353         * generated/_asinh_r16.F90: Regenerate.
1354         * generated/_asinh_r4.F90: Regenerate.
1355         * generated/_asinh_r8.F90: Regenerate.
1356         * generated/_atan2_r10.F90: Regenerate.
1357         * generated/_atan2_r16.F90: Regenerate.
1358         * generated/_atan2_r4.F90: Regenerate.
1359         * generated/_atan2_r8.F90: Regenerate.
1360         * generated/_atan_r10.F90: Regenerate.
1361         * generated/_atan_r16.F90: Regenerate.
1362         * generated/_atan_r4.F90: Regenerate.
1363         * generated/_atan_r8.F90: Regenerate.
1364         * generated/_atanh_r10.F90: Regenerate.
1365         * generated/_atanh_r16.F90: Regenerate.
1366         * generated/_atanh_r4.F90: Regenerate.
1367         * generated/_atanh_r8.F90: Regenerate.
1368         * generated/_conjg_c10.F90: Regenerate.
1369         * generated/_conjg_c16.F90: Regenerate.
1370         * generated/_conjg_c4.F90: Regenerate.
1371         * generated/_conjg_c8.F90: Regenerate.
1372         * generated/_cos_c10.F90: Regenerate.
1373         * generated/_cos_c16.F90: Regenerate.
1374         * generated/_cos_c4.F90: Regenerate.
1375         * generated/_cos_c8.F90: Regenerate.
1376         * generated/_cos_r10.F90: Regenerate.
1377         * generated/_cos_r16.F90: Regenerate.
1378         * generated/_cos_r4.F90: Regenerate.
1379         * generated/_cos_r8.F90: Regenerate.
1380         * generated/_cosh_r10.F90: Regenerate.
1381         * generated/_cosh_r16.F90: Regenerate.
1382         * generated/_cosh_r4.F90: Regenerate.
1383         * generated/_cosh_r8.F90: Regenerate.
1384         * generated/_dim_i16.F90: Regenerate.
1385         * generated/_dim_i4.F90: Regenerate.
1386         * generated/_dim_i8.F90: Regenerate.
1387         * generated/_dim_r10.F90: Regenerate.
1388         * generated/_dim_r16.F90: Regenerate.
1389         * generated/_dim_r4.F90: Regenerate.
1390         * generated/_dim_r8.F90: Regenerate.
1391         * generated/_exp_c10.F90: Regenerate.
1392         * generated/_exp_c16.F90: Regenerate.
1393         * generated/_exp_c4.F90: Regenerate.
1394         * generated/_exp_c8.F90: Regenerate.
1395         * generated/_exp_r10.F90: Regenerate.
1396         * generated/_exp_r16.F90: Regenerate.
1397         * generated/_exp_r4.F90: Regenerate.
1398         * generated/_exp_r8.F90: Regenerate.
1399         * generated/_log10_r10.F90: Regenerate.
1400         * generated/_log10_r16.F90: Regenerate.
1401         * generated/_log10_r4.F90: Regenerate.
1402         * generated/_log10_r8.F90: Regenerate.
1403         * generated/_log_c10.F90: Regenerate.
1404         * generated/_log_c16.F90: Regenerate.
1405         * generated/_log_c4.F90: Regenerate.
1406         * generated/_log_c8.F90: Regenerate.
1407         * generated/_log_r10.F90: Regenerate.
1408         * generated/_log_r16.F90: Regenerate.
1409         * generated/_log_r4.F90: Regenerate.
1410         * generated/_log_r8.F90: Regenerate.
1411         * generated/_mod_i16.F90: Regenerate.
1412         * generated/_mod_i4.F90: Regenerate.
1413         * generated/_mod_i8.F90: Regenerate.
1414         * generated/_mod_r10.F90: Regenerate.
1415         * generated/_mod_r16.F90: Regenerate.
1416         * generated/_mod_r4.F90: Regenerate.
1417         * generated/_mod_r8.F90: Regenerate.
1418         * generated/_sign_i16.F90: Regenerate.
1419         * generated/_sign_i4.F90: Regenerate.
1420         * generated/_sign_i8.F90: Regenerate.
1421         * generated/_sign_r10.F90: Regenerate.
1422         * generated/_sign_r16.F90: Regenerate.
1423         * generated/_sign_r4.F90: Regenerate.
1424         * generated/_sign_r8.F90: Regenerate.
1425         * generated/_sin_c10.F90: Regenerate.
1426         * generated/_sin_c16.F90: Regenerate.
1427         * generated/_sin_c4.F90: Regenerate.
1428         * generated/_sin_c8.F90: Regenerate.
1429         * generated/_sin_r10.F90: Regenerate.
1430         * generated/_sin_r16.F90: Regenerate.
1431         * generated/_sin_r4.F90: Regenerate.
1432         * generated/_sin_r8.F90: Regenerate.
1433         * generated/_sinh_r10.F90: Regenerate.
1434         * generated/_sinh_r16.F90: Regenerate.
1435         * generated/_sinh_r4.F90: Regenerate.
1436         * generated/_sinh_r8.F90: Regenerate.
1437         * generated/_sqrt_c10.F90: Regenerate.
1438         * generated/_sqrt_c16.F90: Regenerate.
1439         * generated/_sqrt_c4.F90: Regenerate.
1440         * generated/_sqrt_c8.F90: Regenerate.
1441         * generated/_sqrt_r10.F90: Regenerate.
1442         * generated/_sqrt_r16.F90: Regenerate.
1443         * generated/_sqrt_r4.F90: Regenerate.
1444         * generated/_sqrt_r8.F90: Regenerate.
1445         * generated/_tan_r10.F90: Regenerate.
1446         * generated/_tan_r16.F90: Regenerate.
1447         * generated/_tan_r4.F90: Regenerate.
1448         * generated/_tan_r8.F90: Regenerate.
1449         * generated/_tanh_r10.F90: Regenerate.
1450         * generated/_tanh_r16.F90: Regenerate.
1451         * generated/_tanh_r4.F90: Regenerate.
1452         * generated/_tanh_r8.F90: Regenerate.
1453         * generated/all_l1.c: Regenerate.
1454         * generated/all_l16.c: Regenerate.
1455         * generated/all_l2.c: Regenerate.
1456         * generated/all_l4.c: Regenerate.
1457         * generated/all_l8.c: Regenerate.
1458         * generated/any_l1.c: Regenerate.
1459         * generated/any_l16.c: Regenerate.
1460         * generated/any_l2.c: Regenerate.
1461         * generated/any_l4.c: Regenerate.
1462         * generated/any_l8.c: Regenerate.
1463         * generated/count_16_l.c: Regenerate.
1464         * generated/count_1_l.c: Regenerate.
1465         * generated/count_2_l.c: Regenerate.
1466         * generated/count_4_l.c: Regenerate.
1467         * generated/count_8_l.c: Regenerate.
1468         * generated/cshift0_c10.c: Regenerate.
1469         * generated/cshift0_c16.c: Regenerate.
1470         * generated/cshift0_c4.c: Regenerate.
1471         * generated/cshift0_c8.c: Regenerate.
1472         * generated/cshift0_i1.c: Regenerate.
1473         * generated/cshift0_i16.c: Regenerate.
1474         * generated/cshift0_i2.c: Regenerate.
1475         * generated/cshift0_i4.c: Regenerate.
1476         * generated/cshift0_i8.c: Regenerate.
1477         * generated/cshift0_r10.c: Regenerate.
1478         * generated/cshift0_r16.c: Regenerate.
1479         * generated/cshift0_r4.c: Regenerate.
1480         * generated/cshift0_r8.c: Regenerate.
1481         * generated/cshift1_16.c: Regenerate.
1482         * generated/cshift1_4.c: Regenerate.
1483         * generated/cshift1_8.c: Regenerate.
1484         * generated/eoshift1_16.c: Regenerate.
1485         * generated/eoshift1_4.c: Regenerate.
1486         * generated/eoshift1_8.c: Regenerate.
1487         * generated/eoshift3_16.c: Regenerate.
1488         * generated/eoshift3_4.c: Regenerate.
1489         * generated/eoshift3_8.c: Regenerate.
1490         * generated/exponent_r10.c: Regenerate.
1491         * generated/exponent_r16.c: Regenerate.
1492         * generated/exponent_r4.c: Regenerate.
1493         * generated/exponent_r8.c: Regenerate.
1494         * generated/fraction_r10.c: Regenerate.
1495         * generated/fraction_r16.c: Regenerate.
1496         * generated/fraction_r4.c: Regenerate.
1497         * generated/fraction_r8.c: Regenerate.
1498         * generated/in_pack_c10.c: Regenerate.
1499         * generated/in_pack_c16.c: Regenerate.
1500         * generated/in_pack_c4.c: Regenerate.
1501         * generated/in_pack_c8.c: Regenerate.
1502         * generated/in_pack_i1.c: Regenerate.
1503         * generated/in_pack_i16.c: Regenerate.
1504         * generated/in_pack_i2.c: Regenerate.
1505         * generated/in_pack_i4.c: Regenerate.
1506         * generated/in_pack_i8.c: Regenerate.
1507         * generated/in_pack_r10.c: Regenerate.
1508         * generated/in_pack_r16.c: Regenerate.
1509         * generated/in_pack_r4.c: Regenerate.
1510         * generated/in_pack_r8.c: Regenerate.
1511         * generated/in_unpack_c10.c: Regenerate.
1512         * generated/in_unpack_c16.c: Regenerate.
1513         * generated/in_unpack_c4.c: Regenerate.
1514         * generated/in_unpack_c8.c: Regenerate.
1515         * generated/in_unpack_i1.c: Regenerate.
1516         * generated/in_unpack_i16.c: Regenerate.
1517         * generated/in_unpack_i2.c: Regenerate.
1518         * generated/in_unpack_i4.c: Regenerate.
1519         * generated/in_unpack_i8.c: Regenerate.
1520         * generated/in_unpack_r10.c: Regenerate.
1521         * generated/in_unpack_r16.c: Regenerate.
1522         * generated/in_unpack_r4.c: Regenerate.
1523         * generated/in_unpack_r8.c: Regenerate.
1524         * generated/matmul_c10.c: Regenerate.
1525         * generated/matmul_c16.c: Regenerate.
1526         * generated/matmul_c4.c: Regenerate.
1527         * generated/matmul_c8.c: Regenerate.
1528         * generated/matmul_i1.c: Regenerate.
1529         * generated/matmul_i16.c: Regenerate.
1530         * generated/matmul_i2.c: Regenerate.
1531         * generated/matmul_i4.c: Regenerate.
1532         * generated/matmul_i8.c: Regenerate.
1533         * generated/matmul_l16.c: Regenerate.
1534         * generated/matmul_l4.c: Regenerate.
1535         * generated/matmul_l8.c: Regenerate.
1536         * generated/matmul_r10.c: Regenerate.
1537         * generated/matmul_r16.c: Regenerate.
1538         * generated/matmul_r4.c: Regenerate.
1539         * generated/matmul_r8.c: Regenerate.
1540         * generated/maxloc0_16_i1.c: Regenerate.
1541         * generated/maxloc0_16_i16.c: Regenerate.
1542         * generated/maxloc0_16_i2.c: Regenerate.
1543         * generated/maxloc0_16_i4.c: Regenerate.
1544         * generated/maxloc0_16_i8.c: Regenerate.
1545         * generated/maxloc0_16_r10.c: Regenerate.
1546         * generated/maxloc0_16_r16.c: Regenerate.
1547         * generated/maxloc0_16_r4.c: Regenerate.
1548         * generated/maxloc0_16_r8.c: Regenerate.
1549         * generated/maxloc0_4_i1.c: Regenerate.
1550         * generated/maxloc0_4_i16.c: Regenerate.
1551         * generated/maxloc0_4_i2.c: Regenerate.
1552         * generated/maxloc0_4_i4.c: Regenerate.
1553         * generated/maxloc0_4_i8.c: Regenerate.
1554         * generated/maxloc0_4_r10.c: Regenerate.
1555         * generated/maxloc0_4_r16.c: Regenerate.
1556         * generated/maxloc0_4_r4.c: Regenerate.
1557         * generated/maxloc0_4_r8.c: Regenerate.
1558         * generated/maxloc0_8_i1.c: Regenerate.
1559         * generated/maxloc0_8_i16.c: Regenerate.
1560         * generated/maxloc0_8_i2.c: Regenerate.
1561         * generated/maxloc0_8_i4.c: Regenerate.
1562         * generated/maxloc0_8_i8.c: Regenerate.
1563         * generated/maxloc0_8_r10.c: Regenerate.
1564         * generated/maxloc0_8_r16.c: Regenerate.
1565         * generated/maxloc0_8_r4.c: Regenerate.
1566         * generated/maxloc0_8_r8.c: Regenerate.
1567         * generated/maxloc1_16_i1.c: Regenerate.
1568         * generated/maxloc1_16_i16.c: Regenerate.
1569         * generated/maxloc1_16_i2.c: Regenerate.
1570         * generated/maxloc1_16_i4.c: Regenerate.
1571         * generated/maxloc1_16_i8.c: Regenerate.
1572         * generated/maxloc1_16_r10.c: Regenerate.
1573         * generated/maxloc1_16_r16.c: Regenerate.
1574         * generated/maxloc1_16_r4.c: Regenerate.
1575         * generated/maxloc1_16_r8.c: Regenerate.
1576         * generated/maxloc1_4_i1.c: Regenerate.
1577         * generated/maxloc1_4_i16.c: Regenerate.
1578         * generated/maxloc1_4_i2.c: Regenerate.
1579         * generated/maxloc1_4_i4.c: Regenerate.
1580         * generated/maxloc1_4_i8.c: Regenerate.
1581         * generated/maxloc1_4_r10.c: Regenerate.
1582         * generated/maxloc1_4_r16.c: Regenerate.
1583         * generated/maxloc1_4_r4.c: Regenerate.
1584         * generated/maxloc1_4_r8.c: Regenerate.
1585         * generated/maxloc1_8_i1.c: Regenerate.
1586         * generated/maxloc1_8_i16.c: Regenerate.
1587         * generated/maxloc1_8_i2.c: Regenerate.
1588         * generated/maxloc1_8_i4.c: Regenerate.
1589         * generated/maxloc1_8_i8.c: Regenerate.
1590         * generated/maxloc1_8_r10.c: Regenerate.
1591         * generated/maxloc1_8_r16.c: Regenerate.
1592         * generated/maxloc1_8_r4.c: Regenerate.
1593         * generated/maxloc1_8_r8.c: Regenerate.
1594         * generated/maxval_i1.c: Regenerate.
1595         * generated/maxval_i16.c: Regenerate.
1596         * generated/maxval_i2.c: Regenerate.
1597         * generated/maxval_i4.c: Regenerate.
1598         * generated/maxval_i8.c: Regenerate.
1599         * generated/maxval_r10.c: Regenerate.
1600         * generated/maxval_r16.c: Regenerate.
1601         * generated/maxval_r4.c: Regenerate.
1602         * generated/maxval_r8.c: Regenerate.
1603         * generated/minloc0_16_i1.c: Regenerate.
1604         * generated/minloc0_16_i16.c: Regenerate.
1605         * generated/minloc0_16_i2.c: Regenerate.
1606         * generated/minloc0_16_i4.c: Regenerate.
1607         * generated/minloc0_16_i8.c: Regenerate.
1608         * generated/minloc0_16_r10.c: Regenerate.
1609         * generated/minloc0_16_r16.c: Regenerate.
1610         * generated/minloc0_16_r4.c: Regenerate.
1611         * generated/minloc0_16_r8.c: Regenerate.
1612         * generated/minloc0_4_i1.c: Regenerate.
1613         * generated/minloc0_4_i16.c: Regenerate.
1614         * generated/minloc0_4_i2.c: Regenerate.
1615         * generated/minloc0_4_i4.c: Regenerate.
1616         * generated/minloc0_4_i8.c: Regenerate.
1617         * generated/minloc0_4_r10.c: Regenerate.
1618         * generated/minloc0_4_r16.c: Regenerate.
1619         * generated/minloc0_4_r4.c: Regenerate.
1620         * generated/minloc0_4_r8.c: Regenerate.
1621         * generated/minloc0_8_i1.c: Regenerate.
1622         * generated/minloc0_8_i16.c: Regenerate.
1623         * generated/minloc0_8_i2.c: Regenerate.
1624         * generated/minloc0_8_i4.c: Regenerate.
1625         * generated/minloc0_8_i8.c: Regenerate.
1626         * generated/minloc0_8_r10.c: Regenerate.
1627         * generated/minloc0_8_r16.c: Regenerate.
1628         * generated/minloc0_8_r4.c: Regenerate.
1629         * generated/minloc0_8_r8.c: Regenerate.
1630         * generated/minloc1_16_i1.c: Regenerate.
1631         * generated/minloc1_16_i16.c: Regenerate.
1632         * generated/minloc1_16_i2.c: Regenerate.
1633         * generated/minloc1_16_i4.c: Regenerate.
1634         * generated/minloc1_16_i8.c: Regenerate.
1635         * generated/minloc1_16_r10.c: Regenerate.
1636         * generated/minloc1_16_r16.c: Regenerate.
1637         * generated/minloc1_16_r4.c: Regenerate.
1638         * generated/minloc1_16_r8.c: Regenerate.
1639         * generated/minloc1_4_i1.c: Regenerate.
1640         * generated/minloc1_4_i16.c: Regenerate.
1641         * generated/minloc1_4_i2.c: Regenerate.
1642         * generated/minloc1_4_i4.c: Regenerate.
1643         * generated/minloc1_4_i8.c: Regenerate.
1644         * generated/minloc1_4_r10.c: Regenerate.
1645         * generated/minloc1_4_r16.c: Regenerate.
1646         * generated/minloc1_4_r4.c: Regenerate.
1647         * generated/minloc1_4_r8.c: Regenerate.
1648         * generated/minloc1_8_i1.c: Regenerate.
1649         * generated/minloc1_8_i16.c: Regenerate.
1650         * generated/minloc1_8_i2.c: Regenerate.
1651         * generated/minloc1_8_i4.c: Regenerate.
1652         * generated/minloc1_8_i8.c: Regenerate.
1653         * generated/minloc1_8_r10.c: Regenerate.
1654         * generated/minloc1_8_r16.c: Regenerate.
1655         * generated/minloc1_8_r4.c: Regenerate.
1656         * generated/minloc1_8_r8.c: Regenerate.
1657         * generated/minval_i1.c: Regenerate.
1658         * generated/minval_i16.c: Regenerate.
1659         * generated/minval_i2.c: Regenerate.
1660         * generated/minval_i4.c: Regenerate.
1661         * generated/minval_i8.c: Regenerate.
1662         * generated/minval_r10.c: Regenerate.
1663         * generated/minval_r16.c: Regenerate.
1664         * generated/minval_r4.c: Regenerate.
1665         * generated/minval_r8.c: Regenerate.
1666         * generated/misc_specifics.F90: Regenerate.
1667         * generated/nearest_r10.c: Regenerate.
1668         * generated/nearest_r16.c: Regenerate.
1669         * generated/nearest_r4.c: Regenerate.
1670         * generated/nearest_r8.c: Regenerate.
1671         * generated/pack_c10.c: Regenerate.
1672         * generated/pack_c16.c: Regenerate.
1673         * generated/pack_c4.c: Regenerate.
1674         * generated/pack_c8.c: Regenerate.
1675         * generated/pack_i1.c: Regenerate.
1676         * generated/pack_i16.c: Regenerate.
1677         * generated/pack_i2.c: Regenerate.
1678         * generated/pack_i4.c: Regenerate.
1679         * generated/pack_i8.c: Regenerate.
1680         * generated/pack_r10.c: Regenerate.
1681         * generated/pack_r16.c: Regenerate.
1682         * generated/pack_r4.c: Regenerate.
1683         * generated/pack_r8.c: Regenerate.
1684         * generated/pow_c10_i16.c: Regenerate.
1685         * generated/pow_c10_i4.c: Regenerate.
1686         * generated/pow_c10_i8.c: Regenerate.
1687         * generated/pow_c16_i16.c: Regenerate.
1688         * generated/pow_c16_i4.c: Regenerate.
1689         * generated/pow_c16_i8.c: Regenerate.
1690         * generated/pow_c4_i16.c: Regenerate.
1691         * generated/pow_c4_i4.c: Regenerate.
1692         * generated/pow_c4_i8.c: Regenerate.
1693         * generated/pow_c8_i16.c: Regenerate.
1694         * generated/pow_c8_i4.c: Regenerate.
1695         * generated/pow_c8_i8.c: Regenerate.
1696         * generated/pow_i16_i16.c: Regenerate.
1697         * generated/pow_i16_i4.c: Regenerate.
1698         * generated/pow_i16_i8.c: Regenerate.
1699         * generated/pow_i4_i16.c: Regenerate.
1700         * generated/pow_i4_i4.c: Regenerate.
1701         * generated/pow_i4_i8.c: Regenerate.
1702         * generated/pow_i8_i16.c: Regenerate.
1703         * generated/pow_i8_i4.c: Regenerate.
1704         * generated/pow_i8_i8.c: Regenerate.
1705         * generated/pow_r10_i16.c: Regenerate.
1706         * generated/pow_r10_i8.c: Regenerate.
1707         * generated/pow_r16_i16.c: Regenerate.
1708         * generated/pow_r16_i8.c: Regenerate.
1709         * generated/pow_r4_i16.c: Regenerate.
1710         * generated/pow_r4_i8.c: Regenerate.
1711         * generated/pow_r8_i16.c: Regenerate.
1712         * generated/pow_r8_i8.c: Regenerate.
1713         * generated/product_c10.c: Regenerate.
1714         * generated/product_c16.c: Regenerate.
1715         * generated/product_c4.c: Regenerate.
1716         * generated/product_c8.c: Regenerate.
1717         * generated/product_i1.c: Regenerate.
1718         * generated/product_i16.c: Regenerate.
1719         * generated/product_i2.c: Regenerate.
1720         * generated/product_i4.c: Regenerate.
1721         * generated/product_i8.c: Regenerate.
1722         * generated/product_r10.c: Regenerate.
1723         * generated/product_r16.c: Regenerate.
1724         * generated/product_r4.c: Regenerate.
1725         * generated/product_r8.c: Regenerate.
1726         * generated/reshape_c10.c: Regenerate.
1727         * generated/reshape_c16.c: Regenerate.
1728         * generated/reshape_c4.c: Regenerate.
1729         * generated/reshape_c8.c: Regenerate.
1730         * generated/reshape_i16.c: Regenerate.
1731         * generated/reshape_i4.c: Regenerate.
1732         * generated/reshape_i8.c: Regenerate.
1733         * generated/reshape_r10.c: Regenerate.
1734         * generated/reshape_r16.c: Regenerate.
1735         * generated/reshape_r4.c: Regenerate.
1736         * generated/reshape_r8.c: Regenerate.
1737         * generated/rrspacing_r10.c: Regenerate.
1738         * generated/rrspacing_r16.c: Regenerate.
1739         * generated/rrspacing_r4.c: Regenerate.
1740         * generated/rrspacing_r8.c: Regenerate.
1741         * generated/set_exponent_r10.c: Regenerate.
1742         * generated/set_exponent_r16.c: Regenerate.
1743         * generated/set_exponent_r4.c: Regenerate.
1744         * generated/set_exponent_r8.c: Regenerate.
1745         * generated/shape_i16.c: Regenerate.
1746         * generated/shape_i4.c: Regenerate.
1747         * generated/shape_i8.c: Regenerate.
1748         * generated/spacing_r10.c: Regenerate.
1749         * generated/spacing_r16.c: Regenerate.
1750         * generated/spacing_r4.c: Regenerate.
1751         * generated/spacing_r8.c: Regenerate.
1752         * generated/spread_c10.c: Regenerate.
1753         * generated/spread_c16.c: Regenerate.
1754         * generated/spread_c4.c: Regenerate.
1755         * generated/spread_c8.c: Regenerate.
1756         * generated/spread_i1.c: Regenerate.
1757         * generated/spread_i16.c: Regenerate.
1758         * generated/spread_i2.c: Regenerate.
1759         * generated/spread_i4.c: Regenerate.
1760         * generated/spread_i8.c: Regenerate.
1761         * generated/spread_r10.c: Regenerate.
1762         * generated/spread_r16.c: Regenerate.
1763         * generated/spread_r4.c: Regenerate.
1764         * generated/spread_r8.c: Regenerate.
1765         * generated/sum_c10.c: Regenerate.
1766         * generated/sum_c16.c: Regenerate.
1767         * generated/sum_c4.c: Regenerate.
1768         * generated/sum_c8.c: Regenerate.
1769         * generated/sum_i1.c: Regenerate.
1770         * generated/sum_i16.c: Regenerate.
1771         * generated/sum_i2.c: Regenerate.
1772         * generated/sum_i4.c: Regenerate.
1773         * generated/sum_i8.c: Regenerate.
1774         * generated/sum_r10.c: Regenerate.
1775         * generated/sum_r16.c: Regenerate.
1776         * generated/sum_r4.c: Regenerate.
1777         * generated/sum_r8.c: Regenerate.
1778         * generated/transpose_c10.c: Regenerate.
1779         * generated/transpose_c16.c: Regenerate.
1780         * generated/transpose_c4.c: Regenerate.
1781         * generated/transpose_c8.c: Regenerate.
1782         * generated/transpose_i16.c: Regenerate.
1783         * generated/transpose_i4.c: Regenerate.
1784         * generated/transpose_i8.c: Regenerate.
1785         * generated/transpose_r10.c: Regenerate.
1786         * generated/transpose_r16.c: Regenerate.
1787         * generated/transpose_r4.c: Regenerate.
1788         * generated/transpose_r8.c: Regenerate.
1789         * generated/unpack_c10.c: Regenerate.
1790         * generated/unpack_c16.c: Regenerate.
1791         * generated/unpack_c4.c: Regenerate.
1792         * generated/unpack_c8.c: Regenerate.
1793         * generated/unpack_i1.c: Regenerate.
1794         * generated/unpack_i16.c: Regenerate.
1795         * generated/unpack_i2.c: Regenerate.
1796         * generated/unpack_i4.c: Regenerate.
1797         * generated/unpack_i8.c: Regenerate.
1798         * generated/unpack_r10.c: Regenerate.
1799         * generated/unpack_r16.c: Regenerate.
1800         * generated/unpack_r4.c: Regenerate.
1801         * generated/unpack_r8.c: Regenerate.
1802
1803 2009-04-08  Janne Blomqvist  <jb@gcc.gnu.org>
1804
1805         * io/open.c (already_open): Test for POSIX close return value.
1806         * io/unit.c (close_unit_1): Likewise.
1807         * io/unix.c (raw_close): Return 0 for success for preconnected units.
1808
1809 2009-04-08  Janne Blomqvist  <jb@gcc.gnu.org>
1810
1811         * runtime/string.c (compare0): Use gfc_charlen_type.
1812         * runtime/error.c (gfc_itoa): Move to io/write.c
1813         (xtoa): Rename to gfc_xtoa.
1814         * runtime/backtrace.c (show_backtrace): Call gfc_xtoa.
1815         * intrinsics/cshift0.c (cshift0): Use index_type for shift arg.
1816         * intrinsics/date_and_time.c (date_and_time): Use index_type.
1817         (itime_i4): Likewise.
1818         (itime_i8): Likewise.
1819         (idate_i4): Likewise.
1820         (idate_i8): Likewise.
1821         (gmtime_i4): Likewise.
1822         (gmtime_i8): Likewise.
1823         (ltime_i4): Likewise.
1824         (ltime_i8): Likewise.
1825         * libgfortran.h (gfc_itoa): Remove prototype.
1826         (xtoa): Rename prototype to gfc_xtoa.
1827         * io/list_read.c (nml_read_obj): Use size_t for string length.
1828         * io/transfer.c (read_block_direct): Change nbytes arg from
1829         pointer to value.
1830         (unformatted_read): Minor cleanup, call read_block_directly properly.
1831         (skip_record): Use ssize_t.
1832         (next_record_w_unf): Avoid stell() call by calling sseek with SEEK_CUR.
1833         (iolength_transfer): Make sure to multiply before cast.
1834         * io/intrinsics.c (fgetc): Remove unnecessary variable.
1835         * io/format.c (format_hash): Use gfc_charlen_type.
1836         * io/write.c (itoa): Move from runtime/error.c:gfc_itoa, rename,
1837         make static.
1838         (write_i): Call with pointer to itoa.
1839         (write_z): Call with pointer to gfc_xtoa.
1840         (write_integer): Pointer to itoa.
1841         (nml_write_obj): Type cleanup, don't call strlen in loop.
1842         
1843 2009-04-06  H.J. Lu  <hongjiu.lu@intel.com>
1844
1845         PR libgfortran/39664
1846         * io/unix.c (raw_close): Don't close STDOUT_FILENO,
1847         STDERR_FILENO nor STDIN_FILENO.
1848
1849 2009-04-06  David Edelsohn  <edelsohn@gnu.org>
1850         
1851         * io/io.h (struct stream): Rename truncate to trunc.
1852         (struncate): Same.
1853         * io/unix.c (raw_init): Rename truncate to trunc.
1854         (buf_init): Same.
1855         (open_internal): Same.
1856         
1857 2009-04-05  Daniel Kraft  <d@domob.eu>
1858
1859         PR fortran/38654
1860         * io/read.c (read_f): Reworked to speed up floating point parsing.
1861         (convert_real): Use pointer-casting instead of memcpy and temporaries.
1862
1863 2009-04-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1864
1865         PR libfortran/37754
1866         * io/io.h (format_hash_entry): New structure for hash table.
1867         (format_hash_table): The hash table itself.
1868         (free_format_data): Revise function prototype.
1869         (free_format_hash_table, init_format_hash,
1870         free_format_hash): New function prototypes.
1871         * io/unit.c (close_unit_1): Use free_format_hash_table.
1872         * io/transfer.c (st_read_done, st_write_done): Free format data if
1873         internal unit.
1874         * io/format.c (free_format_hash_table): New function that frees any
1875         memory allocated previously for cached format data.
1876         (reset_node): New static helper function to reset the format counters
1877         for a format node.
1878         (reset_fnode_counters): New static function recursively calls reset_node
1879         to traverse the fnode tree.
1880         (format_hash): New simple hash function based on XOR, probabalistic,
1881         tosses collisions.
1882         (save_parsed_format): New static function to save the parsed format
1883         data to use again.
1884         (find_parsed_format): New static function searches the hash table
1885         looking for a match.
1886         (free_format_data): Revised to accept pointer to format data rather than
1887         the dtp pointer so that the function can be used in more places.
1888         (format_lex): Editorial.
1889         (parse_format_list): Set flag used to determine of format data hashing
1890         is to be used.  Internal units are not persistent enough for this.
1891         (revert): Move to ne location in file.
1892         (parse_format): Use new functions to look for previously parsed
1893         format strings and use them rather than re-parse.  If not found, saves
1894         the parsed format data for later use.
1895         
1896 2009-04-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
1897
1898         PR libfortran/37754
1899         * io/transfer.c (formatted_transfer_scalar): Remove this function by
1900         factoring it into two new functions, one for read and one for write,
1901         eliminating all the conditionals for read or write mode.
1902         (formatted transfer_scalar_read): New function.
1903         (formatted transfer_scalar_write): New function.
1904         (formatted_transfer): Use new functions.
1905
1906 2009-04-05  Janne Blomqvist  <jb@gcc.gnu.org>
1907
1908         PR libfortran/25561 libfortran/37754
1909         * io/io.h (struct stream): Define new stream interface function
1910         pointers, and inline functions for accessing it.
1911         (struct fbuf): Use int instead of size_t, remove flushed element.
1912         (mem_alloc_w): New prototype.
1913         (mem_alloc_r): New prototype.
1914         (stream_at_bof): Remove prototype.
1915         (stream_at_eof): Remove prototype.
1916         (file_position): Remove prototype.
1917         (flush): Remove prototype.
1918         (stream_offset): Remove prototype.
1919         (unit_truncate): New prototype.
1920         (read_block_form): Change to return pointer, int* argument.
1921         (hit_eof): New prototype.
1922         (fbuf_init): Change prototype.
1923         (fbuf_reset): Change prototype.
1924         (fbuf_alloc): Change prototype.
1925         (fbuf_flush): Change prototype.
1926         (fbuf_seek): Change prototype.
1927         (fbuf_read): New prototype.
1928         (fbuf_getc_refill): New prototype.
1929         (fbuf_getc): New inline function.
1930         * io/fbuf.c (fbuf_init): Use int, get rid of flushed.
1931         (fbuf_debug): New function.
1932         (fbuf_reset): Flush, and return position offset.
1933         (fbuf_alloc): Simplify, don't flush, just realloc.
1934         (fbuf_flush): Make usable for read mode, salvage remaining bytes.
1935         (fbuf_seek): New whence argument.
1936         (fbuf_read): New function.
1937         (fbuf_getc_refill): New function.
1938         * io/file_pos.c (formatted_backspace): Use new stream interface.
1939         (unformatted_backspace): Likewise.
1940         (st_backspace): Make sure format buffer is reset, use new stream
1941         interface, use unit_truncate.
1942         (st_endfile): Likewise.
1943         (st_rewind): Likewise.
1944         * io/intrinsics.c: Use new stream interface.
1945         * io/list_read.c (push_char): Don't use u.p.scratch, use realloc
1946         to resize.
1947         (free_saved): Don't check u.p.scratch.
1948         (next_char): Use new stream interface, use fbuf_getc() for external files.
1949         (finish_list_read): flush format buffer.
1950         (nml_query): Update to use modified interface:s
1951         * io/open.c (test_endfile): Use new stream interface.
1952         (edit_modes): Likewise.
1953         (new_unit): Likewise, set bytes_left to 1 for stream files.
1954         * io/read.c (read_l): Use new read_block_form interface.
1955         (read_utf8): Likewise.
1956         (read_utf8_char1): Likewise.
1957         (read_default_char1): Likewise.
1958         (read_utf8_char4): Likewise.
1959         (read_default_char4): Likewise.
1960         (read_a): Likewise.
1961         (read_a_char4): Likewise.
1962         (read_decimal): Likewise.
1963         (read_radix): Likewise.
1964         (read_f): Likewise.
1965         * io/transfer.c (read_sf): Use fbuf_read and mem_alloc_r, remove
1966         usage of u.p.line_buffer.
1967         (read_block_form): Update interface to return pointer, use
1968         fbuf_read for direct access.
1969         (read_block_direct): Update to new stream interface.
1970         (write_block): Use mem_alloc_w for internal I/O.
1971         (write_buf): Update to new stream interface.
1972         (formatted_transfer_scalar): Don't use u.p.line_buffer, use
1973         fbuf_seek for external files.
1974         (us_read): Update to new stream interface.
1975         (us_write): Likewise.
1976         (data_transfer_init): Always check if we switch modes and flush.
1977         (skip_record): Use new stream interface, fix comparison.
1978         (next_record_r): Check for and reset u.p.at_eof, use new stream
1979         interface, use fbuf_getc for spacing.
1980         (write_us_marker): Update to new stream interface, don't inline.
1981         (next_record_w_unf): Likewise.
1982         (sset): New function.
1983         (next_record_w): Use new stream interface, use fbuf for printing
1984         newline.
1985         (next_record): Use new stream interface.
1986         (finalize_transfer): Remove sfree call, use new stream interface.
1987         (st_iolength_done): Don't use u.p.scratch.
1988         (st_read): Don't check for end of file.
1989         (st_read_done): Don't use u.p.scratch, use unit_truncate.
1990         (hit_eof): New function.
1991         * io/unit.c (init_units): Always init fbuf for formatted units.
1992         (update_position): Use new stream interface.
1993         (unit_truncate): New function.
1994         (finish_last_advance_record): Use fbuf to print newline.
1995         * io/unix.c: Remove unused SSIZE_MAX macro.
1996         (BUFFER_SIZE): Make static const variable rather than macro.
1997         (struct unix_stream): Remove dirty_offset, len, method,
1998         small_buffer. Order elements by decreasing size.
1999         (struct int_stream): Remove.
2000         (move_pos_offset): Remove usage of dirty_offset.
2001         (reset_stream): Remove.
2002         (do_read): Rename to raw_read, update to match new stream
2003         interface.
2004         (do_write): Rename to raw_write, update to new stream interface.
2005         (raw_seek): New function.
2006         (raw_tell): New function.
2007         (raw_truncate): New function.
2008         (raw_close): New function.
2009         (raw_flush): New function.
2010         (raw_init): New function.
2011         (fd_alloc): Remove.
2012         (fd_alloc_r_at): Remove.
2013         (fd_alloc_w_at): Remove.
2014         (fd_sfree): Remove.
2015         (fd_seek): Remove.
2016         (fd_truncate): Remove.
2017         (fd_sset): Remove.
2018         (fd_read): Remove.
2019         (fd_write): Remove.
2020         (fd_close): Remove.
2021         (fd_open): Remove.
2022         (fd_flush): Rename to buf_flush, update to new stream interface
2023         and unix_stream.
2024         (buf_read): New function.
2025         (buf_write): New function.
2026         (buf_seek): New function.
2027         (buf_tell): New function.
2028         (buf_truncate): New function.
2029         (buf_close): New function.
2030         (buf_init): New function.
2031         (mem_alloc_r_at): Rename to mem_alloc_r, change prototype.
2032         (mem_alloc_w_at): Rename to mem_alloc_w, change prototype.
2033         (mem_read): Change to match new stream interface.
2034         (mem_write): Likewise.
2035         (mem_seek): Likewise.
2036         (mem_tell): Likewise.
2037         (mem_truncate): Likewise.
2038         (mem_close): Likewise.
2039         (mem_flush): New function.
2040         (mem_sfree): Remove.
2041         (empty_internal_buffer): Cast to correct type.
2042         (open_internal): Use correct type, init function pointers.
2043         (fd_to_stream): Test whether to open file as buffered or raw.
2044         (output_stream): Remove mode set.
2045         (error_stream): Likewise.
2046         (flush_all_units_1): Use new stream interface.
2047         (flush_all_units): Likewise.
2048         (stream_at_bof): Remove.
2049         (stream_at_eof): Remove.
2050         (file_position): Remove.
2051         (file_length): Update logic to use stream interface.
2052         (flush): Remove.
2053         (stream_offset): Remove.
2054         * io/write.c (write_utf8_char4): Use int instead of size_t.
2055         (write_x): Extra safety check.
2056         (namelist_write_newline): Use new stream interface.
2057
2058 2009-03-29  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
2059
2060         PR fortran/33595
2061         * intrinsics/c99_functions.c (round): Use floor instead of ceil.
2062         Revise checks to round up.
2063         (roundf): Likewise.
2064
2065 2009-03-28  Daniel Kraft  <d@domob.eu>
2066
2067         * intrinsics/string_intrinsics.c: #include <assert.h>
2068         * intrinsics/string_intrinsics_inc.c (string_trim): Use string_len_trim
2069         instead of calculating the length directly.
2070         (string_len_trim): For KIND=1, speed search up.
2071
2072 2009-03-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2073
2074         PR libfortran/39528
2075         * io/list_read.c (list_formatted_read_scalar): Move check for read
2076         completion to just after the check for a repeated value.
2077
2078 2009-03-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2079
2080         PR libfortran/39402
2081         * io/write_float.def (output_float): Handle F0.d formatting correctly
2082         for any d when value is 0.0.
2083
2084 2009-03-01  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
2085
2086         * configure: Regenerate.
2087
2088 2009-01-21  Daniel Kraft  <d@domob.eu>
2089
2090         PR fortran/38887
2091         * runtime/in_unpack_generic.c (internal_unpack):  Return instead of
2092         abort when called with empty array.
2093         * m4/in_unpack.m4:  Ditto.
2094         * generated/in_unpack_i1.c:  Regenerated.
2095         * generated/in_unpack_i2.c:  Regenerated.
2096         * generated/in_unpack_i4.c:  Regenerated.
2097         * generated/in_unpack_i8.c:  Regenerated.
2098         * generated/in_unpack_i16.c: Regenerated.
2099         * generated/in_unpack_r4.c:  Regenerated.
2100         * generated/in_unpack_r8.c:  Regenerated.
2101         * generated/in_unpack_r10.c: Regenerated.
2102         * generated/in_unpack_r16.c: Regenerated.
2103         * generated/in_unpack_c4.c:  Regenerated.
2104         * generated/in_unpack_c8.c:  Regenerated.
2105         * generated/in_unpack_c10.c: Regenerated.
2106         * generated/in_unpack_c16.c: Regenerated.
2107
2108 2009-01-12  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2109
2110         PR libfortran/38772
2111         * io/read.c (read_f): Clean up loop conditions for BZ/BN,
2112         allowing proper digit testing. White space fix.
2113
2114 2009-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2115
2116         PR libfortran/38735
2117         * io/unit.c (get_internal_unit): Set default BLANK= status to NULL for
2118         internal units.
2119
2120 2008-12-29  John David Anglin  <dave.anglin@nrc-cnrc.gc.ca>
2121
2122         PR fortran/31832
2123         * acinclude.m4 (LIBGFOR_CHECK_FOR_BROKEN_POWF): New autoconf check for
2124         broken powf.
2125         * configure.ac (LIBGFOR_CHECK_FOR_BROKEN_POWF): Use it.
2126         * intrinsics/c99_functions.c: Use internal powf implementation if
2127         HAVE_BROKEN_POWF is defined.
2128         * configure: Rebuilt.
2129         * config.h.in: Rebuilt.
2130
2131 2008-12-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2132
2133         PR libfortran/37472
2134         * io/write_float.def (output_float_FMT_G_): Modify calculation of temp
2135         to avoid sensitivity to round-off.
2136
2137 2008-12-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2138
2139         PR libfortran/38398
2140         * io/io.h (st_parameter_dt): Add new bit to keep track of when to
2141         suppress blanks for g0 formatting.
2142         * io/transfer.c (formatted_transfer_scalar): Always call write_real_g0
2143         for g0 formatting.
2144         * io.c (write.c): Do not use ES formatting and use new bit to suppress
2145         blanks.
2146         * io/write_float.def (output_float): Adjust the location of setting the
2147         width so that it can be adjusted when suppressing blanks.  Set number of
2148         blanks to zero when dtp->u.p.g0_no_blanks is set. Do some minor code
2149         clean-up and add some white space for readability.
2150         
2151 2008-12-18  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
2152
2153         * configure: Regenerate.
2154
2155 2008-12-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2156
2157         PR libfortran/38504
2158         io/write.c (write_decimal): Skip extra sign '-' at beginning of string
2159         returned by gfc_itoa.
2160
2161 2008-12-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2162
2163         PR libfortran/38430
2164         * io/transfer.c (data_transfer_init): Move constraint check for REC=
2165         and STREAM access into condition for other REC= constraints to simplify.
2166         Comment out this constraint to avoid breaking compatibility with 4.3
2167         until later.  Added a TODO for above comment and this one.
2168         Fix test for max pos.
2169
2170 2008-12-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2171
2172         PR libfortran/38291
2173         * io/transfer.c (data_transfer_init): Add fbuf_flush inadvertently
2174         ommitted.  Add check for invalid use of REC= with ACCESS="stream".  Fix
2175         comment.
2176
2177 2008-12-06  Adam Nemet  <anemet@caviumnetworks.com>
2178
2179         * runtime/main.c (store_exe_path): Don't crash if argv0 is NULL.
2180
2181 2008-12-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2182
2183         PR libfortran/38291
2184         * io/transfer.c (data_transfer_init): Add checks for POS= valid range.
2185         Add check for unit opened with ACCESS="stream". Flush and seek if
2186         current stream position does not match. Check ENDFILE on read.
2187
2188 2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2189
2190         PR fortran/38285
2191         * write_float.def (WRITE_FLOAT): Zero the float value for special case
2192         only if scale_factor = 0.
2193         
2194 2008-11-23  Thomas Koenig  <tkoenig@gcc.gnu.org>
2195
2196         PR libfortran/38234
2197         * intrinsics/reshape_generic.c (reshape_internal):
2198         Source can be larger than shape.
2199         * m4/reshape.m4:  Likewise.
2200         * generated/reshape_c10.c Regenerated.
2201         * generated/reshape_c16.c Regenerated.
2202         * generated/reshape_c4.c Regenerated.
2203         * generated/reshape_c8.c Regenerated.
2204         * generated/reshape_i16.c Regenerated.
2205         * generated/reshape_i4.c Regenerated.
2206         * generated/reshape_i8.c Regenerated.
2207         * generated/reshape_r10.c Regenerated.
2208         * generated/reshape_r16.c Regenerated.
2209         * generated/reshape_r4.c Regenerated.
2210         * generated/reshape_r8.c Regenerated.
2211
2212 2008-11-22  Danny Smith  <dannysmith@users.sourceforge.net>
2213
2214         * libgfortran.h (__mingw_snprintf): Declare with gnu_printf
2215         format attribute.
2216
2217
2218 2008-11-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
2219
2220         PR libfortran/38225
2221         * intrinsics/reshape_generic.c (reshape_internal):
2222         Use all dimensions of source for bounds checking.
2223         * m4/reshape.m4:  Likewise.
2224         * generated/reshape_c10.c Regenerated.
2225         * generated/reshape_c16.c Regenerated.
2226         * generated/reshape_c4.c Regenerated.
2227         * generated/reshape_c8.c Regenerated.
2228         * generated/reshape_i16.c Regenerated.
2229         * generated/reshape_i4.c Regenerated.
2230         * generated/reshape_i8.c Regenerated.
2231         * generated/reshape_r10.c Regenerated.
2232         * generated/reshape_r16.c Regenerated.
2233         * generated/reshape_r4.c Regenerated.
2234         * generated/reshape_r8.c Regenerated.
2235
2236 2008-11-22  Jakub Jelinek  <jakub@redhat.com>
2237
2238         PR libfortran/37839
2239         * io/io.h (IOPARM_INQUIRE_HAS_ROUND, IOPARM_INQUIRE_HAS_SIGN,
2240         IOPARM_INQUIRE_HAS_PENDING): Adjust values.
2241         (st_parameter_inquire): Reorder and fix types of round, sign and
2242         pending fields.
2243         (st_parameter_43, st_parameter_44): Removed.
2244         (st_parameter_dt): Put back struct definition directly to u.p
2245         declaration.  Change type of u.p.size_used from gfc_offset to
2246         GFC_IO_INT.  Decrease back size of u.pad to 16 pointers and
2247         32 ints.  Put id, pos, asynchronous, blank, decimal, delim,
2248         pad, round and sign fields after the union.
2249         * io/inquire.c (inquire_via_unit, inquire_via_filename): Only read
2250         flags2 if it is defined.
2251         * io/transfer.c (read_sf, read_block_form, write_block): Cast
2252         additions to size_used to GFC_IO_INT instead of gfc_offset.
2253         (data_transfer_init): Clear whole u.p struct.  Adjust
2254         for moving id, pos, asynchronous, blank, decimal, delim, pad,
2255         round and sign fields from u.p directly into st_parameter_dt.
2256         (finalize_transfer): Don't cast size_used to GFC_IO_INT.
2257         * io/file_pos.c (st_endfile): Clear whole u.p struct.
2258
2259 2008-11-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2260
2261         PR libfortran/37472
2262         * io/write_float.def (output_float_FMT_G_): Adjust conversion of
2263         G format specification to F format.
2264
2265 2008-11-18  Thomas Koenig  <tkoenig@gcc.gnu.org>
2266
2267         PR libfortran/38135
2268         * m4/reshape.m4:  Correct bounds checking when PAD is present.
2269         Treat PAD as if it were SOURCE when SOURCE is empty.
2270         * intrinsics/reshape_generic.c:  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.
2282
2283 2008-11-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2284
2285         PR libfortran/38097
2286         * io/read.c (read_f): Initialize exponent. Fix comment. Set loop
2287         conditions for BZ/BN.
2288         * io/unit.c (get_internal_unit): Initialize flags.blank.
2289         * io/transfer.c (data_transfer_init): Fix whitespace.
2290
2291 2008-11-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2292
2293         PR libfortran/37294
2294         * io/write.c (namelist_write_newline): Use array loop specification to
2295         advance to next internal array unit record. (namelist_write): Adjust to
2296         accomodate the internal array unit behavior.
2297
2298 2008-11-01  Dennis Wassel  <dennis.wassel@gmail.com>
2299
2300         PR fortran/37159
2301         * intrinsics/random.c: Added comment to adapt check.c, should
2302         kiss_size change.
2303         Few cosmetic changes to existing comments.
2304
2305 2008-10-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2306
2307         PR libfortran/37707
2308         * io/list_read.c (read_character): Remove code to look ahead in namelist
2309         reads to descriminate non-delimited strings from namelist objects.
2310         * io/write.c (namelist_write): Delimit character strings with quote or
2311         apostrophe, defaulting to quote.
2312
2313 2008-10-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
2314
2315         PR libfortran/34670
2316         * intrinsics/transpose_generic.c:  Implement bounds checking.
2317         * m4/transpose.m4:  Likewise.
2318         * generated/transpose_c8.c: Regenerated.
2319         * generated/transpose_c16.c: Regenerated.
2320         * generated/transpose_r10.c: Regenerated.
2321         * generated/transpose_i8.c: Regenerated.
2322         * generated/transpose_c10.c: Regenerated.
2323         * generated/transpose_r4.c: Regenerated.
2324         * generated/transpose_c4.c: Regenerated.
2325         * generated/transpose_i16.c: Regenerated.
2326         * generated/transpose_i4.c: Regenerated.
2327         * generated/transpose_r8.c: Regenerated.
2328         * generated/transpose_r16.c: Regenerated.
2329
2330 2008-10-19  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2331
2332         PR libfortran/37834
2333         * io/write_float.def (output_float): Emit '0.' for special case of
2334         format specifier 'f0.0' and value of zero. Likewise emit '0' for 'f1.0'.
2335
2336 2008-10-17  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2337
2338         PR libfortran/37863
2339         * io/write_float.def (WRITE_FLOAT): Round to 1.0 correctly.
2340         * io/io.h (st_parameter_44): Fix id type declaration.
2341
2342 2008-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
2343
2344         * io/file_pos.c (unformatted_backspace): Normal case is
2345         GFC_CONVERT_NATIVE.
2346         * io/transfer.c (read_sf):  Mark paths leading to generate_error()
2347         as unlikely.
2348         (readl_block_form):  Likewise.
2349         (read_block_direct):  Likewise.
2350         (write_block):  Likewise.
2351         (write_buf):  Likewise.
2352         (us_read):  Likewise.  Normal case is GFC_CONVERT_NATIVE.
2353         (next_record_w_unf):  Mark paths leading to generate_error()
2354         as unlikely.
2355
2356 2008-10-16  Thomas Koenig  <tkoenig@gcc.gnu.org>
2357
2358         PR libfortran/34670
2359         * generated/spread_r4.c: Regenerated.
2360
2361 2008-10-15  Thomas Koenig  <tkoenig@gcc.gnu.org>
2362
2363         PR libfortran/34670
2364         * intrinsics/reshape_generic.c:  Add bounds checking.
2365         * m4/reshape.m4:  Likewise.
2366         * generated/reshape_c10.c: Regenerated.
2367         * generated/reshape_c16.c: Regenerated.
2368         * generated/reshape_c4.c: Regenerated.
2369         * generated/reshape_c8.c: Regenerated.
2370         * generated/reshape_i16.c: Regenerated.
2371         * generated/reshape_i4.c: Regenerated.
2372         * generated/reshape_i8.c: Regenerated.
2373         * generated/reshape_r10.c: Regenerated.
2374         * generated/reshape_r16.c: Regenerated.
2375         * generated/reshape_r4.c: Regenerated.
2376         * generated/reshape_r8.c: Regenerated.
2377         * generated/spread_r4.c: Regenerated.
2378
2379 2008-10-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2380
2381         PR libfortran/37083
2382         * io/list_read.c (next_char): Simplify EOF tests and set endfile flag.
2383         (finish_list_read): Add EOF check.
2384
2385 2008-10-09  Thomas Koenig  <tkoenig@gcc.gnu.org>
2386
2387         PR libfortran/37753
2388         * io/transfer.c (unformatted_read):  CONVERT_NATIVE
2389         is the usual case.  Check for kind==1 for non-byte-reversing
2390         operation.
2391         (unformatted_write):  Likewise.
2392
2393 2008-10-08  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2394
2395         PR libfortran/37707
2396         * io/list_read.c (nml_get_obj_data): If the first namelist object rank
2397         is greater than zero, call nml_object_read with the first object rather
2398         than the sub-object.
2399
2400 2008-09-26  Peter O'Gorman  <pogma@thewrittenword.com>
2401             Steve Ellcey  <sje@cup.hp.com>
2402
2403         * configure: Regenerate for new libtool.
2404         * Makefile.in: Ditto.
2405
2406 2008-09-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2407
2408         PR libfortran/37498
2409         * list_read.c (eat_separator): Revert previous patch and move
2410         delim_status, decimal_status, and pad_status to gfc_unit.
2411         (parse_real): Ditto. (read_real): Ditto.
2412         * read.c (read_a): Likewise. (read_a_char4): Likewise.
2413         (read_f): Likewise.
2414         * inquire.c (inquire_via_unit): Add missing check for
2415         IOPARM_INQUIRE_HAS_FLAGS2. (inquire_via_filename): Likewise.
2416         * io.h (unit_sign_s): Move delim_status, decimal_status, and pad_status
2417         to gfc_unit.
2418         * transfer.c (read_sf): Ditto. (read_block_form): Ditto.
2419         (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto.
2420         * write.c (write_default_char4): Ditto. (write_utf8_char4): Ditto.
2421         (write_character): Ditto. (write_real_g0): Ditto.
2422         (list_formatted_write_scalar): Ditto. (nml_write_obj): Ditto.
2423         (namelist_write): Ditto.
2424         * write_float.def (calculate_sign): Ditto. (output_float): Ditto.
2425
2426 2008-09-24  Tobias Burnus  <burnus@net-b.de>
2427
2428         * runtime/compile_options.c (init_compile_options):
2429         Sync flags with front end.
2430
2431 2008-09-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org
2432
2433         PR libfortran/37498
2434         * file_pos (st_endfile): Clear memory only for libfortran 4.3 private
2435         area.
2436         * list_read.c (eat_separator): Only access F2003 I/O parameters if
2437         IOPARM_DT_HAS_F2003 bit is set. (parse_real): Ditto.
2438         (read_real): Ditto.
2439         * read.c (read_a): Likewise. (read_a_char4): Likewise though not
2440         strictly necessary. (read_f): Likewise.
2441         * io.h (unit_sign_s): New enumerator to allow duplication of
2442         st_parameter structures. (IOPARM_DT_HAS_F2003): New mask bit.
2443         (st_parameter_43): New structure copied from 4.3 version of 
2444         st_paramater_dt private section. (st_parameter_44): New structure with
2445         F2003 items added. (st_parameter_dt): Modified to create union of new
2446         and old structures to allow correct memory setting for 4.3 ABI
2447         compatibility. Bumped the pad size.
2448         * transfer.c (read_sf): Do not use F2003 I/O memory areas unless
2449         IOPARM_DT_HAS_F2003 bit has been set. (read_block_form): Ditto.
2450         (formatted_transfer_scalar): Ditto. (data_transfer_init): Ditto and
2451         add comment, fix formatting.
2452         * write.c (write_default_char4): Likewise though not strictly necessary.
2453         (write_utf8_char4): Ditto. (write_character): Ditto.
2454         (write_real_g0): Ditto. (list_formatted_write_scalar): Ditto.
2455         (nml_write_obj): Ditto. (namelist_write): Ditto.
2456         * write_float.def (calculate_sign): Eliminate warning by including all
2457         cases in switch. (output_float): Output only decimal point of F2003 flag
2458         is not set.
2459
2460 2008-09-10  Tobias Burnus  <burnus@net-b.de>
2461             H. J. Lu  <hongjiu.lu@intel.com>
2462
2463         * mk-sik-inc.sh: Make -Wunused-variable proof.
2464         * mk-srk-inc.sh: Make -Wunused-variable proof.
2465
2466 2008-09-10  Tobias Burnus  <burnus@net-b.de>
2467
2468         * mk-kinds-h.sh: Make -Wunused-variable proof.
2469
2470 2008-09-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
2471
2472         PR fortran/37203
2473         * intrinsics/reshape_generic.c:  Add checking on
2474         out-of-bounds and duplicate values of order argument.
2475         * m4/reshape.m4:  Likewise.
2476         * generated/reshape_c10.c: Regenerated.
2477         * generated/reshape_c16.c: Regenerated.
2478         * generated/reshape_c4.c: Regenerated.
2479         * generated/reshape_c8.c: Regenerated.
2480         * generated/reshape_i16.c: Regenerated.
2481         * generated/reshape_i4.c: Regenerated.
2482         * generated/reshape_i8.c: Regenerated.
2483         * generated/reshape_r10.c: Regenerated.
2484         * generated/reshape_r16.c: Regenerated.
2485         * generated/reshape_r4.c: Regenerated.
2486         * generated/reshape_r8.c: Regenerated.
2487
2488 2008-09-06  Tobias Burnus  <burnus@net-b.de>
2489
2490         * libgfortran.h (likely,unlikely): New makros.
2491         (runtime_warning_at,__mingw_snprintf): Add __attribute__(format()).
2492         * m4/spread.m4 (spread_'rtype_code`): Use unlikely for bounds_check.
2493         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Ditto.
2494         * m4/matmull.m4 (matmul_'rtype_code`): Ditto.
2495         * m4/ifunction_logical.m4 (name`'rtype_qual`_'atype_code): Ditto.
2496         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Ditto.
2497         * m4/matmul.m4 (matmul_'rtype_code`): Ditto.
2498
2499         * generated/minval_r8.c: Regenerated.
2500         * generated/spread_r10.c: Regenerated.
2501         * generated/minloc1_16_r16.c: Regenerated.
2502         * generated/maxloc1_4_r8.c: Regenerated.
2503         * generated/sum_i8.c: Regenerated.
2504         * generated/any_l16.c: Regenerated.
2505         * generated/spread_i8.c: Regenerated.
2506         * generated/maxval_i2.c: Regenerated.
2507         * generated/any_l2.c: Regenerated.
2508         * generated/product_r4.c: Regenerated.
2509         * generated/maxloc1_8_i4.c: Regenerated.
2510         * generated/maxloc0_4_r4.c: Regenerated.
2511         * generated/all_l1.c: Regenerated.
2512         * generated/matmul_r8.c: Regenerated.
2513         * generated/product_i2.c: Regenerated.
2514         * generated/minloc0_4_r16.c: Regenerated.
2515         * generated/minloc0_4_i1.c: Regenerated.
2516         * generated/maxloc0_4_r16.c: Regenerated.
2517         * generated/maxloc0_4_i2.c: Regenerated.
2518         * generated/minloc1_8_r16.c: Regenerated.
2519         * generated/maxloc1_8_r16.c: Regenerated.
2520         * generated/maxloc0_8_i8.c: Regenerated.
2521         * generated/sum_r16.c: Regenerated.
2522         * generated/sum_i1.c: Regenerated.
2523         * generated/minloc1_4_r8.c: Regenerated.
2524         * generated/maxloc1_16_r16.c: Regenerated.
2525         * generated/minloc1_16_i4.c: Regenerated.
2526         * generated/maxloc1_16_i4.c: Regenerated.
2527         * generated/minloc0_16_i8.c: Regenerated.
2528         * generated/spread_i1.c: Regenerated.
2529         * generated/maxloc0_16_i8.c: Regenerated.
2530         * generated/maxval_r16.c: Regenerated.
2531         * generated/product_c10.c: Regenerated.
2532         * generated/minloc1_8_i4.c: Regenerated.
2533         * generated/minloc0_16_i16.c: Regenerated.
2534         * generated/matmul_r16.c: Regenerated.
2535         * generated/minloc0_4_r4.c: Regenerated.
2536         * generated/all_l2.c: Regenerated.
2537         * generated/product_c4.c: Regenerated.
2538         * generated/sum_r4.c: Regenerated.
2539         * generated/minloc0_4_i2.c: Regenerated.
2540         * generated/spread_c10.c: Regenerated.
2541         * generated/maxloc0_8_i1.c: Regenerated.
2542         * generated/spread_r4.c: Regenerated.
2543         * generated/minloc0_8_i8.c: Regenerated.
2544         * generated/matmul_c8.c: Regenerated.
2545         * generated/all_l16.c: Regenerated.
2546         * generated/minloc1_16_r10.c: Regenerated.
2547         * generated/sum_i2.c: Regenerated.
2548         * generated/minloc0_16_i1.c: Regenerated.
2549         * generated/maxloc0_16_i1.c: Regenerated.
2550         * generated/maxloc1_8_r8.c: Regenerated.
2551         * generated/minval_i16.c: Regenerated.
2552         * generated/spread_i2.c: Regenerated.
2553         * generated/maxval_i4.c: Regenerated.
2554         * generated/minval_i8.c: Regenerated.
2555         * generated/any_l4.c: Regenerated.
2556         * generated/maxloc1_4_i8.c: Regenerated.
2557         * generated/maxloc0_16_i16.c: Regenerated.
2558         * generated/maxloc0_8_r4.c: Regenerated.
2559         * generated/minloc1_4_i16.c: Regenerated.
2560         * generated/maxloc1_4_i16.c: Regenerated.
2561         * generated/minloc0_4_r10.c: Regenerated.
2562         * generated/minloc0_8_i16.c: Regenerated.
2563         * generated/maxloc0_4_r10.c: Regenerated.
2564         * generated/maxloc0_8_i16.c: Regenerated.
2565         * generated/minloc1_8_r10.c: Regenerated.
2566         * generated/product_i4.c: Regenerated.
2567         * generated/minloc0_16_r4.c: Regenerated.
2568         * generated/sum_c16.c: Regenerated.
2569         * generated/maxloc1_8_r10.c: Regenerated.
2570         * generated/maxloc0_16_r4.c: Regenerated.
2571         * generated/minloc1_16_r8.c: Regenerated.
2572         * generated/minloc0_8_i1.c: Regenerated.
2573         * generated/maxloc0_4_i4.c: Regenerated.
2574         * generated/maxloc1_16_r8.c: Regenerated.
2575         * generated/maxloc0_8_i2.c: Regenerated.
2576         * generated/sum_r10.c: Regenerated.
2577         * generated/count_4_l.c: Regenerated.
2578         * generated/sum_c4.c: Regenerated.
2579         * generated/count_8_l.c: Regenerated.
2580         * generated/maxloc1_16_r10.c: Regenerated.
2581         * generated/matmul_i8.c: Regenerated.
2582         * generated/minloc0_16_i2.c: Regenerated.
2583         * generated/minloc1_8_r8.c: Regenerated.
2584         * generated/maxloc0_16_i2.c: Regenerated.
2585         * generated/spread_c4.c: Regenerated.
2586         * generated/matmul_c16.c: Regenerated.
2587         * generated/maxval_r10.c: Regenerated.
2588         * generated/minval_i1.c: Regenerated.
2589         * generated/maxloc1_4_i1.c: Regenerated.
2590         * generated/matmul_r10.c: Regenerated.
2591         * generated/minloc1_4_i8.c: Regenerated.
2592         * generated/minloc0_8_r4.c: Regenerated.
2593         * generated/matmul_l4.c: Regenerated.
2594         * generated/product_i16.c: Regenerated.
2595         * generated/minloc0_16_r16.c: Regenerated.
2596         * generated/all_l4.c: Regenerated.
2597         * generated/minloc0_4_i4.c: Regenerated.
2598         * generated/minloc0_8_i2.c: Regenerated.
2599         * generated/matmul_i1.c: Regenerated.
2600         * generated/minval_r4.c: Regenerated.
2601         * generated/maxloc1_4_r4.c: Regenerated.
2602         * generated/spread_i16.c: Regenerated.
2603         * generated/sum_i4.c: Regenerated.
2604         * generated/maxval_r8.c: Regenerated.
2605         * generated/spread_i4.c: Regenerated.
2606         * generated/minloc1_4_i1.c: Regenerated.
2607         * generated/minval_r16.c: Regenerated.
2608         * generated/minval_i2.c: Regenerated.
2609         * generated/maxloc1_4_i2.c: Regenerated.
2610         * generated/product_r8.c: Regenerated.
2611         * generated/maxloc1_8_i8.c: Regenerated.
2612         * generated/maxloc0_4_r8.c: Regenerated.
2613         * generated/maxloc0_16_r16.c: Regenerated.
2614         * generated/matmul_r4.c: Regenerated.
2615         * generated/sum_c10.c: Regenerated.
2616         * generated/minloc1_4_r16.c: Regenerated.
2617         * generated/maxloc1_4_r16.c: Regenerated.
2618         * generated/minloc0_8_r16.c: Regenerated.
2619         * generated/maxloc0_8_r16.c: Regenerated.
2620         * generated/count_1_l.c: Regenerated.
2621         * generated/maxloc0_8_i4.c: Regenerated.
2622         * generated/matmul_i2.c: Regenerated.
2623         * generated/minloc1_4_r4.c: Regenerated.
2624         * generated/matmul_c10.c: Regenerated.
2625         * generated/minloc0_16_i4.c: Regenerated.
2626         * generated/maxloc0_16_i4.c: Regenerated.
2627         * generated/minloc1_16_i8.c: Regenerated.
2628         * generated/maxloc1_16_i8.c: Regenerated.
2629         * generated/minloc1_4_i2.c: Regenerated.
2630         * generated/matmul_l16.c: Regenerated.
2631         * generated/maxloc1_8_i1.c: Regenerated.
2632         * generated/minloc0_16_r10.c: Regenerated.
2633         * generated/minloc1_8_i8.c: Regenerated.
2634         * generated/minloc0_4_r8.c: Regenerated.
2635         * generated/product_r16.c: Regenerated.
2636         * generated/product_c8.c: Regenerated.
2637         * generated/sum_r8.c: Regenerated.
2638         * generated/minloc0_8_i4.c: Regenerated.
2639         * generated/matmul_c4.c: Regenerated.
2640         * generated/minloc1_16_i16.c: Regenerated.
2641         * generated/spread_r8.c: Regenerated.
2642         * generated/maxloc1_8_r4.c: Regenerated.
2643         * generated/minloc1_16_i1.c: Regenerated.
2644         * generated/maxloc1_16_i1.c: Regenerated.
2645         * generated/spread_r16.c: Regenerated.
2646         * generated/minval_r10.c: Regenerated.
2647         * generated/count_16_l.c: Regenerated.
2648         * generated/minval_i4.c: Regenerated.
2649         * generated/minloc1_8_i1.c: Regenerated.
2650         * generated/maxloc1_4_i4.c: Regenerated.
2651         * generated/maxloc1_8_i2.c: Regenerated.
2652         * generated/maxval_i8.c: Regenerated.
2653         * generated/any_l8.c: Regenerated.
2654         * generated/maxloc0_16_r10.c: Regenerated.
2655         * generated/minloc0_4_i16.c: Regenerated.
2656         * generated/maxloc0_8_r8.c: Regenerated.
2657         * generated/maxloc0_4_i16.c: Regenerated.
2658         * generated/minloc1_4_r10.c: Regenerated.
2659         * generated/minloc1_8_i16.c: Regenerated.
2660         * generated/maxloc1_4_r10.c: Regenerated.
2661         * generated/maxloc1_8_i16.c: Regenerated.
2662         * generated/minloc0_8_r10.c: Regenerated.
2663         * generated/maxloc0_8_r10.c: Regenerated.
2664         * generated/minloc1_16_r4.c: Regenerated.
2665         * generated/maxloc1_16_r4.c: Regenerated.
2666         * generated/minloc0_16_r8.c: Regenerated.
2667         * generated/product_i8.c: Regenerated.
2668         * generated/maxloc0_16_r8.c: Regenerated.
2669         * generated/sum_i16.c: Regenerated.
2670         * generated/count_2_l.c: Regenerated.
2671         * generated/maxloc0_4_i8.c: Regenerated.
2672         * generated/maxloc1_16_i16.c: Regenerated.
2673         * generated/matmul_i4.c: Regenerated.
2674         * generated/minloc1_8_r4.c: Regenerated.
2675         * generated/sum_c8.c: Regenerated.
2676         * generated/minloc1_16_i2.c: Regenerated.
2677         * generated/maxloc1_16_i2.c: Regenerated.
2678         * generated/maxval_i16.c: Regenerated.
2679         * generated/spread_c8.c: Regenerated.
2680         * generated/matmul_i16.c: Regenerated.
2681         * generated/minloc1_4_i4.c: Regenerated.
2682         * generated/maxval_i1.c: Regenerated.
2683         * generated/minloc1_8_i2.c: Regenerated.
2684         * generated/any_l1.c: Regenerated.
2685         * generated/product_c16.c: Regenerated.
2686         * generated/minloc0_8_r8.c: Regenerated.
2687         * generated/matmul_l8.c: Regenerated.
2688         * generated/product_r10.c: Regenerated.
2689         * generated/product_i1.c: Regenerated.
2690         * generated/all_l8.c: Regenerated.
2691         * generated/maxloc0_4_i1.c: Regenerated.
2692         * generated/minloc0_4_i8.c: Regenerated.
2693         * generated/spread_c16.c: Regenerated.
2694         * generated/maxval_r4.c: Regenerated.
2695
2696 2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2697
2698         PR libfortran/37301
2699         PR libfortran/37228
2700         * io/io.h (write_real_g0): Declare new function to handle g0.d format.
2701         * io/transfer.c (formatted_transfer_scalar): Use new function.
2702         * io/format.c (parse_format_list): Enable g0.d.
2703         * io/write.c (write_a_char4): Delete unused var.
2704         (set_fnode_default): New function to set the default fnode w, d, and e
2705         factored from write_real. (write_real): Use new factored function.
2706         (write_real_g0): New function that sets d to that passed by g0.d format
2707         specifier and set format to ES.  Default values for w and e are used
2708         from the new function, set_fnode_default.
2709
2710 2008-09-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2711
2712         * runtime/error.c: Fix cast for printf.
2713
2714 2008-08-30  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2715
2716         PR libfortran/36895
2717         * io/write.c (namelist_write_newline): New function to correctly mark
2718         next records in both external and internal units.
2719         (nml_write_obj): Use new function.
2720         (namelist_write: Use new function.
2721
2722 2008-08-19  Tobias Burnus  <burnus@net-b.de>
2723
2724         PR libfortran/35863
2725         * io/write.c (write_a_char4): Add missing variable declaration
2726         in HAVE_CRLF block.
2727
2728 2008-08-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2729
2730         PR libfortran/35863
2731         * intrinsics/selected_char_kind.c: Enable iso_10646.
2732         * io/read.c (typedef uchar): New type.
2733         (read_utf8): New function to read a single UTF-8 encoded character.
2734         (read_utf8_char1): New function to read UTF-8 into a KIND=1 string.
2735         (read_default_char1): New functio to read default into KIND=1 string.
2736         (read_utf8_char4): New function to read UTF-8 into a KIND=4 string.
2737         (read_default_char4): New function to read UTF-8 into a KIND=4 string.
2738         (read_a): Modify to use the new functions.
2739         (read_a_char4): Modify to use the new functions.
2740         * io/write.c (error.h): Add include. (typedef uchar): New type.
2741         (write_default_char4): New function to default write KIND=4 string.
2742         (write_utf8_char4): New function to UTF-8 write KIND=4 string.
2743         (write_a_char4): Modify to use new functions.
2744         (write_character): Modify to use new functions.
2745
2746 2008-08-14  H.J. Lu  <hongjiu.lu@intel.com>
2747
2748         PR libfortran/37123
2749         * intrinsics/cshift0.c (cshift0): Fix 2 typos.
2750
2751 2008-08-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
2752
2753         PR libfortran/36886
2754         * Makefile.am:  Added $(i_cshift0_c).
2755         Added $(i_cshift0_c) to gfor_built_specific_src.
2756         Add rule to build from cshift0.m4.
2757         * Makefile.in:  Regenerated.
2758         * libgfortran.h:  Addedd prototypes for cshift0_i1,
2759         cshift0_i2, cshift0_i4, cshift0_i8, cshift0_i16,
2760         cshift0_r4, cshift0_r8, cshift0_r10, cshift0_r16,
2761         cshift0_c4, cshift0_c8, cshift0_c10, cshift0_c16.
2762         Define Macros GFC_UNALIGNED_C4 and GFC_UNALIGNED_C8.
2763         * intrinsics/cshift0.c:  Remove helper functions for
2764         the innter shift loop.
2765         (cshift0):  Call specific functions depending on type
2766         of array argument.  Only call specific functions for
2767         correct alignment for other types.
2768         * m4/cshift0.m4:  New file.
2769         * generated/cshift0_i1.c:  New file.
2770         * generated/cshift0_i2.c:  New file.
2771         * generated/cshift0_i4.c:  New file.
2772         * generated/cshift0_i8:.c  New file.
2773         * generated/cshift0_i16.c:  New file.
2774         * generated/cshift0_r4.c:  New file.
2775         * generated/cshift0_r8.c:  New file.
2776         * generated/cshift0_r10.c:  New file.
2777         * generated/cshift0_r16.c:  New file.
2778         * generated/cshift0_c4.c:  New file.
2779         * generated/cshift0_c8.c:  New file.
2780         * generated/cshift0_c10.c:  New file.
2781         * generated/cshift0_c16.c:  New file.
2782
2783 2008-07-27  Tobias Burnus  <burnus@net-b.de>
2784
2785         PR fortran/36132
2786         PR fortran/29952
2787         PR fortran/36909
2788         * runtime/error.c: New function runtime_error_at.
2789         * gfortran.map: Ditto.
2790         * libgfortran.h: Ditto.
2791
2792 2008-07-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2793
2794         PR fortran/36582
2795         * io/list_read.c: If variable rank is zero, do not adjust the found
2796         namelist object pointer.
2797
2798 2008-07-22  Daniel Kraft  <d@domob.eu>
2799
2800         PR fortran/29835
2801         * io/format.c (struct format_data):  New member error_element.
2802         (unexpected_element):  Added '%c' to message.
2803         (next_char):  Keep track of last parsed character in fmt->error_element.
2804         (format_error):  If the message is unexpected_element, output the
2805         offending character, too.
2806
2807 2008-07-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
2808
2809         PR libfortran/36890
2810         * io/file_pos.c:  Declare READ_CHUNK as signed to avoid
2811         signed/unsigned comparison warning in formatted_backspace.
2812
2813 2008-07-21  Thomas Koenig  <tkoenig@gcc.gnu.org>
2814
2815         PR libfortran/36773
2816         * intrinsics/cshift0.c (cshift0):  Return early if size of array
2817         is zero.
2818         * intrinsics/eoshift0.c (eoshift0):  Return early if size of
2819         return array is zero.
2820         * intrinsics/eoshift2.c (eoshift2):  Likewise.
2821         * m4/eoshift1.m4 (eoshift1):  Return early if size of array
2822         is zero.
2823         * m4/eoshift3.m4 (eoshift3):  Likewise.
2824         * m4/eoshift2.m4 (eoshift2):  Return early if size of return
2825         array is zero.
2826         * m4/eoshift4.m4 (eoshift2):  Return early if size of return
2827         array is zero.
2828         * generated/cshift1_16.c: Regenerated.
2829         * generated/cshift1_4.c: Regenerated.
2830         * generated/cshift1_8.c: Regenerated.
2831         * generated/eoshift1_16.c: Regenerated.
2832         * generated/eoshift1_4.c: Regenerated.
2833         * generated/eoshift1_8.c: Regenerated.
2834         * generated/eoshift3_16.c: Regenerated.
2835         * generated/eoshift3_4.c: Regenerated.
2836         * generated/eoshift3_8.c: Regenerated.
2837
2838 2008-07-20  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2839
2840         PR fortran/36857
2841         * io/write_float.def: Comment out locale dependent code and fix general
2842         comments.
2843         
2844 2008-07-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
2845
2846         PR fortran/36341
2847         PR fortran/34670
2848         * m4/matmul.m4:  Add bounds checking.
2849         * m4/matmull.m4:  Likewise.
2850         * generated/matmul_c10.c: Regenerated.
2851         * generated/matmul_c16.c: Regenerated.
2852         * generated/matmul_c4.c: Regenerated.
2853         * generated/matmul_c8.c: Regenerated.
2854         * generated/matmul_i1.c: Regenerated.
2855         * generated/matmul_i16.c: Regenerated.
2856         * generated/matmul_i2.c: Regenerated.
2857         * generated/matmul_i4.c: Regenerated.
2858         * generated/matmul_i8.c: Regenerated.
2859         * generated/matmul_l16.c: Regenerated.
2860         * generated/matmul_l4.c: Regenerated.
2861         * generated/matmul_l8.c: Regenerated.
2862         * generated/matmul_r10.c: Regenerated.
2863         * generated/matmul_r16.c: Regenerated.
2864         * generated/matmul_r4.c: Regenerated.
2865         * generated/matmul_r8.c: Regenerated.
2866
2867 2008-07-07  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
2868
2869         * acinclude.m4 (LIBGFOR_CHECK_GTHR_DEFAULT): Fix configure cache
2870         variable name.
2871         * configure: Regenerate.
2872
2873 2008-07-01  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2874
2875         PR fortran/36676
2876         * io/list_read.c (find_nml_name): Use eat_separator instead of eat_line.
2877         
2878 2008-06-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2879
2880         PR fortran/36657
2881         * io/list_read.c (read_character): Check for '!' along with separators.
2882         (find_nml_name): Likewise and eat the comment if found.
2883
2884 2008-06-17  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
2885
2886         * configure: Regenerate.
2887
2888 2008-06-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2889
2890         PR fortran/36546
2891         * io/list_read.c (eat_separator): Add tab character to condition
2892         for looping past whitespace.
2893
2894 2008-06-14  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2895
2896         PR fortran/36515
2897         * libgfortran.h (compile_options_t): Add int range_check to structure.
2898         * runtime/compile_options.c (set_options): Add range_check option.
2899         (init_compile_options): Likewise.
2900         *io/read.c (read_decimal): Change overflow checks to include
2901         range_check.
2902         
2903 2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2904
2905         PR fortran/36538
2906         * io/list_read.c (namelist_read): Add eat_separator to eliminate leading
2907         tabs.
2908
2909 2008-06-13  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2910
2911         PR fortran/35863
2912         * libgfortran.h: Change l8_to_l4_offset to big_endian and add endian_off.
2913         * runtime/main.c: Fix error in comment. Change l8_to_l4_offset to
2914         big_endian. (determine_endianness): Add endian_off and set its value
2915         according to big_endian.
2916         * gfortran.map: Add symbol for new _gfortran_transfer_character_wide.
2917         * io/io.h: Add prototype declarations for new functions.
2918         * io/list_read.c (list_formatted_read_scalar): Modify to handle kind=4.
2919         (list_formatted_read): Calculate stride based on kind for character type
2920         and use it when calling list_formatted_read_scalar.
2921         * io/inquire.c (inquire_via_unit): Change l8_to_l4_offset to big_endian.
2922         * io/open.c (st_open): Change l8_to_l4_offset to big_endian.
2923         * io/read.c (read_a_char4): New function to handle formatted read.
2924         * io/write.c: Define GFC_CHAR4(x) to improve readability of code.
2925         (write_a_char4): New function to handle formatted write.
2926         (write_character): Modify to accept the kind parameter and adjust for
2927         endianess of the machine. (list_formatted_write): Calculate the stride
2928         resulting from the kind and adjust the list_formatted_write_scalar call
2929         accordingly. (nml_write_obj): Adjust calls to write_character.
2930         (namelist_write): Likewise.
2931         * io/transfer.c (formatted_transfer_scaler): Rename 'len' argument to
2932         'kind' argument to better describe what it is. Add calls to new
2933         functions for kind == 4. (formatted_transfer): Modify to handle the case
2934         of type character and kind equals 4 to pass in the kind to the transfer
2935         routines. (transfer_character_wide): Add this new function.
2936         (transfer_array): Don't set kind to the character string length. Adjust
2937         strides bases on character kind.
2938         (unformatted_read): Adjust size based on kind for character types.
2939         (unformatted_write): Likewise. (data_transfer_init): Change
2940         l8_to_l4_offset to big_endian.
2941         io/fbuf.c (fbuf_seek): Add cast to eliminate warning.
2942
2943 2008-06-13  Tobias Burnus  <burnus@net-b.de>
2944
2945         * configure.ac (AM_CFLAGS): Remove -Werror again.
2946         * configure: Regenerate.
2947
2948 2008-06-13  Tobias Burnus  <burnus@net-b.de>
2949
2950         PR libgfortran/36518
2951         * configure.ac (AM_CFLAGS): Add -Werror.
2952         * configure: Regenerate.
2953         * m4/ifunction_logical.m4: Cast "n" to "(int)".
2954         * generated/any_l16.c: Regenerate.
2955         * generated/any_l2.c: Regenerate.
2956         * generated/all_l1.c: Regenerate.
2957         * generated/all_l2.c: Regenerate.
2958         * generated/all_l16.c: Regenerate.
2959         * generated/any_l4.c: Regenerate.
2960         * generated/count_4_l.c: Regenerate.
2961         * generated/count_8_l.c: Regenerate.
2962         * generated/all_l4.c: Regenerate.
2963         * generated/count_1_l.c: Regenerate.
2964         * generated/count_16_l.c: Regenerate.
2965         * generated/any_l8.c: Regenerate.
2966         * generated/count_2_l.c: Regenerate.
2967         * generated/any_l1.c: Regenerate.
2968         * generated/all_l8.c: Regenerate.
2969
2970 2008-06-13  Tobias Burnus  <burnus@net-b.de>
2971
2972         PR fortran/36495
2973         * configure.ac (AM_FCFLAGS): Add "-Werror -fimplicit-none".
2974         * configure: (generated) ditto.
2975         * intrinsics/dprod_r8.f90: Add "implicit none".
2976
2977 2008-06-07  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
2978
2979         PR libfortran/36420
2980         PR libfortran/36421
2981         PR libfortran/36422
2982         * io/io.h: Add prototype for write_real.
2983         * io/transfer.c (formatted_transfer_scalar): For FMT_G and width zero,
2984         use write_real.
2985         * io/format.c: Add zero width error message. (parse_format_list): Use
2986         error message for FMT_A if followed by FMT_ZERO. Use zero width error
2987         message for FMT_G if mode is READ or if -std=f95 or f2003. (fmormat0):
2988         Fix typo in comment.
2989         * io/write.c(write_a): Set wlen to len if FMT_G and length is zero.
2990         (write_l): Add wlen variable and use it if FMT_G and width is zero.
2991         (write_decimal): If FMT_G, set m to -1 to flag processor dependent
2992         formatting. (write_real): Remove static declaration.
2993
2994 2008-05-28  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
2995
2996         PR fortran/36319
2997         * intrinsics/string_intrinsics_inc.c (string_index): Return
2998         correct value for zero-length substring.
2999         * intrinsics/cshift0.c: Add _char4 variant.
3000         * intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
3001         wider than a single byte. Add _char4 variant and use above
3002         functionality.
3003         * intrinsics/eoshift2.c (eoshift2): Likewise.
3004         * m4/eoshift1.m4: Likewise.
3005         * m4/eoshift3.m4: Likewise.
3006         * m4/cshift1.m4: Add _char4 variants.
3007         * gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
3008         _gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
3009         _gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
3010         _gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
3011         _gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
3012         _gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
3013         _gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
3014         _gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
3015         _gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
3016         _gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
3017         _gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
3018         * generated/eoshift3_4.c: Regenerate.
3019         * generated/eoshift1_8.c: Regenerate.
3020         * generated/eoshift1_16.c: Regenerate.
3021         * generated/cshift1_4.c: Regenerate.
3022         * generated/eoshift1_4.c: Regenerate.
3023         * generated/eoshift3_8.c: Regenerate.
3024         * generated/eoshift3_16.c: Regenerate.
3025         * generated/cshift1_8.c: Regenerate.
3026         * generated/cshift1_16.c: Regenerate.
3027
3028 2008-05-25  Tobias Burnus  <burnus@net-b.de>
3029
3030         PR fortran/32600
3031         * intrinsics/iso_c_binding.c (c_f_procpointer): Remove.
3032         * intrinsics/iso_c_binding.h (c_f_procpointer): Remove.
3033         * gfortran.map (c_f_procpointer): Remove.
3034
3035 2008-05-22  Thomas Koenig  <tkoenig@gcc.gnu.org>
3036
3037         PR libgfortran/36302
3038         * gfortran.map (GFORTRAN_1.1): Add _gfortran_eoshift0_16,
3039         _gfortran_eoshift0_16_char, _gfortran_eoshift2_16,
3040         _gfortran_eoshift2_16_char,_gfortran_cshift0_16,
3041         _gfortran_cshift0_16_char.  Sort alphabetically.
3042         * intrinsics/eoshift0.c:  Add function for kind=16 integer.
3043         * intrinsics/eoshift2.c:  Likewise.
3044         * intrinsics/cshift0.c:  Likewise.
3045
3046 2008-05-18  Thomas Koenig  <tkoenig@gcc.gnu.org>
3047
3048         * m4/in_pack.m4 (internal_pack_'rtype_code`):  Destination
3049         pointer is restrict.
3050         * m4/transpose.m4 (transpose_'rtype_code`):  Likewise.
3051         * m4/pack.m4 (pack_'rtype_code`):  Likewise.
3052         * m4/spread.m4 (spread_'rtype_code`):  Likewise.
3053         (spread_scalar_'rtype_code`): Likewise.
3054         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Likewise.
3055         * m4/eoshift1.m4 (eoshift1):  Likewise.
3056         * m4/eoshift3.m4 (eoshift3):  Likewise.
3057         * m4/in_unpack.m4 (internal_unpack_'rtype_ccode`):  Likewise.
3058         * m4/unpack.m4 (unpack0_'rtype_code`):  Likewise.
3059         (unpack1_'rtype_code`):  Likewise.
3060         * intrinsics/pack_generic.c (pack_generic.c):  Likewise.
3061         * intrinsics/unpack_generic.c (unpack_internal):  Likewise.
3062         * intrinsics/eoshift0.c (eoshift0):  Likewise.
3063         * intrinsics/eoshift2.c (eoshift2):  Likewise.
3064         * intrinsics/reshape_generic.c (reshape_internal):  Likewise.
3065         * intrinsics/reshape_packed.c (reshape_packed):  Likewise.
3066         * generated/eoshift1_16.c: Regenerated.
3067         * generated/eoshift1_4.c: Regenerated.
3068         * generated/eoshift1_8.c: Regenerated.
3069         * generated/eoshift3_16.c: Regenerated.
3070         * generated/eoshift3_4.c: Regenerated.
3071         * generated/eoshift3_8.c: Regenerated.
3072         * generated/in_pack_c10.c: Regenerated.
3073         * generated/in_pack_c16.c: Regenerated.
3074         * generated/in_pack_c4.c: Regenerated.
3075         * generated/in_pack_c8.c: Regenerated.
3076         * generated/in_pack_i1.c: Regenerated.
3077         * generated/in_pack_i16.c: Regenerated.
3078         * generated/in_pack_i2.c: Regenerated.
3079         * generated/in_pack_i4.c: Regenerated.
3080         * generated/in_pack_i8.c: Regenerated.
3081         * generated/in_pack_r10.c: Regenerated.
3082         * generated/in_pack_r16.c: Regenerated.
3083         * generated/in_pack_r4.c: Regenerated.
3084         * generated/in_pack_r8.c: Regenerated.
3085         * generated/in_unpack_c10.c: Regenerated.
3086         * generated/in_unpack_c16.c: Regenerated.
3087         * generated/in_unpack_c4.c: Regenerated.
3088         * generated/in_unpack_c8.c: Regenerated.
3089         * generated/in_unpack_i1.c: Regenerated.
3090         * generated/in_unpack_i16.c: Regenerated.
3091         * generated/in_unpack_i2.c: Regenerated.
3092         * generated/in_unpack_i4.c: Regenerated.
3093         * generated/in_unpack_i8.c: Regenerated.
3094         * generated/in_unpack_r10.c: Regenerated.
3095         * generated/in_unpack_r16.c: Regenerated.
3096         * generated/in_unpack_r4.c: Regenerated.
3097         * generated/in_unpack_r8.c: Regenerated.
3098         * generated/maxloc0_16_i1.c: Regenerated.
3099         * generated/maxloc0_16_i16.c: Regenerated.
3100         * generated/maxloc0_16_i2.c: Regenerated.
3101         * generated/maxloc0_16_i4.c: Regenerated.
3102         * generated/maxloc0_16_i8.c: Regenerated.
3103         * generated/maxloc0_16_r10.c: Regenerated.
3104         * generated/maxloc0_16_r16.c: Regenerated.
3105         * generated/maxloc0_16_r4.c: Regenerated.
3106         * generated/maxloc0_16_r8.c: Regenerated.
3107         * generated/maxloc0_4_i1.c: Regenerated.
3108         * generated/maxloc0_4_i16.c: Regenerated.
3109         * generated/maxloc0_4_i2.c: Regenerated.
3110         * generated/maxloc0_4_i4.c: Regenerated.
3111         * generated/maxloc0_4_i8.c: Regenerated.
3112         * generated/maxloc0_4_r10.c: Regenerated.
3113         * generated/maxloc0_4_r16.c: Regenerated.
3114         * generated/maxloc0_4_r4.c: Regenerated.
3115         * generated/maxloc0_4_r8.c: Regenerated.
3116         * generated/maxloc0_8_i1.c: Regenerated.
3117         * generated/maxloc0_8_i16.c: Regenerated.
3118         * generated/maxloc0_8_i2.c: Regenerated.
3119         * generated/maxloc0_8_i4.c: Regenerated.
3120         * generated/maxloc0_8_i8.c: Regenerated.
3121         * generated/maxloc0_8_r10.c: Regenerated.
3122         * generated/maxloc0_8_r16.c: Regenerated.
3123         * generated/maxloc0_8_r4.c: Regenerated.
3124         * generated/maxloc0_8_r8.c: Regenerated.
3125         * generated/minloc0_16_i1.c: Regenerated.
3126         * generated/minloc0_16_i16.c: Regenerated.
3127         * generated/minloc0_16_i2.c: Regenerated.
3128         * generated/minloc0_16_i4.c: Regenerated.
3129         * generated/minloc0_16_i8.c: Regenerated.
3130         * generated/minloc0_16_r10.c: Regenerated.
3131         * generated/minloc0_16_r16.c: Regenerated.
3132         * generated/minloc0_16_r4.c: Regenerated.
3133         * generated/minloc0_16_r8.c: Regenerated.
3134         * generated/minloc0_4_i1.c: Regenerated.
3135         * generated/minloc0_4_i16.c: Regenerated.
3136         * generated/minloc0_4_i2.c: Regenerated.
3137         * generated/minloc0_4_i4.c: Regenerated.
3138         * generated/minloc0_4_i8.c: Regenerated.
3139         * generated/minloc0_4_r10.c: Regenerated.
3140         * generated/minloc0_4_r16.c: Regenerated.
3141         * generated/minloc0_4_r4.c: Regenerated.
3142         * generated/minloc0_4_r8.c: Regenerated.
3143         * generated/minloc0_8_i1.c: Regenerated.
3144         * generated/minloc0_8_i16.c: Regenerated.
3145         * generated/minloc0_8_i2.c: Regenerated.
3146         * generated/minloc0_8_i4.c: Regenerated.
3147         * generated/minloc0_8_i8.c: Regenerated.
3148         * generated/minloc0_8_r10.c: Regenerated.
3149         * generated/minloc0_8_r16.c: Regenerated.
3150         * generated/minloc0_8_r4.c: Regenerated.
3151         * generated/minloc0_8_r8.c: Regenerated.
3152         * generated/pack_c10.c: Regenerated.
3153         * generated/pack_c16.c: Regenerated.
3154         * generated/pack_c4.c: Regenerated.
3155         * generated/pack_c8.c: Regenerated.
3156         * generated/pack_i1.c: Regenerated.
3157         * generated/pack_i16.c: Regenerated.
3158         * generated/pack_i2.c: Regenerated.
3159         * generated/pack_i4.c: Regenerated.
3160         * generated/pack_i8.c: Regenerated.
3161         * generated/pack_r10.c: Regenerated.
3162         * generated/pack_r16.c: Regenerated.
3163         * generated/pack_r4.c: Regenerated.
3164         * generated/pack_r8.c: Regenerated.
3165         * generated/spread_c10.c: Regenerated.
3166         * generated/spread_c16.c: Regenerated.
3167         * generated/spread_c4.c: Regenerated.
3168         * generated/spread_c8.c: Regenerated.
3169         * generated/spread_i1.c: Regenerated.
3170         * generated/spread_i16.c: Regenerated.
3171         * generated/spread_i2.c: Regenerated.
3172         * generated/spread_i4.c: Regenerated.
3173         * generated/spread_i8.c: Regenerated.
3174         * generated/spread_r10.c: Regenerated.
3175         * generated/spread_r16.c: Regenerated.
3176         * generated/spread_r4.c: Regenerated.
3177         * generated/spread_r8.c: Regenerated.
3178         * generated/transpose_c10.c: Regenerated.
3179         * generated/transpose_c16.c: Regenerated.
3180         * generated/transpose_c4.c: Regenerated.
3181         * generated/transpose_c8.c: Regenerated.
3182         * generated/transpose_i16.c: Regenerated.
3183         * generated/transpose_i4.c: Regenerated.
3184         * generated/transpose_i8.c: Regenerated.
3185         * generated/transpose_r10.c: Regenerated.
3186         * generated/transpose_r16.c: Regenerated.
3187         * generated/transpose_r4.c: Regenerated.
3188         * generated/transpose_r8.c: Regenerated.
3189         * generated/unpack_c10.c: Regenerated.
3190         * generated/unpack_c16.c: Regenerated.
3191         * generated/unpack_c4.c: Regenerated.
3192         * generated/unpack_c8.c: Regenerated.
3193         * generated/unpack_i1.c: Regenerated.
3194         * generated/unpack_i16.c: Regenerated.
3195         * generated/unpack_i2.c: Regenerated.
3196         * generated/unpack_i4.c: Regenerated.
3197         * generated/unpack_i8.c: Regenerated.
3198         * generated/unpack_r10.c: Regenerated.
3199         * generated/unpack_r16.c: Regenerated.
3200         * generated/unpack_r4.c: Regenerated.
3201         * generated/unpack_r8.c: Regenerated.
3202
3203 2008-05-18  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
3204
3205         * runtime/select.c: Moved content to select_inc.c. Include it. 
3206         Add macros for different character types.
3207         * runtime/select_inc.c: New file.
3208         * runtime/convert_char.c: New file.
3209         * intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
3210         functions.
3211         * intrinsics/transpose_generic.c (transpose_char4): New function.
3212         * intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
3213         New functions.
3214         * intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4): 
3215         New functions.
3216         * intrinsics/reshape_generic.c (reshape_char): Use
3217         gfc_charlen_type as type for length variables.
3218         (reshape_char4): New function.
3219         * gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
3220         _gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
3221         _gfortran_transpose_char4, _gfortran_spread_char4,
3222         _gfortran_spread_char4_scalar, _gfortran_reshape_char4,
3223         _gfortran_pack_char4, _gfortran_pack_s_char4,
3224         _gfortran_unpack0_char4 and _gfortran_unpack1_char4.
3225         * Makefile.am: Add runtime/convert_char.c.
3226         * Makefile.in: Regenerate.
3227
3228 2008-05-17  Thomas Koenig  <tkoenig@gcc.gnu.org>
3229
3230         * io/list_read.c (list_formatted_read_scalar):  Declare
3231         type as volatile to shut up compiler warning.
3232
3233 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
3234
3235         PR libfortran/25561
3236         * io/io.h (struct fbuf): Change pointer to position offset.
3237         * io/fbuf.c (fbuf_init): Reduce default size of buffer, ptr=>pos
3238         changes.
3239         (fbuf_reset): ptr=>pos changes.
3240         (fbuf_alloc): If the request doesn't fit, don't waste memory by
3241         keeping flushed bytes. ptr=>pos changes.
3242         (fbuf_flush): ptr=>pos changes.
3243         (fbuf_seek): Don't seek past the left tab limit, don't update active
3244         byte count.
3245         * io/open.c (new_unit): If RECL has been specified, used that as
3246         initial buffer size.
3247
3248 2008-05-16  Janne Blomqvist  <jb@gcc.gnu.org>
3249
3250         PR libfortran/35632
3251         * io/open.c (new_unit): Set stream position to correct value.
3252
3253 2008-05-15  Janne Blomqvist  <jb@gcc.gnu.org>
3254
3255         PR libfortran/25561
3256         * Makefile.am: Add fbuf.c to gfor_io_src.
3257         * Makefile.in: Regenerate.
3258         * io/io.h (read_block): Remove.
3259         (struct stream): Remove alloc_r_at function pointer.
3260         (salloc_r): Remove.
3261         (salloc_r_at): Remove.
3262         (salloc_w_at): Remove.
3263         (salloc_w): Remove offset argument.
3264         (struct fbuf): New struct for format buffer.
3265         (struct gfc_unit): Add fbuf.
3266         (read_block_form): New prototype.
3267         (fbuf_init): Likewise.
3268         (fbuf_destroy): Likewise.
3269         (fbuf_reset): Likewise.
3270         (fbuf_alloc): Likewise.
3271         (fbuf_flush): Likewise.
3272         (fbuf_seek): Likewise.
3273         * io/file_pos.c (formatted_backspace): Change to use sread.
3274         (unformatted_backspace): Likewise.
3275         (st_backspace): Flush format buffer.
3276         (st_rewind): Likewise.