re PR middle-end/41453 (use INTENT(out) for optimization)
[gcc.git] / gcc / fortran / ChangeLog
1 2018-09-22 Thomas Koenig <tkoenig@gcc.gnu.org>
2
3 PR fortran/41453
4 * trans.h (gfc_conv_expr_reference): Add optional argument
5 add_clobber to prototype.
6 (gfc_conv_procedure_call): Set add_clobber argument to
7 gfc_conv_procedure_reference to true for scalar, INTENT(OUT),
8 non-pointer, non-allocatable, non-dummy variables whose type
9 is neither BT_CHARACTER, BT_DERIVED or BT_CLASS, but only if
10 the procedure is not elemental.
11 * trans-expr.c (gfc_conv_procedure_reference): Add clobber
12 statement before call if add_clobber is set.
13
14 2018-09-22 Paul Thomas <pault@gcc.gnu.org>
15
16 PR fortran/85603
17 * trans-array.c (gfc_alloc_allocatable_for_assignment): Test
18 the charlen backend_decl before using the VAR_P macro.
19
20 2018-09-21 Paul Thomas <pault@gcc.gnu.org>
21
22 PR fortran/77325
23 * trans-array.c (gfc_alloc_allocatable_for_assignment): If the
24 rhs has a charlen expression, convert that and use it.
25 * trans-expr.c (gfc_trans_assignment_1): The rse.pre for the
26 assignment of deferred character array vars to a realocatable
27 lhs should not be added to the exterior block since vector
28 indices, for example, generate temporaries indexed within the
29 loop.
30
31 2018-09-21 Paul Thomas <pault@gcc.gnu.org>
32
33 PR fortran/87359
34 * trans-stmt.c (gfc_trans_allocate): Don't deallocate alloc
35 components if must_finalize is set for expr3.
36
37 2018-09-21 Andrew Stubbs <ams@codesourcery.com>
38 Kwok Cheung Yeung <kcy@codesourcery.com>
39
40 * trans-expr.c (gfc_trans_structure_assign): Ensure that the first
41 argument of a call to _gfortran_caf_register is of size_type_node.
42 * trans-intrinsic.c (conv_intrinsic_event_query): Convert computed
43 index to a size_type_node type.
44 * trans-stmt.c (gfc_trans_event_post_wait): Likewise.
45
46 2018-09-20 Allan Sandfeld Jensen <allan.jensen@qt.io>
47
48 * gfortranspec.c (lang_specific_driver): Handle -r like -nostdlib.
49
50 2018-09-20 Janus Weil <janus@gcc.gnu.org>
51
52 * gfortran.h (gfc_str_startswith): New macro.
53 * decl.c (variable_decl, gfc_match_end): Use it.
54 * iresolve.c (is_trig_resolved): Ditto.
55 * module.c (load_omp_udrs, read_module): Ditto.
56 * options.c (gfc_handle_runtime_check_option): Ditto.
57 * primary.c (match_arg_list_function): Ditto.
58 * trans-decl.c (gfc_get_symbol_decl): Ditto.
59 * trans-expr.c (gfc_conv_procedure_call): Ditto.
60 * interface.c (dtio_op): Replace strncmp by strcmp.
61 * resolve.c (resolve_actual_arglist, resolve_function): Ditto.
62 * trans-expr.c (conv_arglist_function): Ditto.
63 * trans-intrinsic.c (gfc_conv_ieee_arithmetic_function): Replace macro
64 STARTS_WITH by gfc_str_startswith.
65
66 2018-09-20 Cesar Philippidis <cesar@codesourcery.com>
67
68 * dump-parse-tree.c (show_omp_clauses): Add missing omp list_types
69 and reorder the switch cases to match the enum in gfortran.h.
70
71 2018-09-19 Paul Thomas <pault@gcc.gnu.org>
72
73 PR fortran/84109
74 * trans-expr.c (gfc_trans_assignment_1): The rse.pre for the
75 assignment of deferred character intrinsic elemental function
76 results to a realocatable lhs must not be added to the exterior
77 block if they are array valued but must go to the loop body.
78
79 2018-09-18 Thomas Koenig <tkoenig@gcc.gnu.org>
80
81 PR fortran/29550
82 * gfortran.h (gfc_expr): Add external_blas flag.
83 * frontend-passes.c (matrix_case): Add case A2TB2T.
84 (optimize_namespace): Handle flag_external_blas by
85 calling call_external_blas.
86 (get_array_inq_function): Add argument okind. If
87 it is nonzero, use it as the kind of argument
88 to be used.
89 (inline_limit_check): Remove m_case argument, add
90 limit argument instead. Remove assert about m_case.
91 Set the limit for inlining from the limit argument.
92 (matmul_lhs_realloc): Handle case A2TB2T.
93 (inline_matmul_assign): Handle inline limit for other cases with
94 two rank-two matrices. Remove no-op calls to inline_limit_check.
95 (call_external_blas): New function.
96 * trans-intrinsic.c (gfc_conv_intrinsic_funcall): Do not add
97 argument to external BLAS if external_blas is already set.
98
99 2018-09-18 Paul Thomas <pault@gcc.gnu.org>
100
101 PR fortran/87239
102 * trans-expr.c (gfc_trans_assignment_1): The rse.pre for the
103 assignment of deferred character elemental function results to
104 a realocatable lhs must not be added to the exterior block but
105 must go to the loop body.
106
107 2018-09-18 Paul Thomas <pault@gcc.gnu.org>
108
109 PR fortran/87336
110 * trans-array.c (gfc_get_array_span): Try to get the element
111 length of incomplete types. Return NULL_TREE otherwise.
112 (gfc_conv_expr_descriptor): Only set the 'span' field if the
113 above does not return NULL_TREE. Set 'span' field if possible
114 for all new descriptors.
115
116 2018-09-17 Paul Thomas <pault@gcc.gnu.org>
117
118 PR fortran/64120
119 * trans-decl.c (gfc_get_symbol_decl): Flag allocatable, scalar
120 characters with a variable length expression for deferred init.
121 (gfc_trans_deferred_vars): Perform the assignment for these
122 symbols by calling gfc_conv_string_length.
123
124 2018-09-17 Paul Thomas <pault@gcc.gnu.org>
125
126 PR fortran/85954
127 * resolve.c (resolve_assoc_var): If the target expression is a
128 deferred charlen dummy and the associate name shares the
129 charlen, generate a new one. Make sure that new charlens are in
130 the namespace list so that they get cleaned up.
131 * trans-array.c (gfc_is_reallocatable_lhs): Associate names are
132 not reallocatable.
133 * trans-decl.c (gfc_get_symbol_decl): Put deferred character
134 length dummy and result arrays on the deferred initialization
135 list so that the variable length arrays can be correctly dealt
136 with.
137 * trans-expr.c (gfc_conv_string_length): Return if 'expr' is
138 NULL rather than ICEing..
139
140 2018-09-16 Janus Weil <janus@gcc.gnu.org>
141
142 PR fortran/86484
143 PR fortran/84543
144 * match.c (gfc_match_assignment): For a polymorphic assignment,
145 make sure that the vtab for the rhs type is generated.
146
147 2018-09-16 Thomas Koenig <tkoenig@gcc.gnu.org>
148
149 PR fortran/37802
150 * frontend-passes.c (B_ERROR): New macro for matmul bounds
151 checking error messages.
152 (C_ERROR): Likewise.
153 (inline_matmul_assign): Reorganize bounds checking, use B_ERROR
154 and C_ERROR macros.
155
156 2018-09-13 Bernd Edlinger <bernd.edlinger@hotmail.de>
157
158 * trans-array.c (gfc_conv_array_initializer): Remove excess precision
159 from overlength string initializers.
160
161 2018-09-12 Paul Thomas <pault@gcc.gnu.org>
162
163 PR fortran/87284
164 * trans-expr.c (gfc_trans_class_init_assign): Access to
165 to array elements of the dynamic type requires that the array
166 reference be added to the class expression and not the _data
167 component, unlike scalar expressions.
168
169 2018-09-11 Janus Weil <janus@gcc.gnu.org>
170
171 PR fortran/87172
172 * resolve.c (resolve_fl_derived): If a type has the 'use_assoc'
173 attribute, then it was declared in another module, so there should be
174 no error that it has not been declared.
175
176 2018-09-11 Paul Thomas <pault@gcc.gnu.org>
177
178 PR fortran/87277
179 * expr.c (is_subref_array): Add the check of dimensionality for
180 class, dummy, pointer arrays.
181
182 2018-09-11 Janus Weil <janus@gcc.gnu.org>
183
184 PR fortran/86830
185 * expr.c (gfc_is_simply_contiguous): Handle type-bound procedure calls
186 with non-polymorphic objects.
187
188 2018-09-10 Janus Weil <janus@gcc.gnu.org>
189
190 PR fortran/85395
191 * decl.c (match_binding_attributes): Use correct default accessibility
192 for procedure pointer components.
193
194 2018-09-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
195
196 * simplify.c (gfc_simplify_modulo): Re-arrange code to test whether
197 'P' is zero and issue an error if it is.
198
199 2018-08-31 Paul Thomas <pault@gcc.gnu.org>
200
201 PR fortran/86328
202 PR fortran/86760
203 * trans-array.c (gfc_conv_scalarized_array_ref): Do not fix
204 info->descriptor but pass it directly to gfc_build_array_ref.
205 (gfc_conv_array_ref): Likewise for se->expr.
206 * trans.c (gfc_build_array_ref): If 'decl' is a COMPONENT_REF
207 obtain the span field directly from it.
208
209 2017-08-28 Paul Thomas <pault@gcc.gnu.org>
210
211 PR fortran/80477
212 * trans-expr.c (gfc_conv_procedure_call): Allocatable class
213 scalar results being passed to a derived type formal argument
214 are finalized if possible. Otherwise, rely on existing code for
215 deallocation. Make the deallocation of allocatable result
216 components conditional on finalization not taking place. Make
217 the freeing of data components after finalization conditional
218 on the data being NULL.
219 (gfc_trans_arrayfunc_assign): Change the gcc_assert to a
220 condition to return NULL_TREE.
221 (gfc_trans_assignment_1): If the assignment is class to class
222 and the rhs expression must be finalized but the assignment
223 is not marked as a polymorphic assignment, use the vptr copy
224 function instead of gfc_trans_scalar_assign.
225
226 PR fortran/86481
227 * trans-expr.c (gfc_conv_expr_reference): Do not add the post
228 block to the pre block if the expression is to be finalized.
229 * trans-stmt.c (gfc_trans_allocate): If the expr3 must be
230 finalized, load the post block into a finalization block and
231 add it right at the end of the allocation block.
232
233 2018-08-27 David Malcolm <dmalcolm@redhat.com>
234
235 PR 87091
236 * error.c (gfc_format_decoder): Update for conversion of
237 show_caret_p to a tri-state.
238
239 2018-08-25 Janus Weil <janus@gcc.gnu.org>
240
241 PR fortran/86545
242 * resolve.c (resolve_transfer): Correctly determine typespec for
243 generic function calls, in order to throw a proper error.
244
245 2018-08-24 Thomas Koenig <tkoenig@gcc.gnu.org>
246
247 PR fortran/86837
248 * frontend-passes.c (var_in_expr_callback): New function.
249 (var_in_expr): New function.
250 (traverse_io_block): Use var_in_expr instead of
251 gfc_check_dependency for checking if the variable depends on the
252 previous interators.
253
254 2018-08-23 Janne Blomqvist <blomqvist.janne@gmail.com>
255
256 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxval): Delete
257 HONOR_SIGNED_ZEROS checks.
258
259 2018-08-23 Paul Thomas <pault@gcc.gnu.org>
260
261 PR fortran/86863
262 * resolve.c (resolve_typebound_call): If the TBP is not marked
263 as a subroutine, check the specific symbol.
264
265 2018-08-22 Thomas Koenig <tkoenig@gcc.gnu.org>
266
267 * gfortran.texi: Mention that asynchronous I/O does
268 not work on systems which lack condition variables, such
269 as AIX.
270
271 2018-08-22 Janus Weil <janus@gcc.gnu.org>
272
273 PR fortran/86935
274 * match.c (gfc_match_associate): Improve diagnostics for the ASSOCIATE
275 statement.
276
277 2018-08-22 Andrew Benson <abensonca@gmail.com>
278
279 * module.c (load_generic_interfaces): Move call to find_symbol()
280 so that only occurs if actually needed.
281
282 2018-08-22 Janus Weil <janus@gcc.gnu.org>
283
284 PR fortran/86888
285 * decl.c (gfc_match_data_decl): Allow allocatable components of
286 indirectly recursive type.
287 * resolve.c (resolve_component): Remove two errors messages ...
288 (resolve_fl_derived): ... and replace them by a new one.
289
290 2018-08-21 Janne Blomqvist <jb@gcc.gnu.org>
291
292 * trans-intrinsic.c (gfc_conv_intrinsic_minmax): Use
293 MAX_EXPR/MIN_EXPR unconditionally for real arguments.
294 * gfortran.texi (Compiler Characteristics): Document MAX/MIN
295 behavior wrt NaN.
296
297 2018-08-21 Nicolas Koenig <koenigni@gcc.gnu.org>
298 Thomas Koenig <tkoenig@gcc.gnu.org>
299
300 PR fortran/25829
301 * gfortran.texi: Add description of asynchronous I/O.
302 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
303 as volatile.
304 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
305 st_wait_async and change argument spec from ".X" to ".w".
306 (gfc_trans_wait): Pass ID argument via reference.
307
308 2018-08-16 Nathan Sidwell <nathan@acm.org>
309
310 * cpp.c (dump_macro): Use cpp_user_macro_p.
311
312 2018-08-14 Janus Weil <janus@gcc.gnu.org>
313
314 PR fortran/86116
315 * interface.c (compare_type): Remove a CLASS/TYPE check.
316 (compare_type_characteristics): New function that behaves like the old
317 'compare_type'.
318 (gfc_check_dummy_characteristics, gfc_check_result_characteristics):
319 Call 'compare_type_characteristics' instead of 'compare_type'.
320
321 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
322
323 PR fortran/66679
324 * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Class array
325 elements are returned as references to the data element. Get
326 the class expression by stripping back the references. Use this
327 for the element size.
328
329 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
330
331 PR fortran/86906
332 * resolve.c (resolve_fl_variable_derived): Check if the derived
333 type is use associated before checking for the host association
334 error.
335
336 2018-08-10 Janus Weil <janus@gcc.gnu.org>
337
338 PR fortran/57160
339 * invoke.texi (frontend-optimize): Mention short-circuiting.
340 * options.c (gfc_post_options): Disable -ffrontend-optimize with -Og.
341 * resolve.c (resolve_operator): Warn about short-circuiting only with
342 -ffrontend-optimize.
343 * trans-expr.c (gfc_conv_expr_op): Use short-circuiting operators only
344 with -ffrontend-optimize. Without that flag, make sure that both
345 operands are evaluated.
346
347 2018-08-08 Nathan Sidwell <nathan@acm.org>
348
349 * cpp.c (cb_file_change): Use linemap_included_from.
350
351 2018-08-07 Cesar Philippidis <cesar@codesourcery.com>
352
353 * trans-stmt.h: Remove stale reference to trans-openacc.c.
354
355 2018-08-04 Janus Weil <janus@gcc.gnu.org>
356
357 PR fortran/45521
358 * interface.c (gfc_compare_interfaces): Apply additional
359 distinguishability criteria of F08 to operator interfaces.
360
361 2018-07-31 Andre Vieira <andre.simoesdiasvieira@arm.com>
362
363 Revert 'AsyncI/O patch committed'
364 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
365 Thomas Koenig <tkoenig@gcc.gnu.org>
366
367 PR fortran/25829
368 * gfortran.texi: Add description of asynchronous I/O.
369 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
370 as volatile.
371 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
372 st_wait_async and change argument spec from ".X" to ".w".
373 (gfc_trans_wait): Pass ID argument via reference.
374
375 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
376 Thomas Koenig <tkoenig@gcc.gnu.org>
377
378 PR fortran/25829
379 * gfortran.texi: Add description of asynchronous I/O.
380 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
381 as volatile.
382 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
383 st_wait_async and change argument spec from ".X" to ".w".
384 (gfc_trans_wait): Pass ID argument via reference.
385
386 2018-07-20 Martin Sebor <msebor@redhat.com>
387
388 PR middle-end/82063
389 * gfortran.h (gfc_handle_option): Change function argument
390 to HOST_WIDE_INT.
391 * options.c (gfc_handle_option): Same.
392
393 2018-07-20 Andrew Benson <abenson@carnegiescience.edu>
394
395 * gfortran.h (gfc_symbol): Add pointer to next derived type.
396 (gfc_dt_list, gfc_get_dt_list): Remove.
397 (gfc_namespace): Replace gfc_dt_list with gfc_symbol.
398 * parse.c (resolve_all_program_units): Replace gfc_free_dt_list() with
399 simple nullification of gfc_derived_types.
400 * resolve.c (resolve_global_procedure): Replace gfc_dt_list with
401 gfc_symbol.
402 (add_dt_to_dt_list): Change derived type linked list insertion to
403 utilize dt_next pointers in gfc_symbol.
404 * symbol.c (gfc_new_symbol, gfc_free_dt_list, gfc_symbol_done2)
405 (get_iso_c_binding_dt, generate_isocbinding_symbol): Remove
406 gfc_free_dt_list as gfc_dt_list is obsoleted. Change derived type
407 linked list search/insertion to utilize dt_next pointers in gfc_symbol.
408 * trans-types.c (gfc_get_derived_type): Change derived type linked
409 list search to utilize dt_next pointers in gfc_symbol.
410
411 2018-07-19 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
412
413 * trans-intrinsic.c: (gfc_conv_intrinsic_minmax): Emit MIN_MAX_EXPR
414 or IFN_FMIN/FMAX sequence to calculate the min/max when possible.
415
416 2018-07-18 Janus Weil <janus@gcc.gnu.org>
417 Thomas Koenig <tkoenig@gcc.gnu.org>
418
419 PR fortran/85599
420 * dump-parse-tree.c (show_attr): Add handling of implicit_pure.
421 * frontend-passes.c (do_warn_function_elimination): Do not warn for
422 pure functions.
423 * gfortran.h: Add prototypes for gfc_pure_function and
424 gfc_implicit_pure_function.
425 * gfortran.texi: Add chapter on evaluation of logical expressions.
426 * invoke.texi: Mention that -Wfunction-elimination is implied
427 by -Wextra.
428 * lang.opt: Make -Wextra imply -Wfunction-elimination.
429 * resolve.c (pure_function): Rename to gfc_pure_function.
430 (gfc_implicit_pure_function): New function.
431 (check_pure_function): Use it here.
432 (impure_function_callback): New function.
433 (resolve_operator): Call it via gfc_expr_walker.
434
435 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
436
437 PR fortran/83184
438 * decl.c (match_old_style_init): Initialize locus of variable expr when
439 creating a data variable.
440 (match_clist_expr): Verify array is explicit shape/size before
441 attempting to allocate constant array constructor.
442
443 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
444
445 PR fortran/86417
446 * module.c (mio_component): Set component->loc when loading from module.
447
448 2018-07-10 Jakub Jelinek <jakub@redhat.com>
449
450 PR fortran/86421
451 * module.c (omp_declare_simd_clauses): Add LINEAR with _REF, _VAL and
452 _UVAL suffixes.
453 (mio_omp_declare_simd): Save and restore ref, val and uval modifiers
454 on linear clauses. Initialize n->where to gfc_current_locus.
455
456 2018-07-05 Paul Thomas <pault@gcc.gnu.org>
457
458 PR fortran/86408
459 * resolve.c.c (resolve_contained_fntype): Reference to C418 is
460 in F2008 and not F2003.
461 (resolve_function): Ditto in error message. Also, exclude
462 deferred character length results from the error.
463
464 2018-07-05 Fritz Reese <fritzoreese@gmail.com>
465
466 PR fortran/83183
467 PR fortran/86325
468 * expr.c (class_allocatable, class_pointer, comp_allocatable,
469 comp_pointer): New helpers.
470 (component_initializer): Generate EXPR_NULL for allocatable or pointer
471 components. Do not generate initializers for components within BT_CLASS.
472 Do not assign to comp->initializer.
473 (gfc_generate_initializer): Use new helpers; move code to generate
474 EXPR_NULL for class allocatable components into component_initializer().
475
476 2018-07-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
477
478 PR fortran/82009
479 * trans-decl.c (gfc_process_block_locals): Delete assert and set
480 saved_local_decls = NULL_TREE.
481
482 2018-07-02 Richard Biener <rguenther@suse.de>
483
484 PR lto/86321
485 * trans-types.c (gfc_get_array_type_bounds): Unshare TYPE_FIELDs
486 for the distinct type copy.
487
488 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
489
490 PR fortran/82969
491 PR fortran/86242
492 * trans-array.c (structure_alloc_comps): Do not explicitly copy
493 procedure pointer components.
494
495 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
496
497 PR fortran/45305
498 * expr.c : Add a prototype for scalarize_intrinsic_call.
499 (gfc_simplify_expr): Use scalarize_intrinsic_call for elemental
500 intrinsic function calls.
501 (scalarize_intrinsic_call): Add 'init_flag' argument. Check if
502 the expression or any of the actual argument expressions are
503 NULL. Before calling gfc_check_init_expr, check 'init_flag'.
504 Only simplify the scalarized expressions if there are no errors
505 on the stack.
506 (gfc_check_init_expr): Set 'init_flag' true in the call to
507 scalarize_intrinsic_call.
508
509 2018-06-28 Fritz Reese <fritzoreese@gmail.com>
510
511 PR fortran/82865
512 * decl.c (gfc_match_type): Refactor and check for PDT declarations.
513
514 2018-06-28 Martin Liska <mliska@suse.cz>
515
516 * gfortranspec.c: Include opt-suggestions.h.
517
518 2018-06-25 Fritz Reese <fritzoreese@gmail.com>
519
520 PR fortran/82972
521 PR fortran/83088
522 PR fortran/85851
523 * expr.c (component_initializer): Assign init expr to c->initializer.
524 (generate_isocbinding_initializer): New.
525 (gfc_generate_initializer): Call generate_isocbinding_initializer to
526 generate initializers for c_ptr and c_funptr with -finit-derived.
527
528 2018-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
529
530 PR fortran/85983
531 * interface.c (check_dtio_interface1): Delete assert.
532
533 2018-06-22 Paul Thomas <pault@gcc.gnu.org>
534 Rainer Orth <ro@gcc.gnu.org>
535
536 PR fortran/86281
537 * resolve.c (resolve_contained_fntype): Check for the charlen
538 before testing the length.
539
540 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
541
542 PR fortran/49630
543 * resolve.c (resolve_contained_fntype): Change standard ref.
544 from F95 to F2003: C418. Correct a spelling error in a comment.
545 It is an error for an abstract interface to have an assumed
546 character length result.
547 * trans-expr.c (gfc_conv_procedure_call): Likewise change the
548 standard reference.
549
550 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
551
552 PR fortran/83118
553 * resolve.c (resolve_ordinary_assign): Force the creation of a
554 vtable for assignment of non-polymorphic expressions to an
555 unlimited polymorphic object.
556 * trans-array.c (gfc_alloc_allocatable_for_assignment): Use the
557 size of the rhs type for such assignments. Set the dtype, _len
558 and vptrs appropriately.
559 * trans-expr.c (gfc_trans_assignment): Force the use of the
560 _copy function for these assignments.
561
562 2018-06-20 Chung-Lin Tang <cltang@codesourcery.com>
563 Thomas Schwinge <thomas@codesourcery.com>
564 Cesar Philippidis <cesar@codesourcery.com>
565
566 * gfortran.h (gfc_omp_clauses): Add unsigned if_present, finalize
567 bitfields.
568 * openmp.c (enum omp_mask2): Remove OMP_CLAUSE_PRESENT_OR_*. Add
569 OMP_CLAUSE_{IF_PRESENT,FINALIZE}.
570 (gfc_match_omp_clauses): Update handling of copy, copyin, copyout,
571 create, deviceptr, present_of_*. Add support for finalize and
572 if_present.
573 (OACC_PARALLEL_CLAUSES): Remove PRESENT_OR_* clauses.
574 (OACC_KERNELS_CLAUSES): Likewise.
575 (OACC_DATA_CLAUSES): Likewise.
576 (OACC_DECLARE_CLAUSES): Likewise.
577 (OACC_UPDATE_CLAUSES): Add IF_PRESENT clause.
578 (OACC_ENTER_DATA_CLAUSES): Remove PRESENT_OR_* clauses.
579 (OACC_EXIT_DATA_CLAUSES): Add FINALIZE clause.
580 (gfc_match_oacc_declare): Update to OpenACC 2.5 semantics.
581 * trans-openmp.c (gfc_trans_omp_clauses): Add support for IF_PRESENT
582 and FINALIZE.
583
584 2018-06-18 Eric Botcazou <ebotcazou@adacore.com>
585
586 * trans-decl.c (gfc_get_fake_result_decl): Revert latest change.
587
588 2018-06-17 Eric Botcazou <ebotcazou@adacore.com>
589
590 * trans-decl.c (nonlocal_dummy_decl_pset): Delete.
591 (nonlocal_dummy_decls): Likewise.
592 (gfc_nonlocal_dummy_array_decl): Likewise.
593 (gfc_get_symbol_decl): Do not call gfc_nonlocal_dummy_array_decl.
594 (gfc_get_fake_result_decl): Do not generate a new DECL if simply
595 reusing the result of a recursive call.
596 (gfc_generate_function_code): Do not create, insert and destroy
597 nonlocal_dummy_decls.
598
599 2018-06-13 Steven G. Kargl <kargl@gcc.gnu.org>
600
601 PR fortran/86110
602 * array.c (gfc_resolve_character_array_constructor): Avoid NULL
603 pointer dereference.
604
605 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
606
607 PR fortran/85703
608 * parse.c (decode_oacc_directive): Set gfc_matching_function
609 to false.
610 (decode_omp_directive): Likewise.
611
612 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
613
614 PR fortran/85702
615 * openmp.c (gfc_match_oacc_wait): Use %C to report error location.
616
617 2018-06-12 David Malcolm <dmalcolm@redhat.com>
618
619 PR other/69968
620 * misc.c (gfc_closest_fuzzy_match): Update for renaming of
621 levenshtein_distance to get_edit_distance.
622
623 2018-06-12 Steven G. Kargl <kargl@gcc.gnu.org>
624
625 PR fortran/44491
626 * expr.c (gfc_check_assign): Select non-NULL locus.
627
628 2018-06-11 Janus Weil <janus@gcc.gnu.org>
629
630 PR fortran/45521
631 * interface.c (compare_ptr_alloc): New function.
632 (generic_correspondence): Call it.
633
634 2018-06-10 Thomas Koenig <tkoenig@gcc.gnu.org>
635
636 * gfortran.h (gfc_expr): Add no_bounds_check field.
637 * frontend-passes.c (get_array_inq_function): Set no_bounds_check
638 on function and function argument.
639 (inline_matmul_assign): Set no_bounds_check on zero expression
640 and on lhs of zero expression.
641 Also handle A1B2 case if realloc on assigment is active.
642 * trans-array.c (gfc_conv_array_ref): Don't do range checking
643 if expr has no_bounds_check set.
644 (gfc_conv_expr_descriptor): Set no_bounds_check on ss if expr
645 has it set.
646 * trans-expr.c (gfc_trans_assignment_1): Set no_bounds_check
647 on lss and lss if the corresponding expressions have it set.
648
649 2018-06-10 Dominique d'Humieres <dominiq@gcc.gnu.org>
650
651 PR fortran/79854
652 * trans-const.c: Remove include "diagnostic-core.h".
653 (gfc_conv_constant_to_tree): Replace fatal_error with gcc_unreachable.
654
655 2018-06-10 Janus Weil <janus@gcc.gnu.org>
656
657 PR fortran/85088
658 * decl.c (match_attr_spec): Synchronize the DECL_* enum values with the
659 INTENT_* values from the enum 'sym_intent'. Call 'match_intent_spec'
660 and remove a TODO note.
661 * gfortran.h: Add a comment to sym_intent.
662
663 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
664
665 PR fortran/38351
666 * resolve.c (resolve_operator): Provide better error message for
667 derived type entity used in an binary intrinsic numeric operator.
668
669 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
670
671 PR fortran/85138
672 PR fortran/85996
673 PR fortran/86051
674 * decl.c (gfc_match_char_spec): Use private namespace in attempt to
675 reduce a charlen to a constant.
676
677 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
678
679 PR fortran/78278
680 * data.c (gfc_assign_data_value): Re-arrange code to allow for
681 an error for double initialization of CHARACTER entities.
682
683 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
684
685 PR fortran/63514
686 * symbol.c (gfc_add_volatile): Enforce F2008:C1282 and F2018:C1588.
687
688 2018-06-08 Thomas Koenig <tkoenig@gcc.gnu.org>
689
690 PR fortran/85631
691 * trans.h (gfc_ss): Add field no_bounds_check.
692 * trans-array.c (gfc_conv_ss_startstride): If flag_realloc_lhs and
693 ss->no_bounds_check is set, do not use runtime checks.
694 * trans-expr.c (gfc_trans_assignment_1): Set lss->no_bounds_check
695 for reallocatable lhs.
696
697 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
698
699 PR fortran/86059
700 * array.c (match_array_cons_element): NULL() cannot be in an
701 array constructor.
702
703 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
704
705 PR fortran/78571
706 * data.c (create_character_initializer): Return early if type is
707 incompatible with CHARACTER.
708
709 2018-06-07 Steven G. Kargl <kargl@gcc.gnu.org>
710
711 PR fortran/86045
712 * simplify.c (gfc_simplify_mod): Re-arrange code to test whether
713 'P' is zero and issue an error if it is.
714
715 2018-06-06 Thomas Koenig <tkoenig@gcc.gnu.org>
716
717 PR fortran/85641
718 * frontend-passes.c (is_fe_temp): Add prototype.
719 (realloc_string_callback): Early return for frontend-generated
720 temporary.
721
722 2018-06-05 Cesar Philippidis <cesar@codesourcery.com>
723
724 PR fortran/85701
725
726 * openmp.c (gfc_resolve_oacc_declare): Error on functions and
727 subroutine data clause arguments.
728
729 2018-06-04 Steven G. Kargl <kargl@gcc.gnu.org>
730
731 PR fortran/85981
732 * resolve.c (resolve_allocate_deallocate): Check errmsg is default
733 character kind.
734
735 2018-06-03 Paul Thomas <pault@gcc.gnu.org>
736
737 PR fortran/36497
738 * decl.c (variable_decl): Use gfc_add_type for cray pointees.
739
740 2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
741
742 PR fortran/63570
743 * check.c (gfc_check_random_init): New function. Check arguments of
744 RANDOM_INIT.
745 * gfortran.h (GFC_ISYM_RANDOM_INIT): New enum token.
746 * intrinsic.c (add_subroutines): Add RANDOM_INIT to list of
747 subroutines.
748 (gfc_check_intrinsic_standard): Introduce Fortran 2018 check.
749 * intrinsic.h: Add prototypes for gfc_check_random_init and
750 gfc_resolve_random_init
751 * intrinsic.texi: Document new intrinsic subprogram.
752 * iresolve.c (gfc_resolve_random_init): Resolve routine name.
753 * trans-decl.c: Declare gfor_fndecl_random_init
754 * trans-intrinsic.c (conv_intrinsic_random_init): New function.
755 Translate call to RANDOM_INIT.
756 (gfc_conv_intrinsic_subroutine): Call it.
757 * trans.h: Declare gfor_fndecl_random_init
758
759 2018-05-27 Steven G. Kargl <kargl@gcc.gnu.org>
760
761 * decl.c (match_data_constant): Fortran 2018 allows pointer
762 initialization in a data statement.
763
764 2018-05-25 Janus Weil <janus@gcc.gnu.org>
765
766 PR fortran/85839
767 * match.c (gfc_match_block_data): Call gfc_notify_std to warn about
768 an obsolescent feature in Fortran 2018.
769 (gfc_match_equivalence): Ditto.
770 * resolve.c (resolve_common_blocks): Ditto.
771 (gfc_resolve_forall): Ditto.
772 * symbol.c (gfc_define_st_label): Ditto.
773
774 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
775
776 PR fortran/85543
777 * resolve.c (update_current_proc_array_outer_dependency): Avoid NULL
778 pointer dereference.
779
780 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
781
782 PR fortran/85780
783 * resolve.c (resolve_fl_procedure): Avoid NULL dereference.
784
785 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
786
787 PR fortran/85779
788 * decl.c (gfc_match_derived_decl): Fix NULL point dereference.
789
790 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
791
792 PR fortran/85895
793 * resolve.c (resolve_sync): Resolve expression before checking for
794 an error.
795
796 2018-05-22 Janus Weil <janus@gcc.gnu.org>
797
798 PR fortran/85841
799 * libgfortran.h: Remove the macros GFC_STD_F2008_TS and
800 GFC_STD_OPT_F08TS.
801 * error.c (notify_std_msg): Remove GFC_STD_F2008_TS.
802 * options.c (set_default_std_flags): Ditto.
803 (gfc_handle_option): Make -std=f2008ts an alias for -std=f2018.
804 * array.c (gfc_match_array_spec): Replace GFC_STD_F2008_TS by
805 GFC_STD_F2018.
806 * check.c (gfc_check_atomic, gfc_check_event_query,
807 gfc_check_c_f_pointer, gfc_check_c_f_procpointer, gfc_check_c_funloc,
808 gfc_check_c_loc, gfc_check_num_images, gfc_check_this_image): Ditto.
809 * decl.c (gfc_verify_c_interop_param, gfc_match_decl_type_spec): Ditto.
810 * intrinsic.c (add_functions, add_subroutines,
811 gfc_check_intrinsic_standard): Ditto.
812 * iso-c-binding.def: Ditto.
813 * iso-fortran-env.def: Ditto.
814 * match.c (gfc_match_event_post, gfc_match_event_wait,
815 gfc_match_fail_image, gfc_match_form_team, gfc_match_change_team,
816 gfc_match_end_team, gfc_match_sync_team): Ditto.
817 * gfortran.texi: Remove mention of -std=f2008ts.
818 Move TSs into F2018 section.
819 * invoke.texi: Update documentation of -std=f2008ts.
820
821 2018-05-21 Janus Weil <janus@gcc.gnu.org>
822
823 PR fortran/85841
824 * libgfortran.h: New macros GFC_STD_OPT_*.
825 * error.c (notify_std_msg): New function.
826 (gfc_notify_std): Adjust such that it can handle combinations of
827 GFC_STD_* flags in the 'std' argument, not just a single one.
828 * match.c (match_arithmetic_if, gfc_match_if): Reject arithmetic if
829 in Fortran 2018.
830 (gfc_match_stopcode): Use GFC_STD_OPT_* macros.
831 * options.c (set_default_std_flags): Warn for F2018 deleted features
832 by default.
833 (gfc_handle_option): F2018 deleted features are allowed in earlier
834 standards.
835 * symbol.c (gfc_define_st_label, gfc_reference_st_label): Reject
836 nonblock do constructs in Fortran 2018.
837
838 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
839
840 PR fortran/80657
841 * resolve.c (flag_fn_result_spec): Use the 'sym' argument to
842 test for self refs to the function result in the character len
843 expression. If a self reference is found, emit an error and
844 return true.
845 (resolve_fntype): Use the function symbol in the calls to the
846 above.
847
848 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
849
850 PR fortran/49636
851 * trans-array.c (gfc_get_array_span): Renamed from
852 'get_array_span'.
853 (gfc_conv_expr_descriptor): Change references to above.
854 * trans-array.h : Add prototype for 'gfc_get_array_span'.
855 * trans-intrinsic.c (gfc_conv_associated): Add pre and post
856 blocks for 'arg1'.
857 * trans-stmt.c (trans_associate_var): If the associate name is
858 a subref array pointer, use gfc_get_array_span for the span.
859
860 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
861
862 PR fortran/82275
863 * match.c (gfc_match_type_spec): Go through the array ref and
864 decrement 'rank' for every dimension that is an element.
865
866 2018-05-19 Paul Thomas <pault@gcc.gnu.org>
867
868 PR fortran/82923
869 PR fortran/66694
870 PR fortran/82617
871 * trans-array.c (gfc_alloc_allocatable_for_assignment): Set the
872 charlen backend_decl of the rhs expr to ss->info->string_length
873 so that the value in the current scope is used.
874
875 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
876
877 PR fortran/63529
878 * gfortran.texi: Clarify documentation for Cray pointer and
879 assumed-sized array.
880
881 2018-05-13 Paul Thomas <pault@gcc.gnu.org>
882
883 PR fortran/85742
884 * trans-types.c (gfc_get_dtype_rank_type): Reorder evaluation
885 of 'size'. If the element type is a pointer use the size of the
886 TREE_TYPE of the type, unless it is VOID_TYPE. In this latter
887 case, set the size to zero.
888
889 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
890
891 * gfortran.h: Remove prototype.
892 * symbol.c (gfc_new_undo_checkpoint): Remove unused function.
893
894 2018-05-11 Steven G. Kargl <kargl@gcc.gnu.org>
895
896 PR fortran/85542
897 * expr.c (check_inquiry): Avoid NULL pointer dereference.
898
899 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
900
901 PR fortran/85687
902 * check.c (gfc_check_rank): Check that the argument is a data object.
903
904 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
905
906 PR fortran/85521
907 * array.c (gfc_resolve_character_array_constructor): Substrings
908 with upper bound smaller than lower bound are zero length strings.
909
910 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
911
912 PR fortran/70870
913 * data.c (gfc_assign_data_value): Check that a data object does
914 not also have default initialization.
915
916 2018-05-10 Marek Polacek <polacek@redhat.com>
917
918 PR fortran/85735
919 * options.c (gfc_post_options): Set main_input_filename.
920
921 2018-05-10 Thomas Koenig <tkoenig@gcc.gnu.org>
922
923 PR fortran/54613
924 * intrinsic.texi: Document BACK for MINLOC and MAXLOC.
925
926 2018-05-10 Paul Thomas <pault@gcc.gnu.org>
927
928 PR fortran/68846
929 PR fortran/70864
930 * resolve.c (get_temp_from_expr): The temporary must not have
931 dummy or intent attributes.
932
933 2018-05-08 Thomas Koenig <tkoenig@gcc.gnu.org>
934
935 PR fortran/54613
936 * check.c (gfc_check_minmaxloc): Remove error for BACK not being
937 implemented. Use gfc_logical_4_kind for BACK.
938 * simplify.c (min_max_choose): Add optional argument back_val.
939 Handle it.
940 (simplify_minmaxloc_to_scalar): Add argument back_val. Pass
941 back_val to min_max_choose.
942 (simplify_minmaxloc_to_nodim): Likewise.
943 (simplify_minmaxloc_to_array): Likewise.
944 (gfc_simplify_minmaxloc): Add argument back, handle it.
945 Pass back_val to specific simplification functions.
946 (gfc_simplify_minloc): Remove ATTRIBUTE_UNUSED from argument back,
947 pass it on to gfc_simplify_minmaxloc.
948 (gfc_simplify_maxloc): Likewise.
949 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Adjust
950 comment. If BACK is true, use greater or equal (or lesser or
951 equal) insteal of greater (or lesser). Mark the condition of
952 having found a value which exceeds the limit as unlikely.
953
954 2018-05-07 Jeff Law <law@redhat.comg>
955
956 * scanner.c (preprocessor_line): Call linemap_add after a line
957 directive that changes the current filename.
958
959 2018-05-06 Andre Vehreschild <vehre@gcc.gnu.org>
960
961 PR fortran/85507
962 * dependency.c (gfc_dep_resolver): Revert looking at coarray dimension
963 introduced by r259385.
964 * trans-intrinsic.c (conv_caf_send): Always report a dependency for
965 same variables in coarray assignments.
966
967 2018-05-02 Tom de Vries <tom@codesourcery.com>
968
969 PR libgomp/82428
970 * f95-lang.c (DEF_GOACC_BUILTIN_ONLY): Define.
971
972 2018-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
973
974 PR fortran/85520
975 * decl.c (gfc_match_char_spec): Check for negative length and set to 0.
976
977 2018-04-14 Andre Vehreschild <vehre@gcc.gnu.org>
978
979 PR fortran/81773
980 PR fortran/83606
981 * dependency.c (gfc_dep_resolver): Coarray indexes are to be ignored
982 during dependency computation. They define no data dependency.
983 * trans-array.c (conv_array_index_offset): The stride can not be set
984 here, prevent fail.
985 * trans-intrinsic.c (conv_caf_send): Add creation of temporary array
986 for caf_get's result and copying to the array with vectorial
987 indexing.
988
989 2018-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
990
991 PR fortran/85387
992 * frontend-passes.c (traverse_io_block): Check for start, end or
993 stride being defined by an outer implied DO loop.
994
995 2018-04-12 Thomas Koenig <tkoenig@gcc.gnu.org>
996
997 PR fortran/83064
998 PR testsuite/85346
999 * trans-stmt.c (gfc_trans_forall_loop): Use annot_expr_ivdep_kind
1000 for annotation and remove dependence on -ftree-parallelize-loops.
1001
1002 2018-04-10 Jakub Jelinek <jakub@redhat.com>
1003
1004 PR fortran/85313
1005 * openmp.c (resolve_omp_do): Remove bogus if (j < i) break;.
1006 (resolve_oacc_nested_loops): Likewise. Formatting fix.
1007
1008 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
1009
1010 PR fortran/83064
1011 * trans-stmt.c (gfc_trans_forall_loop): Remove annotation for
1012 parallell processing of DO CONCURRENT -ftree-parallelize-loops
1013 is set.
1014
1015 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
1016
1017 PR fortran/51260
1018 * resolve.c (resolve_variable): Simplify cases where access to a
1019 parameter array results in a single constant.
1020
1021 2018-04-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1022
1023 PR fortran/85102
1024 * decl.c (variable_decl): If upper or lower bounds simplify
1025 to a constant, use that.
1026
1027 2018-03-30 Paul Thomas <pault@gcc.gnu.org>
1028
1029 PR fortran/84931
1030 * simplify.c (gfc_convert_constant): Handle case of array
1031 constructors within an array that has no iterator and improve
1032 the conciseness of this section of code.
1033
1034 2017-03-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1035
1036 PR fortran/85111
1037 * array.c (gfc_resolve_character_array_constructor): Early
1038 exit for zero-size arrays.
1039 * simplify.c (simplify_transformation_to_array): Exit early
1040 if the result size is zero.
1041 (simplify_minmaxloc_to_array): Likewise.
1042
1043 2018-03-28 Mikael Morin <mikael@gcc.gnu.org>
1044
1045 PR fortran/69497
1046 * symbol.c (gfc_symbol_done_2): Start freeing namespaces
1047 from the root.
1048 (gfc_free_namespace): Restore assert (revert r258839).
1049
1050 2018-03-28 Jakub Jelinek <jakub@redhat.com>
1051
1052 * gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
1053 * ioparm.def (IOPARM_dt_default_exp): Rename to ...
1054 (IOPARM_dt_dec_ext): ... this.
1055 * trans-io.c (build_dt): Adjust for default_exp renaming to
1056 dec_ext and IOPARM_dt_default_exp renaming to IOPARM_dt_dec_ext.
1057 * io.c (match_io): Likewise.
1058
1059 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
1060
1061 PR fortran/85084
1062 * frontend-passes.c (gfc_run_passes): Do not run front-end
1063 optimizations if a previous error occurred.
1064
1065 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
1066 Harald Anlauf <anlauf@gmx.de>
1067
1068 PR fortran/85083
1069 * primary.c (gfc_convert_to_structure_constructor): Check
1070 conformance of argument types in structure constructor.
1071
1072 2018-03-26 Thomas Koenig <tkoenig@gcc.gnu.org>
1073
1074 PR fortran/66709
1075 * io.c: Include constructor.h.
1076 (resolve_tag_format): For a constant character array, concatenate
1077 into a single character expression.
1078
1079 2018-03-25 Seth Johnson <johnsonsr@ornl.gov>
1080 Dominique d'Humieres <dominiq@gcc.gnu.org>
1081
1082 PR fortran/84924
1083 * check.c (gfc_check_c_f_pointer): Allow scalar noninteroperable
1084 scalar derived type with -std=f2003 and -std=f2008.
1085
1086 2018-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1087 Dominique d'Humieres <dominiq@gcc.gnu.org>
1088
1089 PR fortran/69497
1090 * symbol.c (gfc_free_namespace): Delete the assert and only if
1091 refs count is equals zero, free the namespace. Otherwise,
1092 something is halfway and other errors will resound.
1093
1094 2018-03-24 Thomas Koenig <tkoenig@gcc.gnu.org>
1095
1096 PR fortran/70068
1097 * expr.c (find_substring_ref): Change types of start, end
1098 and length variables to gfc_charlen_t. Set length to zero
1099 for empty substring.
1100
1101 2018-03-24 Steven G. Kargl <kargl@gcc.gnu.org>
1102
1103 PR fortran/42651
1104 * decl.c (check_function_name): Improved error message
1105 (gfc_match_volatile, gfc_match_asynchronous) Use check_function_name.
1106
1107 2018-03-22 Steven G. Kargl <kargl@gcc.gnu.org>
1108
1109 PR fortran/84922
1110 * decl.c (get_proc_name): If the MODULE prefix appears in interface
1111 body, then it must appear on the contained subroutine or function.
1112 While here, fix nearby mis-indented code.
1113
1114 2018-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
1115 Harald Anlauf <anlauf@gmx.de>
1116
1117 PR fortran/84957
1118 * trans-types.c (gfc_sym_type): Do not dereference NULL pointer.
1119
1120 2018-03-21 Janne Blomqvist <jb@gcc.gnu.org>
1121
1122 PR fortran/84615
1123 * trans-expr.c (gfc_conv_procedure_call): Convert charlen to
1124 gfc_charlen_type_node when calling procedure.
1125
1126 2018-03-20 Steven G. Kargl <kargl@gcc.gnu.org>
1127
1128 PR fortran/85001
1129 * interface.c (symbol_rank): Remove bogus null pointer check that
1130 crept in when translating a ternary operator into an if-else
1131 constructor.
1132
1133 2018-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1134
1135 PR fortran/84931
1136 * simplify.c (gfc_convert_constant): Correctly handle iterators
1137 for type conversion.
1138
1139 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
1140
1141 PR fortran/77414
1142 * decl.c (get_proc_name): Check for a subroutine re-defined in
1143 the contain portion of a subroutine. Change language of existing
1144 error message to better describe the issue. While here fix whitespace
1145 issues.
1146
1147 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
1148
1149 PR fortran/65453
1150 * decl.c (get_proc_name): Catch clash between a procedure statement
1151 and a contained subprogram
1152
1153 2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
1154
1155 PR fortran/69395
1156 * decl.c (merge_array_spec): Correct the error condition.
1157
1158 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
1159
1160 PR fortran/78741
1161 * decl.c (get_proc_name): Check for clash of entry name with
1162 subroutine name.
1163
1164 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
1165
1166 PR fortran/69395
1167 * decl.c (merge_array_spec): Limit the merging to maximum allowed
1168 dimensions, and issue error message if limit is exceeded.
1169
1170 2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
1171
1172 * check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
1173 * intrinsic.c (add_functions): Remove reference to gfc_resolve_kill.
1174 (add_subroutines): Remove reference to gfc_resolve_kill_sub.
1175 * intrinsic.texi: Update documentation.
1176 * iresolve.c (gfc_resolve_kill, gfc_resolve_kill_sub): Remove.
1177 * trans-decl.c (gfc_build_intrinsic_function_decls): Add
1178 gfor_fndecl_kill and gfor_fndecl_kill_sub
1179 * trans-intrinsic.c (conv_intrinsic_kill, conv_intrinsic_kill_sub): new
1180 functions.
1181 (gfc_conv_intrinsic_function): Use conv_intrinsic_kill.
1182 (gfc_conv_intrinsic_subroutine): Use conv_intrinsic_kill_sub.
1183 * trans.h: Declare gfor_fndecl_kill and gfor_fndecl_kill_sub.
1184
1185 2018-03-11 Paul Thomas <pault@gcc.gnu.org>
1186
1187 PR fortran/84546
1188 * trans-array.c (structure_alloc_comps): Make sure that the
1189 vptr is copied and that the unlimited polymorphic _len is used
1190 to compute the size to be allocated.
1191 * trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
1192 unlimited polymorphic _len for the offset to the element.
1193 (gfc_copy_class_to_class): Set the new 'unlimited' argument.
1194 * trans.h : Add the boolean 'unlimited' to the prototype.
1195
1196 2018-03-11 Steven G. Kargl <kargl@gcc.gnu.org>
1197
1198 PR fortran/83939
1199 * resolve.c (resolve_fl_procedure): Enforce F2018:C15100.
1200
1201 2018-03-11 Steven G. Kargl <kargls@gcc.gnu.org>
1202
1203 * check.c (gfc_check_kill): Check pid and sig are scalar.
1204 (gfc_check_kill_sub): Restrict kind to 4 and 8.
1205 * intrinsic.c (add_function): Sort keyword list. Add pid and sig
1206 keywords for KILL. Remove redundant *back="back" in favor of the
1207 original *bck="back".
1208 (add_subroutines): Sort keyword list. Add pid and sig keywords
1209 for KILL.
1210 * intrinsic.texi: Fix documentation to consistently use pid and sig.
1211 * iresolve.c (gfc_resolve_kill): Kind can only be 4 or 8. Choose the
1212 correct function.
1213 (gfc_resolve_rename_sub): Add comment.
1214
1215 2018-03-11 Thomas Koenig <tkoenig@gcc.gnu.org>
1216
1217 PR fortran/66128
1218 * simplify.c (simplify_transformation): Return default result for
1219 empty array argument.
1220 (gfc_simplify_all): Remove special-case handling for zerosize.
1221 (gfc_simplify_any): Likewise.
1222 (gfc_simplify_count): Likewise.
1223 (gfc_simplify_iall): Likewise.
1224 (gfc_simplify_iany): Likewise.
1225 (gfc_simplify_iparity): Likewise.
1226 (gfc_simplify_minval): Likewise.
1227 (gfc_simplify_maxval): Likewise.
1228 (gfc_simplify_norm2): Likewise.
1229 (gfc_simplify_product): Likewise.
1230 (gfc_simplify_sum): Likewise.
1231
1232 2018-03-10 Steven G. Kargl <kargl@gcc.gnu.org>
1233
1234 PR fortran/84734
1235 * arith.c (check_result, eval_intrinsic): If result overflows, pass
1236 the expression up the chain instead of a NULL pointer.
1237
1238 2018-03-07 Steven G. Kargl <kargl@gcc.gnu.org>
1239
1240 PR fortran/64124
1241 PR fortran/70409
1242 * decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.
1243
1244 2017-03-06 Thomas Koenig <tkoenig@gcc.gnu.org>
1245
1246 PR fortran/84697
1247 PR fortran/66128
1248 * expr.c (simplify_parameter_variable): If p is a size zero array
1249 and not an ARRAY_EXPR insert an empty array constructor and
1250 return.
1251 * gfortran.h: Add prototype for gfc_is_size_zero_array.
1252 * simplify.c (is_size_zero_array): Make non-static and rename into
1253 (gfc_is_size_zero_array): Check for parameter arrays of zero
1254 size by comparing shape and absence of constructor.
1255 (gfc_simplify_all): Use gfc_is_size_zero_array instead of
1256 is_size_zero_array.
1257 (gfc_simplify_count): Likewise.
1258 (gfc_simplify_iall): Likewise.
1259 (gfc_simplify_iany): Likewise.
1260 (gfc_simplify_iparity): Likewise.
1261 (gfc_simplify_minval): Likewise.
1262 (gfc_simplify_maxval): Likewise.
1263 (gfc_simplify_product): Likewise.
1264 (gfc_simplify_sum): Likewise.
1265
1266 2018-03-06 Steven G. Kargl <kargl@gcc.gnu.org>
1267
1268 PR fortran/56667
1269 * primary.c (match_sym_complex_part): Give the matcher for an implied
1270 do-loop a chance to run.
1271
1272 2018-03-03 Harald Anlauf <anlauf@gmx.de>
1273
1274 PR fortran/71085
1275 * trans-expr.c (gfc_apply_interface_mapping_to_expr): Do not
1276 dereference NULL pointer.
1277
1278 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
1279
1280 PR fortran/66128
1281 * simplify.c (is_size_zero_array): New function to check for size
1282 zero array.
1283 (gfc_simplify_all, gfc_simplify_any, gfc_simplify_count,
1284 gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
1285 gfc_simplify_minval, gfc_simplify_maxval, gfc_simplify_norm2,
1286 gfc_simplify_product, gfc_simplify_sum): Use it, and implement
1287 requirements from F2018.
1288
1289 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
1290
1291 PR fortran/51434
1292 * simplify.c (gfc_simplify_transfer): Resolve mold.
1293
1294 2018-03-03 Paul Thomas <pault@gcc.gnu.org>
1295
1296 PR fortran/80965
1297 * resolve.c (build_loc_call): Change symtree name from 'loc' to
1298 '_loc'.
1299
1300 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1301
1302 PR fortran/84219
1303 * target-memory.c (gfc_interpret_derived): Assert that BT_VOID
1304 components are caf tokens.
1305 (gfc_target_interpret_expr): Treat BT_VOID expressions as
1306 integers.
1307
1308 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1309
1310 PR fortran/84538
1311 * class.c (class_array_ref_detected): Remove the condition that
1312 there be no reference after the array reference.
1313 (find_intrinsic_vtab): Remove excess whitespace.
1314 * trans-array.c (gfc_conv_scalarized_array_ref): Rename 'tmp'
1315 as 'base and call build_class_array_ref earlier.
1316
1317 2018-02-28 Paul Thomas <pault@gcc.gnu.org>
1318
1319 PR fortran/83901
1320 * trans-stmt.c (trans_associate_var): Make sure that the se
1321 expression is a pointer type before converting it to the symbol
1322 backend_decl type.
1323
1324 2018-02-25 Steven G. Kargl <kargl@gcc.gnu.org>
1325
1326 PR fortran/83633
1327 * decl.c (variable_decl): Check that an explicit-shape-array with
1328 nonconstant bounds is allowed.
1329
1330 2018-02-25 Paul Thomas <pault@gcc.gnu.org>
1331
1332 PR fortran/84523
1333 * trans-intrinsic.c (gfc_conv_allocated): If the argument se
1334 has a pre block, add it to the expression pre block.
1335
1336 2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
1337
1338 PR fortran/78238
1339 * gfortran.h (gfc_integer_4_kind): Define.
1340 * resolve.c (resolve_select_type): Make sure that the
1341 kind of c->high is gfc_integer_4_kind.
1342
1343 2018-02-24 Steven G. Kargl <kargl@gcc.gnu.org>
1344
1345 PR fortran/30792
1346 * decl.c (gfc_match_data): Check for invalid substring in
1347 data-implied-do
1348
1349 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1350
1351 * intrinsic.texi: Arguments to MATMUL cannot both be rank one.
1352
1353 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1354
1355 PR fortran/84511
1356 * trans-io.c (transfer_expr): Deal with C_LOC in transfer statement.
1357
1358 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1359
1360 PR fortran/84346
1361 * interface.c (compare_actual_formal): Issue error if keyword is
1362 used in a statement function.
1363
1364 2018-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1365
1366 PR fortran/84506
1367 * trans-io.c (set_parameter_value_inquire): Adjust range check of
1368 negative unit values for kind=8 units to the kind=4 negative limit.
1369
1370 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1371
1372 PR fortran/83149
1373 * trans-types.c (gfc_sym_type): Test sym->ns->proc_name before
1374 accessing its components.
1375
1376 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1377
1378 PR fortran/83149
1379 * trans-decl.c (gfc_finish_var_decl): Test sym->ns->proc_name
1380 before accessing its components.
1381
1382 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1383
1384 PR fortran/83148
1385 * trans-const.c : Clean up some whitespace issues.
1386 * trans-expr.c (gfc_conv_initializer): If an iso_c_binding
1387 derived type has a kind value of zero, set it to the default
1388 integer kind.
1389
1390 2018-02-23 Janne Blomqvist <jb@gcc.gnu.org>
1391
1392 PR fortran/84519
1393 * trans-decl.c (gfc_build_builtin_function_decls): Add bool
1394 argument to stop and error stop decls.
1395 * trans-stmt.c (gfc_trans_stop): Add false value to argument
1396 lists.
1397
1398 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1399
1400 PR 78534
1401 PR 84509
1402 * trans-decl.c (gfc_build_builtin_function_decls): Pass
1403 gfc_int8_type node to pause_numeric, size_type_node to
1404 pause_string.
1405 * trans-stmt.c (gfc_trans_pause): Likewise.
1406
1407 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1408
1409 * gfortran.texi: Update Coarray API description.
1410 * trans-decl.c (gfc_build_builtin_function_decls): Use size_t for
1411 character lengths, int for exit codes.
1412 (generate_coarray_sym_init): Use size_t for character length.
1413 * trans-intrinsic.c (conv_co_collective): Likewise.
1414 * trans-stmt.c (gfc_trans_lock_unlock): Likewise.
1415 (gfc_trans_event_post_wait): Likewise.
1416 (gfc_trans_sync): Likewise.
1417 (gfc_trans_stop): Use size_t for character lengths, int for exit
1418 codes.
1419
1420 2018-02-20 Thomas Koenig <tkoenig@gcc.gnu.org>
1421
1422 PR fortran/48890
1423 PR fortran/83823
1424 * primary.c (gfc_convert_to_structure_constructor):
1425 For a constant string constructor, make sure the length
1426 is correct.
1427
1428 2018-02-19 Paul Thomas <pault@gcc.gnu.org>
1429
1430 PR fortran/83344
1431 PR fortran/83975
1432 * resolve.c (resolve_assoc_var): Rearrange the logic for the
1433 determination of the character length of associate names. If
1434 the associate name is missing a length expression or the length
1435 expression is not a constant and the target is not a variable,
1436 make the associate name allocatable and deferred length.
1437 * trans-decl.c (gfc_get_symbol_decl): Null the character length
1438 backend_decl for deferred length associate names that are not
1439 variables. Set 'length' to gfc_index_zero_node for character
1440 associate names, whose character length is a PARM_DECL.
1441
1442 2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1443
1444 PR fortran/35339
1445 * frontend-passes.c (traverse_io_block): Remove workaround for
1446 PR 80945.
1447
1448 2018-02-19 Andre Vehreschild <vehre@gcc.gnu.org>
1449
1450 * gfortran.texi: Document additional src/dst_type. Fix some typos.
1451 * trans-decl.c (gfc_build_builtin_function_decls): Declare the new
1452 argument of _caf_*_by_ref () with * e { get, send, sendget }.
1453 * trans-intrinsic.c (gfc_conv_intrinsic_caf_get): Add the type of the
1454 data referenced when generating a call to caf_get_by_ref ().
1455 (conv_caf_send): Same but for caf_send_by_ref () and
1456 caf_sendget_by_ref ().
1457
1458 2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1459
1460 PR fortran/84389
1461 * io.c (check_format): Allow FMT_COLON.
1462
1463 2018-02-18 Paul Thomas <pault@gcc.gnu.org>
1464
1465 PR fortran/80945
1466 * trans-array.c (gfc_conv_expr_descriptor): Set parmtype from
1467 the typenode in the case of deferred length characters.
1468
1469 2018-02-17 Thomas Koenig <tkoenig@gcc.gnu.org>
1470
1471 PR fortran/84270
1472 * frontend-passes (scalarized_expr): If the expression
1473 is an assumed size array, leave in the last reference
1474 and pass AR_SECTION instead of AR_FULL to gfc_resolve
1475 in order to avoid an error.
1476
1477 2018-02-17 Paul Thomas <pault@gcc.gnu.org>
1478
1479 PR fortran/84115
1480 * resolve.c (resolve_assoc_var): If a non-constant target expr.
1481 has no string length expression, make the associate variable
1482 into a deferred length, allocatable symbol.
1483 * trans-decl.c (gfc_is_reallocatable_lhs): Add and use a ptr to
1484 the symbol.
1485 * trans-stmt.c (trans_associate_var): Null and free scalar
1486 associate names that are allocatable. After assignment, remove
1487 the allocatable attribute to prevent reallocation.
1488
1489 2018-02-16 Jakub Jelinek <jakub@redhat.com>
1490
1491 PR fortran/84418
1492 * trans-openmp.c (gfc_trans_omp_clauses): For OMP_CLAUSE_LINEAR_REF
1493 kind set OMP_CLAUSE_LINEAR_STEP to TYPE_SIZE_UNIT times last_step.
1494
1495 2018-02-16 Dominique d'Humieres <dominiq@gcc.gnu.org>
1496
1497 PR fortran/84354
1498 * decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.
1499
1500 2018-02-15 Janus Weil <janus@gcc.gnu.org>
1501
1502 PR fortran/84409
1503 * interface.c (check_dtio_arg_TKR_intent): Add a check for character
1504 length.
1505
1506 2018-02-14 Janus Weil <janus@gcc.gnu.org>
1507
1508 PR fortran/84385
1509 * match.c (gfc_match_select_type): Fix check for selector in
1510 SELECT TYPE statement.
1511
1512 2018-02-13 Janus Weil <janus@gcc.gnu.org>
1513
1514 PR fortran/84313
1515 * symbol.c (check_conflict): Reject procedure pointers in common blocks.
1516
1517 2018-02-13 Alastair McKinstry <alastair.mckinstry@sceal.ie>
1518 Janne Blomqvist <jb@gcc.gnu.org>
1519
1520 * module.c (dump_module): Use lbasename to ensure that module
1521 files are reproducible.
1522
1523 2018-02-12 Janus Weil <janus@gcc.gnu.org>
1524
1525 PR fortran/84273
1526 * resolve.c (resolve_component): Fix checks of passed argument in
1527 procedure-pointer components.
1528
1529 2018-02-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1530
1531 PR fortran/35299
1532 * resolve.c (resolve_formal_arglist): Update error message.
1533
1534 2018-02-11 Andre Vehreschild <vehre@gcc.gnu.org>
1535
1536 * gfortran.texi: Fix typos in documentation of caf_register ().
1537 * trans-array.c (structure_alloc_comps): Only register a component of
1538 a derived typed corray, not of an ultimate component coarray.
1539
1540 2018-02-11 Steven G. Kargl <kargl@gcc.gnu.org>
1541
1542 PR fortran/54223
1543 PR fortran/84276
1544 * interface.c (compare_actual_formal): Add in_statement_function
1545 bool parameter. Skip check of INTENT attribute for statement
1546 functions. Arguments to a statement function cannot be optional,
1547 issue error for missing argument.
1548 (gfc_procedure_use, gfc_ppc_use, gfc_arglist_matches_symbol): Use
1549 in_statement_function.
1550
1551 2018-02-11 Paul Thomas <pault@gcc.gnu.org>
1552
1553 PR fortran/84074
1554 * trans-expr.c (gfc_conv_derived_to_class): Set the use_offset
1555 flag. If the is a vector subscript or the expression is not a
1556 variable, make the descriptor one-based.
1557
1558 2018-02-10 Paul Thomas <pault@gcc.gnu.org>
1559
1560 PR fortran/84141
1561 PR fortran/84155
1562 * trans-array.c (gfc_array_init_size): Revert the change made
1563 in revision 257356 setting the dtype.
1564 * trans-types.c (gfc_get_dtype): Do not use the cached dtype.
1565 Call gfc_get_dtype_rank_type every time.
1566
1567 PR fortran/56691
1568 * trans-array.c (gfc_conv_expr_descriptor): If the source array
1569 is a descriptor type, use its offset, removing the condition
1570 that is be a class expression.
1571
1572 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1573
1574 PR fortran/82994
1575 * match.c (gfc_match_deallocate): Check for NULL pointer.
1576
1577 2018-02-07 Thomas Koenig <tkoenig@gcc.gnu.org>
1578
1579 PR fortran/68560
1580 * trans-intrinsic.c (gfc_conv_intrinsic_shape): New function.
1581 (gfc_conv_intrinsic_function): Call it.
1582
1583 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1584
1585 PR fortran/82049
1586 * match.c (gfc_match_type_spec): If the charlen is non-NULL, then
1587 try to resolve it. While here return early if possible.
1588
1589 2018-02-04 Paul Thomas <pault@gcc.gnu.org>
1590
1591 PR fortran/84115
1592 * trans-decl.c (gfc_get_symbol_decl): Do not finish the decl of
1593 'length' if the symbol charlen backend_decl is an indirect ref.
1594
1595 2018-02-03 Paul Thomas <pault@gcc.gnu.org>
1596
1597 PR fortran/84141
1598 PR fortran/84155
1599 * trans-array.c (gfc_array_init_size): Instead of gfc_get_dtype
1600 use gfc_get_dtype_rank_type.
1601
1602 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1603
1604 PR 83975
1605 PR 83344
1606 * resolve.c (resolve_assoc_var): Generate an error if
1607 target length unknown.
1608
1609 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1610
1611 PR fortran/83705
1612 * simplify.c (gfc_simplify_repeat): Increase limit for deferring
1613 to runtime, print a warning message.
1614
1615 2018-01-31 Jakub Jelinek <jakub@redhat.com>
1616
1617 PR fortran/84116
1618 * openmp.c (gfc_match_omp_clauses): If all the linear
1619 gfc_match_omp_variable_list calls failed, don't gfc_free_omp_namelist
1620 nor set *head = NULL. Formatting fixes.
1621
1622 2018-01-31 Paul Thomas <pault@gcc.gnu.org>
1623
1624 PR fortran/84088
1625 * trans-expr.c (gfc_conv_procedure_call): If the parm expr is
1626 an address expression passed to an assumed rank dummy, convert
1627 to an indirect reference.
1628
1629 2018-01-31 Thomas Koenig <tkoenig@gcc.gnu.org>
1630
1631 * dump-parse-tree.c (write_proc): Use sym_name (which may
1632 be sym->binding_label) instead of sym->name.
1633
1634 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1635
1636 * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
1637 of int for slen.
1638
1639 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1640
1641 PR fortran/78534
1642 * trans-expr.c (fill_with_spaces): Use memset instead of
1643 generating loop.
1644 (gfc_trans_string_copy): Improve opportunity to use builtins with
1645 constant lengths.
1646
1647 2018-01-30 Jakub Jelinek <jakub@redhat.com>
1648
1649 PR debug/84131
1650 * trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
1651 to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
1652
1653 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1654
1655 PR fortran/84134
1656 * array.c (gfc_ref_dimen_size): Whitespace fixes. If stride is
1657 zero, return false.
1658
1659 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1660
1661 PR fortran/84133
1662 * frontend-passes (matmul_to_var_expr): Return early if
1663 in association list.
1664 (inline_matmul_assign): Likewise.
1665
1666 2017-01-29 Thomas Koenig <tkoenig@gcc.gnu.org>
1667
1668 PR fortran/84073
1669 * resolve.c (resolve_component): Ensure BIND(C) character
1670 components have length one.
1671 (resolve_symbol): Likewise for variables.
1672
1673 2018-01-27 Jakub Jelinek <jakub@redhat.com>
1674
1675 PR fortran/84065
1676 * decl.c (add_init_expr_to_sym): Ignore initializers for too large
1677 lengths.
1678
1679 2018-01-26 Damian Rouson <damian@sourceryinstitute.org>
1680 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
1681 Soren Rasmussen <s.c.rasmussen@gmail.com>
1682
1683 Partial support for Fortran 2018 teams features.
1684
1685 * array.c (gfc_match_array_ref): add team attribute in coarray
1686 transfers.
1687 * check.c (gfc_check_get_team, gfc_check_team_number): add new
1688 functions for get_team and team_number.
1689 * dump-parse-tree.c (show_code_node): add new statements: form team,
1690 change team, end team, and sync team.
1691 * expr.c (gfc_find_team_co): add new function.
1692 * gfortran.h: add new statements.
1693 * intrinsic.c (add_functions): add get_team and team_number functions.
1694 * intrinsic.h: add get_team and team_number prototypes for check,
1695 simplify, and resolve.
1696 * iresolve.c (gfc_resolve_get_team, gfc_resolve_team_number): add new
1697 functions.
1698 * iso-fortran-env.def: add the team_type derived type.
1699 * match.c (gfc_match_if, gfc_match_form_team, gfc_match_team_number)
1700 (gfc_match_end_team, gfc_match_sync_team, gfc_match_change_team):
1701 add change team, end team, form team, sync team match and functions.
1702 * match.h: add new prototypes for change team, end team, form team,
1703 and sync team.
1704 * parse.c (decode_statement): add cases for change team, end team,
1705 form team, and sync team.
1706 * resolve.c: add cases for exec form team, change team, end team, and
1707 sync team.
1708 * simplify.c (gfc_simplify_get_team): add new function for get team.
1709 * st.c (gfc_free_statement): add cases exec for change team, end team,
1710 form team, sync team.
1711 * trans-decl.c (gfor_fndecl_caf_form_team)
1712 (gfor_fndecl_caf_change_team, gfor_fndecl_caf_end_team)
1713 (gfor_fndecl_caf_sync_team, gfor_fndecl_caf_get_team)
1714 (gfor_fndecl_caf_team_number): add functions and definitions.
1715 * trans-intrinsic.c (conv_caf_send, conv_intrinsic_team_number): add
1716 new function and team_type argument support.
1717 * trans-stmt.c (gfc_trans_form_team, gfc_trans_change_team)
1718 (gfc_trans_end_team, gfc_trans_sync_team): add new functions.
1719 * trans-stmt.h: add new prototypes.
1720 * trans-types.c (gfc_get_derived_type): check condition for team_type.
1721 * trans.c (trans_code): new exec cases for form team, change team, end
1722 team, and sync team.
1723 * trans.h: add new prototypes.
1724
1725 2018-01-26 Steven G. Kargl <kargl@gcc.gnu.org>
1726
1727 PR fortran/83998
1728 * simplify.c (compute_dot_product): Initialize result to INTEGER(1) 0
1729 or .false. The summation does the correct type conversion.
1730 (gfc_simplify_dot_product): Special case zero-sized arrays.
1731
1732 2018-25-01 Paul Thomas <pault@gcc.gnu.org>
1733
1734 PR fortran/37577
1735 * array.c (gfc_match_array_ref): If standard earlier than F2008
1736 it is an error if the reference dimension is greater than 7.
1737 libgfortran.h : Increase GFC_MAX_DIMENSIONS to 15. Change the
1738 dtype masks and shifts accordingly.
1739 * trans-array.c (gfc_conv_descriptor_dtype): Use the dtype
1740 type node to check the field.
1741 (gfc_conv_descriptor_dtype): Access the rank field of dtype.
1742 (duplicate_allocatable_coarray): Access the rank field of the
1743 dtype descriptor rather than the dtype itself.
1744 * trans-expr.c (get_scalar_to_descriptor_type): Store the type
1745 of 'scalar' on entry and use its TREE_TYPE if it is ARRAY_TYPE
1746 (ie. a character).
1747 (gfc_conv_procedure_call): Pass TREE_OPERAND (tmp,0) to
1748 get_scalar_to_descriptor_type if the actual expression is a
1749 constant.
1750 (gfc_trans_structure_assign): Assign the rank directly to the
1751 dtype rank field.
1752 * trans-intrinsic.c (gfc_conv_intrinsic_rank): Cast the result
1753 to default integer kind.
1754 (gfc_conv_intrinsic_sizeof): Obtain the element size from the
1755 'elem_len' field of the dtype.
1756 * trans-io.c (gfc_build_io_library_fndecls): Replace
1757 gfc_int4_type_node with dtype_type_node where necessary.
1758 (transfer_namelist_element): Use gfc_get_dtype_rank_type for
1759 scalars.
1760 * trans-types.c : Provide 'get_dtype_type_node' to acces the
1761 dtype_type_node and, if necessary, build it.
1762 The maximum size of an array element is now determined by the
1763 maximum value of size_t.
1764 Update the description of the array descriptor, including the
1765 type def for the dtype_type.
1766 (gfc_get_dtype_rank_type): Build a constructor for the dtype.
1767 Distinguish RECORD_TYPEs that are BT_DERIVED or BT_CLASS.
1768 (gfc_get_array_descriptor_base): Change the type of the dtype
1769 field to dtype_type_node.
1770 (gfc_get_array_descr_info): Get the offset to the rank field of
1771 the dtype.
1772 * trans-types.h : Add a prototype for 'get_dtype_type_node ()'.
1773 * trans.h : Define the indices of the dtype fields.
1774
1775 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
1776
1777 PR fortran/83866
1778 * decl.c (gfc_match_derived_decl): If eos not matched, recover
1779 and emit error about garbage after declaration.
1780
1781 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
1782
1783 PR fortran/83898
1784 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor
1785 for characters.
1786
1787 2018-01-22 Janne Blomqvist <jb@gcc.gnu.org>
1788
1789 PR 78534
1790 PR 83704
1791 * arith.c (gfc_arith_concat): Use size_t for string length.
1792 (gfc_compare_string): Likewise.
1793 (gfc_compare_with_Cstring): Likewise.
1794 * array.c (gfc_resolve_character_array_constructor): Use
1795 HOST_WIDE_INT, gfc_mpz_get_hwi.
1796 * check.c (gfc_check_fe_runtime_error): Use size_t.
1797 * data.c (create_character_initializer): Use HOST_WIDE_INT,
1798 gfc_extract_hwi.
1799 * decl.c (gfc_set_constant_character_len): Use gfc_charlen_t.
1800 (add_init_expr_to_sym): Use HOST_WIDE_INT.
1801 * expr.c (gfc_build_init_expr): Use HOST_WIDE_INT,
1802 gfc_extract_hwi.
1803 (gfc_apply_init): Likewise.
1804 * match.h (gfc_set_constant_character_len): Update prototype.
1805 * primary.c (match_string_constant): Use size_t.
1806 * resolve.c (resolve_ordinary_assign): Use HOST_WIDE_INT,
1807 gfc_mpz_get_hwi.
1808 * simplify.c (init_result_expr): Likewise.
1809 (gfc_simplify_len_trim): Use size_t.
1810 * target-memory.c (gfc_encode_character): Use size_t.
1811 (gfc_target_encode_expr): Use HOST_WIDE_INT, gfc_mpz_get_hwi.
1812 (interpret_array): Use size_t.
1813 (gfc_interpret_character): Likewise.
1814 * target-memory.h (gfc_encode_character): Update prototype.
1815 (gfc_interpret_character): Likewise.
1816 (gfc_target_interpret_expr): Likewise.
1817 * trans-const.c (gfc_build_string_const): Use size_t for length
1818 argument.
1819 (gfc_build_wide_string_const): Likewise.
1820 * trans-const.h (gfc_build_string_const): Likewise.
1821 (gfc_build_wide_string_const): Likewise.
1822
1823 2018-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
1824
1825 PR fortran/83900
1826 * simplify.c (gfc_simplify_matmul): Set return type correctly.
1827
1828 2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
1829
1830 PR fortran/83900
1831 * simplify.c (gfc_simplify_matmul): Delete bogus assertion.
1832
1833 2018-01-17 Harald Anlauf <anlauf@gmx.de>
1834
1835 PR fortran/83864
1836 * expr.c (add_init_expr_to_sym): Do not dereference NULL pointer.
1837
1838 2018-01-17 Harald Anlauf <anlauf@gmx.de>
1839
1840 PR fortran/83874
1841 * decl.c (add_init_expr_to_sym): Do not dereference NULL pointer.
1842
1843 2018-01-15 Louis Krupp <louis.krupp@zoho.com>
1844
1845 PR fortran/82257
1846 * interface.c (compare_rank): Don't try to retrieve CLASS_DATA
1847 from symbol marked unlimited polymorphic.
1848 * resolve.c (resolve_structure_cons): Likewise.
1849 * misc.c (gfc_typename): Don't dereference derived->components
1850 if it's NULL.
1851
1852 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
1853
1854 PR fortran/54613
1855 * gfortran.h (gfc_check_f): Rename f4ml to f5ml.
1856 (gfc_logical_4_kind): New macro
1857 * intrinsic.h (gfc_simplify_minloc): Add a gfc_expr *argument.
1858 (gfc_simplify_maxloc): Likewise.
1859 (gfc_resolve_maxloc): Likewise.
1860 (gfc_resolve_minloc): Likewise.
1861 * check.c (gfc_check_minloc_maxloc): Add checking for "back"
1862 argument; also raise error if it is used (for now). Add it
1863 if it isn't present.
1864 * intrinsic.c (add_sym_4ml): Rename to
1865 (add_sym_5ml), adjust for extra argument.
1866 (add_functions): Add "back" constant. Adjust maxloc and minloc
1867 for back argument.
1868 * iresolve.c (gfc_resolve_maxloc): Add back argument. If back is
1869 not of gfc_logical_4_kind, convert.
1870 (gfc_resolve_minloc): Likewise.
1871 * simplify.c (gfc_simplify_minloc): Add back argument.
1872 (gfc_simplify_maxloc): Likewise.
1873 * trans-intinsic.c (gfc_conv_intrinsic_minmaxloc): Rename last
1874 argument to %VAL to ensure passing by value.
1875 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_minmaxloc
1876 also for library calls.
1877
1878 2018-01-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1879
1880 PR fortran/82007
1881 * resolve.c (resolve_transfer): Delete code looking for 'DT'
1882 format specifiers in format strings. Set formatted to true if a
1883 format string or format label is present.
1884 * trans-io.c (get_dtio_proc): Likewise. (transfer_expr): Fix
1885 whitespace.
1886
1887 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1888
1889 PR fortran/83744
1890 * dump-parse-tree.c (get_c_type_name): Remove extra line.
1891 Change for loop to use declaration in for loop. Handle BT_LOGICAL
1892 and BT_CHARACTER.
1893 (write_decl): Add where argument. Fix indentation. Replace
1894 assert with error message. Add typename to warning
1895 in comment.
1896 (write_type): Adjust locus to call of write_decl.
1897 (write_variable): Likewise.
1898 (write_proc): Likewise. Replace assert with error message.
1899
1900 2018-01-13 Paul Thomas <pault@gcc.gnu.org>
1901
1902 PR fortran/52162
1903 * trans-expr.c (gfc_trans_scalar_assign): Flag is_alloc_lhs if
1904 the rhs expression is neither an elemental nor a conversion
1905 function.
1906
1907 PR fortran/83622
1908 * trans-array.c (is_pointer_array): Remove unconditional return
1909 of false for -fopenmp.
1910
1911 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1912 <emsr@gcc.gnu.org>
1913
1914 PR fortran/83803
1915 * dump-parse-tree.c (write_proc): Always emit closing parenthesis
1916 for functions.
1917
1918 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1919
1920 PR fortran/82367
1921 * resolve.c (resolve_allocate_expr): Check for NULL pointer.
1922
1923 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1924
1925 PR fortran/83093
1926 * resolve.c (resolve_charlen): Check the type of cl->length
1927 after resolution.
1928
1929 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1930
1931 PR fortran/83740
1932 * trans-array.c (gfc_trans_array_ctor_element): Fix formatting.
1933
1934 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1935
1936 PR fortran/83740
1937 * trans-array.c (gfc_trans_array_ctor_element): Convert RHS to the
1938 LHS type when assigning.
1939
1940 2018-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
1941
1942 PR fortran/83742
1943 * expr.c (gfc_is_simply_contiguous): Check for NULL pointer.
1944
1945 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1946
1947 * match.c (gfc_match_allocate): Check for NULL pointer.
1948
1949 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1950
1951 * expr.c (gfc_check_pointer_assign): Fix typo in comment.
1952
1953 2018-01-08 Paul Thomas <pault@gcc.gnu.org>
1954
1955 PR fortran/83611
1956 * decl.c (gfc_get_pdt_instance): If parameterized arrays have
1957 an initializer, convert the kind parameters and add to the
1958 component if the instance.
1959 * trans-array.c (structure_alloc_comps): Add 'is_pdt_type' and
1960 use it with case COPY_ALLOC_COMP. Call 'duplicate_allocatable'
1961 for parameterized arrays. Clean up typos in comments. Convert
1962 parameterized array initializers and copy into the array.
1963 * trans-expr.c (gfc_trans_scalar_assign): Do a deep copy for
1964 parameterized types.
1965 *trans-stmt.c (trans_associate_var): Deallocate associate vars
1966 as necessary, when they are PDT function results for example.
1967
1968 PR fortran/83731
1969 * trans-array.c (structure_alloc_comps): Only compare len parms
1970 when they are declared explicitly.
1971
1972 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
1973
1974 PR fortran/50892
1975 * trans-expr.c (gfc_trans_pointer_assignment): fold_convert rhs to
1976 lhs type.
1977
1978 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
1979
1980 PR fortran/78534
1981 PR fortran/66310
1982 * array.c (got_charlen): Use gfc_charlen_int_kind.
1983 * class.c (gfc_find_derived_vtab): Use gfc_size_kind instead of
1984 hardcoded kind.
1985 (find_intrinsic_vtab): Likewise.
1986 * decl.c (match_char_length): Use gfc_charlen_int_kind.
1987 (add_init_expr_to_sym): Use gfc_charlen_t and gfc_charlen_int_kind.
1988 (gfc_match_implicit): Use gfc_charlen_int_kind.
1989 * dump-parse-tree.c (show_char_const): Use gfc_charlen_t and size_t.
1990 (show_expr): Use HOST_WIDE_INT_PRINT_DEC.
1991 * expr.c (gfc_get_character_expr): Length parameter of type
1992 gfc_charlen_t.
1993 (gfc_get_int_expr): Value argument of type HOST_WIDE_INT.
1994 (gfc_extract_hwi): New function.
1995 (simplify_const_ref): Make string_len of type gfc_charlen_t.
1996 (gfc_simplify_expr): Use HOST_WIDE_INT for substring refs.
1997 * frontend-passes.c (optimize_trim): Use gfc_charlen_int_kind.
1998 * gfortran.h (gfc_mpz_get_hwi): New prototype.
1999 (gfc_mpz_set_hwi): Likewise.
2000 (gfc_charlen_t): New typedef.
2001 (gfc_expr): Use gfc_charlen_t for character lengths.
2002 (gfc_size_kind): New extern variable.
2003 (gfc_extract_hwi): New prototype.
2004 (gfc_get_character_expr): Use gfc_charlen_t for character length.
2005 (gfc_get_int_expr): Use HOST_WIDE_INT type for value argument.
2006 * gfortran.texi: Update description of hidden string length argument.
2007 * iresolve.c (check_charlen_present): Use gfc_charlen_int_kind.
2008 (gfc_resolve_char_achar): Likewise.
2009 (gfc_resolve_repeat): Pass string length directly without
2010 temporary, use gfc_charlen_int_kind.
2011 (gfc_resolve_transfer): Use gfc_charlen_int_kind.
2012 * match.c (select_intrinsic_set_tmp): Use HOST_WIDE_INT for charlen.
2013 * misc.c (gfc_mpz_get_hwi): New function.
2014 (gfc_mpz_set_hwi): New function.
2015 * module.c (atom_int): Change type from int to HOST_WIDE_INT.
2016 (parse_integer): Don't complain about large integers.
2017 (write_atom): Use HOST_WIDE_INT for integers.
2018 (mio_integer): Handle integer type mismatch.
2019 (mio_hwi): New function.
2020 (mio_intrinsic_op): Use HOST_WIDE_INT.
2021 (mio_array_ref): Likewise.
2022 (mio_expr): Likewise.
2023 * primary.c (match_substring): Use gfc_charlen_int_kind.
2024 * resolve.c (resolve_substring_charlen): Use gfc_charlen_int_kind.
2025 (resolve_character_operator): Likewise.
2026 (resolve_assoc_var): Likewise.
2027 (resolve_select_type): Use HOST_WIDE_INT for charlen, use snprintf.
2028 (resolve_charlen): Use mpz_sgn to determine sign.
2029 * simplify.c (gfc_simplify_repeat): Use HOST_WIDE_INT/gfc_charlen_t
2030 instead of long.
2031 * symbol.c (generate_isocbinding_symbol): Use gfc_charlen_int_kind.
2032 * target-memory.c (size_character): Length argument of type
2033 gfc_charlen_t.
2034 (gfc_encode_character): Likewise.
2035 (gfc_interpret_character): Use gfc_charlen_t.
2036 * target-memory.h (gfc_encode_character): Modify prototype.
2037 * trans-array.c (gfc_trans_array_ctor_element): Use existing type.
2038 (get_array_ctor_var_strlen): Use gfc_conv_mpz_to_tree_type.
2039 (trans_array_constructor): Use existing type.
2040 (get_array_charlen): Likewise.
2041 * trans-const.c (gfc_conv_mpz_to_tree_type): New function.
2042 * trans-const.h (gfc_conv_mpz_to_tree_type): New prototype.
2043 * trans-decl.c (gfc_trans_deferred_vars): Use existing type.
2044 (add_argument_checking): Likewise.
2045 * trans-expr.c (gfc_class_len_or_zero_get): Build const of type
2046 gfc_charlen_type_node.
2047 (gfc_conv_intrinsic_to_class): Use gfc_charlen_int_kind instead of
2048 4, fold_convert to correct type.
2049 (gfc_conv_class_to_class): Build const of type size_type_node for
2050 size.
2051 (gfc_copy_class_to_class): Likewise.
2052 (gfc_conv_string_length): Use same type in expression.
2053 (gfc_conv_substring): Likewise, use HOST_WIDE_INT for charlen.
2054 (gfc_conv_string_tmp): Make sure len is of the right type.
2055 (gfc_conv_concat_op): Use same type in expression.
2056 (gfc_conv_procedure_call): Likewise.
2057 (fill_with_spaces): Comment out memset() block due to spurious
2058 -Wstringop-overflow warnings.
2059 (gfc_trans_string_copy): Use gfc_charlen_type_node.
2060 (alloc_scalar_allocatable_for_subcomponent_assignment):
2061 fold_convert to right type.
2062 (gfc_trans_subcomponent_assign): Likewise.
2063 (trans_class_vptr_len_assignment): Build const of correct type.
2064 (gfc_trans_pointer_assignment): Likewise.
2065 (alloc_scalar_allocatable_for_assignment): fold_convert to right
2066 type in expr.
2067 (trans_class_assignment): Build const of correct type.
2068 * trans-intrinsic.c (gfc_conv_associated): Likewise.
2069 (gfc_conv_intrinsic_repeat): Do calculation in sizetype.
2070 * trans-io.c (gfc_build_io_library_fndecls): Use
2071 gfc_charlen_type_node for character lengths.
2072 (set_string): Convert to right type in assignment.
2073 * trans-stmt.c (gfc_trans_label_assign): Build const of
2074 gfc_charlen_type_node.
2075 (trans_associate_var): Likewise.
2076 (gfc_trans_character_select): Likewise.
2077 (gfc_trans_allocate): Likewise, don't typecast strlen result.
2078 (gfc_trans_deallocate): Don't typecast strlen result.
2079 * trans-types.c (gfc_size_kind): New variable.
2080 (gfc_init_types): Determine gfc_charlen_int_kind and gfc_size_kind
2081 from size_type_node.
2082 * trans-types.h: Fix comment.
2083
2084 2018-01-04 Thomas Koenig <tkoenig@gcc.gnu.org>
2085
2086 PR fortran/83683
2087 PR fortran/45689
2088 * check.c (gfc_check_eoshift): Check for string length and
2089 for conformance of boundary.
2090 * intrinsic.c (add_functions): Add gfc_simplify_eoshift.
2091 * intrinsic.h: Add prototype for gfc_simplify_eoshift.
2092 * simplify.c (gfc_simplify_eoshift): New function.
2093
2094 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
2095 Alan Hayward <alan.hayward@arm.com>
2096 David Sherwood <david.sherwood@arm.com>
2097
2098 * trans-types.c (gfc_type_for_mode): Handle MODE_VECTOR_BOOL.
2099
2100 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
2101 Alan Hayward <alan.hayward@arm.com>
2102 David Sherwood <david.sherwood@arm.com>
2103
2104 * trans-types.c (gfc_type_for_mode): Check valid_vector_subparts_p.
2105
2106 2018-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
2107
2108 PR fortran/83664
2109 * check.c (gfc_check_eoshift): Error for missing boundary if array
2110 is not one of the standard types.
2111
2112 2018-01-03 Jakub Jelinek <jakub@redhat.com>
2113
2114 Update copyright years.
2115
2116 * gfortranspec.c (lang_specific_driver): Update copyright notice
2117 dates.
2118 * gfc-internals.texi: Bump @copying's copyright year.
2119 * gfortran.texi: Ditto.
2120 * intrinsic.texi: Ditto.
2121 * invoke.texi: Ditto.
2122
2123 2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
2124
2125 PR fortran/45689
2126 * intrinsic.c (add_function): Add gfc_simplify_maxloc and
2127 gfc_simplify_minloc to maxloc and minloc, respectively.
2128 * intrinsic.h: Add prototypes for gfc_simplify_minloc
2129 and gfc_simplify_maxloc.
2130 * simplify.c (min_max_chose): Adjust prototype. Modify function
2131 to have a return value which indicates if the extremum was found.
2132 (is_constant_array_expr): Fix typo in comment.
2133 (simplify_minmaxloc_to_scalar): New function.
2134 (simplify_minmaxloc_nodim): New function.
2135 (new_array): New function.
2136 (simplify_minmaxloc_to_array): New function.
2137 (gfc_simplify_minmaxloc): New function.
2138 (simplify_minloc): New function.
2139 (simplify_maxloc): New function.
2140
2141 2018-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
2142
2143 PR fortran/45689
2144 PR fortran/83650
2145 * simplify.c (gfc_simplify_cshift): Re-implement to allow full
2146 range of arguments.
2147
2148 2018-01-01 Paul Thomas <pault@gcc.gnu.org>
2149
2150 PR fortran/83076
2151 * resolve.c (resolve_fl_derived0): Add caf_token fields for
2152 allocatable and pointer scalars, when -fcoarray selected.
2153 * trans-types.c (gfc_copy_dt_decls_ifequal): Copy the token
2154 field as well as the backend_decl.
2155 (gfc_get_derived_type): Flag GFC_FCOARRAY_LIB for module
2156 derived types that are not vtypes. Components with caf_token
2157 attribute are pvoid types. For a component requiring it, find
2158 the caf_token field and have the component token field point to
2159 its backend_decl.
2160
2161 PR fortran/83319
2162 *trans-types.c (gfc_get_array_descriptor_base): Add the token
2163 field to the descriptor even when codimen not set.
2164 \f
2165 Copyright (C) 2018 Free Software Foundation, Inc.
2166
2167 Copying and distribution of this file, with or without modification,
2168 are permitted in any medium without royalty provided the copyright
2169 notice and this notice are preserved.