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