]>
Commit | Line | Data |
---|---|---|
3e08bbcf TB |
1 | 2008-03-28 Tobias Burnus <burnus@net-b.de> |
2 | ||
3 | PR fortran/35721 | |
4 | * intrinsics/associated.c (associated): Ignore different | |
5 | stride of pointer vs. target if only one element is referred. | |
6 | ||
40e43495 JD |
7 | 2008-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
8 | ||
9 | * io/unix.c (fd_close): Do not close STDIN. | |
10 | ||
3478bba4 TK |
11 | 2007-03-23 Thomas Koenig <tkoenig@gcc.gnu.org |
12 | ||
13 | PR libfortran/32972 | |
14 | * Makefile.am: Add new variable, i_unpack_c, containing | |
15 | unpack_i1.c, unpack_i2.c, unpack_i4.c, unpack_i8.c, | |
16 | unpack_i16.c, unpack_r4.c, unpack_r8.c, unpack_r10.c, | |
17 | unpack_r16.c, unpack_c4.c, unpack_c8.c, unpack_c10.c | |
18 | and unpack_c16.c | |
19 | Add i_unpack_c to gfor_built_src. | |
20 | Add rule to generate i_unpack_c from m4/unpack.m4. | |
21 | * Makefile.in: Regenerated. | |
22 | * libgfortran.h: Add prototypes for unpack0_i1, unpack0_i2, | |
23 | unpack0_i4, unpack0_i8, unpack0_i16, unpack0_r4, unpack0_r8, | |
24 | unpack0_r10, unpack0_r16, unpack0_c4, unpack0_c8, unpack0_c10, | |
25 | unpack0_c16, unpack1_i1, unpack1_i2, unpack1_i4, unpack1_i8, | |
26 | unpack1_i16, unpack1_r4, unpack1_r8, unpack1_r10, unpack1_r16, | |
27 | unpack1_c4, unpack1_c8, unpack1_c10 and unpack1_c16. | |
28 | * intrinsics/pack_generic.c (unpack1): Add calls to specific | |
29 | unpack1 functions. | |
30 | (unpack0): Add calls to specific unpack0 functions. | |
31 | * m4/unpack.m4: New file. | |
32 | * generated/unpack_i1.c: New file. | |
33 | * generated/unpack_i2.c: New file. | |
34 | * generated/unpack_i4.c: New file. | |
35 | * generated/unpack_i8.c: New file. | |
36 | * generated/unpack_i16.c: New file. | |
37 | * generated/unpack_r4.c: New file. | |
38 | * generated/unpack_r8.c: New file. | |
39 | * generated/unpack_r10.c: New file. | |
40 | * generated/unpack_r16.c: New file. | |
41 | * generated/unpack_c4.c: New file. | |
42 | * generated/unpack_c8.c: New file. | |
43 | * generated/unpack_c10.c: New file. | |
44 | * generated/unpack_c16.c: New file. | |
45 | ||
35077d5a JD |
46 | 2008-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
47 | ||
48 | PR libfortran/35632 | |
49 | * io/transfer.c (data_transfer_init): Fix whitespace. | |
50 | (next_record_w): Truncate the file only if the stream | |
51 | position is short of the file end. | |
52 | ||
042a12f4 JD |
53 | 2008-03-21 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
54 | ||
55 | * intrinsics/pack_generic.c: Fix typo. | |
56 | ||
fc34570c JB |
57 | 2008-03-21 Janne Blomqvist <jb@gcc.gnu.org> |
58 | ||
59 | * gfortran.map: Move erfc_scaled symbols to new symbol node | |
60 | GFORTRAN_1.1, thereby fixing ABI bug introduced in r132846. | |
61 | ||
36240d3d TK |
62 | 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org> |
63 | ||
64 | PR libfortran/32972 | |
65 | * runtime/in_pack_generic.c (internal_pack): Call correct | |
66 | function, pack_i16, for GFC_INTEGER_16. | |
67 | ||
3ef2513a TK |
68 | 2008-03-21 Thomas Koenig <tkoenig@gcc.gnu.org> |
69 | ||
70 | PR libfortran/32972 | |
71 | * Makefile.am: Add new variable, i_pack_c, containing | |
72 | pack_i1.c, pack_i2.c, pack_i4.c, pack_i8.c, pack_i16.c, | |
73 | pack_r4.c, pack_r8.c, pack_r10.c, pack_r16.c, pack_c4.c, | |
74 | pack_c8.c, pack_c10.c, pack_c16.c. | |
75 | Add m4/pack.m4 to m4_files. | |
76 | Add i_pack_c to gfor_built_src. | |
77 | Add rule to generate i_pack_c from m4/pack.m4. | |
78 | * Makefile.in: Regenerated. | |
79 | * libgfortran.h: Add prototypes for pack_i1, pack_i2, pack_i4, | |
80 | pack_i8, pack_i16, pack_r4, pack_r8, pack_c4, pack_c8, | |
81 | pack_c10, pack_c16. | |
82 | * intrinsics/pack_generic.c: Add calls to specific | |
83 | pack functions. | |
84 | * m4/pack.m4: New file. | |
85 | * generated/pack_i1.c: New file. | |
86 | * generated/pack_i2.c: New file. | |
87 | * generated/pack_i4.c: New file. | |
88 | * generated/pack_i8.c: New file. | |
89 | * generated/pack_i16.c: New file. | |
90 | * generated/pack_r4.c: New file. | |
91 | * generated/pack_r8.c: New file. | |
92 | * generated/pack_r10.c: New file. | |
93 | * generated/pack_r16.c: New file. | |
94 | * generated/pack_c4.c: New file. | |
95 | * generated/pack_c8.c: New file. | |
96 | * generated/pack_c10.c: New file. | |
97 | * generated/pack_c16.c: New file. | |
98 | ||
17f46ec3 JD |
99 | 2008-03-19 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
100 | ||
101 | PR libfortran/35627 | |
102 | * io/list_read.c (free_line): Clear the line buffer enable flag and | |
103 | reset the index into line_buffer, aka item_count. | |
104 | (next_char): Cleanup whitespace. | |
105 | (read_logical): Use unget_char to assure that the first character of the | |
106 | bad logical is saved in case it is part of an object name. Remove the | |
107 | clearing of index and flag that is now in free_line. | |
108 | (read_real): Likewise. | |
109 | ||
2f3b8279 TK |
110 | 2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org> |
111 | ||
112 | PR libfortran/32972 | |
113 | * runtime/in_pack_generic.c (internal_pack): Fix typo in | |
114 | last commit. | |
115 | ||
8e1d7686 TK |
116 | 2008-03-19 Thomas Koenig <tkoenig@gcc.gnu.org> |
117 | ||
118 | PR libfortran/32972 | |
119 | * Makefile.am (in_pack_c): Add in_pack_i1.c, in_pack_i2.c, | |
120 | in_pack_r4.c, in_pack_r8.c, in_pack_r10.c and in_pack_r16.c. | |
121 | (in_unpack_c): Add in_unpack_i1.c, in_unpack_i2.c, | |
122 | in_unpack_r4.c, in_unpack_r8.c, in_unpack_r10.c and | |
123 | in_unpack_r16.c. | |
124 | * Makefile.in: Regenerate. | |
125 | * libgfortran.h: Add prototypes for internal_pack_1, | |
126 | internal_pack_2, internal_pack_16, internal_pack_r4, | |
127 | internal_pack_r8, internal_pack_r10, internal_pack_r16, | |
128 | internal_pack_c10 and internal_pack_c16. Add prototypes for | |
129 | internal_unpack_1, internal_unpack_2, internal_unpack_16, | |
130 | internal_unpack_r4, internal_unpack_r8, internal_unpack_r10, | |
131 | internal_unpack_r16, internal_unpack_c10 and | |
132 | internal_unpack_c16. | |
133 | * runtime/in_pack_generic.c (internal_pack): Use sizeof instead | |
134 | of hardwired sizes. | |
135 | Add calls to internal_pack_1, internal_pack_2, | |
136 | internal_pack_16, internal_pack_r4, internal_pack_r8, | |
137 | internal_pack_r10, internal_pack_r16, internal_pack_c10 and | |
138 | internal_pack_c16. | |
139 | * runtime/in_unpack_generic.c (internal_unpack): Use sizeof | |
140 | instead of hardwired sizes. | |
141 | Add calls to internal_unpack_1, internal_unpack_2, | |
142 | internal_unpack_16, internal_unpack_r4, internal_unpack_r8, | |
143 | internal_unpack_r10, internal_unpack_r16, internal_unpack_c10 | |
144 | and internal_unpack_c16. | |
145 | * generated/in_pack_r4.c: New file. | |
146 | * generated/in_pack_i2.c: New file. | |
147 | * generated/in_unpack_i1.c: New file. | |
148 | * generated/in_pack_r10.c: New file. | |
149 | * generated/in_unpack_r4.c: New file. | |
150 | * generated/in_unpack_i2.c: New file. | |
151 | * generated/in_unpack_r16.c: New file. | |
152 | * generated/in_pack_r8.c: New file. | |
153 | * generated/in_unpack_r10.c: New file. | |
154 | * generated/in_unpack_r8.c: New file. | |
155 | * generated/in_pack_r16.c: New file. | |
156 | * generated/in_pack_i1.c: New file. | |
157 | ||
5a79ae84 JD |
158 | 2008-03-17 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
159 | ||
160 | PR libfortran/35617 | |
161 | * io/list_read.c (eat_separator): If next character after eatline is '!' | |
162 | then eatline again. | |
163 | ||
38d24731 RW |
164 | 2008-03-16 Ralf Wildenhues <Ralf.Wildenhues@gmx.de> |
165 | ||
166 | * aclocal.m4: Regenerate. | |
167 | * configure: Likewise. | |
168 | * Makefile.in: Likewise. | |
169 | ||
cb31c4bc FXC |
170 | 2008-03-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> |
171 | ||
172 | PR libfortran/35524 | |
173 | * intrinsics/erfc_scaled_inc.c: Only define the long double | |
174 | variant of erfc_scaled if expl is available. | |
175 | ||
2d3ca8b7 FXC |
176 | 2008-03-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> |
177 | ||
178 | PR libfortran/32812 | |
179 | * intrinsics/random.c (scramble_seed, unscramble_seed): New | |
180 | functions. | |
181 | (random_seed_i4): Scramble the seed the user gives us before | |
182 | storing it, and unscramble it when we return it back later. | |
183 | ||
25abf448 HPN |
184 | 2008-03-05 Hans-Peter Nilsson <hp@axis.com> |
185 | ||
186 | PR libfortran/35293 | |
187 | * io/unix.c (fd_truncate): Fold s->special_file case into | |
188 | success case of ftruncate/chsize call instead of the failure case. | |
189 | Make failure case actually return failure. Properly update stream | |
190 | pointers on failure. Call runtime_error for targets without | |
191 | neither ftruncate nor chsize where such a call would be needed. | |
192 | ||
f489fba1 FXC |
193 | 2008-03-03 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> |
194 | ||
195 | PR fortran/33197 | |
196 | * intrinsics/erfc_scaled_inc.c: New file. | |
197 | * intrinsics/erfc_scaled.c: New file. | |
198 | * gfortran.map (GFORTRAN_1.0): Add _gfortran_erfc_scaled_r*. | |
199 | * Makefile.am: Add intrinsics/erfc_scaled.c. | |
200 | * config.h.in: Regenerate. | |
201 | * configure: Regenerate. | |
202 | * Makefile.in: Regenerate. | |
203 | ||
9bd97567 FXC |
204 | 2008-03-01 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> |
205 | ||
206 | PR libfortran/35355 | |
207 | * intrinsics/time_1.h (__time_1): Fix calculation of user_usec | |
208 | for mingw. | |
209 | ||
4dabf736 JB |
210 | 2008-03-01 Janne Blomqvist <jb@gcc.gnu.org> |
211 | ||
212 | PR libfortran/35063 | |
213 | * io/unit.c (destroy_unit_mutex): Call __gthread_mutex_destroy | |
214 | instead of macro kludge. | |
215 | ||
cc4947e6 JB |
216 | 2008-02-25 Janne Blomqvist <jb@gcc.gnu.org> |
217 | ||
218 | PR fortran/29549 | |
f489fba1 FXC |
219 | * Makefile.am: Add -fcx-fortran-rules to AM_CFLAGS for all of |
220 | libgfortran. | |
221 | * Makefile.in: Regenerated. | |
cc4947e6 | 222 | |
5095283b FXC |
223 | 2008-02-25 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> |
224 | ||
225 | * m4/ifunction_logical.m4: Add casts to get rid of warnings. | |
226 | * generated/all_l1.c: Regenerate. | |
227 | * generated/all_l2.c: Regenerate. | |
228 | * generated/all_l4.c: Regenerate. | |
229 | * generated/all_l8.c: Regenerate. | |
230 | * generated/all_l16.c: Regenerate. | |
231 | * generated/any_l1.c: Regenerate. | |
232 | * generated/any_l2.c: Regenerate. | |
233 | * generated/any_l4.c: Regenerate. | |
234 | * generated/any_l8.c: Regenerate. | |
235 | * generated/any_l16.c: Regenerate. | |
236 | * generated/count_1_l.c: Regenerate. | |
237 | * generated/count_2_l.c: Regenerate. | |
238 | * generated/count_4_l.c: Regenerate. | |
239 | * generated/count_8_l.c: Regenerate. | |
240 | * generated/count_16_l.c: Regenerate. | |
241 | ||
a94caabf FXC |
242 | 2008-02-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> |
243 | ||
244 | PR libfortran/32841 | |
245 | * acinclude.m4: Don't use HAVE_MATH_H. | |
246 | * configure: Regenerate. | |
247 | ||
e32883d1 JD |
248 | 2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
249 | ||
250 | PR libfortran/35132 | |
251 | * io/transfer.c (next_record_w): Truncate after the last record for | |
252 | STREAM I/O. | |
253 | ||
254 | PR libfortran/34954 | |
255 | * io/transfer.c (data_transfer_init): Initialize dtp->rec if writing. | |
256 | ||
257 | PR libfortran/34974 | |
258 | * io/transfer.c (formatted_transfer_scalar): Flush the buffer if skips | |
259 | is less than zero. (next_record_w): Use sseek to position the file to | |
260 | the max position reached. | |
261 | ||
50a932e0 JD |
262 | 2008-02-20 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
263 | ||
264 | PR libfortran/35036 | |
265 | * write_float.def (output_float): Add error checks for zero digits | |
266 | after decimal point in E and D format specifiers. | |
267 | ||
ef4195d6 JD |
268 | 2008-02-10 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
269 | ||
270 | PR libfortran/35063 | |
271 | * io/unit.c (destroy_unit_mutex): New function that uses | |
272 | __gthread_mutex_destroy_function or pthread_mutex_destroy after | |
273 | unlocking and before free_mem for final closure of I/O unit. | |
274 | (delete_root): Use new function. | |
275 | (free_internal_unit): Likewise. | |
276 | (close_unit_1): Likewise. | |
277 | ||
ee440dd0 TK |
278 | 2008-02-02 Thomas Koenig <tkoenig@gcc.gnu.org> |
279 | ||
280 | PR libfortran/35001 | |
281 | * m4/shape.m4: Return 0 for extents <= 0. | |
282 | * generated/shape_i4.c: Regenerated. | |
283 | * generated/shape_i8.c: Regenerated. | |
284 | * generated/shape_i16.c: Regenerated. | |
285 | ||
bc814056 TK |
286 | 2008-01-27 Thomas Koenig <tkoenig@gcc.gnu.org> |
287 | ||
288 | PR libfortran/34980 | |
289 | * m4/shape.m4: If return array is empty, return early. | |
290 | * generated/shape_i4.c: Regenerated. | |
291 | * generated/shape_i8.c: Regenerated. | |
292 | * generated/shape_i16.c: Regenerated. | |
293 | ||
6cac3630 TK |
294 | 2008-01-26 Thomas Koenig <tkoenig@gcc.gnu.org> |
295 | ||
296 | PR libfofortran/34887 | |
297 | * io/transfer.c (next_record_w): Always move to the farthest | |
298 | position when completing the record (also when we are | |
299 | processing a slash edit descriptor). | |
300 | ||
12d9e9be | 301 | 2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
4152bc26 JD |
302 | |
303 | PR libfortran/34876 | |
304 | * io/transfer.c (write_buf): Handle case of zero sized array. | |
305 | (transfer_array): Set data pointer to NULL and size to zero. Then | |
306 | make a data transfer and return. | |
307 | ||
4f6bebc3 DE |
308 | 2008-01-24 David Edelsohn <edelsohn@gnu.org> |
309 | ||
310 | * configure: Regenerate. | |
311 | ||
17c2c96c JD |
312 | 2008-01-19 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
313 | ||
2045a99a | 314 | PR libfortran/34795 |
17c2c96c JD |
315 | * io/inquire.c (inquire_via_unit): If a unit is opened, return values |
316 | according to the open action for DIRECT, FORMATTED, and UNFORMATTED. | |
317 | (inquire_via_filename): Return "UNKNOWN" for SEQUENTIAL, DIRECT, | |
318 | FORAMATTED, and UNFORMATTED inquiries. | |
319 | * io/unix.c (inquire_sequential): Return "UNKNOWN" when appropriate | |
320 | for files that are not opened. (inquire_direct): Same. | |
321 | (inquire_formatted): Same. | |
322 | ||
6c540522 JD |
323 | 2008-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
324 | ||
2045a99a | 325 | PR libfortran/34782 |
6c540522 JD |
326 | * io/transfer.c (formatted_transfer_scalar): Set max_pos to the greater |
327 | of the current max_pos or the newly calculated position. | |
328 | ||
81014334 TB |
329 | 2008-01-18 Tobias Burnus <burnus@net-b.de> |
330 | ||
331 | * io/write.c (write_real): Increase default precision | |
332 | for REAL(16) by one. | |
333 | ||
4349e292 SB |
334 | 2008-01-16 Steven Bosscher <steven@gcc.gnu.org> |
335 | ||
336 | PR libfortran/34669 | |
337 | * mk-kinds-h.sh: Compile with -S to avoid calling the assembler, | |
338 | to avoid piping the -fdump-parse-tree output to the assembler | |
339 | when configuring with -pipe. | |
340 | * mk-sik-inc.sh: Likewise. | |
341 | * mk-srk-inc.sh: Likewise. | |
342 | ||
90469382 TK |
343 | 2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org> |
344 | ||
345 | PR libfortran/34671 | |
346 | * gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2, | |
347 | _gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l, | |
348 | _gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and | |
349 | _gfortran_count_8_l Removed _gfortran_count_16_l16, | |
350 | _gfortran_count_16_l4, _gfortran_count_16_l8, | |
351 | _gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8, | |
352 | _gfortran_count_8_l16, _gfortran_count_8_l4 and | |
353 | _gfortran_count_8_l8. | |
354 | * Makefile.am: Added generated/any_l1.c and generated/any_l2.c to | |
355 | i_any_c. Added generated/all_l1. and generated/all_l2.c to | |
356 | i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c, | |
357 | generated/count_16_l4.c, generated/count_4_l8.c, | |
358 | generated/count_8_l8.c, generated/count_16_l8.c, | |
359 | generated/count_4_l16.c, generated/count_8_l16.c, and | |
360 | generated/count_16_l16.c from i_count_c. Added count_1_l.c, | |
361 | count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to | |
362 | i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for | |
363 | any of the files generated from all.m4, any.m4 and count.m4. | |
364 | * Makefile.in: Regenerated. | |
365 | * m4/ifunction_logical.m4: New file. Use | |
366 | GFC_LOGICAL_1 pointer for access to source arrays. | |
367 | * m4/any.m4: Include ifunction_logical.m4 instead of | |
368 | ifunction.m4. Don't check atype_name. | |
369 | * m4/all.m4: Likewise. | |
370 | * m4/count.m4: Likewise. | |
371 | * generated/any_l1.c: New file. | |
372 | * generated/any_l2.c: New file. | |
373 | * generated/all_l1.c: New file. | |
374 | * generated/count_1_l.c: New file. | |
375 | * generated/count_2_l.c: New file. | |
376 | * generated/count_4_l.c: New file. | |
377 | * generated/count_8_l.c: New file. | |
378 | * generated/count_16_l.c: New file. | |
379 | * generated/any_l4.c: Regenerated. | |
380 | * generated/any_l8.c: Regenerated. | |
381 | * generated/any_l16.c: Regenerated. | |
382 | * generated/all_l4.c: Regenerated. | |
383 | * generated/all_l8.c: Regenerated. | |
384 | * generated/all_l16.c: Regenerated. | |
385 | * generated/count_4_l4.c: Removed. | |
386 | * generated/count_4_l8.c: Removed. | |
387 | * generated/count_4_l16.c: Removed. | |
388 | * generated/count_8_l4.c: Removed. | |
389 | * generated/count_8_l8.c: Removed. | |
390 | * generated/count_8_l16.c: Removed. | |
391 | * generated/count_16_l4.c: Removed. | |
392 | * generated/count_16_l8.c: Removed. | |
393 | * generated/count_16_l16.c: Removed. | |
394 | ||
ccacefc7 TK |
395 | 2008-01-13 Thomas Koenig <tkoenig@gcc.gnu.org> |
396 | ||
397 | PR libfortran/34746 | |
398 | * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Use %ld | |
399 | in printf format for all bounds checking; cast all | |
400 | integer-like arguments to runtime_error() to long int. | |
401 | (`m'name`'rtype_qual`_'atype_code): Likewise. | |
402 | (`s'name`'rtype_qual`_'atype_code): Likewise. | |
403 | * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Likewise. | |
404 | (`m'name`'rtype_qual`_'atype_code): Likewise. | |
405 | (`s'name`'rtype_qual`_'atype_code): Likewise. | |
406 | * generated/all_l16.c: Regenerated. | |
407 | * generated/all_l4.c: Regenerated. | |
408 | * generated/all_l8.c: Regenerated. | |
409 | * generated/any_l16.c: Regenerated. | |
410 | * generated/any_l4.c: Regenerated. | |
411 | * generated/any_l8.c: Regenerated. | |
412 | * generated/count_16_l16.c: Regenerated. | |
413 | * generated/count_16_l4.c: Regenerated. | |
414 | * generated/count_16_l8.c: Regenerated. | |
415 | * generated/count_4_l16.c: Regenerated. | |
416 | * generated/count_4_l4.c: Regenerated. | |
417 | * generated/count_4_l8.c: Regenerated. | |
418 | * generated/count_8_l16.c: Regenerated. | |
419 | * generated/count_8_l4.c: Regenerated. | |
420 | * generated/count_8_l8.c: Regenerated. | |
421 | * generated/maxloc0_16_i1.c: Regenerated. | |
422 | * generated/maxloc0_16_i16.c: Regenerated. | |
423 | * generated/maxloc0_16_i2.c: Regenerated. | |
424 | * generated/maxloc0_16_i4.c: Regenerated. | |
425 | * generated/maxloc0_16_i8.c: Regenerated. | |
426 | * generated/maxloc0_16_r10.c: Regenerated. | |
427 | * generated/maxloc0_16_r16.c: Regenerated. | |
428 | * generated/maxloc0_16_r4.c: Regenerated. | |
429 | * generated/maxloc0_16_r8.c: Regenerated. | |
430 | * generated/maxloc0_4_i1.c: Regenerated. | |
431 | * generated/maxloc0_4_i16.c: Regenerated. | |
432 | * generated/maxloc0_4_i2.c: Regenerated. | |
433 | * generated/maxloc0_4_i4.c: Regenerated. | |
434 | * generated/maxloc0_4_i8.c: Regenerated. | |
435 | * generated/maxloc0_4_r10.c: Regenerated. | |
436 | * generated/maxloc0_4_r16.c: Regenerated. | |
437 | * generated/maxloc0_4_r4.c: Regenerated. | |
438 | * generated/maxloc0_4_r8.c: Regenerated. | |
439 | * generated/maxloc0_8_i1.c: Regenerated. | |
440 | * generated/maxloc0_8_i16.c: Regenerated. | |
441 | * generated/maxloc0_8_i2.c: Regenerated. | |
442 | * generated/maxloc0_8_i4.c: Regenerated. | |
443 | * generated/maxloc0_8_i8.c: Regenerated. | |
444 | * generated/maxloc0_8_r10.c: Regenerated. | |
445 | * generated/maxloc0_8_r16.c: Regenerated. | |
446 | * generated/maxloc0_8_r4.c: Regenerated. | |
447 | * generated/maxloc0_8_r8.c: Regenerated. | |
448 | * generated/maxloc1_16_i1.c: Regenerated. | |
449 | * generated/maxloc1_16_i16.c: Regenerated. | |
450 | * generated/maxloc1_16_i2.c: Regenerated. | |
451 | * generated/maxloc1_16_i4.c: Regenerated. | |
452 | * generated/maxloc1_16_i8.c: Regenerated. | |
453 | * generated/maxloc1_16_r10.c: Regenerated. | |
454 | * generated/maxloc1_16_r16.c: Regenerated. | |
455 | * generated/maxloc1_16_r4.c: Regenerated. | |
456 | * generated/maxloc1_16_r8.c: Regenerated. | |
457 | * generated/maxloc1_4_i1.c: Regenerated. | |
458 | * generated/maxloc1_4_i16.c: Regenerated. | |
459 | * generated/maxloc1_4_i2.c: Regenerated. | |
460 | * generated/maxloc1_4_i4.c: Regenerated. | |
461 | * generated/maxloc1_4_i8.c: Regenerated. | |
462 | * generated/maxloc1_4_r10.c: Regenerated. | |
463 | * generated/maxloc1_4_r16.c: Regenerated. | |
464 | * generated/maxloc1_4_r4.c: Regenerated. | |
465 | * generated/maxloc1_4_r8.c: Regenerated. | |
466 | * generated/maxloc1_8_i1.c: Regenerated. | |
467 | * generated/maxloc1_8_i16.c: Regenerated. | |
468 | * generated/maxloc1_8_i2.c: Regenerated. | |
469 | * generated/maxloc1_8_i4.c: Regenerated. | |
470 | * generated/maxloc1_8_i8.c: Regenerated. | |
471 | * generated/maxloc1_8_r10.c: Regenerated. | |
472 | * generated/maxloc1_8_r16.c: Regenerated. | |
473 | * generated/maxloc1_8_r4.c: Regenerated. | |
474 | * generated/maxloc1_8_r8.c: Regenerated. | |
475 | * generated/maxval_i1.c: Regenerated. | |
476 | * generated/maxval_i16.c: Regenerated. | |
477 | * generated/maxval_i2.c: Regenerated. | |
478 | * generated/maxval_i4.c: Regenerated. | |
479 | * generated/maxval_i8.c: Regenerated. | |
480 | * generated/maxval_r10.c: Regenerated. | |
481 | * generated/maxval_r16.c: Regenerated. | |
482 | * generated/maxval_r4.c: Regenerated. | |
483 | * generated/maxval_r8.c: Regenerated. | |
484 | * generated/minloc0_16_i1.c: Regenerated. | |
485 | * generated/minloc0_16_i16.c: Regenerated. | |
486 | * generated/minloc0_16_i2.c: Regenerated. | |
487 | * generated/minloc0_16_i4.c: Regenerated. | |
488 | * generated/minloc0_16_i8.c: Regenerated. | |
489 | * generated/minloc0_16_r10.c: Regenerated. | |
490 | * generated/minloc0_16_r16.c: Regenerated. | |
491 | * generated/minloc0_16_r4.c: Regenerated. | |
492 | * generated/minloc0_16_r8.c: Regenerated. | |
493 | * generated/minloc0_4_i1.c: Regenerated. | |
494 | * generated/minloc0_4_i16.c: Regenerated. | |
495 | * generated/minloc0_4_i2.c: Regenerated. | |
496 | * generated/minloc0_4_i4.c: Regenerated. | |
497 | * generated/minloc0_4_i8.c: Regenerated. | |
498 | * generated/minloc0_4_r10.c: Regenerated. | |
499 | * generated/minloc0_4_r16.c: Regenerated. | |
500 | * generated/minloc0_4_r4.c: Regenerated. | |
501 | * generated/minloc0_4_r8.c: Regenerated. | |
502 | * generated/minloc0_8_i1.c: Regenerated. | |
503 | * generated/minloc0_8_i16.c: Regenerated. | |
504 | * generated/minloc0_8_i2.c: Regenerated. | |
505 | * generated/minloc0_8_i4.c: Regenerated. | |
506 | * generated/minloc0_8_i8.c: Regenerated. | |
507 | * generated/minloc0_8_r10.c: Regenerated. | |
508 | * generated/minloc0_8_r16.c: Regenerated. | |
509 | * generated/minloc0_8_r4.c: Regenerated. | |
510 | * generated/minloc0_8_r8.c: Regenerated. | |
511 | * generated/minloc1_16_i1.c: Regenerated. | |
512 | * generated/minloc1_16_i16.c: Regenerated. | |
513 | * generated/minloc1_16_i2.c: Regenerated. | |
514 | * generated/minloc1_16_i4.c: Regenerated. | |
515 | * generated/minloc1_16_i8.c: Regenerated. | |
516 | * generated/minloc1_16_r10.c: Regenerated. | |
517 | * generated/minloc1_16_r16.c: Regenerated. | |
518 | * generated/minloc1_16_r4.c: Regenerated. | |
519 | * generated/minloc1_16_r8.c: Regenerated. | |
520 | * generated/minloc1_4_i1.c: Regenerated. | |
521 | * generated/minloc1_4_i16.c: Regenerated. | |
522 | * generated/minloc1_4_i2.c: Regenerated. | |
523 | * generated/minloc1_4_i4.c: Regenerated. | |
524 | * generated/minloc1_4_i8.c: Regenerated. | |
525 | * generated/minloc1_4_r10.c: Regenerated. | |
526 | * generated/minloc1_4_r16.c: Regenerated. | |
527 | * generated/minloc1_4_r4.c: Regenerated. | |
528 | * generated/minloc1_4_r8.c: Regenerated. | |
529 | * generated/minloc1_8_i1.c: Regenerated. | |
530 | * generated/minloc1_8_i16.c: Regenerated. | |
531 | * generated/minloc1_8_i2.c: Regenerated. | |
532 | * generated/minloc1_8_i4.c: Regenerated. | |
533 | * generated/minloc1_8_i8.c: Regenerated. | |
534 | * generated/minloc1_8_r10.c: Regenerated. | |
535 | * generated/minloc1_8_r16.c: Regenerated. | |
536 | * generated/minloc1_8_r4.c: Regenerated. | |
537 | * generated/minloc1_8_r8.c: Regenerated. | |
538 | * generated/minval_i1.c: Regenerated. | |
539 | * generated/minval_i16.c: Regenerated. | |
540 | * generated/minval_i2.c: Regenerated. | |
541 | * generated/minval_i4.c: Regenerated. | |
542 | * generated/minval_i8.c: Regenerated. | |
543 | * generated/minval_r10.c: Regenerated. | |
544 | * generated/minval_r16.c: Regenerated. | |
545 | * generated/minval_r4.c: Regenerated. | |
546 | * generated/minval_r8.c: Regenerated. | |
547 | * generated/product_c10.c: Regenerated. | |
548 | * generated/product_c16.c: Regenerated. | |
549 | * generated/product_c4.c: Regenerated. | |
550 | * generated/product_c8.c: Regenerated. | |
551 | * generated/product_i1.c: Regenerated. | |
552 | * generated/product_i16.c: Regenerated. | |
553 | * generated/product_i2.c: Regenerated. | |
554 | * generated/product_i4.c: Regenerated. | |
555 | * generated/product_i8.c: Regenerated. | |
556 | * generated/product_r10.c: Regenerated. | |
557 | * generated/product_r16.c: Regenerated. | |
558 | * generated/product_r4.c: Regenerated. | |
559 | * generated/product_r8.c: Regenerated. | |
560 | * generated/sum_c10.c: Regenerated. | |
561 | * generated/sum_c16.c: Regenerated. | |
562 | * generated/sum_c4.c: Regenerated. | |
563 | * generated/sum_c8.c: Regenerated. | |
564 | * generated/sum_i1.c: Regenerated. | |
565 | * generated/sum_i16.c: Regenerated. | |
566 | * generated/sum_i2.c: Regenerated. | |
567 | * generated/sum_i4.c: Regenerated. | |
568 | * generated/sum_i8.c: Regenerated. | |
569 | * generated/sum_r10.c: Regenerated. | |
570 | * generated/sum_r16.c: Regenerated. | |
571 | * generated/sum_r4.c: Regenerated. | |
572 | * generated/sum_r8.c: Regenerated. | |
573 | ||
fd6590f8 TK |
574 | 2008-01-11 Thomas Koenig <tkoenig@gcc.gnu.org> |
575 | ||
576 | PR libfortran/34670 | |
577 | * m4/iparm.m4 (upcase): New macro (copied from the m4 manual). | |
578 | (u_name): New macro for the upper case name of the intrinsic. | |
579 | * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Add | |
580 | bounds checking and rank check, depending on | |
581 | compile_options.bounds_check. | |
582 | (`m'name`'rtype_qual`_'atype_code): Likewise. | |
583 | (`s'name`'rtype_qual`_'atype_code): Likewise. | |
584 | * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): Add | |
585 | bounds checking and rank check, depending on | |
586 | compile_options.bounds_check. | |
587 | (`m'name`'rtype_qual`_'atype_code): Likewise. | |
588 | (`s'name`'rtype_qual`_'atype_code): Likewise. | |
589 | * generated/all_l16.c: Regenerated. | |
590 | * generated/all_l4.c: Regenerated. | |
591 | * generated/all_l8.c: Regenerated. | |
592 | * generated/any_l16.c: Regenerated. | |
593 | * generated/any_l4.c: Regenerated. | |
594 | * generated/any_l8.c: Regenerated. | |
595 | * generated/count_16_l16.c: Regenerated. | |
596 | * generated/count_16_l4.c: Regenerated. | |
597 | * generated/count_16_l8.c: Regenerated. | |
598 | * generated/count_4_l16.c: Regenerated. | |
599 | * generated/count_4_l4.c: Regenerated. | |
600 | * generated/count_4_l8.c: Regenerated. | |
601 | * generated/count_8_l16.c: Regenerated. | |
602 | * generated/count_8_l4.c: Regenerated. | |
603 | * generated/count_8_l8.c: Regenerated. | |
604 | * generated/maxloc0_16_i1.c: Regenerated. | |
605 | * generated/maxloc0_16_i16.c: Regenerated. | |
606 | * generated/maxloc0_16_i2.c: Regenerated. | |
607 | * generated/maxloc0_16_i4.c: Regenerated. | |
608 | * generated/maxloc0_16_i8.c: Regenerated. | |
609 | * generated/maxloc0_16_r10.c: Regenerated. | |
610 | * generated/maxloc0_16_r16.c: Regenerated. | |
611 | * generated/maxloc0_16_r4.c: Regenerated. | |
612 | * generated/maxloc0_16_r8.c: Regenerated. | |
613 | * generated/maxloc0_4_i1.c: Regenerated. | |
614 | * generated/maxloc0_4_i16.c: Regenerated. | |
615 | * generated/maxloc0_4_i2.c: Regenerated. | |
616 | * generated/maxloc0_4_i4.c: Regenerated. | |
617 | * generated/maxloc0_4_i8.c: Regenerated. | |
618 | * generated/maxloc0_4_r10.c: Regenerated. | |
619 | * generated/maxloc0_4_r16.c: Regenerated. | |
620 | * generated/maxloc0_4_r4.c: Regenerated. | |
621 | * generated/maxloc0_4_r8.c: Regenerated. | |
622 | * generated/maxloc0_8_i1.c: Regenerated. | |
623 | * generated/maxloc0_8_i16.c: Regenerated. | |
624 | * generated/maxloc0_8_i2.c: Regenerated. | |
625 | * generated/maxloc0_8_i4.c: Regenerated. | |
626 | * generated/maxloc0_8_i8.c: Regenerated. | |
627 | * generated/maxloc0_8_r10.c: Regenerated. | |
628 | * generated/maxloc0_8_r16.c: Regenerated. | |
629 | * generated/maxloc0_8_r4.c: Regenerated. | |
630 | * generated/maxloc0_8_r8.c: Regenerated. | |
631 | * generated/maxloc1_16_i1.c: Regenerated. | |
632 | * generated/maxloc1_16_i16.c: Regenerated. | |
633 | * generated/maxloc1_16_i2.c: Regenerated. | |
634 | * generated/maxloc1_16_i4.c: Regenerated. | |
635 | * generated/maxloc1_16_i8.c: Regenerated. | |
636 | * generated/maxloc1_16_r10.c: Regenerated. | |
637 | * generated/maxloc1_16_r16.c: Regenerated. | |
638 | * generated/maxloc1_16_r4.c: Regenerated. | |
639 | * generated/maxloc1_16_r8.c: Regenerated. | |
640 | * generated/maxloc1_4_i1.c: Regenerated. | |
641 | * generated/maxloc1_4_i16.c: Regenerated. | |
642 | * generated/maxloc1_4_i2.c: Regenerated. | |
643 | * generated/maxloc1_4_i4.c: Regenerated. | |
644 | * generated/maxloc1_4_i8.c: Regenerated. | |
645 | * generated/maxloc1_4_r10.c: Regenerated. | |
646 | * generated/maxloc1_4_r16.c: Regenerated. | |
647 | * generated/maxloc1_4_r4.c: Regenerated. | |
648 | * generated/maxloc1_4_r8.c: Regenerated. | |
649 | * generated/maxloc1_8_i1.c: Regenerated. | |
650 | * generated/maxloc1_8_i16.c: Regenerated. | |
651 | * generated/maxloc1_8_i2.c: Regenerated. | |
652 | * generated/maxloc1_8_i4.c: Regenerated. | |
653 | * generated/maxloc1_8_i8.c: Regenerated. | |
654 | * generated/maxloc1_8_r10.c: Regenerated. | |
655 | * generated/maxloc1_8_r16.c: Regenerated. | |
656 | * generated/maxloc1_8_r4.c: Regenerated. | |
657 | * generated/maxloc1_8_r8.c: Regenerated. | |
658 | * generated/maxval_i1.c: Regenerated. | |
659 | * generated/maxval_i16.c: Regenerated. | |
660 | * generated/maxval_i2.c: Regenerated. | |
661 | * generated/maxval_i4.c: Regenerated. | |
662 | * generated/maxval_i8.c: Regenerated. | |
663 | * generated/maxval_r10.c: Regenerated. | |
664 | * generated/maxval_r16.c: Regenerated. | |
665 | * generated/maxval_r4.c: Regenerated. | |
666 | * generated/maxval_r8.c: Regenerated. | |
667 | * generated/minloc0_16_i1.c: Regenerated. | |
668 | * generated/minloc0_16_i16.c: Regenerated. | |
669 | * generated/minloc0_16_i2.c: Regenerated. | |
670 | * generated/minloc0_16_i4.c: Regenerated. | |
671 | * generated/minloc0_16_i8.c: Regenerated. | |
672 | * generated/minloc0_16_r10.c: Regenerated. | |
673 | * generated/minloc0_16_r16.c: Regenerated. | |
674 | * generated/minloc0_16_r4.c: Regenerated. | |
675 | * generated/minloc0_16_r8.c: Regenerated. | |
676 | * generated/minloc0_4_i1.c: Regenerated. | |
677 | * generated/minloc0_4_i16.c: Regenerated. | |
678 | * generated/minloc0_4_i2.c: Regenerated. | |
679 | * generated/minloc0_4_i4.c: Regenerated. | |
680 | * generated/minloc0_4_i8.c: Regenerated. | |
681 | * generated/minloc0_4_r10.c: Regenerated. | |
682 | * generated/minloc0_4_r16.c: Regenerated. | |
683 | * generated/minloc0_4_r4.c: Regenerated. | |
684 | * generated/minloc0_4_r8.c: Regenerated. | |
685 | * generated/minloc0_8_i1.c: Regenerated. | |
686 | * generated/minloc0_8_i16.c: Regenerated. | |
687 | * generated/minloc0_8_i2.c: Regenerated. | |
688 | * generated/minloc0_8_i4.c: Regenerated. | |
689 | * generated/minloc0_8_i8.c: Regenerated. | |
690 | * generated/minloc0_8_r10.c: Regenerated. | |
691 | * generated/minloc0_8_r16.c: Regenerated. | |
692 | * generated/minloc0_8_r4.c: Regenerated. | |
693 | * generated/minloc0_8_r8.c: Regenerated. | |
694 | * generated/minloc1_16_i1.c: Regenerated. | |
695 | * generated/minloc1_16_i16.c: Regenerated. | |
696 | * generated/minloc1_16_i2.c: Regenerated. | |
697 | * generated/minloc1_16_i4.c: Regenerated. | |
698 | * generated/minloc1_16_i8.c: Regenerated. | |
699 | * generated/minloc1_16_r10.c: Regenerated. | |
700 | * generated/minloc1_16_r16.c: Regenerated. | |
701 | * generated/minloc1_16_r4.c: Regenerated. | |
702 | * generated/minloc1_16_r8.c: Regenerated. | |
703 | * generated/minloc1_4_i1.c: Regenerated. | |
704 | * generated/minloc1_4_i16.c: Regenerated. | |
705 | * generated/minloc1_4_i2.c: Regenerated. | |
706 | * generated/minloc1_4_i4.c: Regenerated. | |
707 | * generated/minloc1_4_i8.c: Regenerated. | |
708 | * generated/minloc1_4_r10.c: Regenerated. | |
709 | * generated/minloc1_4_r16.c: Regenerated. | |
710 | * generated/minloc1_4_r4.c: Regenerated. | |
711 | * generated/minloc1_4_r8.c: Regenerated. | |
712 | * generated/minloc1_8_i1.c: Regenerated. | |
713 | * generated/minloc1_8_i16.c: Regenerated. | |
714 | * generated/minloc1_8_i2.c: Regenerated. | |
715 | * generated/minloc1_8_i4.c: Regenerated. | |
716 | * generated/minloc1_8_i8.c: Regenerated. | |
717 | * generated/minloc1_8_r10.c: Regenerated. | |
718 | * generated/minloc1_8_r16.c: Regenerated. | |
719 | * generated/minloc1_8_r4.c: Regenerated. | |
720 | * generated/minloc1_8_r8.c: Regenerated. | |
721 | * generated/minval_i1.c: Regenerated. | |
722 | * generated/minval_i16.c: Regenerated. | |
723 | * generated/minval_i2.c: Regenerated. | |
724 | * generated/minval_i4.c: Regenerated. | |
725 | * generated/minval_i8.c: Regenerated. | |
726 | * generated/minval_r10.c: Regenerated. | |
727 | * generated/minval_r16.c: Regenerated. | |
728 | * generated/minval_r4.c: Regenerated. | |
729 | * generated/minval_r8.c: Regenerated. | |
730 | * generated/product_c10.c: Regenerated. | |
731 | * generated/product_c16.c: Regenerated. | |
732 | * generated/product_c4.c: Regenerated. | |
733 | * generated/product_c8.c: Regenerated. | |
734 | * generated/product_i1.c: Regenerated. | |
735 | * generated/product_i16.c: Regenerated. | |
736 | * generated/product_i2.c: Regenerated. | |
737 | * generated/product_i4.c: Regenerated. | |
738 | * generated/product_i8.c: Regenerated. | |
739 | * generated/product_r10.c: Regenerated. | |
740 | * generated/product_r16.c: Regenerated. | |
741 | * generated/product_r4.c: Regenerated. | |
742 | * generated/product_r8.c: Regenerated. | |
743 | * generated/sum_c10.c: Regenerated. | |
744 | * generated/sum_c16.c: Regenerated. | |
745 | * generated/sum_c4.c: Regenerated. | |
746 | * generated/sum_c8.c: Regenerated. | |
747 | * generated/sum_i1.c: Regenerated. | |
748 | * generated/sum_i16.c: Regenerated. | |
749 | * generated/sum_i2.c: Regenerated. | |
750 | * generated/sum_i4.c: Regenerated. | |
751 | * generated/sum_i8.c: Regenerated. | |
752 | * generated/sum_r10.c: Regenerated. | |
753 | * generated/sum_r16.c: Regenerated. | |
754 | * generated/sum_r4.c: Regenerated. | |
755 | * generated/sum_r8.c: Regenerated. | |
756 | ||
fa347f22 JD |
757 | 2008-01-05 Jerry DeLisle <jvdelisle@gcc.gnu.org> |
758 | ||
759 | PR libfortran/34676 | |
760 | * io/list_read.c (next_char): Only save the EOF condition for later if | |
761 | advance="no". | |
762 | ||
9370b3c0 TK |
763 | 2008-01-03 Thomas Koenig <tkoenig@gcc.gnu.org> |
764 | ||
765 | PR libfortran/34565 | |
766 | * io/io.h: Adjust protoypes for open_internal(), | |
767 | next_array_record() and init_loop_spec(). | |
768 | * io/list_read.c (next_char): Use argument "finished" | |
769 | of next_array_record to check for end on internal file. | |
770 | * io/unit.c: Calculate the offset for an array | |
771 | internal file and supply this informatin to open_internal(). | |
772 | * io/unix.c (open_internal): Set the offset for the internal | |
773 | file on open. | |
774 | * io/transfer.c (init_loop_spec): Calculate the starting | |
775 | record in case of negative strides. Return size of 0 for | |
776 | an empty array. | |
777 | (next_array_record): Use an extra flag to signal that the | |
778 | array is finished. | |
779 | (next_record_r): Use the new flag to next_array_record(). | |
780 | (next_record_w): Likewise. |