1 2018-10-31 Martin Liska <mliska@suse.cz>
3 * trans-decl.c (struct module_hasher): Call htab_hash_string
4 for s->name and not for s.
6 2018-10-30 Thomas Koenig <tkoenig@gcc.gnu.org>
9 * simplify.c (simplify_min_max): Do not convert the type of the
12 2017-10-28 Thomas Koenig <tkoenig@gcc.gnu.org>
15 * gfortran.h (gfc_isym_id): Add GFC_ISYM_FINDLOC.
16 (gfc_check_f): Add f6fl field.
17 (gfc_simplify_f): Add f6 field.
18 (gfc_resolve_f): Likewise.
19 (gfc_type_letter): Add optional logical_equas_int flag.
20 * check.c (intrinsic_type_check): New function.
21 (gfc_check_findloc): New function.
22 * intrinsics.c (gfc_type_letter): If logical_equals_int is
24 (add_sym_5ml): Reformat comment.
25 (add_sym_6fl): New function.
26 (add_functions): Add findloc.
27 (check_arglist): Add sixth argument, handle it.
28 (resolve_intrinsic): Likewise.
29 (check_specific): Handle findloc.
30 * intrinsic.h (gfc_check_findloc): Add prototype.
31 (gfc_simplify_findloc): Likewise.
32 (gfc_resolve_findloc): Likewise.
33 (MAX_INTRINSIC_ARGS): Adjust.
34 * iresolve.c (gfc_resolve_findloc): New function.
35 * simplify.c (gfc_simplify_minmaxloc): Make static.
36 (simplify_findloc_to_scalar): New function.
37 (simplify_findloc_nodim): New function.
38 (simplify_findloc_to_array): New function.
39 (gfc_simplify_findloc): New function.
40 (gfc_conv_intrinsic_findloc): New function.
41 (gfc_conv_intrinsic_function): Handle GFC_ISYM_FINDLOC.
42 (gfc_is_intrinsic_libcall): Likewise.
44 2018-10-27 Thomas Koenig <tkoenig@gcc.gnu.org>
47 * frontend-passes.c (check_locus_code): Add information that
48 warning about missing location information points to an
49 inconsisten internal state.
50 (check_locus_expr): Likewise.
52 2018-10-25 Jakub Jelinek <jakub@redhat.com>
55 * openmp.c (gfc_match_omp_clauses): Parse simd, monotonic and
56 nonmonotonic modifiers regardless of if they have been parsed
57 already or if the opposite one has. Fix up check whether
58 comma after modifier should be parsed.
59 (resolve_omp_clauses): Diagnose schedule modifier restrictions.
61 2018-10-23 Paul Thomas <pault@gcc.gnu.org>
64 * frontend-passes.c (get_len_call): New function to generate a
65 call to intrinsic LEN.
66 (create_var): Use this to make length expressions for variable
68 Clean up some white space issues.
70 2018-10-21 Paul Thomas <pault@gcc.gnu.org>
73 * trans-expr.c (gfc_trans_pointer_assignment): Set the string
74 length for array valued deferred length lhs.
76 2018-10-18 Tobias Burnus <burnus@net-b.de>
79 * trans-array.c (gfc_is_reallocatable_lhs): Detect allocatable
82 2018-10-18 Paul Thomas <pault@gcc.gnu.org>
85 * trans-stmt.c (trans_associate_var): All strings that return
86 as pointer types can be assigned directly to the associate
87 name so remove 'attr' and the condition that uses it.
89 2018-10-18 Paul Thomas <pault@gcc.gnu.org>
92 * trans-decl.c (gfc_get_symbol_decl): Deal correctly with the
93 initialization with NULL() of a deferred length pointer.
95 2018-10-17 Tobias Burnus <burnus@net-b.de>
98 * resolve.c (resolve_select_type): Use correct variable.
100 2018-10-17 David Malcolm <dmalcolm@redhat.com>
102 * Make-lang.in (selftest-fortran): New.
104 2018-10-17 Paul Thomas <pault@gcc.gnu.org>
111 * resolve.c (resolve_variable): Fix up expressions with array
112 associate names, where the parser did not detect that this is
113 array and there was no array part_ref in the expression.
115 2018-10-16 Tobias Burnus <burnus@net-b.de>
118 * trans-array.c (gfc_array_init_size, gfc_array_allocate):
119 Rename argument e3_is_array_constr to e3_has_nodescriptor
121 * trans-stmt.c (gfc_trans_allocate): Also fix lower bound
122 to 1 for nonalloc/nonpointer func results/vars besides
125 2018-10-16 Tobias Burnus <burnus@net-b.de>
128 * trans-stmt.c (form_team, change_team, sync_team):
129 Don't ignore argse.pre/argse.post.
131 2018-10-15 Paul Thomas <pault@gcc.gnu.org>
132 Tobias Burnus <burnus@gcc.gnu.org>
135 * resolve.c (resolve_assoc_var): Add missing array spec for
136 class associate names.
137 (resolve_select_type): Handle case where last typed component
138 of the selector has a different type to the expression.
139 * trans-expr.c (gfc_find_and_cut_at_last_class_ref): Replace
140 call to gfc_expr_to_initialize with call to gfc_copy_expr.
141 (gfc_conv_class_to_class): Guard assignment to 'len' field
142 against case where zero constant is supplied.
144 2018-10-12 Tobias Burnus <burnus@net-b.de>
147 * expr.c (gfc_simplify_expr): Avoid simplifying
148 the 'array' argument to lbound/ubound/lcobound/
151 2018-10-12 Tobias Burnus <burnus@net-b.de>
154 * decl.c (get_proc_name): Return with error before
157 2018-10-11 Tobias Burnus <burnus@net-b.de>
160 2018-10-09 Tobias Burnus <burnus@net-b.de>
163 * resolve.c (resolve_ref): Reject nonscalar
164 substring references.
166 2018-10-09 David Malcolm <dmalcolm@redhat.com>
168 * cpp.c (gfc_cpp_init_0): Update for renamings.
169 (cb_cpp_error): Rename to...
170 (cb_cpp_diagnostic): ...this, converting level and reason to
173 2018-10-09 Tobias Burnus <burnus@net-b.de>
176 * resolve.c (resolve_ref): Reject nonscalar
177 substring references.
179 2018-10-09 Paul Thomas <pault@gcc.gnu.org>
182 * trans-array.c (gfc_get_array_span): Deal with deferred char
183 array components having a TYPE_MAX_VALUE of zero.
184 (gfc_array_init_size): Use the hidden string length component
185 to build the descriptor dtype.
186 (gfc_array_allocate): Remove the erroneous replacement of the
187 charlen backend decl with a temporary.
188 (gfc_conv_expr_descriptor): Use the ss_info string length in
189 the case of deferred character components.
190 (gfc_alloc_allocatable_for_assignment): Actually compare the
191 string lengths for deferred characters. Make sure that kind > 1
192 is handled correctly. Set the span field of the descriptor.
193 * trans-intrinsic.c (gfc_conv_intrinsic_len): Remove the stupid
197 * trans-array.c (gfc_array_allocate): Set the span field for
198 variable length character arrays.
200 2018-10-08 Cesar Philippidis <cesar@codesourcery.com>
202 * expr.c (gfc_check_pointer_assign): Demote "Assignment to
203 contiguous pointer from non-contiguous target" to a warning.
205 2018-10-08 Paul Thomas <pault@gcc.gnu.org>
208 * trans-stmt.c (trans_associate_var): Character associate names
209 with variable string length do not have to be deferred length
210 for the string length to be set, if variable.
212 2018-10-06 Thomas Koenig <tkoenig@gcc.gnu.org>
215 * gfortran.h (enum arith): Add ARITH_WRONGCONCAT.
216 * arith.h (gfc_arith_error): Issue error for ARITH_WRONGCONCAT.
217 (gfc_arith_concat): If the types of op1 and op2 are not
218 character of if their kinds do not match, issue ARITH_WRONGCONCAT.
220 2018-10-06 Paul Thomas <pault@gcc.gnu.org>
223 * resolve.c (resolve_fl_procedure): Include class functions in
224 the test that elemental function results be scalar.
226 2018-10-06 Thomas Koenig <tkoenig@gcc.gnu.org>
229 * simplify.c (gfc_simplify_cshift): Extend size of hs_ex and ss_ex
230 by one. Set extents one past the array boundaries to zero to avoid
231 warning with instrumented compiler.
232 (gfc_simplify_eoshift): Likewise, only for ss_ex.
234 2018-10-05 Paul Thomas <pault@gcc.gnu.org>
237 * trans-decl.c (gfc_get_symbol_decl): Make sure that deferred
238 character length pointer initializer has the right type to fix
239 problem with deferred_character_24.f90 on big endian.
241 2018-10-03 Jeff Law <law@redhat.comg>
243 * trans-types.c (get_typenode_from_name): Moved into gcc/tree.c.
245 2018-10-01 Paul Thomas <pault@gcc.gnu.org>
248 * trans-expr.c (gfc_trans_assignment_1): Set the 'identical'
249 flag in the call to gfc_check_dependency.
251 2018-09-30 Paul Thomas <pault@gcc.gnu.org>
254 * trans-array.c (gfc_is_reallocatable_lhs): Correct the problem
255 introduced by r264358, which prevented components of associate
256 names from being reallocated on assignment.
258 2018-09-30 Paul Thomas <pault@gcc.gnu.org>
262 * trans-array.c (gfc_conv_scalarized_array_ref): If this is a
263 deferred type and the info->descriptor is present, use the
265 (gfc_conv_array_ref): Is the se expr is a descriptor type, pass
266 it as 'decl' rather than the symbol backend_decl.
267 (gfc_array_allocate): If the se string_length is a component
268 reference, fix it and use it for the expression string length
269 if the latter is not a variable type. If it is a variable do
270 an assignment. Make use of component ref string lengths to set
271 the descriptor 'span'.
272 (gfc_conv_expr_descriptor): For pointer assignment, do not set
273 the span field if gfc_get_array_span returns zero.
274 * trans.c (get_array_span): If the upper bound a character type
275 is zero, use the descriptor span if available.
277 2018-09-30 Paul Thomas <pault@gcc.gnu.org>
280 * trans-decl.c (gfc_get_symbol_decl): A deferred character
281 length pointer that is initialized needs the string length to
282 be initialized as well.
284 2018-09-29 Paul Thomas <pault@gcc.gnu.org>
287 * trans-expr.c (gfc_trans_assignment_1): If there is dependency
288 fix the rse stringlength.
290 2018-09-25 Martin Liska <mliska@suse.cz>
293 * decl.c (add_hidden_procptr_result): Simplify condition
294 as we are in branch witch 'case1 || case2'.
296 2018-09-25 Martin Liska <mliska@suse.cz>
298 * trans.c (remove_suffix): Remove
301 2018-09-24 Thomas Koenig <tkoenig@gcc.gnu.org>
304 * gfc_conv_procedure_call: Do not add clobber on INTENT(OUT)
305 for variables in an associate statement.
307 2018-09-24 Bernhard Reuther-Fischer <aldot@gcc.gnu.org>
308 Cesar Philippidis <cesar@codesourcery.com>
310 * openmp.c (resolve_oacc_loop_blocks):
312 2018-09-23 Thomas Koenig <tkoenig@gcc.gnu.org>
315 * gfc_conv_procedure_call: Do not add clobber on INTENT(OUT)
316 for variables having the dimension attribute.
318 2018-09-23 Janne Blomqvist <jb@gcc.gnu.org>
320 * trans-expr.c (gfc_caf_get_image_index): Do array index
321 calculations in gfc_array_index_type.
322 * trans-intrinsic.c (conv_intrinsic_event_query): Likewise.
323 * trans-stmt.c (gfc_trans_lock_unlock): Likewise.
324 (gfc_trans_event_post_wait): Likewise.
326 2018-09-23 Thomas Koenig <tkoenig@gcc.gnu.org>
329 * gfc_conv_procedure_call: Reformat comments slightly. Do not add
330 clobber on INTENT(OUT) for saved variables.
332 2018-09-22 Thomas Koenig <tkoenig@gcc.gnu.org>
335 * trans.h (gfc_conv_expr_reference): Add optional argument
336 add_clobber to prototype.
337 (gfc_conv_procedure_call): Set add_clobber argument to
338 gfc_conv_procedure_reference to true for scalar, INTENT(OUT),
339 non-pointer, non-allocatable, non-dummy variables whose type
340 is neither BT_CHARACTER, BT_DERIVED or BT_CLASS, but only if
341 the procedure is not elemental.
342 * trans-expr.c (gfc_conv_procedure_reference): Add clobber
343 statement before call if add_clobber is set.
345 2018-09-22 Paul Thomas <pault@gcc.gnu.org>
348 * trans-array.c (gfc_alloc_allocatable_for_assignment): Test
349 the charlen backend_decl before using the VAR_P macro.
351 2018-09-21 Paul Thomas <pault@gcc.gnu.org>
354 * trans-array.c (gfc_alloc_allocatable_for_assignment): If the
355 rhs has a charlen expression, convert that and use it.
356 * trans-expr.c (gfc_trans_assignment_1): The rse.pre for the
357 assignment of deferred character array vars to a realocatable
358 lhs should not be added to the exterior block since vector
359 indices, for example, generate temporaries indexed within the
362 2018-09-21 Paul Thomas <pault@gcc.gnu.org>
365 * trans-stmt.c (gfc_trans_allocate): Don't deallocate alloc
366 components if must_finalize is set for expr3.
368 2018-09-21 Andrew Stubbs <ams@codesourcery.com>
369 Kwok Cheung Yeung <kcy@codesourcery.com>
371 * trans-expr.c (gfc_trans_structure_assign): Ensure that the first
372 argument of a call to _gfortran_caf_register is of size_type_node.
373 * trans-intrinsic.c (conv_intrinsic_event_query): Convert computed
374 index to a size_type_node type.
375 * trans-stmt.c (gfc_trans_event_post_wait): Likewise.
377 2018-09-20 Allan Sandfeld Jensen <allan.jensen@qt.io>
379 * gfortranspec.c (lang_specific_driver): Handle -r like -nostdlib.
381 2018-09-20 Janus Weil <janus@gcc.gnu.org>
383 * gfortran.h (gfc_str_startswith): New macro.
384 * decl.c (variable_decl, gfc_match_end): Use it.
385 * iresolve.c (is_trig_resolved): Ditto.
386 * module.c (load_omp_udrs, read_module): Ditto.
387 * options.c (gfc_handle_runtime_check_option): Ditto.
388 * primary.c (match_arg_list_function): Ditto.
389 * trans-decl.c (gfc_get_symbol_decl): Ditto.
390 * trans-expr.c (gfc_conv_procedure_call): Ditto.
391 * interface.c (dtio_op): Replace strncmp by strcmp.
392 * resolve.c (resolve_actual_arglist, resolve_function): Ditto.
393 * trans-expr.c (conv_arglist_function): Ditto.
394 * trans-intrinsic.c (gfc_conv_ieee_arithmetic_function): Replace macro
395 STARTS_WITH by gfc_str_startswith.
397 2018-09-20 Cesar Philippidis <cesar@codesourcery.com>
399 * dump-parse-tree.c (show_omp_clauses): Add missing omp list_types
400 and reorder the switch cases to match the enum in gfortran.h.
402 2018-09-19 Paul Thomas <pault@gcc.gnu.org>
405 * trans-expr.c (gfc_trans_assignment_1): The rse.pre for the
406 assignment of deferred character intrinsic elemental function
407 results to a realocatable lhs must not be added to the exterior
408 block if they are array valued but must go to the loop body.
410 2018-09-18 Thomas Koenig <tkoenig@gcc.gnu.org>
413 * gfortran.h (gfc_expr): Add external_blas flag.
414 * frontend-passes.c (matrix_case): Add case A2TB2T.
415 (optimize_namespace): Handle flag_external_blas by
416 calling call_external_blas.
417 (get_array_inq_function): Add argument okind. If
418 it is nonzero, use it as the kind of argument
420 (inline_limit_check): Remove m_case argument, add
421 limit argument instead. Remove assert about m_case.
422 Set the limit for inlining from the limit argument.
423 (matmul_lhs_realloc): Handle case A2TB2T.
424 (inline_matmul_assign): Handle inline limit for other cases with
425 two rank-two matrices. Remove no-op calls to inline_limit_check.
426 (call_external_blas): New function.
427 * trans-intrinsic.c (gfc_conv_intrinsic_funcall): Do not add
428 argument to external BLAS if external_blas is already set.
430 2018-09-18 Paul Thomas <pault@gcc.gnu.org>
433 * trans-expr.c (gfc_trans_assignment_1): The rse.pre for the
434 assignment of deferred character elemental function results to
435 a realocatable lhs must not be added to the exterior block but
436 must go to the loop body.
438 2018-09-18 Paul Thomas <pault@gcc.gnu.org>
441 * trans-array.c (gfc_get_array_span): Try to get the element
442 length of incomplete types. Return NULL_TREE otherwise.
443 (gfc_conv_expr_descriptor): Only set the 'span' field if the
444 above does not return NULL_TREE. Set 'span' field if possible
445 for all new descriptors.
447 2018-09-17 Paul Thomas <pault@gcc.gnu.org>
450 * trans-decl.c (gfc_get_symbol_decl): Flag allocatable, scalar
451 characters with a variable length expression for deferred init.
452 (gfc_trans_deferred_vars): Perform the assignment for these
453 symbols by calling gfc_conv_string_length.
455 2018-09-17 Paul Thomas <pault@gcc.gnu.org>
458 * resolve.c (resolve_assoc_var): If the target expression is a
459 deferred charlen dummy and the associate name shares the
460 charlen, generate a new one. Make sure that new charlens are in
461 the namespace list so that they get cleaned up.
462 * trans-array.c (gfc_is_reallocatable_lhs): Associate names are
464 * trans-decl.c (gfc_get_symbol_decl): Put deferred character
465 length dummy and result arrays on the deferred initialization
466 list so that the variable length arrays can be correctly dealt
468 * trans-expr.c (gfc_conv_string_length): Return if 'expr' is
469 NULL rather than ICEing..
471 2018-09-16 Janus Weil <janus@gcc.gnu.org>
475 * match.c (gfc_match_assignment): For a polymorphic assignment,
476 make sure that the vtab for the rhs type is generated.
478 2018-09-16 Thomas Koenig <tkoenig@gcc.gnu.org>
481 * frontend-passes.c (B_ERROR): New macro for matmul bounds
482 checking error messages.
484 (inline_matmul_assign): Reorganize bounds checking, use B_ERROR
487 2018-09-13 Bernd Edlinger <bernd.edlinger@hotmail.de>
489 * trans-array.c (gfc_conv_array_initializer): Remove excess precision
490 from overlength string initializers.
492 2018-09-12 Paul Thomas <pault@gcc.gnu.org>
495 * trans-expr.c (gfc_trans_class_init_assign): Access to
496 to array elements of the dynamic type requires that the array
497 reference be added to the class expression and not the _data
498 component, unlike scalar expressions.
500 2018-09-11 Janus Weil <janus@gcc.gnu.org>
503 * resolve.c (resolve_fl_derived): If a type has the 'use_assoc'
504 attribute, then it was declared in another module, so there should be
505 no error that it has not been declared.
507 2018-09-11 Paul Thomas <pault@gcc.gnu.org>
510 * expr.c (is_subref_array): Add the check of dimensionality for
511 class, dummy, pointer arrays.
513 2018-09-11 Janus Weil <janus@gcc.gnu.org>
516 * expr.c (gfc_is_simply_contiguous): Handle type-bound procedure calls
517 with non-polymorphic objects.
519 2018-09-10 Janus Weil <janus@gcc.gnu.org>
522 * decl.c (match_binding_attributes): Use correct default accessibility
523 for procedure pointer components.
525 2018-09-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
527 * simplify.c (gfc_simplify_modulo): Re-arrange code to test whether
528 'P' is zero and issue an error if it is.
530 2018-08-31 Paul Thomas <pault@gcc.gnu.org>
534 * trans-array.c (gfc_conv_scalarized_array_ref): Do not fix
535 info->descriptor but pass it directly to gfc_build_array_ref.
536 (gfc_conv_array_ref): Likewise for se->expr.
537 * trans.c (gfc_build_array_ref): If 'decl' is a COMPONENT_REF
538 obtain the span field directly from it.
540 2017-08-28 Paul Thomas <pault@gcc.gnu.org>
543 * trans-expr.c (gfc_conv_procedure_call): Allocatable class
544 scalar results being passed to a derived type formal argument
545 are finalized if possible. Otherwise, rely on existing code for
546 deallocation. Make the deallocation of allocatable result
547 components conditional on finalization not taking place. Make
548 the freeing of data components after finalization conditional
549 on the data being NULL.
550 (gfc_trans_arrayfunc_assign): Change the gcc_assert to a
551 condition to return NULL_TREE.
552 (gfc_trans_assignment_1): If the assignment is class to class
553 and the rhs expression must be finalized but the assignment
554 is not marked as a polymorphic assignment, use the vptr copy
555 function instead of gfc_trans_scalar_assign.
558 * trans-expr.c (gfc_conv_expr_reference): Do not add the post
559 block to the pre block if the expression is to be finalized.
560 * trans-stmt.c (gfc_trans_allocate): If the expr3 must be
561 finalized, load the post block into a finalization block and
562 add it right at the end of the allocation block.
564 2018-08-27 David Malcolm <dmalcolm@redhat.com>
567 * error.c (gfc_format_decoder): Update for conversion of
568 show_caret_p to a tri-state.
570 2018-08-25 Janus Weil <janus@gcc.gnu.org>
573 * resolve.c (resolve_transfer): Correctly determine typespec for
574 generic function calls, in order to throw a proper error.
576 2018-08-24 Thomas Koenig <tkoenig@gcc.gnu.org>
579 * frontend-passes.c (var_in_expr_callback): New function.
580 (var_in_expr): New function.
581 (traverse_io_block): Use var_in_expr instead of
582 gfc_check_dependency for checking if the variable depends on the
585 2018-08-23 Janne Blomqvist <blomqvist.janne@gmail.com>
587 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxval): Delete
588 HONOR_SIGNED_ZEROS checks.
590 2018-08-23 Paul Thomas <pault@gcc.gnu.org>
593 * resolve.c (resolve_typebound_call): If the TBP is not marked
594 as a subroutine, check the specific symbol.
596 2018-08-22 Thomas Koenig <tkoenig@gcc.gnu.org>
598 * gfortran.texi: Mention that asynchronous I/O does
599 not work on systems which lack condition variables, such
602 2018-08-22 Janus Weil <janus@gcc.gnu.org>
605 * match.c (gfc_match_associate): Improve diagnostics for the ASSOCIATE
608 2018-08-22 Andrew Benson <abensonca@gmail.com>
610 * module.c (load_generic_interfaces): Move call to find_symbol()
611 so that only occurs if actually needed.
613 2018-08-22 Janus Weil <janus@gcc.gnu.org>
616 * decl.c (gfc_match_data_decl): Allow allocatable components of
617 indirectly recursive type.
618 * resolve.c (resolve_component): Remove two errors messages ...
619 (resolve_fl_derived): ... and replace them by a new one.
621 2018-08-21 Janne Blomqvist <jb@gcc.gnu.org>
623 * trans-intrinsic.c (gfc_conv_intrinsic_minmax): Use
624 MAX_EXPR/MIN_EXPR unconditionally for real arguments.
625 * gfortran.texi (Compiler Characteristics): Document MAX/MIN
628 2018-08-21 Nicolas Koenig <koenigni@gcc.gnu.org>
629 Thomas Koenig <tkoenig@gcc.gnu.org>
632 * gfortran.texi: Add description of asynchronous I/O.
633 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
635 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
636 st_wait_async and change argument spec from ".X" to ".w".
637 (gfc_trans_wait): Pass ID argument via reference.
639 2018-08-16 Nathan Sidwell <nathan@acm.org>
641 * cpp.c (dump_macro): Use cpp_user_macro_p.
643 2018-08-14 Janus Weil <janus@gcc.gnu.org>
646 * interface.c (compare_type): Remove a CLASS/TYPE check.
647 (compare_type_characteristics): New function that behaves like the old
649 (gfc_check_dummy_characteristics, gfc_check_result_characteristics):
650 Call 'compare_type_characteristics' instead of 'compare_type'.
652 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
655 * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Class array
656 elements are returned as references to the data element. Get
657 the class expression by stripping back the references. Use this
658 for the element size.
660 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
663 * resolve.c (resolve_fl_variable_derived): Check if the derived
664 type is use associated before checking for the host association
667 2018-08-10 Janus Weil <janus@gcc.gnu.org>
670 * invoke.texi (frontend-optimize): Mention short-circuiting.
671 * options.c (gfc_post_options): Disable -ffrontend-optimize with -Og.
672 * resolve.c (resolve_operator): Warn about short-circuiting only with
674 * trans-expr.c (gfc_conv_expr_op): Use short-circuiting operators only
675 with -ffrontend-optimize. Without that flag, make sure that both
676 operands are evaluated.
678 2018-08-08 Nathan Sidwell <nathan@acm.org>
680 * cpp.c (cb_file_change): Use linemap_included_from.
682 2018-08-07 Cesar Philippidis <cesar@codesourcery.com>
684 * trans-stmt.h: Remove stale reference to trans-openacc.c.
686 2018-08-04 Janus Weil <janus@gcc.gnu.org>
689 * interface.c (gfc_compare_interfaces): Apply additional
690 distinguishability criteria of F08 to operator interfaces.
692 2018-07-31 Andre Vieira <andre.simoesdiasvieira@arm.com>
694 Revert 'AsyncI/O patch committed'
695 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
696 Thomas Koenig <tkoenig@gcc.gnu.org>
699 * gfortran.texi: Add description of asynchronous I/O.
700 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
702 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
703 st_wait_async and change argument spec from ".X" to ".w".
704 (gfc_trans_wait): Pass ID argument via reference.
706 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
707 Thomas Koenig <tkoenig@gcc.gnu.org>
710 * gfortran.texi: Add description of asynchronous I/O.
711 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
713 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
714 st_wait_async and change argument spec from ".X" to ".w".
715 (gfc_trans_wait): Pass ID argument via reference.
717 2018-07-20 Martin Sebor <msebor@redhat.com>
720 * gfortran.h (gfc_handle_option): Change function argument
722 * options.c (gfc_handle_option): Same.
724 2018-07-20 Andrew Benson <abenson@carnegiescience.edu>
726 * gfortran.h (gfc_symbol): Add pointer to next derived type.
727 (gfc_dt_list, gfc_get_dt_list): Remove.
728 (gfc_namespace): Replace gfc_dt_list with gfc_symbol.
729 * parse.c (resolve_all_program_units): Replace gfc_free_dt_list() with
730 simple nullification of gfc_derived_types.
731 * resolve.c (resolve_global_procedure): Replace gfc_dt_list with
733 (add_dt_to_dt_list): Change derived type linked list insertion to
734 utilize dt_next pointers in gfc_symbol.
735 * symbol.c (gfc_new_symbol, gfc_free_dt_list, gfc_symbol_done2)
736 (get_iso_c_binding_dt, generate_isocbinding_symbol): Remove
737 gfc_free_dt_list as gfc_dt_list is obsoleted. Change derived type
738 linked list search/insertion to utilize dt_next pointers in gfc_symbol.
739 * trans-types.c (gfc_get_derived_type): Change derived type linked
740 list search to utilize dt_next pointers in gfc_symbol.
742 2018-07-19 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
744 * trans-intrinsic.c: (gfc_conv_intrinsic_minmax): Emit MIN_MAX_EXPR
745 or IFN_FMIN/FMAX sequence to calculate the min/max when possible.
747 2018-07-18 Janus Weil <janus@gcc.gnu.org>
748 Thomas Koenig <tkoenig@gcc.gnu.org>
751 * dump-parse-tree.c (show_attr): Add handling of implicit_pure.
752 * frontend-passes.c (do_warn_function_elimination): Do not warn for
754 * gfortran.h: Add prototypes for gfc_pure_function and
755 gfc_implicit_pure_function.
756 * gfortran.texi: Add chapter on evaluation of logical expressions.
757 * invoke.texi: Mention that -Wfunction-elimination is implied
759 * lang.opt: Make -Wextra imply -Wfunction-elimination.
760 * resolve.c (pure_function): Rename to gfc_pure_function.
761 (gfc_implicit_pure_function): New function.
762 (check_pure_function): Use it here.
763 (impure_function_callback): New function.
764 (resolve_operator): Call it via gfc_expr_walker.
766 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
769 * decl.c (match_old_style_init): Initialize locus of variable expr when
770 creating a data variable.
771 (match_clist_expr): Verify array is explicit shape/size before
772 attempting to allocate constant array constructor.
774 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
777 * module.c (mio_component): Set component->loc when loading from module.
779 2018-07-10 Jakub Jelinek <jakub@redhat.com>
782 * module.c (omp_declare_simd_clauses): Add LINEAR with _REF, _VAL and
784 (mio_omp_declare_simd): Save and restore ref, val and uval modifiers
785 on linear clauses. Initialize n->where to gfc_current_locus.
787 2018-07-05 Paul Thomas <pault@gcc.gnu.org>
790 * resolve.c.c (resolve_contained_fntype): Reference to C418 is
791 in F2008 and not F2003.
792 (resolve_function): Ditto in error message. Also, exclude
793 deferred character length results from the error.
795 2018-07-05 Fritz Reese <fritzoreese@gmail.com>
799 * expr.c (class_allocatable, class_pointer, comp_allocatable,
800 comp_pointer): New helpers.
801 (component_initializer): Generate EXPR_NULL for allocatable or pointer
802 components. Do not generate initializers for components within BT_CLASS.
803 Do not assign to comp->initializer.
804 (gfc_generate_initializer): Use new helpers; move code to generate
805 EXPR_NULL for class allocatable components into component_initializer().
807 2018-07-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
810 * trans-decl.c (gfc_process_block_locals): Delete assert and set
811 saved_local_decls = NULL_TREE.
813 2018-07-02 Richard Biener <rguenther@suse.de>
816 * trans-types.c (gfc_get_array_type_bounds): Unshare TYPE_FIELDs
817 for the distinct type copy.
819 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
823 * trans-array.c (structure_alloc_comps): Do not explicitly copy
824 procedure pointer components.
826 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
829 * expr.c : Add a prototype for scalarize_intrinsic_call.
830 (gfc_simplify_expr): Use scalarize_intrinsic_call for elemental
831 intrinsic function calls.
832 (scalarize_intrinsic_call): Add 'init_flag' argument. Check if
833 the expression or any of the actual argument expressions are
834 NULL. Before calling gfc_check_init_expr, check 'init_flag'.
835 Only simplify the scalarized expressions if there are no errors
837 (gfc_check_init_expr): Set 'init_flag' true in the call to
838 scalarize_intrinsic_call.
840 2018-06-28 Fritz Reese <fritzoreese@gmail.com>
843 * decl.c (gfc_match_type): Refactor and check for PDT declarations.
845 2018-06-28 Martin Liska <mliska@suse.cz>
847 * gfortranspec.c: Include opt-suggestions.h.
849 2018-06-25 Fritz Reese <fritzoreese@gmail.com>
854 * expr.c (component_initializer): Assign init expr to c->initializer.
855 (generate_isocbinding_initializer): New.
856 (gfc_generate_initializer): Call generate_isocbinding_initializer to
857 generate initializers for c_ptr and c_funptr with -finit-derived.
859 2018-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
862 * interface.c (check_dtio_interface1): Delete assert.
864 2018-06-22 Paul Thomas <pault@gcc.gnu.org>
865 Rainer Orth <ro@gcc.gnu.org>
868 * resolve.c (resolve_contained_fntype): Check for the charlen
869 before testing the length.
871 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
874 * resolve.c (resolve_contained_fntype): Change standard ref.
875 from F95 to F2003: C418. Correct a spelling error in a comment.
876 It is an error for an abstract interface to have an assumed
877 character length result.
878 * trans-expr.c (gfc_conv_procedure_call): Likewise change the
881 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
884 * resolve.c (resolve_ordinary_assign): Force the creation of a
885 vtable for assignment of non-polymorphic expressions to an
886 unlimited polymorphic object.
887 * trans-array.c (gfc_alloc_allocatable_for_assignment): Use the
888 size of the rhs type for such assignments. Set the dtype, _len
889 and vptrs appropriately.
890 * trans-expr.c (gfc_trans_assignment): Force the use of the
891 _copy function for these assignments.
893 2018-06-20 Chung-Lin Tang <cltang@codesourcery.com>
894 Thomas Schwinge <thomas@codesourcery.com>
895 Cesar Philippidis <cesar@codesourcery.com>
897 * gfortran.h (gfc_omp_clauses): Add unsigned if_present, finalize
899 * openmp.c (enum omp_mask2): Remove OMP_CLAUSE_PRESENT_OR_*. Add
900 OMP_CLAUSE_{IF_PRESENT,FINALIZE}.
901 (gfc_match_omp_clauses): Update handling of copy, copyin, copyout,
902 create, deviceptr, present_of_*. Add support for finalize and
904 (OACC_PARALLEL_CLAUSES): Remove PRESENT_OR_* clauses.
905 (OACC_KERNELS_CLAUSES): Likewise.
906 (OACC_DATA_CLAUSES): Likewise.
907 (OACC_DECLARE_CLAUSES): Likewise.
908 (OACC_UPDATE_CLAUSES): Add IF_PRESENT clause.
909 (OACC_ENTER_DATA_CLAUSES): Remove PRESENT_OR_* clauses.
910 (OACC_EXIT_DATA_CLAUSES): Add FINALIZE clause.
911 (gfc_match_oacc_declare): Update to OpenACC 2.5 semantics.
912 * trans-openmp.c (gfc_trans_omp_clauses): Add support for IF_PRESENT
915 2018-06-18 Eric Botcazou <ebotcazou@adacore.com>
917 * trans-decl.c (gfc_get_fake_result_decl): Revert latest change.
919 2018-06-17 Eric Botcazou <ebotcazou@adacore.com>
921 * trans-decl.c (nonlocal_dummy_decl_pset): Delete.
922 (nonlocal_dummy_decls): Likewise.
923 (gfc_nonlocal_dummy_array_decl): Likewise.
924 (gfc_get_symbol_decl): Do not call gfc_nonlocal_dummy_array_decl.
925 (gfc_get_fake_result_decl): Do not generate a new DECL if simply
926 reusing the result of a recursive call.
927 (gfc_generate_function_code): Do not create, insert and destroy
928 nonlocal_dummy_decls.
930 2018-06-13 Steven G. Kargl <kargl@gcc.gnu.org>
933 * array.c (gfc_resolve_character_array_constructor): Avoid NULL
936 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
939 * parse.c (decode_oacc_directive): Set gfc_matching_function
941 (decode_omp_directive): Likewise.
943 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
946 * openmp.c (gfc_match_oacc_wait): Use %C to report error location.
948 2018-06-12 David Malcolm <dmalcolm@redhat.com>
951 * misc.c (gfc_closest_fuzzy_match): Update for renaming of
952 levenshtein_distance to get_edit_distance.
954 2018-06-12 Steven G. Kargl <kargl@gcc.gnu.org>
957 * expr.c (gfc_check_assign): Select non-NULL locus.
959 2018-06-11 Janus Weil <janus@gcc.gnu.org>
962 * interface.c (compare_ptr_alloc): New function.
963 (generic_correspondence): Call it.
965 2018-06-10 Thomas Koenig <tkoenig@gcc.gnu.org>
967 * gfortran.h (gfc_expr): Add no_bounds_check field.
968 * frontend-passes.c (get_array_inq_function): Set no_bounds_check
969 on function and function argument.
970 (inline_matmul_assign): Set no_bounds_check on zero expression
971 and on lhs of zero expression.
972 Also handle A1B2 case if realloc on assigment is active.
973 * trans-array.c (gfc_conv_array_ref): Don't do range checking
974 if expr has no_bounds_check set.
975 (gfc_conv_expr_descriptor): Set no_bounds_check on ss if expr
977 * trans-expr.c (gfc_trans_assignment_1): Set no_bounds_check
978 on lss and lss if the corresponding expressions have it set.
980 2018-06-10 Dominique d'Humieres <dominiq@gcc.gnu.org>
983 * trans-const.c: Remove include "diagnostic-core.h".
984 (gfc_conv_constant_to_tree): Replace fatal_error with gcc_unreachable.
986 2018-06-10 Janus Weil <janus@gcc.gnu.org>
989 * decl.c (match_attr_spec): Synchronize the DECL_* enum values with the
990 INTENT_* values from the enum 'sym_intent'. Call 'match_intent_spec'
991 and remove a TODO note.
992 * gfortran.h: Add a comment to sym_intent.
994 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
997 * resolve.c (resolve_operator): Provide better error message for
998 derived type entity used in an binary intrinsic numeric operator.
1000 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
1005 * decl.c (gfc_match_char_spec): Use private namespace in attempt to
1006 reduce a charlen to a constant.
1008 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
1011 * data.c (gfc_assign_data_value): Re-arrange code to allow for
1012 an error for double initialization of CHARACTER entities.
1014 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
1017 * symbol.c (gfc_add_volatile): Enforce F2008:C1282 and F2018:C1588.
1019 2018-06-08 Thomas Koenig <tkoenig@gcc.gnu.org>
1022 * trans.h (gfc_ss): Add field no_bounds_check.
1023 * trans-array.c (gfc_conv_ss_startstride): If flag_realloc_lhs and
1024 ss->no_bounds_check is set, do not use runtime checks.
1025 * trans-expr.c (gfc_trans_assignment_1): Set lss->no_bounds_check
1026 for reallocatable lhs.
1028 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
1031 * array.c (match_array_cons_element): NULL() cannot be in an
1034 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
1037 * data.c (create_character_initializer): Return early if type is
1038 incompatible with CHARACTER.
1040 2018-06-07 Steven G. Kargl <kargl@gcc.gnu.org>
1043 * simplify.c (gfc_simplify_mod): Re-arrange code to test whether
1044 'P' is zero and issue an error if it is.
1046 2018-06-06 Thomas Koenig <tkoenig@gcc.gnu.org>
1049 * frontend-passes.c (is_fe_temp): Add prototype.
1050 (realloc_string_callback): Early return for frontend-generated
1053 2018-06-05 Cesar Philippidis <cesar@codesourcery.com>
1057 * openmp.c (gfc_resolve_oacc_declare): Error on functions and
1058 subroutine data clause arguments.
1060 2018-06-04 Steven G. Kargl <kargl@gcc.gnu.org>
1063 * resolve.c (resolve_allocate_deallocate): Check errmsg is default
1066 2018-06-03 Paul Thomas <pault@gcc.gnu.org>
1069 * decl.c (variable_decl): Use gfc_add_type for cray pointees.
1071 2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
1074 * check.c (gfc_check_random_init): New function. Check arguments of
1076 * gfortran.h (GFC_ISYM_RANDOM_INIT): New enum token.
1077 * intrinsic.c (add_subroutines): Add RANDOM_INIT to list of
1079 (gfc_check_intrinsic_standard): Introduce Fortran 2018 check.
1080 * intrinsic.h: Add prototypes for gfc_check_random_init and
1081 gfc_resolve_random_init
1082 * intrinsic.texi: Document new intrinsic subprogram.
1083 * iresolve.c (gfc_resolve_random_init): Resolve routine name.
1084 * trans-decl.c: Declare gfor_fndecl_random_init
1085 * trans-intrinsic.c (conv_intrinsic_random_init): New function.
1086 Translate call to RANDOM_INIT.
1087 (gfc_conv_intrinsic_subroutine): Call it.
1088 * trans.h: Declare gfor_fndecl_random_init
1090 2018-05-27 Steven G. Kargl <kargl@gcc.gnu.org>
1092 * decl.c (match_data_constant): Fortran 2018 allows pointer
1093 initialization in a data statement.
1095 2018-05-25 Janus Weil <janus@gcc.gnu.org>
1098 * match.c (gfc_match_block_data): Call gfc_notify_std to warn about
1099 an obsolescent feature in Fortran 2018.
1100 (gfc_match_equivalence): Ditto.
1101 * resolve.c (resolve_common_blocks): Ditto.
1102 (gfc_resolve_forall): Ditto.
1103 * symbol.c (gfc_define_st_label): Ditto.
1105 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
1108 * resolve.c (update_current_proc_array_outer_dependency): Avoid NULL
1109 pointer dereference.
1111 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
1114 * resolve.c (resolve_fl_procedure): Avoid NULL dereference.
1116 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
1119 * decl.c (gfc_match_derived_decl): Fix NULL point dereference.
1121 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
1124 * resolve.c (resolve_sync): Resolve expression before checking for
1127 2018-05-22 Janus Weil <janus@gcc.gnu.org>
1130 * libgfortran.h: Remove the macros GFC_STD_F2008_TS and
1132 * error.c (notify_std_msg): Remove GFC_STD_F2008_TS.
1133 * options.c (set_default_std_flags): Ditto.
1134 (gfc_handle_option): Make -std=f2008ts an alias for -std=f2018.
1135 * array.c (gfc_match_array_spec): Replace GFC_STD_F2008_TS by
1137 * check.c (gfc_check_atomic, gfc_check_event_query,
1138 gfc_check_c_f_pointer, gfc_check_c_f_procpointer, gfc_check_c_funloc,
1139 gfc_check_c_loc, gfc_check_num_images, gfc_check_this_image): Ditto.
1140 * decl.c (gfc_verify_c_interop_param, gfc_match_decl_type_spec): Ditto.
1141 * intrinsic.c (add_functions, add_subroutines,
1142 gfc_check_intrinsic_standard): Ditto.
1143 * iso-c-binding.def: Ditto.
1144 * iso-fortran-env.def: Ditto.
1145 * match.c (gfc_match_event_post, gfc_match_event_wait,
1146 gfc_match_fail_image, gfc_match_form_team, gfc_match_change_team,
1147 gfc_match_end_team, gfc_match_sync_team): Ditto.
1148 * gfortran.texi: Remove mention of -std=f2008ts.
1149 Move TSs into F2018 section.
1150 * invoke.texi: Update documentation of -std=f2008ts.
1152 2018-05-21 Janus Weil <janus@gcc.gnu.org>
1155 * libgfortran.h: New macros GFC_STD_OPT_*.
1156 * error.c (notify_std_msg): New function.
1157 (gfc_notify_std): Adjust such that it can handle combinations of
1158 GFC_STD_* flags in the 'std' argument, not just a single one.
1159 * match.c (match_arithmetic_if, gfc_match_if): Reject arithmetic if
1161 (gfc_match_stopcode): Use GFC_STD_OPT_* macros.
1162 * options.c (set_default_std_flags): Warn for F2018 deleted features
1164 (gfc_handle_option): F2018 deleted features are allowed in earlier
1166 * symbol.c (gfc_define_st_label, gfc_reference_st_label): Reject
1167 nonblock do constructs in Fortran 2018.
1169 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
1172 * resolve.c (flag_fn_result_spec): Use the 'sym' argument to
1173 test for self refs to the function result in the character len
1174 expression. If a self reference is found, emit an error and
1176 (resolve_fntype): Use the function symbol in the calls to the
1179 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
1182 * trans-array.c (gfc_get_array_span): Renamed from
1184 (gfc_conv_expr_descriptor): Change references to above.
1185 * trans-array.h : Add prototype for 'gfc_get_array_span'.
1186 * trans-intrinsic.c (gfc_conv_associated): Add pre and post
1188 * trans-stmt.c (trans_associate_var): If the associate name is
1189 a subref array pointer, use gfc_get_array_span for the span.
1191 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
1194 * match.c (gfc_match_type_spec): Go through the array ref and
1195 decrement 'rank' for every dimension that is an element.
1197 2018-05-19 Paul Thomas <pault@gcc.gnu.org>
1202 * trans-array.c (gfc_alloc_allocatable_for_assignment): Set the
1203 charlen backend_decl of the rhs expr to ss->info->string_length
1204 so that the value in the current scope is used.
1206 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
1209 * gfortran.texi: Clarify documentation for Cray pointer and
1210 assumed-sized array.
1212 2018-05-13 Paul Thomas <pault@gcc.gnu.org>
1215 * trans-types.c (gfc_get_dtype_rank_type): Reorder evaluation
1216 of 'size'. If the element type is a pointer use the size of the
1217 TREE_TYPE of the type, unless it is VOID_TYPE. In this latter
1218 case, set the size to zero.
1220 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
1222 * gfortran.h: Remove prototype.
1223 * symbol.c (gfc_new_undo_checkpoint): Remove unused function.
1225 2018-05-11 Steven G. Kargl <kargl@gcc.gnu.org>
1228 * expr.c (check_inquiry): Avoid NULL pointer dereference.
1230 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
1233 * check.c (gfc_check_rank): Check that the argument is a data object.
1235 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
1238 * array.c (gfc_resolve_character_array_constructor): Substrings
1239 with upper bound smaller than lower bound are zero length strings.
1241 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
1244 * data.c (gfc_assign_data_value): Check that a data object does
1245 not also have default initialization.
1247 2018-05-10 Marek Polacek <polacek@redhat.com>
1250 * options.c (gfc_post_options): Set main_input_filename.
1252 2018-05-10 Thomas Koenig <tkoenig@gcc.gnu.org>
1255 * intrinsic.texi: Document BACK for MINLOC and MAXLOC.
1257 2018-05-10 Paul Thomas <pault@gcc.gnu.org>
1261 * resolve.c (get_temp_from_expr): The temporary must not have
1262 dummy or intent attributes.
1264 2018-05-08 Thomas Koenig <tkoenig@gcc.gnu.org>
1267 * check.c (gfc_check_minmaxloc): Remove error for BACK not being
1268 implemented. Use gfc_logical_4_kind for BACK.
1269 * simplify.c (min_max_choose): Add optional argument back_val.
1271 (simplify_minmaxloc_to_scalar): Add argument back_val. Pass
1272 back_val to min_max_choose.
1273 (simplify_minmaxloc_to_nodim): Likewise.
1274 (simplify_minmaxloc_to_array): Likewise.
1275 (gfc_simplify_minmaxloc): Add argument back, handle it.
1276 Pass back_val to specific simplification functions.
1277 (gfc_simplify_minloc): Remove ATTRIBUTE_UNUSED from argument back,
1278 pass it on to gfc_simplify_minmaxloc.
1279 (gfc_simplify_maxloc): Likewise.
1280 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Adjust
1281 comment. If BACK is true, use greater or equal (or lesser or
1282 equal) insteal of greater (or lesser). Mark the condition of
1283 having found a value which exceeds the limit as unlikely.
1285 2018-05-07 Jeff Law <law@redhat.comg>
1287 * scanner.c (preprocessor_line): Call linemap_add after a line
1288 directive that changes the current filename.
1290 2018-05-06 Andre Vehreschild <vehre@gcc.gnu.org>
1293 * dependency.c (gfc_dep_resolver): Revert looking at coarray dimension
1294 introduced by r259385.
1295 * trans-intrinsic.c (conv_caf_send): Always report a dependency for
1296 same variables in coarray assignments.
1298 2018-05-02 Tom de Vries <tom@codesourcery.com>
1301 * f95-lang.c (DEF_GOACC_BUILTIN_ONLY): Define.
1303 2018-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
1306 * decl.c (gfc_match_char_spec): Check for negative length and set to 0.
1308 2018-04-14 Andre Vehreschild <vehre@gcc.gnu.org>
1312 * dependency.c (gfc_dep_resolver): Coarray indexes are to be ignored
1313 during dependency computation. They define no data dependency.
1314 * trans-array.c (conv_array_index_offset): The stride can not be set
1316 * trans-intrinsic.c (conv_caf_send): Add creation of temporary array
1317 for caf_get's result and copying to the array with vectorial
1320 2018-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
1323 * frontend-passes.c (traverse_io_block): Check for start, end or
1324 stride being defined by an outer implied DO loop.
1326 2018-04-12 Thomas Koenig <tkoenig@gcc.gnu.org>
1330 * trans-stmt.c (gfc_trans_forall_loop): Use annot_expr_ivdep_kind
1331 for annotation and remove dependence on -ftree-parallelize-loops.
1333 2018-04-10 Jakub Jelinek <jakub@redhat.com>
1336 * openmp.c (resolve_omp_do): Remove bogus if (j < i) break;.
1337 (resolve_oacc_nested_loops): Likewise. Formatting fix.
1339 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
1342 * trans-stmt.c (gfc_trans_forall_loop): Remove annotation for
1343 parallell processing of DO CONCURRENT -ftree-parallelize-loops
1346 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
1349 * resolve.c (resolve_variable): Simplify cases where access to a
1350 parameter array results in a single constant.
1352 2018-04-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1355 * decl.c (variable_decl): If upper or lower bounds simplify
1356 to a constant, use that.
1358 2018-03-30 Paul Thomas <pault@gcc.gnu.org>
1361 * simplify.c (gfc_convert_constant): Handle case of array
1362 constructors within an array that has no iterator and improve
1363 the conciseness of this section of code.
1365 2017-03-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1368 * array.c (gfc_resolve_character_array_constructor): Early
1369 exit for zero-size arrays.
1370 * simplify.c (simplify_transformation_to_array): Exit early
1371 if the result size is zero.
1372 (simplify_minmaxloc_to_array): Likewise.
1374 2018-03-28 Mikael Morin <mikael@gcc.gnu.org>
1377 * symbol.c (gfc_symbol_done_2): Start freeing namespaces
1379 (gfc_free_namespace): Restore assert (revert r258839).
1381 2018-03-28 Jakub Jelinek <jakub@redhat.com>
1383 * gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
1384 * ioparm.def (IOPARM_dt_default_exp): Rename to ...
1385 (IOPARM_dt_dec_ext): ... this.
1386 * trans-io.c (build_dt): Adjust for default_exp renaming to
1387 dec_ext and IOPARM_dt_default_exp renaming to IOPARM_dt_dec_ext.
1388 * io.c (match_io): Likewise.
1390 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
1393 * frontend-passes.c (gfc_run_passes): Do not run front-end
1394 optimizations if a previous error occurred.
1396 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
1397 Harald Anlauf <anlauf@gmx.de>
1400 * primary.c (gfc_convert_to_structure_constructor): Check
1401 conformance of argument types in structure constructor.
1403 2018-03-26 Thomas Koenig <tkoenig@gcc.gnu.org>
1406 * io.c: Include constructor.h.
1407 (resolve_tag_format): For a constant character array, concatenate
1408 into a single character expression.
1410 2018-03-25 Seth Johnson <johnsonsr@ornl.gov>
1411 Dominique d'Humieres <dominiq@gcc.gnu.org>
1414 * check.c (gfc_check_c_f_pointer): Allow scalar noninteroperable
1415 scalar derived type with -std=f2003 and -std=f2008.
1417 2018-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1418 Dominique d'Humieres <dominiq@gcc.gnu.org>
1421 * symbol.c (gfc_free_namespace): Delete the assert and only if
1422 refs count is equals zero, free the namespace. Otherwise,
1423 something is halfway and other errors will resound.
1425 2018-03-24 Thomas Koenig <tkoenig@gcc.gnu.org>
1428 * expr.c (find_substring_ref): Change types of start, end
1429 and length variables to gfc_charlen_t. Set length to zero
1430 for empty substring.
1432 2018-03-24 Steven G. Kargl <kargl@gcc.gnu.org>
1435 * decl.c (check_function_name): Improved error message
1436 (gfc_match_volatile, gfc_match_asynchronous) Use check_function_name.
1438 2018-03-22 Steven G. Kargl <kargl@gcc.gnu.org>
1441 * decl.c (get_proc_name): If the MODULE prefix appears in interface
1442 body, then it must appear on the contained subroutine or function.
1443 While here, fix nearby mis-indented code.
1445 2018-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
1446 Harald Anlauf <anlauf@gmx.de>
1449 * trans-types.c (gfc_sym_type): Do not dereference NULL pointer.
1451 2018-03-21 Janne Blomqvist <jb@gcc.gnu.org>
1454 * trans-expr.c (gfc_conv_procedure_call): Convert charlen to
1455 gfc_charlen_type_node when calling procedure.
1457 2018-03-20 Steven G. Kargl <kargl@gcc.gnu.org>
1460 * interface.c (symbol_rank): Remove bogus null pointer check that
1461 crept in when translating a ternary operator into an if-else
1464 2018-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1467 * simplify.c (gfc_convert_constant): Correctly handle iterators
1468 for type conversion.
1470 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
1473 * decl.c (get_proc_name): Check for a subroutine re-defined in
1474 the contain portion of a subroutine. Change language of existing
1475 error message to better describe the issue. While here fix whitespace
1478 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
1481 * decl.c (get_proc_name): Catch clash between a procedure statement
1482 and a contained subprogram
1484 2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
1487 * decl.c (merge_array_spec): Correct the error condition.
1489 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
1492 * decl.c (get_proc_name): Check for clash of entry name with
1495 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
1498 * decl.c (merge_array_spec): Limit the merging to maximum allowed
1499 dimensions, and issue error message if limit is exceeded.
1501 2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
1503 * check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
1504 * intrinsic.c (add_functions): Remove reference to gfc_resolve_kill.
1505 (add_subroutines): Remove reference to gfc_resolve_kill_sub.
1506 * intrinsic.texi: Update documentation.
1507 * iresolve.c (gfc_resolve_kill, gfc_resolve_kill_sub): Remove.
1508 * trans-decl.c (gfc_build_intrinsic_function_decls): Add
1509 gfor_fndecl_kill and gfor_fndecl_kill_sub
1510 * trans-intrinsic.c (conv_intrinsic_kill, conv_intrinsic_kill_sub): new
1512 (gfc_conv_intrinsic_function): Use conv_intrinsic_kill.
1513 (gfc_conv_intrinsic_subroutine): Use conv_intrinsic_kill_sub.
1514 * trans.h: Declare gfor_fndecl_kill and gfor_fndecl_kill_sub.
1516 2018-03-11 Paul Thomas <pault@gcc.gnu.org>
1519 * trans-array.c (structure_alloc_comps): Make sure that the
1520 vptr is copied and that the unlimited polymorphic _len is used
1521 to compute the size to be allocated.
1522 * trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
1523 unlimited polymorphic _len for the offset to the element.
1524 (gfc_copy_class_to_class): Set the new 'unlimited' argument.
1525 * trans.h : Add the boolean 'unlimited' to the prototype.
1527 2018-03-11 Steven G. Kargl <kargl@gcc.gnu.org>
1530 * resolve.c (resolve_fl_procedure): Enforce F2018:C15100.
1532 2018-03-11 Steven G. Kargl <kargls@gcc.gnu.org>
1534 * check.c (gfc_check_kill): Check pid and sig are scalar.
1535 (gfc_check_kill_sub): Restrict kind to 4 and 8.
1536 * intrinsic.c (add_function): Sort keyword list. Add pid and sig
1537 keywords for KILL. Remove redundant *back="back" in favor of the
1538 original *bck="back".
1539 (add_subroutines): Sort keyword list. Add pid and sig keywords
1541 * intrinsic.texi: Fix documentation to consistently use pid and sig.
1542 * iresolve.c (gfc_resolve_kill): Kind can only be 4 or 8. Choose the
1544 (gfc_resolve_rename_sub): Add comment.
1546 2018-03-11 Thomas Koenig <tkoenig@gcc.gnu.org>
1549 * simplify.c (simplify_transformation): Return default result for
1550 empty array argument.
1551 (gfc_simplify_all): Remove special-case handling for zerosize.
1552 (gfc_simplify_any): Likewise.
1553 (gfc_simplify_count): Likewise.
1554 (gfc_simplify_iall): Likewise.
1555 (gfc_simplify_iany): Likewise.
1556 (gfc_simplify_iparity): Likewise.
1557 (gfc_simplify_minval): Likewise.
1558 (gfc_simplify_maxval): Likewise.
1559 (gfc_simplify_norm2): Likewise.
1560 (gfc_simplify_product): Likewise.
1561 (gfc_simplify_sum): Likewise.
1563 2018-03-10 Steven G. Kargl <kargl@gcc.gnu.org>
1566 * arith.c (check_result, eval_intrinsic): If result overflows, pass
1567 the expression up the chain instead of a NULL pointer.
1569 2018-03-07 Steven G. Kargl <kargl@gcc.gnu.org>
1573 * decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.
1575 2017-03-06 Thomas Koenig <tkoenig@gcc.gnu.org>
1579 * expr.c (simplify_parameter_variable): If p is a size zero array
1580 and not an ARRAY_EXPR insert an empty array constructor and
1582 * gfortran.h: Add prototype for gfc_is_size_zero_array.
1583 * simplify.c (is_size_zero_array): Make non-static and rename into
1584 (gfc_is_size_zero_array): Check for parameter arrays of zero
1585 size by comparing shape and absence of constructor.
1586 (gfc_simplify_all): Use gfc_is_size_zero_array instead of
1588 (gfc_simplify_count): Likewise.
1589 (gfc_simplify_iall): Likewise.
1590 (gfc_simplify_iany): Likewise.
1591 (gfc_simplify_iparity): Likewise.
1592 (gfc_simplify_minval): Likewise.
1593 (gfc_simplify_maxval): Likewise.
1594 (gfc_simplify_product): Likewise.
1595 (gfc_simplify_sum): Likewise.
1597 2018-03-06 Steven G. Kargl <kargl@gcc.gnu.org>
1600 * primary.c (match_sym_complex_part): Give the matcher for an implied
1601 do-loop a chance to run.
1603 2018-03-03 Harald Anlauf <anlauf@gmx.de>
1606 * trans-expr.c (gfc_apply_interface_mapping_to_expr): Do not
1607 dereference NULL pointer.
1609 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
1612 * simplify.c (is_size_zero_array): New function to check for size
1614 (gfc_simplify_all, gfc_simplify_any, gfc_simplify_count,
1615 gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
1616 gfc_simplify_minval, gfc_simplify_maxval, gfc_simplify_norm2,
1617 gfc_simplify_product, gfc_simplify_sum): Use it, and implement
1618 requirements from F2018.
1620 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
1623 * simplify.c (gfc_simplify_transfer): Resolve mold.
1625 2018-03-03 Paul Thomas <pault@gcc.gnu.org>
1628 * resolve.c (build_loc_call): Change symtree name from 'loc' to
1631 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1634 * target-memory.c (gfc_interpret_derived): Assert that BT_VOID
1635 components are caf tokens.
1636 (gfc_target_interpret_expr): Treat BT_VOID expressions as
1639 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1642 * class.c (class_array_ref_detected): Remove the condition that
1643 there be no reference after the array reference.
1644 (find_intrinsic_vtab): Remove excess whitespace.
1645 * trans-array.c (gfc_conv_scalarized_array_ref): Rename 'tmp'
1646 as 'base and call build_class_array_ref earlier.
1648 2018-02-28 Paul Thomas <pault@gcc.gnu.org>
1651 * trans-stmt.c (trans_associate_var): Make sure that the se
1652 expression is a pointer type before converting it to the symbol
1655 2018-02-25 Steven G. Kargl <kargl@gcc.gnu.org>
1658 * decl.c (variable_decl): Check that an explicit-shape-array with
1659 nonconstant bounds is allowed.
1661 2018-02-25 Paul Thomas <pault@gcc.gnu.org>
1664 * trans-intrinsic.c (gfc_conv_allocated): If the argument se
1665 has a pre block, add it to the expression pre block.
1667 2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
1670 * gfortran.h (gfc_integer_4_kind): Define.
1671 * resolve.c (resolve_select_type): Make sure that the
1672 kind of c->high is gfc_integer_4_kind.
1674 2018-02-24 Steven G. Kargl <kargl@gcc.gnu.org>
1677 * decl.c (gfc_match_data): Check for invalid substring in
1680 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1682 * intrinsic.texi: Arguments to MATMUL cannot both be rank one.
1684 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1687 * trans-io.c (transfer_expr): Deal with C_LOC in transfer statement.
1689 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1692 * interface.c (compare_actual_formal): Issue error if keyword is
1693 used in a statement function.
1695 2018-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1698 * trans-io.c (set_parameter_value_inquire): Adjust range check of
1699 negative unit values for kind=8 units to the kind=4 negative limit.
1701 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1704 * trans-types.c (gfc_sym_type): Test sym->ns->proc_name before
1705 accessing its components.
1707 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1710 * trans-decl.c (gfc_finish_var_decl): Test sym->ns->proc_name
1711 before accessing its components.
1713 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1716 * trans-const.c : Clean up some whitespace issues.
1717 * trans-expr.c (gfc_conv_initializer): If an iso_c_binding
1718 derived type has a kind value of zero, set it to the default
1721 2018-02-23 Janne Blomqvist <jb@gcc.gnu.org>
1724 * trans-decl.c (gfc_build_builtin_function_decls): Add bool
1725 argument to stop and error stop decls.
1726 * trans-stmt.c (gfc_trans_stop): Add false value to argument
1729 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1733 * trans-decl.c (gfc_build_builtin_function_decls): Pass
1734 gfc_int8_type node to pause_numeric, size_type_node to
1736 * trans-stmt.c (gfc_trans_pause): Likewise.
1738 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1740 * gfortran.texi: Update Coarray API description.
1741 * trans-decl.c (gfc_build_builtin_function_decls): Use size_t for
1742 character lengths, int for exit codes.
1743 (generate_coarray_sym_init): Use size_t for character length.
1744 * trans-intrinsic.c (conv_co_collective): Likewise.
1745 * trans-stmt.c (gfc_trans_lock_unlock): Likewise.
1746 (gfc_trans_event_post_wait): Likewise.
1747 (gfc_trans_sync): Likewise.
1748 (gfc_trans_stop): Use size_t for character lengths, int for exit
1751 2018-02-20 Thomas Koenig <tkoenig@gcc.gnu.org>
1755 * primary.c (gfc_convert_to_structure_constructor):
1756 For a constant string constructor, make sure the length
1759 2018-02-19 Paul Thomas <pault@gcc.gnu.org>
1763 * resolve.c (resolve_assoc_var): Rearrange the logic for the
1764 determination of the character length of associate names. If
1765 the associate name is missing a length expression or the length
1766 expression is not a constant and the target is not a variable,
1767 make the associate name allocatable and deferred length.
1768 * trans-decl.c (gfc_get_symbol_decl): Null the character length
1769 backend_decl for deferred length associate names that are not
1770 variables. Set 'length' to gfc_index_zero_node for character
1771 associate names, whose character length is a PARM_DECL.
1773 2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1776 * frontend-passes.c (traverse_io_block): Remove workaround for
1779 2018-02-19 Andre Vehreschild <vehre@gcc.gnu.org>
1781 * gfortran.texi: Document additional src/dst_type. Fix some typos.
1782 * trans-decl.c (gfc_build_builtin_function_decls): Declare the new
1783 argument of _caf_*_by_ref () with * e { get, send, sendget }.
1784 * trans-intrinsic.c (gfc_conv_intrinsic_caf_get): Add the type of the
1785 data referenced when generating a call to caf_get_by_ref ().
1786 (conv_caf_send): Same but for caf_send_by_ref () and
1787 caf_sendget_by_ref ().
1789 2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1792 * io.c (check_format): Allow FMT_COLON.
1794 2018-02-18 Paul Thomas <pault@gcc.gnu.org>
1797 * trans-array.c (gfc_conv_expr_descriptor): Set parmtype from
1798 the typenode in the case of deferred length characters.
1800 2018-02-17 Thomas Koenig <tkoenig@gcc.gnu.org>
1803 * frontend-passes (scalarized_expr): If the expression
1804 is an assumed size array, leave in the last reference
1805 and pass AR_SECTION instead of AR_FULL to gfc_resolve
1806 in order to avoid an error.
1808 2018-02-17 Paul Thomas <pault@gcc.gnu.org>
1811 * resolve.c (resolve_assoc_var): If a non-constant target expr.
1812 has no string length expression, make the associate variable
1813 into a deferred length, allocatable symbol.
1814 * trans-decl.c (gfc_is_reallocatable_lhs): Add and use a ptr to
1816 * trans-stmt.c (trans_associate_var): Null and free scalar
1817 associate names that are allocatable. After assignment, remove
1818 the allocatable attribute to prevent reallocation.
1820 2018-02-16 Jakub Jelinek <jakub@redhat.com>
1823 * trans-openmp.c (gfc_trans_omp_clauses): For OMP_CLAUSE_LINEAR_REF
1824 kind set OMP_CLAUSE_LINEAR_STEP to TYPE_SIZE_UNIT times last_step.
1826 2018-02-16 Dominique d'Humieres <dominiq@gcc.gnu.org>
1829 * decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.
1831 2018-02-15 Janus Weil <janus@gcc.gnu.org>
1834 * interface.c (check_dtio_arg_TKR_intent): Add a check for character
1837 2018-02-14 Janus Weil <janus@gcc.gnu.org>
1840 * match.c (gfc_match_select_type): Fix check for selector in
1841 SELECT TYPE statement.
1843 2018-02-13 Janus Weil <janus@gcc.gnu.org>
1846 * symbol.c (check_conflict): Reject procedure pointers in common blocks.
1848 2018-02-13 Alastair McKinstry <alastair.mckinstry@sceal.ie>
1849 Janne Blomqvist <jb@gcc.gnu.org>
1851 * module.c (dump_module): Use lbasename to ensure that module
1852 files are reproducible.
1854 2018-02-12 Janus Weil <janus@gcc.gnu.org>
1857 * resolve.c (resolve_component): Fix checks of passed argument in
1858 procedure-pointer components.
1860 2018-02-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1863 * resolve.c (resolve_formal_arglist): Update error message.
1865 2018-02-11 Andre Vehreschild <vehre@gcc.gnu.org>
1867 * gfortran.texi: Fix typos in documentation of caf_register ().
1868 * trans-array.c (structure_alloc_comps): Only register a component of
1869 a derived typed corray, not of an ultimate component coarray.
1871 2018-02-11 Steven G. Kargl <kargl@gcc.gnu.org>
1875 * interface.c (compare_actual_formal): Add in_statement_function
1876 bool parameter. Skip check of INTENT attribute for statement
1877 functions. Arguments to a statement function cannot be optional,
1878 issue error for missing argument.
1879 (gfc_procedure_use, gfc_ppc_use, gfc_arglist_matches_symbol): Use
1880 in_statement_function.
1882 2018-02-11 Paul Thomas <pault@gcc.gnu.org>
1885 * trans-expr.c (gfc_conv_derived_to_class): Set the use_offset
1886 flag. If the is a vector subscript or the expression is not a
1887 variable, make the descriptor one-based.
1889 2018-02-10 Paul Thomas <pault@gcc.gnu.org>
1893 * trans-array.c (gfc_array_init_size): Revert the change made
1894 in revision 257356 setting the dtype.
1895 * trans-types.c (gfc_get_dtype): Do not use the cached dtype.
1896 Call gfc_get_dtype_rank_type every time.
1899 * trans-array.c (gfc_conv_expr_descriptor): If the source array
1900 is a descriptor type, use its offset, removing the condition
1901 that is be a class expression.
1903 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1906 * match.c (gfc_match_deallocate): Check for NULL pointer.
1908 2018-02-07 Thomas Koenig <tkoenig@gcc.gnu.org>
1911 * trans-intrinsic.c (gfc_conv_intrinsic_shape): New function.
1912 (gfc_conv_intrinsic_function): Call it.
1914 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1917 * match.c (gfc_match_type_spec): If the charlen is non-NULL, then
1918 try to resolve it. While here return early if possible.
1920 2018-02-04 Paul Thomas <pault@gcc.gnu.org>
1923 * trans-decl.c (gfc_get_symbol_decl): Do not finish the decl of
1924 'length' if the symbol charlen backend_decl is an indirect ref.
1926 2018-02-03 Paul Thomas <pault@gcc.gnu.org>
1930 * trans-array.c (gfc_array_init_size): Instead of gfc_get_dtype
1931 use gfc_get_dtype_rank_type.
1933 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1937 * resolve.c (resolve_assoc_var): Generate an error if
1938 target length unknown.
1940 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1943 * simplify.c (gfc_simplify_repeat): Increase limit for deferring
1944 to runtime, print a warning message.
1946 2018-01-31 Jakub Jelinek <jakub@redhat.com>
1949 * openmp.c (gfc_match_omp_clauses): If all the linear
1950 gfc_match_omp_variable_list calls failed, don't gfc_free_omp_namelist
1951 nor set *head = NULL. Formatting fixes.
1953 2018-01-31 Paul Thomas <pault@gcc.gnu.org>
1956 * trans-expr.c (gfc_conv_procedure_call): If the parm expr is
1957 an address expression passed to an assumed rank dummy, convert
1958 to an indirect reference.
1960 2018-01-31 Thomas Koenig <tkoenig@gcc.gnu.org>
1962 * dump-parse-tree.c (write_proc): Use sym_name (which may
1963 be sym->binding_label) instead of sym->name.
1965 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1967 * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
1970 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1973 * trans-expr.c (fill_with_spaces): Use memset instead of
1975 (gfc_trans_string_copy): Improve opportunity to use builtins with
1978 2018-01-30 Jakub Jelinek <jakub@redhat.com>
1981 * trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
1982 to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
1984 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1987 * array.c (gfc_ref_dimen_size): Whitespace fixes. If stride is
1990 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1993 * frontend-passes (matmul_to_var_expr): Return early if
1994 in association list.
1995 (inline_matmul_assign): Likewise.
1997 2017-01-29 Thomas Koenig <tkoenig@gcc.gnu.org>
2000 * resolve.c (resolve_component): Ensure BIND(C) character
2001 components have length one.
2002 (resolve_symbol): Likewise for variables.
2004 2018-01-27 Jakub Jelinek <jakub@redhat.com>
2007 * decl.c (add_init_expr_to_sym): Ignore initializers for too large
2010 2018-01-26 Damian Rouson <damian@sourceryinstitute.org>
2011 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
2012 Soren Rasmussen <s.c.rasmussen@gmail.com>
2014 Partial support for Fortran 2018 teams features.
2016 * array.c (gfc_match_array_ref): add team attribute in coarray
2018 * check.c (gfc_check_get_team, gfc_check_team_number): add new
2019 functions for get_team and team_number.
2020 * dump-parse-tree.c (show_code_node): add new statements: form team,
2021 change team, end team, and sync team.
2022 * expr.c (gfc_find_team_co): add new function.
2023 * gfortran.h: add new statements.
2024 * intrinsic.c (add_functions): add get_team and team_number functions.
2025 * intrinsic.h: add get_team and team_number prototypes for check,
2026 simplify, and resolve.
2027 * iresolve.c (gfc_resolve_get_team, gfc_resolve_team_number): add new
2029 * iso-fortran-env.def: add the team_type derived type.
2030 * match.c (gfc_match_if, gfc_match_form_team, gfc_match_team_number)
2031 (gfc_match_end_team, gfc_match_sync_team, gfc_match_change_team):
2032 add change team, end team, form team, sync team match and functions.
2033 * match.h: add new prototypes for change team, end team, form team,
2035 * parse.c (decode_statement): add cases for change team, end team,
2036 form team, and sync team.
2037 * resolve.c: add cases for exec form team, change team, end team, and
2039 * simplify.c (gfc_simplify_get_team): add new function for get team.
2040 * st.c (gfc_free_statement): add cases exec for change team, end team,
2041 form team, sync team.
2042 * trans-decl.c (gfor_fndecl_caf_form_team)
2043 (gfor_fndecl_caf_change_team, gfor_fndecl_caf_end_team)
2044 (gfor_fndecl_caf_sync_team, gfor_fndecl_caf_get_team)
2045 (gfor_fndecl_caf_team_number): add functions and definitions.
2046 * trans-intrinsic.c (conv_caf_send, conv_intrinsic_team_number): add
2047 new function and team_type argument support.
2048 * trans-stmt.c (gfc_trans_form_team, gfc_trans_change_team)
2049 (gfc_trans_end_team, gfc_trans_sync_team): add new functions.
2050 * trans-stmt.h: add new prototypes.
2051 * trans-types.c (gfc_get_derived_type): check condition for team_type.
2052 * trans.c (trans_code): new exec cases for form team, change team, end
2053 team, and sync team.
2054 * trans.h: add new prototypes.
2056 2018-01-26 Steven G. Kargl <kargl@gcc.gnu.org>
2059 * simplify.c (compute_dot_product): Initialize result to INTEGER(1) 0
2060 or .false. The summation does the correct type conversion.
2061 (gfc_simplify_dot_product): Special case zero-sized arrays.
2063 2018-25-01 Paul Thomas <pault@gcc.gnu.org>
2066 * array.c (gfc_match_array_ref): If standard earlier than F2008
2067 it is an error if the reference dimension is greater than 7.
2068 libgfortran.h : Increase GFC_MAX_DIMENSIONS to 15. Change the
2069 dtype masks and shifts accordingly.
2070 * trans-array.c (gfc_conv_descriptor_dtype): Use the dtype
2071 type node to check the field.
2072 (gfc_conv_descriptor_dtype): Access the rank field of dtype.
2073 (duplicate_allocatable_coarray): Access the rank field of the
2074 dtype descriptor rather than the dtype itself.
2075 * trans-expr.c (get_scalar_to_descriptor_type): Store the type
2076 of 'scalar' on entry and use its TREE_TYPE if it is ARRAY_TYPE
2078 (gfc_conv_procedure_call): Pass TREE_OPERAND (tmp,0) to
2079 get_scalar_to_descriptor_type if the actual expression is a
2081 (gfc_trans_structure_assign): Assign the rank directly to the
2083 * trans-intrinsic.c (gfc_conv_intrinsic_rank): Cast the result
2084 to default integer kind.
2085 (gfc_conv_intrinsic_sizeof): Obtain the element size from the
2086 'elem_len' field of the dtype.
2087 * trans-io.c (gfc_build_io_library_fndecls): Replace
2088 gfc_int4_type_node with dtype_type_node where necessary.
2089 (transfer_namelist_element): Use gfc_get_dtype_rank_type for
2091 * trans-types.c : Provide 'get_dtype_type_node' to acces the
2092 dtype_type_node and, if necessary, build it.
2093 The maximum size of an array element is now determined by the
2094 maximum value of size_t.
2095 Update the description of the array descriptor, including the
2096 type def for the dtype_type.
2097 (gfc_get_dtype_rank_type): Build a constructor for the dtype.
2098 Distinguish RECORD_TYPEs that are BT_DERIVED or BT_CLASS.
2099 (gfc_get_array_descriptor_base): Change the type of the dtype
2100 field to dtype_type_node.
2101 (gfc_get_array_descr_info): Get the offset to the rank field of
2103 * trans-types.h : Add a prototype for 'get_dtype_type_node ()'.
2104 * trans.h : Define the indices of the dtype fields.
2106 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
2109 * decl.c (gfc_match_derived_decl): If eos not matched, recover
2110 and emit error about garbage after declaration.
2112 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
2115 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor
2118 2018-01-22 Janne Blomqvist <jb@gcc.gnu.org>
2122 * arith.c (gfc_arith_concat): Use size_t for string length.
2123 (gfc_compare_string): Likewise.
2124 (gfc_compare_with_Cstring): Likewise.
2125 * array.c (gfc_resolve_character_array_constructor): Use
2126 HOST_WIDE_INT, gfc_mpz_get_hwi.
2127 * check.c (gfc_check_fe_runtime_error): Use size_t.
2128 * data.c (create_character_initializer): Use HOST_WIDE_INT,
2130 * decl.c (gfc_set_constant_character_len): Use gfc_charlen_t.
2131 (add_init_expr_to_sym): Use HOST_WIDE_INT.
2132 * expr.c (gfc_build_init_expr): Use HOST_WIDE_INT,
2134 (gfc_apply_init): Likewise.
2135 * match.h (gfc_set_constant_character_len): Update prototype.
2136 * primary.c (match_string_constant): Use size_t.
2137 * resolve.c (resolve_ordinary_assign): Use HOST_WIDE_INT,
2139 * simplify.c (init_result_expr): Likewise.
2140 (gfc_simplify_len_trim): Use size_t.
2141 * target-memory.c (gfc_encode_character): Use size_t.
2142 (gfc_target_encode_expr): Use HOST_WIDE_INT, gfc_mpz_get_hwi.
2143 (interpret_array): Use size_t.
2144 (gfc_interpret_character): Likewise.
2145 * target-memory.h (gfc_encode_character): Update prototype.
2146 (gfc_interpret_character): Likewise.
2147 (gfc_target_interpret_expr): Likewise.
2148 * trans-const.c (gfc_build_string_const): Use size_t for length
2150 (gfc_build_wide_string_const): Likewise.
2151 * trans-const.h (gfc_build_string_const): Likewise.
2152 (gfc_build_wide_string_const): Likewise.
2154 2018-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
2157 * simplify.c (gfc_simplify_matmul): Set return type correctly.
2159 2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
2162 * simplify.c (gfc_simplify_matmul): Delete bogus assertion.
2164 2018-01-17 Harald Anlauf <anlauf@gmx.de>
2167 * expr.c (add_init_expr_to_sym): Do not dereference NULL pointer.
2169 2018-01-17 Harald Anlauf <anlauf@gmx.de>
2172 * decl.c (add_init_expr_to_sym): Do not dereference NULL pointer.
2174 2018-01-15 Louis Krupp <louis.krupp@zoho.com>
2177 * interface.c (compare_rank): Don't try to retrieve CLASS_DATA
2178 from symbol marked unlimited polymorphic.
2179 * resolve.c (resolve_structure_cons): Likewise.
2180 * misc.c (gfc_typename): Don't dereference derived->components
2183 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
2186 * gfortran.h (gfc_check_f): Rename f4ml to f5ml.
2187 (gfc_logical_4_kind): New macro
2188 * intrinsic.h (gfc_simplify_minloc): Add a gfc_expr *argument.
2189 (gfc_simplify_maxloc): Likewise.
2190 (gfc_resolve_maxloc): Likewise.
2191 (gfc_resolve_minloc): Likewise.
2192 * check.c (gfc_check_minloc_maxloc): Add checking for "back"
2193 argument; also raise error if it is used (for now). Add it
2194 if it isn't present.
2195 * intrinsic.c (add_sym_4ml): Rename to
2196 (add_sym_5ml), adjust for extra argument.
2197 (add_functions): Add "back" constant. Adjust maxloc and minloc
2199 * iresolve.c (gfc_resolve_maxloc): Add back argument. If back is
2200 not of gfc_logical_4_kind, convert.
2201 (gfc_resolve_minloc): Likewise.
2202 * simplify.c (gfc_simplify_minloc): Add back argument.
2203 (gfc_simplify_maxloc): Likewise.
2204 * trans-intinsic.c (gfc_conv_intrinsic_minmaxloc): Rename last
2205 argument to %VAL to ensure passing by value.
2206 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_minmaxloc
2207 also for library calls.
2209 2018-01-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
2212 * resolve.c (resolve_transfer): Delete code looking for 'DT'
2213 format specifiers in format strings. Set formatted to true if a
2214 format string or format label is present.
2215 * trans-io.c (get_dtio_proc): Likewise. (transfer_expr): Fix
2218 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
2221 * dump-parse-tree.c (get_c_type_name): Remove extra line.
2222 Change for loop to use declaration in for loop. Handle BT_LOGICAL
2224 (write_decl): Add where argument. Fix indentation. Replace
2225 assert with error message. Add typename to warning
2227 (write_type): Adjust locus to call of write_decl.
2228 (write_variable): Likewise.
2229 (write_proc): Likewise. Replace assert with error message.
2231 2018-01-13 Paul Thomas <pault@gcc.gnu.org>
2234 * trans-expr.c (gfc_trans_scalar_assign): Flag is_alloc_lhs if
2235 the rhs expression is neither an elemental nor a conversion
2239 * trans-array.c (is_pointer_array): Remove unconditional return
2240 of false for -fopenmp.
2242 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
2246 * dump-parse-tree.c (write_proc): Always emit closing parenthesis
2249 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
2252 * resolve.c (resolve_allocate_expr): Check for NULL pointer.
2254 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
2257 * resolve.c (resolve_charlen): Check the type of cl->length
2260 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
2263 * trans-array.c (gfc_trans_array_ctor_element): Fix formatting.
2265 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
2268 * trans-array.c (gfc_trans_array_ctor_element): Convert RHS to the
2269 LHS type when assigning.
2271 2018-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
2274 * expr.c (gfc_is_simply_contiguous): Check for NULL pointer.
2276 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
2278 * match.c (gfc_match_allocate): Check for NULL pointer.
2280 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
2282 * expr.c (gfc_check_pointer_assign): Fix typo in comment.
2284 2018-01-08 Paul Thomas <pault@gcc.gnu.org>
2287 * decl.c (gfc_get_pdt_instance): If parameterized arrays have
2288 an initializer, convert the kind parameters and add to the
2289 component if the instance.
2290 * trans-array.c (structure_alloc_comps): Add 'is_pdt_type' and
2291 use it with case COPY_ALLOC_COMP. Call 'duplicate_allocatable'
2292 for parameterized arrays. Clean up typos in comments. Convert
2293 parameterized array initializers and copy into the array.
2294 * trans-expr.c (gfc_trans_scalar_assign): Do a deep copy for
2295 parameterized types.
2296 *trans-stmt.c (trans_associate_var): Deallocate associate vars
2297 as necessary, when they are PDT function results for example.
2300 * trans-array.c (structure_alloc_comps): Only compare len parms
2301 when they are declared explicitly.
2303 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
2306 * trans-expr.c (gfc_trans_pointer_assignment): fold_convert rhs to
2309 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
2313 * array.c (got_charlen): Use gfc_charlen_int_kind.
2314 * class.c (gfc_find_derived_vtab): Use gfc_size_kind instead of
2316 (find_intrinsic_vtab): Likewise.
2317 * decl.c (match_char_length): Use gfc_charlen_int_kind.
2318 (add_init_expr_to_sym): Use gfc_charlen_t and gfc_charlen_int_kind.
2319 (gfc_match_implicit): Use gfc_charlen_int_kind.
2320 * dump-parse-tree.c (show_char_const): Use gfc_charlen_t and size_t.
2321 (show_expr): Use HOST_WIDE_INT_PRINT_DEC.
2322 * expr.c (gfc_get_character_expr): Length parameter of type
2324 (gfc_get_int_expr): Value argument of type HOST_WIDE_INT.
2325 (gfc_extract_hwi): New function.
2326 (simplify_const_ref): Make string_len of type gfc_charlen_t.
2327 (gfc_simplify_expr): Use HOST_WIDE_INT for substring refs.
2328 * frontend-passes.c (optimize_trim): Use gfc_charlen_int_kind.
2329 * gfortran.h (gfc_mpz_get_hwi): New prototype.
2330 (gfc_mpz_set_hwi): Likewise.
2331 (gfc_charlen_t): New typedef.
2332 (gfc_expr): Use gfc_charlen_t for character lengths.
2333 (gfc_size_kind): New extern variable.
2334 (gfc_extract_hwi): New prototype.
2335 (gfc_get_character_expr): Use gfc_charlen_t for character length.
2336 (gfc_get_int_expr): Use HOST_WIDE_INT type for value argument.
2337 * gfortran.texi: Update description of hidden string length argument.
2338 * iresolve.c (check_charlen_present): Use gfc_charlen_int_kind.
2339 (gfc_resolve_char_achar): Likewise.
2340 (gfc_resolve_repeat): Pass string length directly without
2341 temporary, use gfc_charlen_int_kind.
2342 (gfc_resolve_transfer): Use gfc_charlen_int_kind.
2343 * match.c (select_intrinsic_set_tmp): Use HOST_WIDE_INT for charlen.
2344 * misc.c (gfc_mpz_get_hwi): New function.
2345 (gfc_mpz_set_hwi): New function.
2346 * module.c (atom_int): Change type from int to HOST_WIDE_INT.
2347 (parse_integer): Don't complain about large integers.
2348 (write_atom): Use HOST_WIDE_INT for integers.
2349 (mio_integer): Handle integer type mismatch.
2350 (mio_hwi): New function.
2351 (mio_intrinsic_op): Use HOST_WIDE_INT.
2352 (mio_array_ref): Likewise.
2353 (mio_expr): Likewise.
2354 * primary.c (match_substring): Use gfc_charlen_int_kind.
2355 * resolve.c (resolve_substring_charlen): Use gfc_charlen_int_kind.
2356 (resolve_character_operator): Likewise.
2357 (resolve_assoc_var): Likewise.
2358 (resolve_select_type): Use HOST_WIDE_INT for charlen, use snprintf.
2359 (resolve_charlen): Use mpz_sgn to determine sign.
2360 * simplify.c (gfc_simplify_repeat): Use HOST_WIDE_INT/gfc_charlen_t
2362 * symbol.c (generate_isocbinding_symbol): Use gfc_charlen_int_kind.
2363 * target-memory.c (size_character): Length argument of type
2365 (gfc_encode_character): Likewise.
2366 (gfc_interpret_character): Use gfc_charlen_t.
2367 * target-memory.h (gfc_encode_character): Modify prototype.
2368 * trans-array.c (gfc_trans_array_ctor_element): Use existing type.
2369 (get_array_ctor_var_strlen): Use gfc_conv_mpz_to_tree_type.
2370 (trans_array_constructor): Use existing type.
2371 (get_array_charlen): Likewise.
2372 * trans-const.c (gfc_conv_mpz_to_tree_type): New function.
2373 * trans-const.h (gfc_conv_mpz_to_tree_type): New prototype.
2374 * trans-decl.c (gfc_trans_deferred_vars): Use existing type.
2375 (add_argument_checking): Likewise.
2376 * trans-expr.c (gfc_class_len_or_zero_get): Build const of type
2377 gfc_charlen_type_node.
2378 (gfc_conv_intrinsic_to_class): Use gfc_charlen_int_kind instead of
2379 4, fold_convert to correct type.
2380 (gfc_conv_class_to_class): Build const of type size_type_node for
2382 (gfc_copy_class_to_class): Likewise.
2383 (gfc_conv_string_length): Use same type in expression.
2384 (gfc_conv_substring): Likewise, use HOST_WIDE_INT for charlen.
2385 (gfc_conv_string_tmp): Make sure len is of the right type.
2386 (gfc_conv_concat_op): Use same type in expression.
2387 (gfc_conv_procedure_call): Likewise.
2388 (fill_with_spaces): Comment out memset() block due to spurious
2389 -Wstringop-overflow warnings.
2390 (gfc_trans_string_copy): Use gfc_charlen_type_node.
2391 (alloc_scalar_allocatable_for_subcomponent_assignment):
2392 fold_convert to right type.
2393 (gfc_trans_subcomponent_assign): Likewise.
2394 (trans_class_vptr_len_assignment): Build const of correct type.
2395 (gfc_trans_pointer_assignment): Likewise.
2396 (alloc_scalar_allocatable_for_assignment): fold_convert to right
2398 (trans_class_assignment): Build const of correct type.
2399 * trans-intrinsic.c (gfc_conv_associated): Likewise.
2400 (gfc_conv_intrinsic_repeat): Do calculation in sizetype.
2401 * trans-io.c (gfc_build_io_library_fndecls): Use
2402 gfc_charlen_type_node for character lengths.
2403 (set_string): Convert to right type in assignment.
2404 * trans-stmt.c (gfc_trans_label_assign): Build const of
2405 gfc_charlen_type_node.
2406 (trans_associate_var): Likewise.
2407 (gfc_trans_character_select): Likewise.
2408 (gfc_trans_allocate): Likewise, don't typecast strlen result.
2409 (gfc_trans_deallocate): Don't typecast strlen result.
2410 * trans-types.c (gfc_size_kind): New variable.
2411 (gfc_init_types): Determine gfc_charlen_int_kind and gfc_size_kind
2412 from size_type_node.
2413 * trans-types.h: Fix comment.
2415 2018-01-04 Thomas Koenig <tkoenig@gcc.gnu.org>
2419 * check.c (gfc_check_eoshift): Check for string length and
2420 for conformance of boundary.
2421 * intrinsic.c (add_functions): Add gfc_simplify_eoshift.
2422 * intrinsic.h: Add prototype for gfc_simplify_eoshift.
2423 * simplify.c (gfc_simplify_eoshift): New function.
2425 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
2426 Alan Hayward <alan.hayward@arm.com>
2427 David Sherwood <david.sherwood@arm.com>
2429 * trans-types.c (gfc_type_for_mode): Handle MODE_VECTOR_BOOL.
2431 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
2432 Alan Hayward <alan.hayward@arm.com>
2433 David Sherwood <david.sherwood@arm.com>
2435 * trans-types.c (gfc_type_for_mode): Check valid_vector_subparts_p.
2437 2018-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
2440 * check.c (gfc_check_eoshift): Error for missing boundary if array
2441 is not one of the standard types.
2443 2018-01-03 Jakub Jelinek <jakub@redhat.com>
2445 Update copyright years.
2447 * gfortranspec.c (lang_specific_driver): Update copyright notice
2449 * gfc-internals.texi: Bump @copying's copyright year.
2450 * gfortran.texi: Ditto.
2451 * intrinsic.texi: Ditto.
2452 * invoke.texi: Ditto.
2454 2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
2457 * intrinsic.c (add_function): Add gfc_simplify_maxloc and
2458 gfc_simplify_minloc to maxloc and minloc, respectively.
2459 * intrinsic.h: Add prototypes for gfc_simplify_minloc
2460 and gfc_simplify_maxloc.
2461 * simplify.c (min_max_chose): Adjust prototype. Modify function
2462 to have a return value which indicates if the extremum was found.
2463 (is_constant_array_expr): Fix typo in comment.
2464 (simplify_minmaxloc_to_scalar): New function.
2465 (simplify_minmaxloc_nodim): New function.
2466 (new_array): New function.
2467 (simplify_minmaxloc_to_array): New function.
2468 (gfc_simplify_minmaxloc): New function.
2469 (simplify_minloc): New function.
2470 (simplify_maxloc): New function.
2472 2018-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
2476 * simplify.c (gfc_simplify_cshift): Re-implement to allow full
2479 2018-01-01 Paul Thomas <pault@gcc.gnu.org>
2482 * resolve.c (resolve_fl_derived0): Add caf_token fields for
2483 allocatable and pointer scalars, when -fcoarray selected.
2484 * trans-types.c (gfc_copy_dt_decls_ifequal): Copy the token
2485 field as well as the backend_decl.
2486 (gfc_get_derived_type): Flag GFC_FCOARRAY_LIB for module
2487 derived types that are not vtypes. Components with caf_token
2488 attribute are pvoid types. For a component requiring it, find
2489 the caf_token field and have the component token field point to
2493 *trans-types.c (gfc_get_array_descriptor_base): Add the token
2494 field to the descriptor even when codimen not set.
2496 Copyright (C) 2018 Free Software Foundation, Inc.
2498 Copying and distribution of this file, with or without modification,
2499 are permitted in any medium without royalty provided the copyright
2500 notice and this notice are preserved.