| blob | 76228e26b693b795a0406811a7187cae0849a7b7 |
1 2018-08-25 Thomas Koenig <tkoenig@gcc.gnu.org>
3 PR libfortran/86704
4 * m4/matmul_internal.m4: Correct calculation of needed buffer size
5 for arrays of shape (1,n).
6 * generated/matmul_c10.c: Regenerated
7 * generated/matmul_c16.c: Regenerated
8 * generated/matmul_c4.c: Regenerated
9 * generated/matmul_c8.c: Regenerated
10 * generated/matmul_i1.c: Regenerated
11 * generated/matmul_i16.c: Regenerated
12 * generated/matmul_i2.c: Regenerated
13 * generated/matmul_i4.c: Regenerated
14 * generated/matmul_i8.c: Regenerated
15 * generated/matmul_r10.c: Regenerated
16 * generated/matmul_r16.c: Regenerated
17 * generated/matmul_r4.c: Regenerated
18 * generated/matmul_r8.c: Regenerated
19 * generated/matmulavx128_c10.c: Regenerated
20 * generated/matmulavx128_c16.c: Regenerated
21 * generated/matmulavx128_c4.c: Regenerated
22 * generated/matmulavx128_c8.c: Regenerated
23 * generated/matmulavx128_i1.c: Regenerated
24 * generated/matmulavx128_i16.c: Regenerated
25 * generated/matmulavx128_i2.c: Regenerated
26 * generated/matmulavx128_i4.c: Regenerated
27 * generated/matmulavx128_i8.c: Regenerated
28 * generated/matmulavx128_r10.c: Regenerated
29 * generated/matmulavx128_r16.c: Regenerated
30 * generated/matmulavx128_r4.c: Regenerated
31 * generated/matmulavx128_r8.c: Regenerated
33 2018-08-23 David Edelsohn <dje.gcc@gmail.com>
35 * async.h (ASYNC_IO): Revert _AIX test.
37 2018-08-22 Thomas Koenig <tkoenig@gcc.gnu.org>
39 * async.h: Set ASYNC_IO to zero if _AIX is defined.
40 (struct adv_cond): If ASYNC_IO is zero, the struct has no members.
41 (async_unit): If ASYNC_IO is zero, remove unneeded members.
43 2018-08-21 Nicolas Koenig <koenigni@gcc.gnu.org>
44 Thomas Koenig <tkoenig@gcc.gnu.org>
46 PR fortran/25829
47 * Makefile.am: Add async.c to gfor_io_src.
48 Add async.h to gfor_io_headers.
49 * Makefile.in: Regenerated.
50 * gfortran.map: Add _gfortran_st_wait_async.
51 * io/async.c: New file.
52 * io/async.h: New file.
53 * io/close.c: Include async.h.
54 (st_close): Call async_wait for an asynchronous unit.
55 * io/file_pos.c (st_backspace): Likewise.
56 (st_endfile): Likewise.
57 (st_rewind): Likewise.
58 (st_flush): Likewise.
59 * io/inquire.c: Add handling for asynchronous PENDING
60 and ID arguments.
61 * io/io.h (st_parameter_dt): Add async bit.
62 (st_parameter_wait): Correct.
63 (gfc_unit): Add au pointer.
64 (st_wait_async): Add prototype.
65 (transfer_array_inner): Likewise.
66 (st_write_done_worker): Likewise.
67 * io/open.c: Include async.h.
68 (new_unit): Initialize asynchronous unit.
69 * io/transfer.c (async_opt): New struct.
70 (wrap_scalar_transfer): New function.
71 (transfer_integer): Call wrap_scalar_transfer to do the work.
72 (transfer_real): Likewise.
73 (transfer_real_write): Likewise.
74 (transfer_character): Likewise.
75 (transfer_character_wide): Likewise.
76 (transfer_complex): Likewise.
77 (transfer_array_inner): New function.
78 (transfer_array): Call transfer_array_inner.
79 (transfer_derived): Call wrap_scalar_transfer.
80 (data_transfer_init): Check for asynchronous I/O.
81 Perform a wait operation on any pending asynchronous I/O
82 if the data transfer is synchronous. Copy PDT and enqueue
83 thread for data transfer.
84 (st_read_done_worker): New function.
85 (st_read_done): Enqueue transfer or call st_read_done_worker.
86 (st_write_done_worker): New function.
87 (st_write_done): Enqueue transfer or call st_read_done_worker.
88 (st_wait): Document as no-op for compatibility reasons.
89 (st_wait_async): New function.
90 * io/unit.c (insert_unit): Use macros LOCK, UNLOCK and TRYLOCK;
91 add NOTE where necessary.
92 (get_gfc_unit): Likewise.
93 (init_units): Likewise.
94 (close_unit_1): Likewise. Call async_close if asynchronous.
95 (close_unit): Use macros LOCK and UNLOCK.
96 (finish_last_advance_record): Likewise.
97 (newunit_alloc): Likewise.
98 * io/unix.c (find_file): Likewise.
99 (flush_all_units_1): Likewise.
100 (flush_all_units): Likewise.
101 * libgfortran.h (generate_error_common): Add prototype.
102 * runtime/error.c: Include io.h and async.h.
103 (generate_error_common): New function.
105 2018-08-15 Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
107 * configure.ac: Check for <sys/random.h>.
108 * configure, config.h.in: Regenerate.
109 * intrinsics/random.c [HAVE_SYS_RANDOM_H]: Include <sys/random.h>.
111 2018-08-13 Janne Blomqvist <jb@gcc.gnu.org>
113 * configure.ac: Check for getentropy.
114 * intrinsics/random.c (getosrandom): Use getentropy if available.
115 * config.h.in: Regenerated.
116 * configure: Regenerated.
118 2018-07-31 Andre Vieira <andre.simoesdiasvieira@arm.com>
120 Revert 'AsyncI/O patch committed'
121 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
122 Thomas Koenig <tkoenig@gcc.gnu.org>
124 PR fortran/25829
125 * Makefile.am: Add async.c to gfor_io_src.
126 Add async.h to gfor_io_headers.
127 * Makefile.in: Regenerated.
128 * gfortran.map: Add _gfortran_st_wait_async.
129 * io/async.c: New file.
130 * io/async.h: New file.
131 * io/close.c: Include async.h.
132 (st_close): Call async_wait for an asynchronous unit.
133 * io/file_pos.c (st_backspace): Likewise.
134 (st_endfile): Likewise.
135 (st_rewind): Likewise.
136 (st_flush): Likewise.
137 * io/inquire.c: Add handling for asynchronous PENDING
138 and ID arguments.
139 * io/io.h (st_parameter_dt): Add async bit.
140 (st_parameter_wait): Correct.
141 (gfc_unit): Add au pointer.
142 (st_wait_async): Add prototype.
143 (transfer_array_inner): Likewise.
144 (st_write_done_worker): Likewise.
145 * io/open.c: Include async.h.
146 (new_unit): Initialize asynchronous unit.
147 * io/transfer.c (async_opt): New struct.
148 (wrap_scalar_transfer): New function.
149 (transfer_integer): Call wrap_scalar_transfer to do the work.
150 (transfer_real): Likewise.
151 (transfer_real_write): Likewise.
152 (transfer_character): Likewise.
153 (transfer_character_wide): Likewise.
154 (transfer_complex): Likewise.
155 (transfer_array_inner): New function.
156 (transfer_array): Call transfer_array_inner.
157 (transfer_derived): Call wrap_scalar_transfer.
158 (data_transfer_init): Check for asynchronous I/O.
159 Perform a wait operation on any pending asynchronous I/O
160 if the data transfer is synchronous. Copy PDT and enqueue
161 thread for data transfer.
162 (st_read_done_worker): New function.
163 (st_read_done): Enqueue transfer or call st_read_done_worker.
164 (st_write_done_worker): New function.
165 (st_write_done): Enqueue transfer or call st_read_done_worker.
166 (st_wait): Document as no-op for compatibility reasons.
167 (st_wait_async): New function.
168 * io/unit.c (insert_unit): Use macros LOCK, UNLOCK and TRYLOCK;
169 add NOTE where necessary.
170 (get_gfc_unit): Likewise.
171 (init_units): Likewise.
172 (close_unit_1): Likewise. Call async_close if asynchronous.
173 (close_unit): Use macros LOCK and UNLOCK.
174 (finish_last_advance_record): Likewise.
175 (newunit_alloc): Likewise.
176 * io/unix.c (find_file): Likewise.
177 (flush_all_units_1): Likewise.
178 (flush_all_units): Likewise.
179 * libgfortran.h (generate_error_common): Add prototype.
180 * runtime/error.c: Include io.h and async.h.
181 (generate_error_common): New function.
183 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
184 Thomas Koenig <tkoenig@gcc.gnu.org>
186 PR fortran/25829
187 * Makefile.am: Add async.c to gfor_io_src.
188 Add async.h to gfor_io_headers.
189 * Makefile.in: Regenerated.
190 * gfortran.map: Add _gfortran_st_wait_async.
191 * io/async.c: New file.
192 * io/async.h: New file.
193 * io/close.c: Include async.h.
194 (st_close): Call async_wait for an asynchronous unit.
195 * io/file_pos.c (st_backspace): Likewise.
196 (st_endfile): Likewise.
197 (st_rewind): Likewise.
198 (st_flush): Likewise.
199 * io/inquire.c: Add handling for asynchronous PENDING
200 and ID arguments.
201 * io/io.h (st_parameter_dt): Add async bit.
202 (st_parameter_wait): Correct.
203 (gfc_unit): Add au pointer.
204 (st_wait_async): Add prototype.
205 (transfer_array_inner): Likewise.
206 (st_write_done_worker): Likewise.
207 * io/open.c: Include async.h.
208 (new_unit): Initialize asynchronous unit.
209 * io/transfer.c (async_opt): New struct.
210 (wrap_scalar_transfer): New function.
211 (transfer_integer): Call wrap_scalar_transfer to do the work.
212 (transfer_real): Likewise.
213 (transfer_real_write): Likewise.
214 (transfer_character): Likewise.
215 (transfer_character_wide): Likewise.
216 (transfer_complex): Likewise.
217 (transfer_array_inner): New function.
218 (transfer_array): Call transfer_array_inner.
219 (transfer_derived): Call wrap_scalar_transfer.
220 (data_transfer_init): Check for asynchronous I/O.
221 Perform a wait operation on any pending asynchronous I/O
222 if the data transfer is synchronous. Copy PDT and enqueue
223 thread for data transfer.
224 (st_read_done_worker): New function.
225 (st_read_done): Enqueue transfer or call st_read_done_worker.
226 (st_write_done_worker): New function.
227 (st_write_done): Enqueue transfer or call st_read_done_worker.
228 (st_wait): Document as no-op for compatibility reasons.
229 (st_wait_async): New function.
230 * io/unit.c (insert_unit): Use macros LOCK, UNLOCK and TRYLOCK;
231 add NOTE where necessary.
232 (get_gfc_unit): Likewise.
233 (init_units): Likewise.
234 (close_unit_1): Likewise. Call async_close if asynchronous.
235 (close_unit): Use macros LOCK and UNLOCK.
236 (finish_last_advance_record): Likewise.
237 (newunit_alloc): Likewise.
238 * io/unix.c (find_file): Likewise.
239 (flush_all_units_1): Likewise.
240 (flush_all_units): Likewise.
241 * libgfortran.h (generate_error_common): Add prototype.
242 * runtime/error.c: Include io.h and async.h.
243 (generate_error_common): New function.
245 2018-06-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
247 PR libgfortran/86070
248 * io/write_float.def (build_float_string): Initialize *len.
250 2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
252 PR fortran/85816
253 PR fortran/85975
254 * libgfortran.h: Remove the GFC_DTYPE_COPY_SETRANK macro.
255 * intrinsics/reshape_generic.c: Directly assign rank.
256 * intrinsics/spread_generic.c: Ditto.
257 * m4/iforeach-s.m4: Ditto.
258 * m4/iforeach.m4: Ditto.
259 * m4/ifunction-s.m4: Ditto.
260 * m4/ifunction-s2.m4: Ditto.
261 * m4/ifunction.m4: Ditto.
262 * m4/ifunction_logical.m4: Ditto.
263 * m4/reshape.m4: Ditto.
264 * m4/spread.m4: Ditto.
265 * generated/all_l1.c: Regenerated from m4 files.
266 * generated/all_l16.c: Ditto.
267 * generated/all_l2.c: Ditto.
268 * generated/all_l4.c: Ditto.
269 * generated/all_l8.c: Ditto.
270 * generated/any_l1.c: Ditto.
271 * generated/any_l16.c: Ditto.
272 * generated/any_l2.c: Ditto.
273 * generated/any_l4.c: Ditto.
274 * generated/any_l8.c: Ditto.
275 * generated/count_16_l.c: Ditto.
276 * generated/count_1_l.c: Ditto.
277 * generated/count_2_l.c: Ditto.
278 * generated/count_4_l.c: Ditto.
279 * generated/count_8_l.c: Ditto.
280 * generated/iall_i1.c: Ditto.
281 * generated/iall_i16.c: Ditto.
282 * generated/iall_i2.c: Ditto.
283 * generated/iall_i4.c: Ditto.
284 * generated/iall_i8.c: Ditto.
285 * generated/iany_i1.c: Ditto.
286 * generated/iany_i16.c: Ditto.
287 * generated/iany_i2.c: Ditto.
288 * generated/iany_i4.c: Ditto.
289 * generated/iany_i8.c: Ditto.
290 * generated/iparity_i1.c: Ditto.
291 * generated/iparity_i16.c: Ditto.
292 * generated/iparity_i2.c: Ditto.
293 * generated/iparity_i4.c: Ditto.
294 * generated/iparity_i8.c: Ditto.
295 * generated/maxloc0_16_i1.c: Ditto.
296 * generated/maxloc0_16_i16.c: Ditto.
297 * generated/maxloc0_16_i2.c: Ditto.
298 * generated/maxloc0_16_i4.c: Ditto.
299 * generated/maxloc0_16_i8.c: Ditto.
300 * generated/maxloc0_16_r10.c: Ditto.
301 * generated/maxloc0_16_r16.c: Ditto.
302 * generated/maxloc0_16_r4.c: Ditto.
303 * generated/maxloc0_16_r8.c: Ditto.
304 * generated/maxloc0_16_s1.c: Ditto.
305 * generated/maxloc0_16_s4.c: Ditto.
306 * generated/maxloc0_4_i1.c: Ditto.
307 * generated/maxloc0_4_i16.c: Ditto.
308 * generated/maxloc0_4_i2.c: Ditto.
309 * generated/maxloc0_4_i4.c: Ditto.
310 * generated/maxloc0_4_i8.c: Ditto.
311 * generated/maxloc0_4_r10.c: Ditto.
312 * generated/maxloc0_4_r16.c: Ditto.
313 * generated/maxloc0_4_r4.c: Ditto.
314 * generated/maxloc0_4_r8.c: Ditto.
315 * generated/maxloc0_4_s1.c: Ditto.
316 * generated/maxloc0_4_s4.c: Ditto.
317 * generated/maxloc0_8_i1.c: Ditto.
318 * generated/maxloc0_8_i16.c: Ditto.
319 * generated/maxloc0_8_i2.c: Ditto.
320 * generated/maxloc0_8_i4.c: Ditto.
321 * generated/maxloc0_8_i8.c: Ditto.
322 * generated/maxloc0_8_r10.c: Ditto.
323 * generated/maxloc0_8_r16.c: Ditto.
324 * generated/maxloc0_8_r4.c: Ditto.
325 * generated/maxloc0_8_r8.c: Ditto.
326 * generated/maxloc0_8_s1.c: Ditto.
327 * generated/maxloc0_8_s4.c: Ditto.
328 * generated/maxloc1_16_i1.c: Ditto.
329 * generated/maxloc1_16_i16.c: Ditto.
330 * generated/maxloc1_16_i2.c: Ditto.
331 * generated/maxloc1_16_i4.c: Ditto.
332 * generated/maxloc1_16_i8.c: Ditto.
333 * generated/maxloc1_16_r10.c: Ditto.
334 * generated/maxloc1_16_r16.c: Ditto.
335 * generated/maxloc1_16_r4.c: Ditto.
336 * generated/maxloc1_16_r8.c: Ditto.
337 * generated/maxloc1_16_s1.c: Ditto.
338 * generated/maxloc1_16_s4.c: Ditto.
339 * generated/maxloc1_4_i1.c: Ditto.
340 * generated/maxloc1_4_i16.c: Ditto.
341 * generated/maxloc1_4_i2.c: Ditto.
342 * generated/maxloc1_4_i4.c: Ditto.
343 * generated/maxloc1_4_i8.c: Ditto.
344 * generated/maxloc1_4_r10.c: Ditto.
345 * generated/maxloc1_4_r16.c: Ditto.
346 * generated/maxloc1_4_r4.c: Ditto.
347 * generated/maxloc1_4_r8.c: Ditto.
348 * generated/maxloc1_4_s1.c: Ditto.
349 * generated/maxloc1_4_s4.c: Ditto.
350 * generated/maxloc1_8_i1.c: Ditto.
351 * generated/maxloc1_8_i16.c: Ditto.
352 * generated/maxloc1_8_i2.c: Ditto.
353 * generated/maxloc1_8_i4.c: Ditto.
354 * generated/maxloc1_8_i8.c: Ditto.
355 * generated/maxloc1_8_r10.c: Ditto.
356 * generated/maxloc1_8_r16.c: Ditto.
357 * generated/maxloc1_8_r4.c: Ditto.
358 * generated/maxloc1_8_r8.c: Ditto.
359 * generated/maxloc1_8_s1.c: Ditto.
360 * generated/maxloc1_8_s4.c: Ditto.
361 * generated/maxval1_s1.c: Ditto.
362 * generated/maxval1_s4.c: Ditto.
363 * generated/maxval_i1.c: Ditto.
364 * generated/maxval_i16.c: Ditto.
365 * generated/maxval_i2.c: Ditto.
366 * generated/maxval_i4.c: Ditto.
367 * generated/maxval_i8.c: Ditto.
368 * generated/maxval_r10.c: Ditto.
369 * generated/maxval_r16.c: Ditto.
370 * generated/maxval_r4.c: Ditto.
371 * generated/maxval_r8.c: Ditto.
372 * generated/minloc0_16_i1.c: Ditto.
373 * generated/minloc0_16_i16.c: Ditto.
374 * generated/minloc0_16_i2.c: Ditto.
375 * generated/minloc0_16_i4.c: Ditto.
376 * generated/minloc0_16_i8.c: Ditto.
377 * generated/minloc0_16_r10.c: Ditto.
378 * generated/minloc0_16_r16.c: Ditto.
379 * generated/minloc0_16_r4.c: Ditto.
380 * generated/minloc0_16_r8.c: Ditto.
381 * generated/minloc0_16_s1.c: Ditto.
382 * generated/minloc0_16_s4.c: Ditto.
383 * generated/minloc0_4_i1.c: Ditto.
384 * generated/minloc0_4_i16.c: Ditto.
385 * generated/minloc0_4_i2.c: Ditto.
386 * generated/minloc0_4_i4.c: Ditto.
387 * generated/minloc0_4_i8.c: Ditto.
388 * generated/minloc0_4_r10.c: Ditto.
389 * generated/minloc0_4_r16.c: Ditto.
390 * generated/minloc0_4_r4.c: Ditto.
391 * generated/minloc0_4_r8.c: Ditto.
392 * generated/minloc0_4_s1.c: Ditto.
393 * generated/minloc0_4_s4.c: Ditto.
394 * generated/minloc0_8_i1.c: Ditto.
395 * generated/minloc0_8_i16.c: Ditto.
396 * generated/minloc0_8_i2.c: Ditto.
397 * generated/minloc0_8_i4.c: Ditto.
398 * generated/minloc0_8_i8.c: Ditto.
399 * generated/minloc0_8_r10.c: Ditto.
400 * generated/minloc0_8_r16.c: Ditto.
401 * generated/minloc0_8_r4.c: Ditto.
402 * generated/minloc0_8_r8.c: Ditto.
403 * generated/minloc0_8_s1.c: Ditto.
404 * generated/minloc0_8_s4.c: Ditto.
405 * generated/minloc1_16_i1.c: Ditto.
406 * generated/minloc1_16_i16.c: Ditto.
407 * generated/minloc1_16_i2.c: Ditto.
408 * generated/minloc1_16_i4.c: Ditto.
409 * generated/minloc1_16_i8.c: Ditto.
410 * generated/minloc1_16_r10.c: Ditto.
411 * generated/minloc1_16_r16.c: Ditto.
412 * generated/minloc1_16_r4.c: Ditto.
413 * generated/minloc1_16_r8.c: Ditto.
414 * generated/minloc1_16_s1.c: Ditto.
415 * generated/minloc1_16_s4.c: Ditto.
416 * generated/minloc1_4_i1.c: Ditto.
417 * generated/minloc1_4_i16.c: Ditto.
418 * generated/minloc1_4_i2.c: Ditto.
419 * generated/minloc1_4_i4.c: Ditto.
420 * generated/minloc1_4_i8.c: Ditto.
421 * generated/minloc1_4_r10.c: Ditto.
422 * generated/minloc1_4_r16.c: Ditto.
423 * generated/minloc1_4_r4.c: Ditto.
424 * generated/minloc1_4_r8.c: Ditto.
425 * generated/minloc1_4_s1.c: Ditto.
426 * generated/minloc1_4_s4.c: Ditto.
427 * generated/minloc1_8_i1.c: Ditto.
428 * generated/minloc1_8_i16.c: Ditto.
429 * generated/minloc1_8_i2.c: Ditto.
430 * generated/minloc1_8_i4.c: Ditto.
431 * generated/minloc1_8_i8.c: Ditto.
432 * generated/minloc1_8_r10.c: Ditto.
433 * generated/minloc1_8_r16.c: Ditto.
434 * generated/minloc1_8_r4.c: Ditto.
435 * generated/minloc1_8_r8.c: Ditto.
436 * generated/minloc1_8_s1.c: Ditto.
437 * generated/minloc1_8_s4.c: Ditto.
438 * generated/minval1_s1.c: Ditto.
439 * generated/minval1_s4.c: Ditto.
440 * generated/minval_i1.c: Ditto.
441 * generated/minval_i16.c: Ditto.
442 * generated/minval_i2.c: Ditto.
443 * generated/minval_i4.c: Ditto.
444 * generated/minval_i8.c: Ditto.
445 * generated/minval_r10.c: Ditto.
446 * generated/minval_r16.c: Ditto.
447 * generated/minval_r4.c: Ditto.
448 * generated/minval_r8.c: Ditto.
449 * generated/norm2_r10.c: Ditto.
450 * generated/norm2_r16.c: Ditto.
451 * generated/norm2_r4.c: Ditto.
452 * generated/norm2_r8.c: Ditto.
453 * generated/parity_l1.c: Ditto.
454 * generated/parity_l16.c: Ditto.
455 * generated/parity_l2.c: Ditto.
456 * generated/parity_l4.c: Ditto.
457 * generated/parity_l8.c: Ditto.
458 * generated/product_c10.c: Ditto.
459 * generated/product_c16.c: Ditto.
460 * generated/product_c4.c: Ditto.
461 * generated/product_c8.c: Ditto.
462 * generated/product_i1.c: Ditto.
463 * generated/product_i16.c: Ditto.
464 * generated/product_i2.c: Ditto.
465 * generated/product_i4.c: Ditto.
466 * generated/product_i8.c: Ditto.
467 * generated/product_r10.c: Ditto.
468 * generated/product_r16.c: Ditto.
469 * generated/product_r4.c: Ditto.
470 * generated/product_r8.c: Ditto.
471 * generated/reshape_c10.c: Ditto.
472 * generated/reshape_c16.c: Ditto.
473 * generated/reshape_c4.c: Ditto.
474 * generated/reshape_c8.c: Ditto.
475 * generated/reshape_i16.c: Ditto.
476 * generated/reshape_i4.c: Ditto.
477 * generated/reshape_i8.c: Ditto.
478 * generated/reshape_r10.c: Ditto.
479 * generated/reshape_r16.c: Ditto.
480 * generated/reshape_r4.c: Ditto.
481 * generated/reshape_r8.c: Ditto.
482 * generated/spread_c10.c: Ditto.
483 * generated/spread_c16.c: Ditto.
484 * generated/spread_c4.c: Ditto.
485 * generated/spread_c8.c: Ditto.
486 * generated/spread_i1.c: Ditto.
487 * generated/spread_i16.c: Ditto.
488 * generated/spread_i2.c: Ditto.
489 * generated/spread_i4.c: Ditto.
490 * generated/spread_i8.c: Ditto.
491 * generated/spread_r10.c: Ditto.
492 * generated/spread_r16.c: Ditto.
493 * generated/spread_r4.c: Ditto.
494 * generated/spread_r8.c: Ditto.
495 * generated/sum_c10.c: Ditto.
496 * generated/sum_c16.c: Ditto.
497 * generated/sum_c4.c: Ditto.
498 * generated/sum_c8.c: Ditto.
499 * generated/sum_i1.c: Ditto.
500 * generated/sum_i16.c: Ditto.
501 * generated/sum_i2.c: Ditto.
502 * generated/sum_i4.c: Ditto.
503 * generated/sum_i8.c: Ditto.
504 * generated/sum_r10.c: Ditto.
505 * generated/sum_r16.c: Ditto.
506 * generated/sum_r4.c: Ditto.
507 * generated/sum_r8.c: Ditto.
509 2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
511 PR fortran/63570
512 * libgfortran/Makefile.am: Add random_init.f90 to build.
513 * libgfortran/Makefile.in: Regenerated.
514 * libgfortran/gfortran.map: Expose symbol for _gfortran_random_init.
515 * libgfortran/intrinsics/random_init.f90: Implementation.
517 2018-05-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
519 PR libgfortran/85840
520 * io/write.c (write_real, write_real_g0, write_complex): Use
521 separate local variables for the float string length.
523 2018-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
525 PR libgfortran/85906
526 * io/write.c (write_integer): Initialise the fnode format to
527 FMT_NONE, used for list directed write.
528 (BUF_STACK_SZ): Bump default buffer size up to avoid allocs on
529 small stuff.
531 2018-05-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
533 PR libgfortran/85840
534 * io/write.c (write_float_0): Use separate local variable for
535 the float string length.
537 2018-05-08 Thomas Koenig <tkoenig@gcc.gnu.org>
539 PR fortran/54613
540 * m4/iforeach-s.m4: Remove assertion that back is zero.
541 * m4/iforeach.m4: Likewise. Remove leading 'do'
542 before implementation start.
543 * m4/ifunction-s.m4: Remove assertion that back is zero.
544 * m4/ifunction.m4: Likewise. Remove for loop if HAVE_BACK_ARG
545 is defined.
546 * m4/maxloc0.m4: Reorganize loops. Split loops between >= and =,
547 depending if back is true. Mark the condition of having
548 found a value which exceeds the limit as unlikely.
549 * m4/minloc0.m4: Likewise.
550 * m4/maxloc1.m4: Likewise.
551 * m4/minloc1.m4: Likewise.
552 * m4/maxloc1s.m4: Handle back argument.
553 * m4/minloc1s.m4: Likewise.
554 * m4/maxloc2s.m4: Remove assertion that back is zero.
555 Remove special handling of loop start. Handle back argument.
556 * m4/minloc2s.m4: Likewise.
557 * generated/iall_i1.c: Regenerated.
558 * generated/iall_i16.c: Regenerated.
559 * generated/iall_i2.c: Regenerated.
560 * generated/iall_i4.c: Regenerated.
561 * generated/iall_i8.c: Regenerated.
562 * generated/iany_i1.c: Regenerated.
563 * generated/iany_i16.c: Regenerated.
564 * generated/iany_i2.c: Regenerated.
565 * generated/iany_i4.c: Regenerated.
566 * generated/iany_i8.c: Regenerated.
567 * generated/iparity_i1.c: Regenerated.
568 * generated/iparity_i16.c: Regenerated.
569 * generated/iparity_i2.c: Regenerated.
570 * generated/iparity_i4.c: Regenerated.
571 * generated/iparity_i8.c: Regenerated.
572 * generated/maxloc0_16_i1.c: Regenerated.
573 * generated/maxloc0_16_i16.c: Regenerated.
574 * generated/maxloc0_16_i2.c: Regenerated.
575 * generated/maxloc0_16_i4.c: Regenerated.
576 * generated/maxloc0_16_i8.c: Regenerated.
577 * generated/maxloc0_16_r10.c: Regenerated.
578 * generated/maxloc0_16_r16.c: Regenerated.
579 * generated/maxloc0_16_r4.c: Regenerated.
580 * generated/maxloc0_16_r8.c: Regenerated.
581 * generated/maxloc0_16_s1.c: Regenerated.
582 * generated/maxloc0_16_s4.c: Regenerated.
583 * generated/maxloc0_4_i1.c: Regenerated.
584 * generated/maxloc0_4_i16.c: Regenerated.
585 * generated/maxloc0_4_i2.c: Regenerated.
586 * generated/maxloc0_4_i4.c: Regenerated.
587 * generated/maxloc0_4_i8.c: Regenerated.
588 * generated/maxloc0_4_r10.c: Regenerated.
589 * generated/maxloc0_4_r16.c: Regenerated.
590 * generated/maxloc0_4_r4.c: Regenerated.
591 * generated/maxloc0_4_r8.c: Regenerated.
592 * generated/maxloc0_4_s1.c: Regenerated.
593 * generated/maxloc0_4_s4.c: Regenerated.
594 * generated/maxloc0_8_i1.c: Regenerated.
595 * generated/maxloc0_8_i16.c: Regenerated.
596 * generated/maxloc0_8_i2.c: Regenerated.
597 * generated/maxloc0_8_i4.c: Regenerated.
598 * generated/maxloc0_8_i8.c: Regenerated.
599 * generated/maxloc0_8_r10.c: Regenerated.
600 * generated/maxloc0_8_r16.c: Regenerated.
601 * generated/maxloc0_8_r4.c: Regenerated.
602 * generated/maxloc0_8_r8.c: Regenerated.
603 * generated/maxloc0_8_s1.c: Regenerated.
604 * generated/maxloc0_8_s4.c: Regenerated.
605 * generated/maxloc1_16_i1.c: Regenerated.
606 * generated/maxloc1_16_i16.c: Regenerated.
607 * generated/maxloc1_16_i2.c: Regenerated.
608 * generated/maxloc1_16_i4.c: Regenerated.
609 * generated/maxloc1_16_i8.c: Regenerated.
610 * generated/maxloc1_16_r10.c: Regenerated.
611 * generated/maxloc1_16_r16.c: Regenerated.
612 * generated/maxloc1_16_r4.c: Regenerated.
613 * generated/maxloc1_16_r8.c: Regenerated.
614 * generated/maxloc1_16_s1.c: Regenerated.
615 * generated/maxloc1_16_s4.c: Regenerated.
616 * generated/maxloc1_4_i1.c: Regenerated.
617 * generated/maxloc1_4_i16.c: Regenerated.
618 * generated/maxloc1_4_i2.c: Regenerated.
619 * generated/maxloc1_4_i4.c: Regenerated.
620 * generated/maxloc1_4_i8.c: Regenerated.
621 * generated/maxloc1_4_r10.c: Regenerated.
622 * generated/maxloc1_4_r16.c: Regenerated.
623 * generated/maxloc1_4_r4.c: Regenerated.
624 * generated/maxloc1_4_r8.c: Regenerated.
625 * generated/maxloc1_4_s1.c: Regenerated.
626 * generated/maxloc1_4_s4.c: Regenerated.
627 * generated/maxloc1_8_i1.c: Regenerated.
628 * generated/maxloc1_8_i16.c: Regenerated.
629 * generated/maxloc1_8_i2.c: Regenerated.
630 * generated/maxloc1_8_i4.c: Regenerated.
631 * generated/maxloc1_8_i8.c: Regenerated.
632 * generated/maxloc1_8_r10.c: Regenerated.
633 * generated/maxloc1_8_r16.c: Regenerated.
634 * generated/maxloc1_8_r4.c: Regenerated.
635 * generated/maxloc1_8_r8.c: Regenerated.
636 * generated/maxloc1_8_s1.c: Regenerated.
637 * generated/maxloc1_8_s4.c: Regenerated.
638 * generated/maxloc2_16_s1.c: Regenerated.
639 * generated/maxloc2_16_s4.c: Regenerated.
640 * generated/maxloc2_4_s1.c: Regenerated.
641 * generated/maxloc2_4_s4.c: Regenerated.
642 * generated/maxloc2_8_s1.c: Regenerated.
643 * generated/maxloc2_8_s4.c: Regenerated.
644 * generated/maxval_i1.c: Regenerated.
645 * generated/maxval_i16.c: Regenerated.
646 * generated/maxval_i2.c: Regenerated.
647 * generated/maxval_i4.c: Regenerated.
648 * generated/maxval_i8.c: Regenerated.
649 * generated/maxval_r10.c: Regenerated.
650 * generated/maxval_r16.c: Regenerated.
651 * generated/maxval_r4.c: Regenerated.
652 * generated/maxval_r8.c: Regenerated.
653 * generated/minloc0_16_i1.c: Regenerated.
654 * generated/minloc0_16_i16.c: Regenerated.
655 * generated/minloc0_16_i2.c: Regenerated.
656 * generated/minloc0_16_i4.c: Regenerated.
657 * generated/minloc0_16_i8.c: Regenerated.
658 * generated/minloc0_16_r10.c: Regenerated.
659 * generated/minloc0_16_r16.c: Regenerated.
660 * generated/minloc0_16_r4.c: Regenerated.
661 * generated/minloc0_16_r8.c: Regenerated.
662 * generated/minloc0_16_s1.c: Regenerated.
663 * generated/minloc0_16_s4.c: Regenerated.
664 * generated/minloc0_4_i1.c: Regenerated.
665 * generated/minloc0_4_i16.c: Regenerated.
666 * generated/minloc0_4_i2.c: Regenerated.
667 * generated/minloc0_4_i4.c: Regenerated.
668 * generated/minloc0_4_i8.c: Regenerated.
669 * generated/minloc0_4_r10.c: Regenerated.
670 * generated/minloc0_4_r16.c: Regenerated.
671 * generated/minloc0_4_r4.c: Regenerated.
672 * generated/minloc0_4_r8.c: Regenerated.
673 * generated/minloc0_4_s1.c: Regenerated.
674 * generated/minloc0_4_s4.c: Regenerated.
675 * generated/minloc0_8_i1.c: Regenerated.
676 * generated/minloc0_8_i16.c: Regenerated.
677 * generated/minloc0_8_i2.c: Regenerated.
678 * generated/minloc0_8_i4.c: Regenerated.
679 * generated/minloc0_8_i8.c: Regenerated.
680 * generated/minloc0_8_r10.c: Regenerated.
681 * generated/minloc0_8_r16.c: Regenerated.
682 * generated/minloc0_8_r4.c: Regenerated.
683 * generated/minloc0_8_r8.c: Regenerated.
684 * generated/minloc0_8_s1.c: Regenerated.
685 * generated/minloc0_8_s4.c: Regenerated.
686 * generated/minloc1_16_i1.c: Regenerated.
687 * generated/minloc1_16_i16.c: Regenerated.
688 * generated/minloc1_16_i2.c: Regenerated.
689 * generated/minloc1_16_i4.c: Regenerated.
690 * generated/minloc1_16_i8.c: Regenerated.
691 * generated/minloc1_16_r10.c: Regenerated.
692 * generated/minloc1_16_r16.c: Regenerated.
693 * generated/minloc1_16_r4.c: Regenerated.
694 * generated/minloc1_16_r8.c: Regenerated.
695 * generated/minloc1_16_s1.c: Regenerated.
696 * generated/minloc1_16_s4.c: Regenerated.
697 * generated/minloc1_4_i1.c: Regenerated.
698 * generated/minloc1_4_i16.c: Regenerated.
699 * generated/minloc1_4_i2.c: Regenerated.
700 * generated/minloc1_4_i4.c: Regenerated.
701 * generated/minloc1_4_i8.c: Regenerated.
702 * generated/minloc1_4_r10.c: Regenerated.
703 * generated/minloc1_4_r16.c: Regenerated.
704 * generated/minloc1_4_r4.c: Regenerated.
705 * generated/minloc1_4_r8.c: Regenerated.
706 * generated/minloc1_4_s1.c: Regenerated.
707 * generated/minloc1_4_s4.c: Regenerated.
708 * generated/minloc1_8_i1.c: Regenerated.
709 * generated/minloc1_8_i16.c: Regenerated.
710 * generated/minloc1_8_i2.c: Regenerated.
711 * generated/minloc1_8_i4.c: Regenerated.
712 * generated/minloc1_8_i8.c: Regenerated.
713 * generated/minloc1_8_r10.c: Regenerated.
714 * generated/minloc1_8_r16.c: Regenerated.
715 * generated/minloc1_8_r4.c: Regenerated.
716 * generated/minloc1_8_r8.c: Regenerated.
717 * generated/minloc1_8_s1.c: Regenerated.
718 * generated/minloc1_8_s4.c: Regenerated.
719 * generated/minloc2_16_s1.c: Regenerated.
720 * generated/minloc2_16_s4.c: Regenerated.
721 * generated/minloc2_4_s1.c: Regenerated.
722 * generated/minloc2_4_s4.c: Regenerated.
723 * generated/minloc2_8_s1.c: Regenerated.
724 * generated/minloc2_8_s4.c: Regenerated.
725 * generated/minval_i1.c: Regenerated.
726 * generated/minval_i16.c: Regenerated.
727 * generated/minval_i2.c: Regenerated.
728 * generated/minval_i4.c: Regenerated.
729 * generated/minval_i8.c: Regenerated.
730 * generated/minval_r10.c: Regenerated.
731 * generated/minval_r16.c: Regenerated.
732 * generated/minval_r4.c: Regenerated.
733 * generated/minval_r8.c: Regenerated.
734 * generated/norm2_r10.c: Regenerated.
735 * generated/norm2_r16.c: Regenerated.
736 * generated/norm2_r4.c: Regenerated.
737 * generated/norm2_r8.c: Regenerated.
738 * generated/parity_l1.c: Regenerated.
739 * generated/parity_l16.c: Regenerated.
740 * generated/parity_l2.c: Regenerated.
741 * generated/parity_l4.c: Regenerated.
742 * generated/parity_l8.c: Regenerated.
743 * generated/product_c10.c: Regenerated.
744 * generated/product_c16.c: Regenerated.
745 * generated/product_c4.c: Regenerated.
746 * generated/product_c8.c: Regenerated.
747 * generated/product_i1.c: Regenerated.
748 * generated/product_i16.c: Regenerated.
749 * generated/product_i2.c: Regenerated.
750 * generated/product_i4.c: Regenerated.
751 * generated/product_i8.c: Regenerated.
752 * generated/product_r10.c: Regenerated.
753 * generated/product_r16.c: Regenerated.
754 * generated/product_r4.c: Regenerated.
755 * generated/product_r8.c: Regenerated.
756 * generated/sum_c10.c: Regenerated.
757 * generated/sum_c16.c: Regenerated.
758 * generated/sum_c4.c: Regenerated.
759 * generated/sum_c8.c: Regenerated.
760 * generated/sum_i1.c: Regenerated.
761 * generated/sum_i16.c: Regenerated.
762 * generated/sum_i2.c: Regenerated.
763 * generated/sum_i4.c: Regenerated.
764 * generated/sum_i8.c: Regenerated.
765 * generated/sum_r10.c: Regenerated.
766 * generated/sum_r16.c: Regenerated.
767 * generated/sum_r4.c: Regenerated.
768 * generated/sum_r8.c: Regenerated.
770 2018-04-24 H.J. Lu <hongjiu.lu@intel.com>
772 * configure: Regenerated.
774 2018-04-19 Thomas Schwinge <thomas@codesourcery.com>
776 PR libfortran/85166
777 PR libgomp/85463
778 * runtime/minimal.c (stop_numeric): Reimplement.
779 (stop_string, error_stop_string, error_stop_numeric): New
780 functions.
782 2018-04-19 Jakub Jelinek <jakub@redhat.com>
784 * configure: Regenerated.
786 2018-04-18 David Malcolm <dmalcolm@redhat.com>
788 PR jit/85384
789 * configure: Regenerate.
791 2018-04-06 Thomas Koenig <tkoenig@gcc.gnu.org>
793 PR libfortran/85253
794 * m4/matmul_internal.m4: If ycount == 1, add one more row to
795 the internal buffer.
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_r10.c: Regenerated.
806 * generated/matmul_r16.c: Regenerated.
807 * generated/matmul_r4.c: Regenerated.
808 * generated/matmul_r8.c: Regenerated.
809 * generated/matmulavx128_c10.c: Regenerated.
810 * generated/matmulavx128_c16.c: Regenerated.
811 * generated/matmulavx128_c4.c: Regenerated.
812 * generated/matmulavx128_c8.c: Regenerated.
813 * generated/matmulavx128_i1.c: Regenerated.
814 * generated/matmulavx128_i16.c: Regenerated.
815 * generated/matmulavx128_i2.c: Regenerated.
816 * generated/matmulavx128_i4.c: Regenerated.
817 * generated/matmulavx128_i8.c: Regenerated.
818 * generated/matmulavx128_r10.c: Regenerated.
819 * generated/matmulavx128_r16.c: Regenerated.
820 * generated/matmulavx128_r4.c: Regenerated.
821 * generated/matmulavx128_r8.c: Regenerated.
823 2018-04-04 Thomas Koenig <tkoenig@gcc.gnu.org>
825 PR libfortran/85166
826 * runtime/minimal.c (stop_numeric): Add new function in order to
827 implement numeric stop on minimal targets.
829 2018-03-28 Jakub Jelinek <jakub@redhat.com>
831 * io/io.h (IOPARM_DT_DEFAULT_EXP): Rename to ...
832 (IOPARM_DT_DEC_EXT): ... this.
833 * io/list_read.c (parse_real): Adjust for IOPARM_DT_DEFAULT_EXP
834 renaming to IOPARM_DT_DEC_EXT.
835 (read_real): Likewise.
836 * io/read.c (read_f): Likewise.
838 2018-03-15 Jakub Jelinek <jakub@redhat.com>
840 PR libgfortran/84880
841 * intrinsics/kill.c (kill): Rename to...
842 (PREFIX (kill)): ... this. Use export_proto_np instead of export_proto.
844 2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
846 * libgfortran/gfortran.map: Remove _gfortran_kill_i4,
847 _gfortran_kill_i4_sub, _gfortran_kill_i8, and _gfortran_kill_i8_sub.
848 Add _gfortran_kill and _gfortran_kill_sub.
849 * libgfortran/intrinsics/kill.c: Eliminate _gfortran_kill_i4,
850 _gfortran_kill_i4_sub, _gfortran_kill_i8, and _gfortran_kill_i8_sub.
851 Add _gfortran_kill and _gfortran_kill_sub.
853 2018-02-23 Janne Blomqvist <jb@gcc.gnu.org>
855 PR fortran/84519
856 * caf/libcaf.h (_gfortran_caf_stop_numeric): Add bool argument.
857 (_gfortran_caf_stop_str): Likewise.
858 (_gfortran_caf_error_stop_str): Likewise.
859 (_gfortran_caf_error_stop): Likewise.
860 * caf/mpi.c (_gfortran_caf_error_stop_str): Handle new argument.
861 (_gfortran_caf_error_stop): Likewise.
862 * caf/single.c (_gfortran_caf_stop_numeric): Likewise.
863 (_gfortran_caf_stop_str): Likewise.
864 (_gfortran_caf_error_stop_str): Likewise.
865 (_gfortran_caf_error_stop): Likewise.
866 (_gfortran_caf_lock): Likewise.
867 (_gfortran_caf_unlock): Likewise.
868 * libgfortran.h (stop_string): Add bool argument.
869 * runtime/pause.c (do_pause): Add false argument.
870 * runtime/stop.c (stop_numeric): Handle new argument.
871 (stop_string): Likewise.
872 (error_stop_string): Likewise.
873 (error_stop_numeric): Likewise.
875 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
877 PR 78534
878 PR 84509
879 * runtime/pause.c (pause_numeric): Modify to take GFC_INTEGER_8
880 argument.
881 (pause_string): Modify to take size_t character length argument.
883 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
885 * libgfortran.h (stop_string): Use size_t for character length.
886 * runtime/stop.c (stop_string): Likewise.
887 (error_stop_string): Likewise.
888 (stop_numeric): Use int for exit code.
889 (error_stop_numeric): Likewise.
890 * caf/libcaf.h: Remove stdint.h include.
891 (_gfortran_caf_register): Use size_t for character length.
892 (_gfortran_caf_deregister): Likewise.
893 (_gfortran_caf_sync_all): Likewise.
894 (_gfortran_caf_sync_memory): Likewise.
895 (_gfortran_caf_sync_images): Likewise.
896 (_gfortran_caf_stop_numeric): Use int for exit code.
897 (_gfortran_caf_stop_str): Use size_t for character length.
898 (_gfortran_caf_error_stop_str): Likewise.
899 (_gfortran_caf_error_stop): Use int for exit code.
900 (_gfortran_caf_co_broadcast): Use size_t for character length.
901 (_gfortran_caf_co_sum): Likewise.
902 (_gfortran_caf_co_min): Likewise.
903 (_gfortran_caf_co_max): Likewise.
904 (_gfortran_caf_co_reduce): Likewise.
905 (_gfortran_caf_lock): Likewise.
906 (_gfortran_caf_unlock): Likewise.
907 (_gfortran_caf_event_post): Likewise.
908 (_gfortran_caf_event_wait): Likewise.
909 * caf/mpi.c (_gfortran_caf_register): Update implementation to
910 match prototype.
911 (_gfortran_caf_deregister): Likewise.
912 (_gfortran_caf_sync_all): Likewise.
913 (_gfortran_caf_sync_images): Likewise.
914 (_gfortran_caf_error_stop_str): Likewise.
915 (_gfortran_caf_error_stop): Likewise.
916 * caf/single.c (caf_internal_error): Likewise.
917 (_gfortran_caf_register): Likewise.
918 (_gfortran_caf_deregister): Likewise.
919 (_gfortran_caf_sync_all): Likewise.
920 (_gfortran_caf_sync_memory): Likewise.
921 (_gfortran_caf_sync_images): Likewise.
922 (_gfortran_caf_stop_numeric): Likewise.
923 (_gfortran_caf_stop_str): Likewise.
924 (_gfortran_caf_error_stop_str): Likewise.
925 (_gfortran_caf_error_stop): Likewise.
926 (_gfortran_caf_co_broadcast): Likewise.
927 (_gfortran_caf_co_sum): Likewise.
928 (_gfortran_caf_co_min): Likewise.
929 (_gfortran_caf_co_max): Likewise.
930 (_gfortran_caf_co_reduce): Likewise.
931 (_gfortran_caf_event_post): Likewise.
932 (_gfortran_caf_event_wait): Likewise.
933 (_gfortran_caf_lock): Likewise.
934 (_gfortran_caf_unlock): Likewise.
936 2018-02-19 Andre Vehreschild <vehre@gcc.gnu.org>
938 * caf/libcaf.h: Add type parameters to the caf_*_by_ref prototypes.
939 * caf/single.c (get_for_ref): Simplifications and now respecting
940 the type argument.
941 (_gfortran_caf_get_by_ref): Added source type handing to get_for_ref().
942 (send_by_ref): Simplifications and respecting the dst_type now.
943 (_gfortran_caf_send_by_ref): Added destination type hand over to
944 send_by_ref().
945 (_gfortran_caf_sendget_by_ref): Added general support and fixed stack
946 corruption. The function is now really usable.
948 2018-02-14 Igor Tsimbalist <igor.v.tsimbalist@intel.com>
950 PR target/84148
951 * configure: Regenerate.
953 2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
955 PR libgfortran/84412
956 * io/transfer.c (finalize_transfer): After completng an internal unit
957 I/O operation, clear internal_unit_kind.
959 2018-02-12 Thomas Koenig <tkoenig@gcc.gnu.org>
961 * libgfortran.h (GFC_ARRAY_DESCRIPTOR): Remove dimension
962 of descriptor to use vaiable members for dim.
963 Change usage of GFC_ARRAY_DESCRIPTOR accordingly.
964 (GFC_FILL_ARRAY_DESCRIPTOR): New macro.
965 (gfc_full_array_i4): New type.
966 * intrinsics/date_and_time.c (secnds): Use sizeof
967 (gfc_array_i4) + sizeof (descriptor_dimension) for memory
968 allocation.
969 * intrinsics/reshape_generic.c: Use GFC_FULL_ARRAY_DESCRIPTOR.
970 * io/format.c: Use sizeof (gfc_array_i4) + sizeof
971 (descriptor_dimension) for memoy allocation.
972 * io/list_read.c (list_formatted_read_scalar): Use
973 gfc_full_array_i4 for variable.
974 (nml_read_obj): Likewise.
975 * io/write.c (list_formatted_write_scalar): Likewise.
976 (nml_write_obj): Likewise.
977 * m4/reshape.m4: Use GFC_FULL_ARRAY_DESCRIPTOR.
978 * generated/reshape_c10.c: Regenerated.
979 * generated/reshape_c16.c: Regenerated.
980 * generated/reshape_c4.c: Regenerated.
981 * generated/reshape_c8.c: Regenerated.
982 * generated/reshape_i16.c: Regenerated.
983 * generated/reshape_i4.c: Regenerated.
984 * generated/reshape_i8.c: Regenerated.
985 * generated/reshape_r10.c: Regenerated.
986 * generated/reshape_r16.c: Regenerated.
987 * generated/reshape_r4.c: Regenerated.
988 * generated/reshape_r8.c: Regenerated.
990 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
992 * generated/cshift1_16.c (cshift1): Regenerated.
993 * generated/cshift1_4.c (cshift1): Regenerated.
994 * generated/cshift1_8.c (cshift1): Regenerated.
995 * generated/eoshift1_16.c (eoshift1): Regenerated.
996 * generated/eoshift1_4.c (eoshift1): Regenerated.
997 * generated/eoshift1_8.c (eoshift1): Regenerated.
998 * generated/eoshift3_16.c (eoshift3): Regenerated.
999 * generated/eoshift3_4.c (eoshift3): Regenerated.
1000 * generated/eoshift3_8.c (eoshift3): Regenerated.
1001 * generated/in_pack_c10.c (internal_pack_c10): Regenerated.
1002 * generated/in_pack_c16.c (internal_pack_c16): Regenerated.
1003 * generated/in_pack_c4.c (internal_pack_c4): Regenerated.
1004 * generated/in_pack_c8.c (internal_pack_c8): Regenerated.
1005 * generated/in_pack_i1.c (internal_pack_1): Regenerated.
1006 * generated/in_pack_i16.c (internal_pack_16): Regenerated.
1007 * generated/in_pack_i2.c (internal_pack_2): Regenerated.
1008 * generated/in_pack_i4.c (internal_pack_4): Regenerated.
1009 * generated/in_pack_i8.c (internal_pack_8): Regenerated.
1010 * generated/in_pack_r10.c (internal_pack_r10): Regenerated.
1011 * generated/in_pack_r16.c (internal_pack_r16): Regenerated.
1012 * generated/in_pack_r4.c (internal_pack_r4): Regenerated.
1013 * generated/in_pack_r8.c (internal_pack_r8): Regenerated.
1014 * generated/in_unpack_c10.c (internal_unpack_c10): Regenerated.
1015 * generated/in_unpack_c16.c (internal_unpack_c16): Regenerated.
1016 * generated/in_unpack_c4.c (internal_unpack_c4): Regenerated.
1017 * generated/in_unpack_c8.c (internal_unpack_c8): Regenerated.
1018 * generated/in_unpack_i1.c (internal_unpack_1): Regenerated.
1019 * generated/in_unpack_i16.c (internal_unpack_16): Regenerated.
1020 * generated/in_unpack_i2.c (internal_unpack_2): Regenerated.
1021 * generated/in_unpack_i4.c (internal_unpack_4): Regenerated.
1022 * generated/in_unpack_i8.c (internal_unpack_8): Regenerated.
1023 * generated/in_unpack_r10.c (internal_unpack_r10): Regenerated.
1024 * generated/in_unpack_r16.c (internal_unpack_r16): Regenerated.
1025 * generated/in_unpack_r4.c (internal_unpack_r4): Regenerated.
1026 * generated/in_unpack_r8.c (internal_unpack_r8): Regenerated.
1027 * generated/reshape_c10.c (reshape_c10): Regenerated.
1028 * generated/reshape_c16.c (reshape_c16): Regenerated.
1029 * generated/reshape_c4.c (reshape_c4): Regenerated.
1030 * generated/reshape_c8.c (reshape_c8): Regenerated.
1031 * generated/reshape_i16.c (reshape_16): Regenerated.
1032 * generated/reshape_i4.c (reshape_4): Regenerated.
1033 * generated/reshape_i8.c (reshape_8): Regenerated.
1034 * generated/reshape_r10.c (reshape_r10): Regenerated.
1035 * generated/reshape_r16.c (reshape_r16): Regenerated.
1036 * generated/reshape_r4.c (reshape_r4): Regenerated.
1037 * generated/reshape_r8.c (reshape_r8): Regenerated.
1038 * generated/shape_i1.c (shape_1): Regenerated.
1039 * generated/shape_i16.c (shape_16): Regenerated.
1040 * generated/shape_i2.c (shape_2): Regenerated.
1041 * generated/shape_i4.c (shape_4): Regenerated.
1042 * generated/shape_i8.c (shape_8): Regenerated.
1043 * generated/spread_c10.c (spread_scalar_c10): Regenerated.
1044 * generated/spread_c16.c (spread_scalar_c16): Regenerated.
1045 * generated/spread_c4.c (spread_scalar_c4): Regenerated.
1046 * generated/spread_c8.c (spread_scalar_c8): Regenerated.
1047 * generated/spread_i1.c (spread_scalar_i1): Regenerated.
1048 * generated/spread_i16.c (spread_scalar_i16): Regenerated.
1049 * generated/spread_i2.c (spread_scalar_i2): Regenerated.
1050 * generated/spread_i4.c (spread_scalar_i4): Regenerated.
1051 * generated/spread_i8.c (spread_scalar_i8): Regenerated.
1052 * generated/spread_r10.c (spread_scalar_r10): Regenerated.
1053 * generated/spread_r16.c (spread_scalar_r16): Regenerated.
1054 * generated/spread_r4.c (spread_scalar_r4): Regenerated.
1055 * generated/spread_r8.c (spread_scalar_r8): Regenerated.
1056 * intrinsics/random.c (jump): Use size_t for array index in loop.
1057 (getosrandom): Likewise.
1058 (arandom_r4): Make n an index_type.
1059 (arandom_r8): Likewise.
1060 (arandom_r10): Likewise.
1061 (arandom_r16): Likewise.
1062 (scramble_seed): Use size_t for array index in loop.
1063 * m4/cshift1.m4: Make i an index_type.
1064 * m4/eoshift1.m4: Likewise.
1065 * m4/eoshift3.m4: Likewise.
1066 * m4/in_pack.m4: Make n an index_type.
1067 * m4/in_unpack.m4: Likewise.
1068 * m4/reshape.m4: Make n and dim index_type's.
1069 * m4/shape.m4: Make n an index_type.
1070 * m4/spread.m4: Likewise, use index_type argument rather than
1071 copying to int.
1072 * runtime/bounds.c (bounds_ifunction_return): Make n an
1073 index_type.
1074 * runtime/in_pack_generic.c (internal_pack): Likewise.
1075 * runtime/in_unpack_generic.c (internal_unpack): Make n and size
1076 index_type's.
1078 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1080 PR fortran/37577
1081 * libgfortran.h: Remove GFC_DTYPE_DERIVED_1, GFC_DTYPE_DERIVED_2,
1082 GFC_DTYPE_DERIVED_4, GFC_DTYPE_DERIVED_8 and GFC_DTYPE_DERIVED_16.
1083 * m4/cshift1.m4: Remove GFC_DTYPE_DERIVED_1.
1084 * generated/cshift1_16.c: Regenerated.
1085 * generated/cshift1_4.c: Regenerated.
1086 * generated/cshift1_8.c: Regenerated.
1087 * intrinsics/cshift0.c: Remove GFC_DTYPE_DERIVED_1.
1088 * intrinsics/pack_generic.c (pack): Move handling of other types
1089 into separate switch statement.
1090 * intrinsics/spread_generic.c (spread): Likewise.
1091 (spread_scalar): Likewise.
1092 * intrinsics/unpack_generic.c (unpack1): Likewise.
1093 (unpack0): Likewise.
1094 * runtime/in_pack_generic.c (internal_pack): Likewise.
1095 * runtime/in_unpack_generic.c (internal_unpack): Likewise.
1097 2018-01-25 Paul Thomas <pault@gcc.gnu.org>
1099 PR fortran/37577
1100 * caf/single.c (_gfortran_caf_failed_images): Access the 'type'
1101 and 'elem_len' fields of the dtype instead of the shifts.
1102 (_gfortran_caf_stopped_images): Likewise.
1103 * intrinsics/associated.c (associated): Compare the 'type' and
1104 'elem_len' fields instead of the dtype.
1105 * caf/date_and_time.c : Access the dtype fields rather using
1106 shifts and masks.
1107 * io/transfer.c (transfer_array ): Comment on item count.
1108 (set_nml_var,st_set_nml_var): Change dtype type and use fields.
1109 (st_set_nml_dtio_var): Likewise.
1110 * libgfortran.h : Change definition of GFC_ARRAY_DESCRIPTOR and
1111 add a typedef for the dtype_type. Change the GFC_DTYPE_* macros
1112 to access the dtype fields.
1114 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
1116 PR fortran/54613
1117 * m4/iparm.m4: Add back_arg macro if in minloc or maxloc.
1118 * m4/iforeach-s.m4: Add optional argument back with back_arg
1119 macro. Improve m4 quoting. If HAVE_BACK_ARG is defined, assert
1120 that back is non-true.
1121 * m4/iforeach.m4: Likewise.
1122 * m4/ifunction-s.m4: Likewise.
1123 * m4/ifunction.m4: Likewise.
1124 * m4/maxloc0.m4: Include assert.h
1125 * m4/minloc0.m4: Likewise.
1126 * m4/maxloc0s.m4: #define HAVE_BACK_ARG.
1127 * m4/minloc0s.m4: Likewise.
1128 * m4/maxloc1s.m4: Likewise.
1129 * m4/minloc1s.m4: Likewise.
1130 * m4/maxloc1.m4: Include assert.h, #define HAVE_BACK_ARG.
1131 * m4/minloc1.m4: Likewise.
1132 * m4/maxloc2s.m4: Add assert.h, add back_arg, assert that
1133 back is non-true.
1134 * m4/minloc2s.m4: Likewise.
1135 * generated/iall_i1.c: Regenerated.
1136 * generated/iall_i16.c: Regenerated.
1137 * generated/iall_i2.c: Regenerated.
1138 * generated/iall_i4.c: Regenerated.
1139 * generated/iall_i8.c: Regenerated.
1140 * generated/iany_i1.c: Regenerated.
1141 * generated/iany_i16.c: Regenerated.
1142 * generated/iany_i2.c: Regenerated.
1143 * generated/iany_i4.c: Regenerated.
1144 * generated/iany_i8.c: Regenerated.
1145 * generated/iparity_i1.c: Regenerated.
1146 * generated/iparity_i16.c: Regenerated.
1147 * generated/iparity_i2.c: Regenerated.
1148 * generated/iparity_i4.c: Regenerated.
1149 * generated/iparity_i8.c: Regenerated.
1150 * generated/maxloc0_16_i1.c: Regenerated.
1151 * generated/maxloc0_16_i16.c: Regenerated.
1152 * generated/maxloc0_16_i2.c: Regenerated.
1153 * generated/maxloc0_16_i4.c: Regenerated.
1154 * generated/maxloc0_16_i8.c: Regenerated.
1155 * generated/maxloc0_16_r10.c: Regenerated.
1156 * generated/maxloc0_16_r16.c: Regenerated.
1157 * generated/maxloc0_16_r4.c: Regenerated.
1158 * generated/maxloc0_16_r8.c: Regenerated.
1159 * generated/maxloc0_16_s1.c: Regenerated.
1160 * generated/maxloc0_16_s4.c: Regenerated.
1161 * generated/maxloc0_4_i1.c: Regenerated.
1162 * generated/maxloc0_4_i16.c: Regenerated.
1163 * generated/maxloc0_4_i2.c: Regenerated.
1164 * generated/maxloc0_4_i4.c: Regenerated.
1165 * generated/maxloc0_4_i8.c: Regenerated.
1166 * generated/maxloc0_4_r10.c: Regenerated.
1167 * generated/maxloc0_4_r16.c: Regenerated.
1168 * generated/maxloc0_4_r4.c: Regenerated.
1169 * generated/maxloc0_4_r8.c: Regenerated.
1170 * generated/maxloc0_4_s1.c: Regenerated.
1171 * generated/maxloc0_4_s4.c: Regenerated.
1172 * generated/maxloc0_8_i1.c: Regenerated.
1173 * generated/maxloc0_8_i16.c: Regenerated.
1174 * generated/maxloc0_8_i2.c: Regenerated.
1175 * generated/maxloc0_8_i4.c: Regenerated.
1176 * generated/maxloc0_8_i8.c: Regenerated.
1177 * generated/maxloc0_8_r10.c: Regenerated.
1178 * generated/maxloc0_8_r16.c: Regenerated.
1179 * generated/maxloc0_8_r4.c: Regenerated.
1180 * generated/maxloc0_8_r8.c: Regenerated.
1181 * generated/maxloc0_8_s1.c: Regenerated.
1182 * generated/maxloc0_8_s4.c: Regenerated.
1183 * generated/maxloc1_16_i1.c: Regenerated.
1184 * generated/maxloc1_16_i16.c: Regenerated.
1185 * generated/maxloc1_16_i2.c: Regenerated.
1186 * generated/maxloc1_16_i4.c: Regenerated.
1187 * generated/maxloc1_16_i8.c: Regenerated.
1188 * generated/maxloc1_16_r10.c: Regenerated.
1189 * generated/maxloc1_16_r16.c: Regenerated.
1190 * generated/maxloc1_16_r4.c: Regenerated.
1191 * generated/maxloc1_16_r8.c: Regenerated.
1192 * generated/maxloc1_16_s1.c: Regenerated.
1193 * generated/maxloc1_16_s4.c: Regenerated.
1194 * generated/maxloc1_4_i1.c: Regenerated.
1195 * generated/maxloc1_4_i16.c: Regenerated.
1196 * generated/maxloc1_4_i2.c: Regenerated.
1197 * generated/maxloc1_4_i4.c: Regenerated.
1198 * generated/maxloc1_4_i8.c: Regenerated.
1199 * generated/maxloc1_4_r10.c: Regenerated.
1200 * generated/maxloc1_4_r16.c: Regenerated.
1201 * generated/maxloc1_4_r4.c: Regenerated.
1202 * generated/maxloc1_4_r8.c: Regenerated.
1203 * generated/maxloc1_4_s1.c: Regenerated.
1204 * generated/maxloc1_4_s4.c: Regenerated.
1205 * generated/maxloc1_8_i1.c: Regenerated.
1206 * generated/maxloc1_8_i16.c: Regenerated.
1207 * generated/maxloc1_8_i2.c: Regenerated.
1208 * generated/maxloc1_8_i4.c: Regenerated.
1209 * generated/maxloc1_8_i8.c: Regenerated.
1210 * generated/maxloc1_8_r10.c: Regenerated.
1211 * generated/maxloc1_8_r16.c: Regenerated.
1212 * generated/maxloc1_8_r4.c: Regenerated.
1213 * generated/maxloc1_8_r8.c: Regenerated.
1214 * generated/maxloc1_8_s1.c: Regenerated.
1215 * generated/maxloc1_8_s4.c: Regenerated.
1216 * generated/maxval_i1.c: Regenerated.
1217 * generated/maxval_i16.c: Regenerated.
1218 * generated/maxval_i2.c: Regenerated.
1219 * generated/maxval_i4.c: Regenerated.
1220 * generated/maxval_i8.c: Regenerated.
1221 * generated/maxval_r10.c: Regenerated.
1222 * generated/maxval_r16.c: Regenerated.
1223 * generated/maxval_r4.c: Regenerated.
1224 * generated/maxval_r8.c: Regenerated.
1225 * generated/minloc0_16_i1.c: Regenerated.
1226 * generated/minloc0_16_i16.c: Regenerated.
1227 * generated/minloc0_16_i2.c: Regenerated.
1228 * generated/minloc0_16_i4.c: Regenerated.
1229 * generated/minloc0_16_i8.c: Regenerated.
1230 * generated/minloc0_16_r10.c: Regenerated.
1231 * generated/minloc0_16_r16.c: Regenerated.
1232 * generated/minloc0_16_r4.c: Regenerated.
1233 * generated/minloc0_16_r8.c: Regenerated.
1234 * generated/minloc0_16_s1.c: Regenerated.
1235 * generated/minloc0_16_s4.c: Regenerated.
1236 * generated/minloc0_4_i1.c: Regenerated.
1237 * generated/minloc0_4_i16.c: Regenerated.
1238 * generated/minloc0_4_i2.c: Regenerated.
1239 * generated/minloc0_4_i4.c: Regenerated.
1240 * generated/minloc0_4_i8.c: Regenerated.
1241 * generated/minloc0_4_r10.c: Regenerated.
1242 * generated/minloc0_4_r16.c: Regenerated.
1243 * generated/minloc0_4_r4.c: Regenerated.
1244 * generated/minloc0_4_r8.c: Regenerated.
1245 * generated/minloc0_4_s1.c: Regenerated.
1246 * generated/minloc0_4_s4.c: Regenerated.
1247 * generated/minloc0_8_i1.c: Regenerated.
1248 * generated/minloc0_8_i16.c: Regenerated.
1249 * generated/minloc0_8_i2.c: Regenerated.
1250 * generated/minloc0_8_i4.c: Regenerated.
1251 * generated/minloc0_8_i8.c: Regenerated.
1252 * generated/minloc0_8_r10.c: Regenerated.
1253 * generated/minloc0_8_r16.c: Regenerated.
1254 * generated/minloc0_8_r4.c: Regenerated.
1255 * generated/minloc0_8_r8.c: Regenerated.
1256 * generated/minloc0_8_s1.c: Regenerated.
1257 * generated/minloc0_8_s4.c: Regenerated.
1258 * generated/minloc1_16_i1.c: Regenerated.
1259 * generated/minloc1_16_i16.c: Regenerated.
1260 * generated/minloc1_16_i2.c: Regenerated.
1261 * generated/minloc1_16_i4.c: Regenerated.
1262 * generated/minloc1_16_i8.c: Regenerated.
1263 * generated/minloc1_16_r10.c: Regenerated.
1264 * generated/minloc1_16_r16.c: Regenerated.
1265 * generated/minloc1_16_r4.c: Regenerated.
1266 * generated/minloc1_16_r8.c: Regenerated.
1267 * generated/minloc1_16_s1.c: Regenerated.
1268 * generated/minloc1_16_s4.c: Regenerated.
1269 * generated/minloc1_4_i1.c: Regenerated.
1270 * generated/minloc1_4_i16.c: Regenerated.
1271 * generated/minloc1_4_i2.c: Regenerated.
1272 * generated/minloc1_4_i4.c: Regenerated.
1273 * generated/minloc1_4_i8.c: Regenerated.
1274 * generated/minloc1_4_r10.c: Regenerated.
1275 * generated/minloc1_4_r16.c: Regenerated.
1276 * generated/minloc1_4_r4.c: Regenerated.
1277 * generated/minloc1_4_r8.c: Regenerated.
1278 * generated/minloc1_4_s1.c: Regenerated.
1279 * generated/minloc1_4_s4.c: Regenerated.
1280 * generated/minloc1_8_i1.c: Regenerated.
1281 * generated/minloc1_8_i16.c: Regenerated.
1282 * generated/minloc1_8_i2.c: Regenerated.
1283 * generated/minloc1_8_i4.c: Regenerated.
1284 * generated/minloc1_8_i8.c: Regenerated.
1285 * generated/minloc1_8_r10.c: Regenerated.
1286 * generated/minloc1_8_r16.c: Regenerated.
1287 * generated/minloc1_8_r4.c: Regenerated.
1288 * generated/minloc1_8_r8.c: Regenerated.
1289 * generated/minloc1_8_s1.c: Regenerated.
1290 * generated/minloc1_8_s4.c: Regenerated.
1291 * generated/minval_i1.c: Regenerated.
1292 * generated/minval_i16.c: Regenerated.
1293 * generated/minval_i2.c: Regenerated.
1294 * generated/minval_i4.c: Regenerated.
1295 * generated/minval_i8.c: Regenerated.
1296 * generated/minval_r10.c: Regenerated.
1297 * generated/minval_r16.c: Regenerated.
1298 * generated/minval_r4.c: Regenerated.
1299 * generated/minval_r8.c: Regenerated.
1300 * generated/norm2_r10.c: Regenerated.
1301 * generated/norm2_r16.c: Regenerated.
1302 * generated/norm2_r4.c: Regenerated.
1303 * generated/norm2_r8.c: Regenerated.
1304 * generated/parity_l1.c: Regenerated.
1305 * generated/parity_l16.c: Regenerated.
1306 * generated/parity_l2.c: Regenerated.
1307 * generated/parity_l4.c: Regenerated.
1308 * generated/parity_l8.c: Regenerated.
1309 * generated/product_c10.c: Regenerated.
1310 * generated/product_c16.c: Regenerated.
1311 * generated/product_c4.c: Regenerated.
1312 * generated/product_c8.c: Regenerated.
1313 * generated/product_i1.c: Regenerated.
1314 * generated/product_i16.c: Regenerated.
1315 * generated/product_i2.c: Regenerated.
1316 * generated/product_i4.c: Regenerated.
1317 * generated/product_i8.c: Regenerated.
1318 * generated/product_r10.c: Regenerated.
1319 * generated/product_r16.c: Regenerated.
1320 * generated/product_r4.c: Regenerated.
1321 * generated/product_r8.c: Regenerated.
1322 * generated/sum_c10.c: Regenerated.
1323 * generated/sum_c16.c: Regenerated.
1324 * generated/sum_c4.c: Regenerated.
1325 * generated/sum_c8.c: Regenerated.
1326 * generated/sum_i1.c: Regenerated.
1327 * generated/sum_i16.c: Regenerated.
1328 * generated/sum_i2.c: Regenerated.
1329 * generated/sum_i4.c: Regenerated.
1330 * generated/sum_i8.c: Regenerated.
1331 * generated/sum_r10.c: Regenerated.
1332 * generated/sum_r16.c: Regenerated.
1333 * generated/sum_r4.c: Regenerated.
1334 * generated/sum_r8.c: Regenerated.
1336 2018-01-14 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1338 PR libgfortran/83811
1339 * write.c (select_buffer): Adjust buffer size up by 1.
1341 2018-01-08 Janne Blomqvist <jb@gcc.gnu.org>
1343 PR 78534, bugfix for r256322
1344 * io/transfer.c (next_record_w): Use correct type for return value
1345 of next_array_record.
1347 2018-01-07 Thomas Koenig <tkoenig@gcc.gnu.org>
1349 * libgfortran.h (GFC_DTYPE_COPY): New macro.
1350 (GFC_DTYPE_COPY_SETRANK): New macro.
1351 (GFC_DTYPE_IS_UNSET): New macro.
1352 * intrinsics/cshift0.c (cshift0): Use new macros.
1353 * intrinsics/eoshift0.c (eoshift0): Likewise.
1354 * intrinsics/eoshift2.c (eoshift2): Likewise.
1355 * intrinsics/move_alloc.c (move_alloc): Likewise.
1356 * intrinsics/reshape_generic.c (reshape_internal): Likewise.
1357 * intrinsics/spread_generic.c (spread_internal): Likewise.
1358 * intrinsics/spread_generic.c (spread_scalar): Likewise.
1359 * intrinsics/spread_generic.c (spread_char_scalar): Likewise.
1360 * intrinsics/spread_generic.c (spread_char4_scalar): Likewise.
1361 * intrinsics/unpack_generic.c (unpack0): Likewise.
1362 * intrinsics/unpack_generic.c (unpack0_char): Likewise.
1363 * intrinsics/unpack_generic.c (unpack0_char4): Likewise.
1364 * m4/cshift1.m4 (cshift1): Likewise.
1365 * m4/eoshift1.m4 (eoshift1): Likewise.
1366 * m4/eoshift3.m4 (eoshift3): Likewise.
1367 * m4/iforeach-s.m4: Likewise.
1368 * m4/iforeach.m4: Likewise.
1369 * m4/ifunction-s.m4: Likewise.
1370 * m4/ifunction-s2.m4: Likewise.
1371 * m4/ifunction.m4: Likewise.
1372 * m4/ifunction_logical.m4: Likewise.
1373 * m4/reshape.m4: Likewise.
1374 * m4/spread.m4: Likewise.
1375 * generated/all_l1.c : Regenerated.
1376 * generated/all_l16.c : Regenerated.
1377 * generated/all_l2.c : Regenerated.
1378 * generated/all_l4.c : Regenerated.
1379 * generated/all_l8.c : Regenerated.
1380 * generated/any_l1.c : Regenerated.
1381 * generated/any_l16.c : Regenerated.
1382 * generated/any_l2.c : Regenerated.
1383 * generated/any_l4.c : Regenerated.
1384 * generated/any_l8.c : Regenerated.
1385 * generated/count_16_l.c : Regenerated.
1386 * generated/count_1_l.c : Regenerated.
1387 * generated/count_2_l.c : Regenerated.
1388 * generated/count_4_l.c : Regenerated.
1389 * generated/count_8_l.c : Regenerated.
1390 * generated/cshift1_16.c : Regenerated.
1391 * generated/cshift1_4.c : Regenerated.
1392 * generated/cshift1_8.c : Regenerated.
1393 * generated/eoshift1_16.c : Regenerated.
1394 * generated/eoshift1_4.c : Regenerated.
1395 * generated/eoshift1_8.c : Regenerated.
1396 * generated/eoshift3_16.c : Regenerated.
1397 * generated/eoshift3_4.c : Regenerated.
1398 * generated/eoshift3_8.c : Regenerated.
1399 * generated/iall_i1.c : Regenerated.
1400 * generated/iall_i16.c : Regenerated.
1401 * generated/iall_i2.c : Regenerated.
1402 * generated/iall_i4.c : Regenerated.
1403 * generated/iall_i8.c : Regenerated.
1404 * generated/iany_i1.c : Regenerated.
1405 * generated/iany_i16.c : Regenerated.
1406 * generated/iany_i2.c : Regenerated.
1407 * generated/iany_i4.c : Regenerated.
1408 * generated/iany_i8.c : Regenerated.
1409 * generated/iparity_i1.c : Regenerated.
1410 * generated/iparity_i16.c : Regenerated.
1411 * generated/iparity_i2.c : Regenerated.
1412 * generated/iparity_i4.c : Regenerated.
1413 * generated/iparity_i8.c : Regenerated.
1414 * generated/maxloc0_16_i1.c : Regenerated.
1415 * generated/maxloc0_16_i16.c : Regenerated.
1416 * generated/maxloc0_16_i2.c : Regenerated.
1417 * generated/maxloc0_16_i4.c : Regenerated.
1418 * generated/maxloc0_16_i8.c : Regenerated.
1419 * generated/maxloc0_16_r10.c : Regenerated.
1420 * generated/maxloc0_16_r16.c : Regenerated.
1421 * generated/maxloc0_16_r4.c : Regenerated.
1422 * generated/maxloc0_16_r8.c : Regenerated.
1423 * generated/maxloc0_16_s1.c : Regenerated.
1424 * generated/maxloc0_16_s4.c : Regenerated.
1425 * generated/maxloc0_4_i1.c : Regenerated.
1426 * generated/maxloc0_4_i16.c : Regenerated.
1427 * generated/maxloc0_4_i2.c : Regenerated.
1428 * generated/maxloc0_4_i4.c : Regenerated.
1429 * generated/maxloc0_4_i8.c : Regenerated.
1430 * generated/maxloc0_4_r10.c : Regenerated.
1431 * generated/maxloc0_4_r16.c : Regenerated.
1432 * generated/maxloc0_4_r4.c : Regenerated.
1433 * generated/maxloc0_4_r8.c : Regenerated.
1434 * generated/maxloc0_4_s1.c : Regenerated.
1435 * generated/maxloc0_4_s4.c : Regenerated.
1436 * generated/maxloc0_8_i1.c : Regenerated.
1437 * generated/maxloc0_8_i16.c : Regenerated.
1438 * generated/maxloc0_8_i2.c : Regenerated.
1439 * generated/maxloc0_8_i4.c : Regenerated.
1440 * generated/maxloc0_8_i8.c : Regenerated.
1441 * generated/maxloc0_8_r10.c : Regenerated.
1442 * generated/maxloc0_8_r16.c : Regenerated.
1443 * generated/maxloc0_8_r4.c : Regenerated.
1444 * generated/maxloc0_8_r8.c : Regenerated.
1445 * generated/maxloc0_8_s1.c : Regenerated.
1446 * generated/maxloc0_8_s4.c : Regenerated.
1447 * generated/maxloc1_16_i1.c : Regenerated.
1448 * generated/maxloc1_16_i16.c : Regenerated.
1449 * generated/maxloc1_16_i2.c : Regenerated.
1450 * generated/maxloc1_16_i4.c : Regenerated.
1451 * generated/maxloc1_16_i8.c : Regenerated.
1452 * generated/maxloc1_16_r10.c : Regenerated.
1453 * generated/maxloc1_16_r16.c : Regenerated.
1454 * generated/maxloc1_16_r4.c : Regenerated.
1455 * generated/maxloc1_16_r8.c : Regenerated.
1456 * generated/maxloc1_16_s1.c : Regenerated.
1457 * generated/maxloc1_16_s4.c : Regenerated.
1458 * generated/maxloc1_4_i1.c : Regenerated.
1459 * generated/maxloc1_4_i16.c : Regenerated.
1460 * generated/maxloc1_4_i2.c : Regenerated.
1461 * generated/maxloc1_4_i4.c : Regenerated.
1462 * generated/maxloc1_4_i8.c : Regenerated.
1463 * generated/maxloc1_4_r10.c : Regenerated.
1464 * generated/maxloc1_4_r16.c : Regenerated.
1465 * generated/maxloc1_4_r4.c : Regenerated.
1466 * generated/maxloc1_4_r8.c : Regenerated.
1467 * generated/maxloc1_4_s1.c : Regenerated.
1468 * generated/maxloc1_4_s4.c : Regenerated.
1469 * generated/maxloc1_8_i1.c : Regenerated.
1470 * generated/maxloc1_8_i16.c : Regenerated.
1471 * generated/maxloc1_8_i2.c : Regenerated.
1472 * generated/maxloc1_8_i4.c : Regenerated.
1473 * generated/maxloc1_8_i8.c : Regenerated.
1474 * generated/maxloc1_8_r10.c : Regenerated.
1475 * generated/maxloc1_8_r16.c : Regenerated.
1476 * generated/maxloc1_8_r4.c : Regenerated.
1477 * generated/maxloc1_8_r8.c : Regenerated.
1478 * generated/maxloc1_8_s1.c : Regenerated.
1479 * generated/maxloc1_8_s4.c : Regenerated.
1480 * generated/maxval1_s1.c : Regenerated.
1481 * generated/maxval1_s4.c : Regenerated.
1482 * generated/maxval_i1.c : Regenerated.
1483 * generated/maxval_i16.c : Regenerated.
1484 * generated/maxval_i2.c : Regenerated.
1485 * generated/maxval_i4.c : Regenerated.
1486 * generated/maxval_i8.c : Regenerated.
1487 * generated/maxval_r10.c : Regenerated.
1488 * generated/maxval_r16.c : Regenerated.
1489 * generated/maxval_r4.c : Regenerated.
1490 * generated/maxval_r8.c : Regenerated.
1491 * generated/minloc0_16_i1.c : Regenerated.
1492 * generated/minloc0_16_i16.c : Regenerated.
1493 * generated/minloc0_16_i2.c : Regenerated.
1494 * generated/minloc0_16_i4.c : Regenerated.
1495 * generated/minloc0_16_i8.c : Regenerated.
1496 * generated/minloc0_16_r10.c : Regenerated.
1497 * generated/minloc0_16_r16.c : Regenerated.
1498 * generated/minloc0_16_r4.c : Regenerated.
1499 * generated/minloc0_16_r8.c : Regenerated.
1500 * generated/minloc0_16_s1.c : Regenerated.
1501 * generated/minloc0_16_s4.c : Regenerated.
1502 * generated/minloc0_4_i1.c : Regenerated.
1503 * generated/minloc0_4_i16.c : Regenerated.
1504 * generated/minloc0_4_i2.c : Regenerated.
1505 * generated/minloc0_4_i4.c : Regenerated.
1506 * generated/minloc0_4_i8.c : Regenerated.
1507 * generated/minloc0_4_r10.c : Regenerated.
1508 * generated/minloc0_4_r16.c : Regenerated.
1509 * generated/minloc0_4_r4.c : Regenerated.
1510 * generated/minloc0_4_r8.c : Regenerated.
1511 * generated/minloc0_4_s1.c : Regenerated.
1512 * generated/minloc0_4_s4.c : Regenerated.
1513 * generated/minloc0_8_i1.c : Regenerated.
1514 * generated/minloc0_8_i16.c : Regenerated.
1515 * generated/minloc0_8_i2.c : Regenerated.
1516 * generated/minloc0_8_i4.c : Regenerated.
1517 * generated/minloc0_8_i8.c : Regenerated.
1518 * generated/minloc0_8_r10.c : Regenerated.
1519 * generated/minloc0_8_r16.c : Regenerated.
1520 * generated/minloc0_8_r4.c : Regenerated.
1521 * generated/minloc0_8_r8.c : Regenerated.
1522 * generated/minloc0_8_s1.c : Regenerated.
1523 * generated/minloc0_8_s4.c : Regenerated.
1524 * generated/minloc1_16_i1.c : Regenerated.
1525 * generated/minloc1_16_i16.c : Regenerated.
1526 * generated/minloc1_16_i2.c : Regenerated.
1527 * generated/minloc1_16_i4.c : Regenerated.
1528 * generated/minloc1_16_i8.c : Regenerated.
1529 * generated/minloc1_16_r10.c : Regenerated.
1530 * generated/minloc1_16_r16.c : Regenerated.
1531 * generated/minloc1_16_r4.c : Regenerated.
1532 * generated/minloc1_16_r8.c : Regenerated.
1533 * generated/minloc1_16_s1.c : Regenerated.
1534 * generated/minloc1_16_s4.c : Regenerated.
1535 * generated/minloc1_4_i1.c : Regenerated.
1536 * generated/minloc1_4_i16.c : Regenerated.
1537 * generated/minloc1_4_i2.c : Regenerated.
1538 * generated/minloc1_4_i4.c : Regenerated.
1539 * generated/minloc1_4_i8.c : Regenerated.
1540 * generated/minloc1_4_r10.c : Regenerated.
1541 * generated/minloc1_4_r16.c : Regenerated.
1542 * generated/minloc1_4_r4.c : Regenerated.
1543 * generated/minloc1_4_r8.c : Regenerated.
1544 * generated/minloc1_4_s1.c : Regenerated.
1545 * generated/minloc1_4_s4.c : Regenerated.
1546 * generated/minloc1_8_i1.c : Regenerated.
1547 * generated/minloc1_8_i16.c : Regenerated.
1548 * generated/minloc1_8_i2.c : Regenerated.
1549 * generated/minloc1_8_i4.c : Regenerated.
1550 * generated/minloc1_8_i8.c : Regenerated.
1551 * generated/minloc1_8_r10.c : Regenerated.
1552 * generated/minloc1_8_r16.c : Regenerated.
1553 * generated/minloc1_8_r4.c : Regenerated.
1554 * generated/minloc1_8_r8.c : Regenerated.
1555 * generated/minloc1_8_s1.c : Regenerated.
1556 * generated/minloc1_8_s4.c : Regenerated.
1557 * generated/minval1_s1.c : Regenerated.
1558 * generated/minval1_s4.c : Regenerated.
1559 * generated/minval_i1.c : Regenerated.
1560 * generated/minval_i16.c : Regenerated.
1561 * generated/minval_i2.c : Regenerated.
1562 * generated/minval_i4.c : Regenerated.
1563 * generated/minval_i8.c : Regenerated.
1564 * generated/minval_r10.c : Regenerated.
1565 * generated/minval_r16.c : Regenerated.
1566 * generated/minval_r4.c : Regenerated.
1567 * generated/minval_r8.c : Regenerated.
1568 * generated/norm2_r10.c : Regenerated.
1569 * generated/norm2_r16.c : Regenerated.
1570 * generated/norm2_r4.c : Regenerated.
1571 * generated/norm2_r8.c : Regenerated.
1572 * generated/parity_l1.c : Regenerated.
1573 * generated/parity_l16.c : Regenerated.
1574 * generated/parity_l2.c : Regenerated.
1575 * generated/parity_l4.c : Regenerated.
1576 * generated/parity_l8.c : Regenerated.
1577 * generated/product_c10.c : Regenerated.
1578 * generated/product_c16.c : Regenerated.
1579 * generated/product_c4.c : Regenerated.
1580 * generated/product_c8.c : Regenerated.
1581 * generated/product_i1.c : Regenerated.
1582 * generated/product_i16.c : Regenerated.
1583 * generated/product_i2.c : Regenerated.
1584 * generated/product_i4.c : Regenerated.
1585 * generated/product_i8.c : Regenerated.
1586 * generated/product_r10.c : Regenerated.
1587 * generated/product_r16.c : Regenerated.
1588 * generated/product_r4.c : Regenerated.
1589 * generated/product_r8.c : Regenerated.
1590 * generated/reshape_c10.c : Regenerated.
1591 * generated/reshape_c16.c : Regenerated.
1592 * generated/reshape_c4.c : Regenerated.
1593 * generated/reshape_c8.c : Regenerated.
1594 * generated/reshape_i16.c : Regenerated.
1595 * generated/reshape_i4.c : Regenerated.
1596 * generated/reshape_i8.c : Regenerated.
1597 * generated/reshape_r10.c : Regenerated.
1598 * generated/reshape_r16.c : Regenerated.
1599 * generated/reshape_r4.c : Regenerated.
1600 * generated/reshape_r8.c : Regenerated.
1601 * generated/spread_c10.c : Regenerated.
1602 * generated/spread_c16.c : Regenerated.
1603 * generated/spread_c4.c : Regenerated.
1604 * generated/spread_c8.c : Regenerated.
1605 * generated/spread_i1.c : Regenerated.
1606 * generated/spread_i16.c : Regenerated.
1607 * generated/spread_i2.c : Regenerated.
1608 * generated/spread_i4.c : Regenerated.
1609 * generated/spread_i8.c : Regenerated.
1610 * generated/spread_r10.c : Regenerated.
1611 * generated/spread_r16.c : Regenerated.
1612 * generated/spread_r4.c : Regenerated.
1613 * generated/spread_r8.c : Regenerated.
1614 * generated/sum_c10.c : Regenerated.
1615 * generated/sum_c16.c : Regenerated.
1616 * generated/sum_c4.c : Regenerated.
1617 * generated/sum_c8.c : Regenerated.
1618 * generated/sum_i1.c : Regenerated.
1619 * generated/sum_i16.c : Regenerated.
1620 * generated/sum_i2.c : Regenerated.
1621 * generated/sum_i4.c : Regenerated.
1622 * generated/sum_i8.c : Regenerated.
1623 * generated/sum_r10.c : Regenerated.
1624 * generated/sum_r16.c : Regenerated.
1625 * generated/sum_r4.c : Regenerated.
1626 * generated/sum_r8.c : Regenerated.
1628 2018-01-07 Janne Blomqvist <jb@gcc.gnu.org>
1630 PR fortran/78534
1631 PR fortran/83704
1632 * io/fbuf.c (fbuf_init): Use size_t instead of int for length.
1633 (fbuf_debug): Convert debug output to unsigned long.
1634 (fbuf_reset): Use ptrdiff_t for return value.
1635 (fbuf_alloc): Use size_t for length argument.
1636 (fbuf_flush): Handle large buffers.
1637 (fbuf_flush_list): Likewise.
1638 (fbuf_seek): Use ptrdiff_t for offset and return value.
1639 (fbuf_read): Use size_t for length argument.
1640 (fbuf_getc_refill): Use size_t to match fbuf_read.
1641 * io/fbuf.h (struct fbuf): Use size_t for lengths.
1642 (fbuf_init): Use size_t instead of int for length.
1643 (fbuf_reset): Use ptrdiff_t for return value.
1644 (fbuf_alloc): Use size_t for length argument.
1645 (fbuf_seek): Use ptrdiff_t for offset and return value.
1646 (fbuf_read): Use size_t for length argument.
1647 * io/io.h (read_block_form): Likewise.
1648 (read_block_form4): Likewise.
1649 (write_block): Likewise.
1650 (read_a): Likewise.
1651 (read_a_char4): Likewise.
1652 (read_x): Likewise.
1653 (write_a): Likewise.
1654 (write_a_char4): Likewise.
1655 * io/list_read.c (list_formatted_read_scalar): Use size_t to
1656 handle large buffers.
1657 * io/read.c (read_l): Likewise.
1658 (read_utf8): Likewise.
1659 (read_utf8_char1): Likewise.
1660 (read_default_char1): Likewise.
1661 (read_utf8_char4): Likewise.
1662 (read_default_char4): Likewise.
1663 (read_a): Likewise.
1664 (read_a_char4): Likewise.
1665 (eat_leading_spaces): Likewise.
1666 (next_char): Likewise.
1667 (read_decimal): Likewise.
1668 (read_radix): Likewise.
1669 (read_f): Likewise.
1670 (read_x): Likewise.
1671 * io/transfer.c (read_sf_internal): Likewise.
1672 (read_sf): Likewise.
1673 (read_block_form): Likewise.
1674 (read_block_form4): Likewise.
1675 (write_block): Likewise.
1676 (formatted_transfer_scalar_write): Likewise.
1677 (next_record_w): Likewise.
1678 * io/unix.c (mem_alloc_r): Likewise.
1679 (mem_alloc_r4): Likewise.
1680 (mem_alloc_w): Likewise.
1681 (mem_alloc_w4): Likewise.
1682 (mem_read): Likewise.
1683 (mem_read4): Likewise.
1684 (mem_write): Likewise.
1685 (mem_write4): Likewise.
1686 (open_internal): Likewise.
1687 (open_internal4): Likewise.
1688 * io/unix.h (open_internal): Likewise.
1689 (open_internal4): Likewise.
1690 (mem_alloc_w): Likewise.
1691 (mem_alloc_r): Likewise.
1692 (mem_alloc_w4): Likewise.
1693 (mem_alloc_r4): Likewise.
1694 * io/write.c (write_check_cc): Likewise.
1695 (write_cc): Likewise.
1696 (write_a): Likewise.
1697 (write_a_char4): Likewise.
1699 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
1701 * io/write.c (namelist_write): Remove unused variable "i".
1703 2018-01-06 Dominique d'Humieres <dominiq@lps.ens.fr>
1704 Janne Blomqvist <jb@gcc.gnu.org>
1706 PR fortran/83704
1707 * io/write.c (write_character): Use size_t instead of int for
1708 length.
1710 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
1712 PR fortran/78534
1713 * intrinsics/args.c (getarg_i4): Use gfc_charlen_type.
1714 (get_command_argument_i4): Likewise.
1715 (get_command_i4): Likewise.
1716 * intrinsics/chmod.c (chmod_internal): Likewise.
1717 * intrinsics/env.c (get_environment_variable_i4): Likewise.
1718 * intrinsics/extends_type_of.c (struct vtype): Use size_t for size
1719 member.
1720 * intrinsics/gerror.c (gerror): Use gfc_charlen_type.
1721 * intrinsics/getlog.c (getlog): Likewise.
1722 * intrinsics/hostnm.c (hostnm_0): Likewise.
1723 * intrinsics/string_intrinsics_inc.c (string_len_trim): Rework to
1724 work if gfc_charlen_type is unsigned.
1725 (string_scan): Likewise.
1726 * io/transfer.c (transfer_character): Modify prototype.
1727 (transfer_character_write): Likewise.
1728 (transfer_character_wide): Likewise.
1729 (transfer_character_wide_write): Likewise.
1730 (transfer_array): Typecast to avoid signed-unsigned comparison.
1731 * io/unit.c (is_trim_ok): Use gfc_charlen_type.
1732 * io/write.c (namelist_write): Likewise.
1733 * libgfortran.h (gfc_charlen_type): Change typedef to size_t.
1735 2018-01-03 Jakub Jelinek <jakub@redhat.com>
1737 Update copyright years.
1739 2018-01-02 Janne Blomqvist <jb@gcc.gnu.org>
1741 PR libgfortran/83649
1742 * io/unix.c (MAX_CHUNK): New define.
1743 (raw_read): For reads larger than MAX_CHUNK, loop.
1744 (raw_write): Write no more than MAX_CHUNK bytes per iteration.
1745 \f
1746 Copyright (C) 2018 Free Software Foundation, Inc.
1748 Copying and distribution of this file, with or without modification,
1749 are permitted in any medium without royalty provided the copyright
1750 notice and this notice are preserved.