1 2018-08-21 Nicolas Koenig <koenigni@gcc.gnu.org>
2 Thomas Koenig <tkoenig@gcc.gnu.org>
5 * gfortran.texi: Add description of asynchronous I/O.
6 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
8 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
9 st_wait_async and change argument spec from ".X" to ".w".
10 (gfc_trans_wait): Pass ID argument via reference.
12 2018-08-16 Nathan Sidwell <nathan@acm.org>
14 * cpp.c (dump_macro): Use cpp_user_macro_p.
16 2018-08-14 Janus Weil <janus@gcc.gnu.org>
19 * interface.c (compare_type): Remove a CLASS/TYPE check.
20 (compare_type_characteristics): New function that behaves like the old
22 (gfc_check_dummy_characteristics, gfc_check_result_characteristics):
23 Call 'compare_type_characteristics' instead of 'compare_type'.
25 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
28 * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Class array
29 elements are returned as references to the data element. Get
30 the class expression by stripping back the references. Use this
33 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
36 * resolve.c (resolve_fl_variable_derived): Check if the derived
37 type is use associated before checking for the host association
40 2018-08-10 Janus Weil <janus@gcc.gnu.org>
43 * invoke.texi (frontend-optimize): Mention short-circuiting.
44 * options.c (gfc_post_options): Disable -ffrontend-optimize with -Og.
45 * resolve.c (resolve_operator): Warn about short-circuiting only with
47 * trans-expr.c (gfc_conv_expr_op): Use short-circuiting operators only
48 with -ffrontend-optimize. Without that flag, make sure that both
49 operands are evaluated.
51 2018-08-08 Nathan Sidwell <nathan@acm.org>
53 * cpp.c (cb_file_change): Use linemap_included_from.
55 2018-08-07 Cesar Philippidis <cesar@codesourcery.com>
57 * trans-stmt.h: Remove stale reference to trans-openacc.c.
59 2018-08-04 Janus Weil <janus@gcc.gnu.org>
62 * interface.c (gfc_compare_interfaces): Apply additional
63 distinguishability criteria of F08 to operator interfaces.
65 2018-07-31 Andre Vieira <andre.simoesdiasvieira@arm.com>
67 Revert 'AsyncI/O patch committed'
68 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
69 Thomas Koenig <tkoenig@gcc.gnu.org>
72 * gfortran.texi: Add description of asynchronous I/O.
73 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
75 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
76 st_wait_async and change argument spec from ".X" to ".w".
77 (gfc_trans_wait): Pass ID argument via reference.
79 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
80 Thomas Koenig <tkoenig@gcc.gnu.org>
83 * gfortran.texi: Add description of asynchronous I/O.
84 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
86 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
87 st_wait_async and change argument spec from ".X" to ".w".
88 (gfc_trans_wait): Pass ID argument via reference.
90 2018-07-20 Martin Sebor <msebor@redhat.com>
93 * gfortran.h (gfc_handle_option): Change function argument
95 * options.c (gfc_handle_option): Same.
97 2018-07-20 Andrew Benson <abenson@carnegiescience.edu>
99 * gfortran.h (gfc_symbol): Add pointer to next derived type.
100 (gfc_dt_list, gfc_get_dt_list): Remove.
101 (gfc_namespace): Replace gfc_dt_list with gfc_symbol.
102 * parse.c (resolve_all_program_units): Replace gfc_free_dt_list() with
103 simple nullification of gfc_derived_types.
104 * resolve.c (resolve_global_procedure): Replace gfc_dt_list with
106 (add_dt_to_dt_list): Change derived type linked list insertion to
107 utilize dt_next pointers in gfc_symbol.
108 * symbol.c (gfc_new_symbol, gfc_free_dt_list, gfc_symbol_done2)
109 (get_iso_c_binding_dt, generate_isocbinding_symbol): Remove
110 gfc_free_dt_list as gfc_dt_list is obsoleted. Change derived type
111 linked list search/insertion to utilize dt_next pointers in gfc_symbol.
112 * trans-types.c (gfc_get_derived_type): Change derived type linked
113 list search to utilize dt_next pointers in gfc_symbol.
115 2018-07-19 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
117 * trans-intrinsic.c: (gfc_conv_intrinsic_minmax): Emit MIN_MAX_EXPR
118 or IFN_FMIN/FMAX sequence to calculate the min/max when possible.
120 2018-07-18 Janus Weil <janus@gcc.gnu.org>
121 Thomas Koenig <tkoenig@gcc.gnu.org>
124 * dump-parse-tree.c (show_attr): Add handling of implicit_pure.
125 * frontend-passes.c (do_warn_function_elimination): Do not warn for
127 * gfortran.h: Add prototypes for gfc_pure_function and
128 gfc_implicit_pure_function.
129 * gfortran.texi: Add chapter on evaluation of logical expressions.
130 * invoke.texi: Mention that -Wfunction-elimination is implied
132 * lang.opt: Make -Wextra imply -Wfunction-elimination.
133 * resolve.c (pure_function): Rename to gfc_pure_function.
134 (gfc_implicit_pure_function): New function.
135 (check_pure_function): Use it here.
136 (impure_function_callback): New function.
137 (resolve_operator): Call it via gfc_expr_walker.
139 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
142 * decl.c (match_old_style_init): Initialize locus of variable expr when
143 creating a data variable.
144 (match_clist_expr): Verify array is explicit shape/size before
145 attempting to allocate constant array constructor.
147 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
150 * module.c (mio_component): Set component->loc when loading from module.
152 2018-07-10 Jakub Jelinek <jakub@redhat.com>
155 * module.c (omp_declare_simd_clauses): Add LINEAR with _REF, _VAL and
157 (mio_omp_declare_simd): Save and restore ref, val and uval modifiers
158 on linear clauses. Initialize n->where to gfc_current_locus.
160 2018-07-05 Paul Thomas <pault@gcc.gnu.org>
163 * resolve.c.c (resolve_contained_fntype): Reference to C418 is
164 in F2008 and not F2003.
165 (resolve_function): Ditto in error message. Also, exclude
166 deferred character length results from the error.
168 2018-07-05 Fritz Reese <fritzoreese@gmail.com>
172 * expr.c (class_allocatable, class_pointer, comp_allocatable,
173 comp_pointer): New helpers.
174 (component_initializer): Generate EXPR_NULL for allocatable or pointer
175 components. Do not generate initializers for components within BT_CLASS.
176 Do not assign to comp->initializer.
177 (gfc_generate_initializer): Use new helpers; move code to generate
178 EXPR_NULL for class allocatable components into component_initializer().
180 2018-07-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
183 * trans-decl.c (gfc_process_block_locals): Delete assert and set
184 saved_local_decls = NULL_TREE.
186 2018-07-02 Richard Biener <rguenther@suse.de>
189 * trans-types.c (gfc_get_array_type_bounds): Unshare TYPE_FIELDs
190 for the distinct type copy.
192 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
196 * trans-array.c (structure_alloc_comps): Do not explicitly copy
197 procedure pointer components.
199 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
202 * expr.c : Add a prototype for scalarize_intrinsic_call.
203 (gfc_simplify_expr): Use scalarize_intrinsic_call for elemental
204 intrinsic function calls.
205 (scalarize_intrinsic_call): Add 'init_flag' argument. Check if
206 the expression or any of the actual argument expressions are
207 NULL. Before calling gfc_check_init_expr, check 'init_flag'.
208 Only simplify the scalarized expressions if there are no errors
210 (gfc_check_init_expr): Set 'init_flag' true in the call to
211 scalarize_intrinsic_call.
213 2018-06-28 Fritz Reese <fritzoreese@gmail.com>
216 * decl.c (gfc_match_type): Refactor and check for PDT declarations.
218 2018-06-28 Martin Liska <mliska@suse.cz>
220 * gfortranspec.c: Include opt-suggestions.h.
222 2018-06-25 Fritz Reese <fritzoreese@gmail.com>
227 * expr.c (component_initializer): Assign init expr to c->initializer.
228 (generate_isocbinding_initializer): New.
229 (gfc_generate_initializer): Call generate_isocbinding_initializer to
230 generate initializers for c_ptr and c_funptr with -finit-derived.
232 2018-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
235 * interface.c (check_dtio_interface1): Delete assert.
237 2018-06-22 Paul Thomas <pault@gcc.gnu.org>
238 Rainer Orth <ro@gcc.gnu.org>
241 * resolve.c (resolve_contained_fntype): Check for the charlen
242 before testing the length.
244 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
247 * resolve.c (resolve_contained_fntype): Change standard ref.
248 from F95 to F2003: C418. Correct a spelling error in a comment.
249 It is an error for an abstract interface to have an assumed
250 character length result.
251 * trans-expr.c (gfc_conv_procedure_call): Likewise change the
254 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
257 * resolve.c (resolve_ordinary_assign): Force the creation of a
258 vtable for assignment of non-polymorphic expressions to an
259 unlimited polymorphic object.
260 * trans-array.c (gfc_alloc_allocatable_for_assignment): Use the
261 size of the rhs type for such assignments. Set the dtype, _len
262 and vptrs appropriately.
263 * trans-expr.c (gfc_trans_assignment): Force the use of the
264 _copy function for these assignments.
266 2018-06-20 Chung-Lin Tang <cltang@codesourcery.com>
267 Thomas Schwinge <thomas@codesourcery.com>
268 Cesar Philippidis <cesar@codesourcery.com>
270 * gfortran.h (gfc_omp_clauses): Add unsigned if_present, finalize
272 * openmp.c (enum omp_mask2): Remove OMP_CLAUSE_PRESENT_OR_*. Add
273 OMP_CLAUSE_{IF_PRESENT,FINALIZE}.
274 (gfc_match_omp_clauses): Update handling of copy, copyin, copyout,
275 create, deviceptr, present_of_*. Add support for finalize and
277 (OACC_PARALLEL_CLAUSES): Remove PRESENT_OR_* clauses.
278 (OACC_KERNELS_CLAUSES): Likewise.
279 (OACC_DATA_CLAUSES): Likewise.
280 (OACC_DECLARE_CLAUSES): Likewise.
281 (OACC_UPDATE_CLAUSES): Add IF_PRESENT clause.
282 (OACC_ENTER_DATA_CLAUSES): Remove PRESENT_OR_* clauses.
283 (OACC_EXIT_DATA_CLAUSES): Add FINALIZE clause.
284 (gfc_match_oacc_declare): Update to OpenACC 2.5 semantics.
285 * trans-openmp.c (gfc_trans_omp_clauses): Add support for IF_PRESENT
288 2018-06-18 Eric Botcazou <ebotcazou@adacore.com>
290 * trans-decl.c (gfc_get_fake_result_decl): Revert latest change.
292 2018-06-17 Eric Botcazou <ebotcazou@adacore.com>
294 * trans-decl.c (nonlocal_dummy_decl_pset): Delete.
295 (nonlocal_dummy_decls): Likewise.
296 (gfc_nonlocal_dummy_array_decl): Likewise.
297 (gfc_get_symbol_decl): Do not call gfc_nonlocal_dummy_array_decl.
298 (gfc_get_fake_result_decl): Do not generate a new DECL if simply
299 reusing the result of a recursive call.
300 (gfc_generate_function_code): Do not create, insert and destroy
301 nonlocal_dummy_decls.
303 2018-06-13 Steven G. Kargl <kargl@gcc.gnu.org>
306 * array.c (gfc_resolve_character_array_constructor): Avoid NULL
309 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
312 * parse.c (decode_oacc_directive): Set gfc_matching_function
314 (decode_omp_directive): Likewise.
316 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
319 * openmp.c (gfc_match_oacc_wait): Use %C to report error location.
321 2018-06-12 David Malcolm <dmalcolm@redhat.com>
324 * misc.c (gfc_closest_fuzzy_match): Update for renaming of
325 levenshtein_distance to get_edit_distance.
327 2018-06-12 Steven G. Kargl <kargl@gcc.gnu.org>
330 * expr.c (gfc_check_assign): Select non-NULL locus.
332 2018-06-11 Janus Weil <janus@gcc.gnu.org>
335 * interface.c (compare_ptr_alloc): New function.
336 (generic_correspondence): Call it.
338 2018-06-10 Thomas Koenig <tkoenig@gcc.gnu.org>
340 * gfortran.h (gfc_expr): Add no_bounds_check field.
341 * frontend-passes.c (get_array_inq_function): Set no_bounds_check
342 on function and function argument.
343 (inline_matmul_assign): Set no_bounds_check on zero expression
344 and on lhs of zero expression.
345 Also handle A1B2 case if realloc on assigment is active.
346 * trans-array.c (gfc_conv_array_ref): Don't do range checking
347 if expr has no_bounds_check set.
348 (gfc_conv_expr_descriptor): Set no_bounds_check on ss if expr
350 * trans-expr.c (gfc_trans_assignment_1): Set no_bounds_check
351 on lss and lss if the corresponding expressions have it set.
353 2018-06-10 Dominique d'Humieres <dominiq@gcc.gnu.org>
356 * trans-const.c: Remove include "diagnostic-core.h".
357 (gfc_conv_constant_to_tree): Replace fatal_error with gcc_unreachable.
359 2018-06-10 Janus Weil <janus@gcc.gnu.org>
362 * decl.c (match_attr_spec): Synchronize the DECL_* enum values with the
363 INTENT_* values from the enum 'sym_intent'. Call 'match_intent_spec'
364 and remove a TODO note.
365 * gfortran.h: Add a comment to sym_intent.
367 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
370 * resolve.c (resolve_operator): Provide better error message for
371 derived type entity used in an binary intrinsic numeric operator.
373 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
378 * decl.c (gfc_match_char_spec): Use private namespace in attempt to
379 reduce a charlen to a constant.
381 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
384 * data.c (gfc_assign_data_value): Re-arrange code to allow for
385 an error for double initialization of CHARACTER entities.
387 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
390 * symbol.c (gfc_add_volatile): Enforce F2008:C1282 and F2018:C1588.
392 2018-06-08 Thomas Koenig <tkoenig@gcc.gnu.org>
395 * trans.h (gfc_ss): Add field no_bounds_check.
396 * trans-array.c (gfc_conv_ss_startstride): If flag_realloc_lhs and
397 ss->no_bounds_check is set, do not use runtime checks.
398 * trans-expr.c (gfc_trans_assignment_1): Set lss->no_bounds_check
399 for reallocatable lhs.
401 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
404 * array.c (match_array_cons_element): NULL() cannot be in an
407 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
410 * data.c (create_character_initializer): Return early if type is
411 incompatible with CHARACTER.
413 2018-06-07 Steven G. Kargl <kargl@gcc.gnu.org>
416 * simplify.c (gfc_simplify_mod): Re-arrange code to test whether
417 'P' is zero and issue an error if it is.
419 2018-06-06 Thomas Koenig <tkoenig@gcc.gnu.org>
422 * frontend-passes.c (is_fe_temp): Add prototype.
423 (realloc_string_callback): Early return for frontend-generated
426 2018-06-05 Cesar Philippidis <cesar@codesourcery.com>
430 * openmp.c (gfc_resolve_oacc_declare): Error on functions and
431 subroutine data clause arguments.
433 2018-06-04 Steven G. Kargl <kargl@gcc.gnu.org>
436 * resolve.c (resolve_allocate_deallocate): Check errmsg is default
439 2018-06-03 Paul Thomas <pault@gcc.gnu.org>
442 * decl.c (variable_decl): Use gfc_add_type for cray pointees.
444 2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
447 * check.c (gfc_check_random_init): New function. Check arguments of
449 * gfortran.h (GFC_ISYM_RANDOM_INIT): New enum token.
450 * intrinsic.c (add_subroutines): Add RANDOM_INIT to list of
452 (gfc_check_intrinsic_standard): Introduce Fortran 2018 check.
453 * intrinsic.h: Add prototypes for gfc_check_random_init and
454 gfc_resolve_random_init
455 * intrinsic.texi: Document new intrinsic subprogram.
456 * iresolve.c (gfc_resolve_random_init): Resolve routine name.
457 * trans-decl.c: Declare gfor_fndecl_random_init
458 * trans-intrinsic.c (conv_intrinsic_random_init): New function.
459 Translate call to RANDOM_INIT.
460 (gfc_conv_intrinsic_subroutine): Call it.
461 * trans.h: Declare gfor_fndecl_random_init
463 2018-05-27 Steven G. Kargl <kargl@gcc.gnu.org>
465 * decl.c (match_data_constant): Fortran 2018 allows pointer
466 initialization in a data statement.
468 2018-05-25 Janus Weil <janus@gcc.gnu.org>
471 * match.c (gfc_match_block_data): Call gfc_notify_std to warn about
472 an obsolescent feature in Fortran 2018.
473 (gfc_match_equivalence): Ditto.
474 * resolve.c (resolve_common_blocks): Ditto.
475 (gfc_resolve_forall): Ditto.
476 * symbol.c (gfc_define_st_label): Ditto.
478 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
481 * resolve.c (update_current_proc_array_outer_dependency): Avoid NULL
484 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
487 * resolve.c (resolve_fl_procedure): Avoid NULL dereference.
489 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
492 * decl.c (gfc_match_derived_decl): Fix NULL point dereference.
494 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
497 * resolve.c (resolve_sync): Resolve expression before checking for
500 2018-05-22 Janus Weil <janus@gcc.gnu.org>
503 * libgfortran.h: Remove the macros GFC_STD_F2008_TS and
505 * error.c (notify_std_msg): Remove GFC_STD_F2008_TS.
506 * options.c (set_default_std_flags): Ditto.
507 (gfc_handle_option): Make -std=f2008ts an alias for -std=f2018.
508 * array.c (gfc_match_array_spec): Replace GFC_STD_F2008_TS by
510 * check.c (gfc_check_atomic, gfc_check_event_query,
511 gfc_check_c_f_pointer, gfc_check_c_f_procpointer, gfc_check_c_funloc,
512 gfc_check_c_loc, gfc_check_num_images, gfc_check_this_image): Ditto.
513 * decl.c (gfc_verify_c_interop_param, gfc_match_decl_type_spec): Ditto.
514 * intrinsic.c (add_functions, add_subroutines,
515 gfc_check_intrinsic_standard): Ditto.
516 * iso-c-binding.def: Ditto.
517 * iso-fortran-env.def: Ditto.
518 * match.c (gfc_match_event_post, gfc_match_event_wait,
519 gfc_match_fail_image, gfc_match_form_team, gfc_match_change_team,
520 gfc_match_end_team, gfc_match_sync_team): Ditto.
521 * gfortran.texi: Remove mention of -std=f2008ts.
522 Move TSs into F2018 section.
523 * invoke.texi: Update documentation of -std=f2008ts.
525 2018-05-21 Janus Weil <janus@gcc.gnu.org>
528 * libgfortran.h: New macros GFC_STD_OPT_*.
529 * error.c (notify_std_msg): New function.
530 (gfc_notify_std): Adjust such that it can handle combinations of
531 GFC_STD_* flags in the 'std' argument, not just a single one.
532 * match.c (match_arithmetic_if, gfc_match_if): Reject arithmetic if
534 (gfc_match_stopcode): Use GFC_STD_OPT_* macros.
535 * options.c (set_default_std_flags): Warn for F2018 deleted features
537 (gfc_handle_option): F2018 deleted features are allowed in earlier
539 * symbol.c (gfc_define_st_label, gfc_reference_st_label): Reject
540 nonblock do constructs in Fortran 2018.
542 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
545 * resolve.c (flag_fn_result_spec): Use the 'sym' argument to
546 test for self refs to the function result in the character len
547 expression. If a self reference is found, emit an error and
549 (resolve_fntype): Use the function symbol in the calls to the
552 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
555 * trans-array.c (gfc_get_array_span): Renamed from
557 (gfc_conv_expr_descriptor): Change references to above.
558 * trans-array.h : Add prototype for 'gfc_get_array_span'.
559 * trans-intrinsic.c (gfc_conv_associated): Add pre and post
561 * trans-stmt.c (trans_associate_var): If the associate name is
562 a subref array pointer, use gfc_get_array_span for the span.
564 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
567 * match.c (gfc_match_type_spec): Go through the array ref and
568 decrement 'rank' for every dimension that is an element.
570 2018-05-19 Paul Thomas <pault@gcc.gnu.org>
575 * trans-array.c (gfc_alloc_allocatable_for_assignment): Set the
576 charlen backend_decl of the rhs expr to ss->info->string_length
577 so that the value in the current scope is used.
579 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
582 * gfortran.texi: Clarify documentation for Cray pointer and
585 2018-05-13 Paul Thomas <pault@gcc.gnu.org>
588 * trans-types.c (gfc_get_dtype_rank_type): Reorder evaluation
589 of 'size'. If the element type is a pointer use the size of the
590 TREE_TYPE of the type, unless it is VOID_TYPE. In this latter
591 case, set the size to zero.
593 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
595 * gfortran.h: Remove prototype.
596 * symbol.c (gfc_new_undo_checkpoint): Remove unused function.
598 2018-05-11 Steven G. Kargl <kargl@gcc.gnu.org>
601 * expr.c (check_inquiry): Avoid NULL pointer dereference.
603 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
606 * check.c (gfc_check_rank): Check that the argument is a data object.
608 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
611 * array.c (gfc_resolve_character_array_constructor): Substrings
612 with upper bound smaller than lower bound are zero length strings.
614 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
617 * data.c (gfc_assign_data_value): Check that a data object does
618 not also have default initialization.
620 2018-05-10 Marek Polacek <polacek@redhat.com>
623 * options.c (gfc_post_options): Set main_input_filename.
625 2018-05-10 Thomas Koenig <tkoenig@gcc.gnu.org>
628 * intrinsic.texi: Document BACK for MINLOC and MAXLOC.
630 2018-05-10 Paul Thomas <pault@gcc.gnu.org>
634 * resolve.c (get_temp_from_expr): The temporary must not have
635 dummy or intent attributes.
637 2018-05-08 Thomas Koenig <tkoenig@gcc.gnu.org>
640 * check.c (gfc_check_minmaxloc): Remove error for BACK not being
641 implemented. Use gfc_logical_4_kind for BACK.
642 * simplify.c (min_max_choose): Add optional argument back_val.
644 (simplify_minmaxloc_to_scalar): Add argument back_val. Pass
645 back_val to min_max_choose.
646 (simplify_minmaxloc_to_nodim): Likewise.
647 (simplify_minmaxloc_to_array): Likewise.
648 (gfc_simplify_minmaxloc): Add argument back, handle it.
649 Pass back_val to specific simplification functions.
650 (gfc_simplify_minloc): Remove ATTRIBUTE_UNUSED from argument back,
651 pass it on to gfc_simplify_minmaxloc.
652 (gfc_simplify_maxloc): Likewise.
653 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Adjust
654 comment. If BACK is true, use greater or equal (or lesser or
655 equal) insteal of greater (or lesser). Mark the condition of
656 having found a value which exceeds the limit as unlikely.
658 2018-05-07 Jeff Law <law@redhat.comg>
660 * scanner.c (preprocessor_line): Call linemap_add after a line
661 directive that changes the current filename.
663 2018-05-06 Andre Vehreschild <vehre@gcc.gnu.org>
666 * dependency.c (gfc_dep_resolver): Revert looking at coarray dimension
667 introduced by r259385.
668 * trans-intrinsic.c (conv_caf_send): Always report a dependency for
669 same variables in coarray assignments.
671 2018-05-02 Tom de Vries <tom@codesourcery.com>
674 * f95-lang.c (DEF_GOACC_BUILTIN_ONLY): Define.
676 2018-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
679 * decl.c (gfc_match_char_spec): Check for negative length and set to 0.
681 2018-04-14 Andre Vehreschild <vehre@gcc.gnu.org>
685 * dependency.c (gfc_dep_resolver): Coarray indexes are to be ignored
686 during dependency computation. They define no data dependency.
687 * trans-array.c (conv_array_index_offset): The stride can not be set
689 * trans-intrinsic.c (conv_caf_send): Add creation of temporary array
690 for caf_get's result and copying to the array with vectorial
693 2018-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
696 * frontend-passes.c (traverse_io_block): Check for start, end or
697 stride being defined by an outer implied DO loop.
699 2018-04-12 Thomas Koenig <tkoenig@gcc.gnu.org>
703 * trans-stmt.c (gfc_trans_forall_loop): Use annot_expr_ivdep_kind
704 for annotation and remove dependence on -ftree-parallelize-loops.
706 2018-04-10 Jakub Jelinek <jakub@redhat.com>
709 * openmp.c (resolve_omp_do): Remove bogus if (j < i) break;.
710 (resolve_oacc_nested_loops): Likewise. Formatting fix.
712 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
715 * trans-stmt.c (gfc_trans_forall_loop): Remove annotation for
716 parallell processing of DO CONCURRENT -ftree-parallelize-loops
719 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
722 * resolve.c (resolve_variable): Simplify cases where access to a
723 parameter array results in a single constant.
725 2018-04-02 Thomas Koenig <tkoenig@gcc.gnu.org>
728 * decl.c (variable_decl): If upper or lower bounds simplify
729 to a constant, use that.
731 2018-03-30 Paul Thomas <pault@gcc.gnu.org>
734 * simplify.c (gfc_convert_constant): Handle case of array
735 constructors within an array that has no iterator and improve
736 the conciseness of this section of code.
738 2017-03-30 Thomas Koenig <tkoenig@gcc.gnu.org>
741 * array.c (gfc_resolve_character_array_constructor): Early
742 exit for zero-size arrays.
743 * simplify.c (simplify_transformation_to_array): Exit early
744 if the result size is zero.
745 (simplify_minmaxloc_to_array): Likewise.
747 2018-03-28 Mikael Morin <mikael@gcc.gnu.org>
750 * symbol.c (gfc_symbol_done_2): Start freeing namespaces
752 (gfc_free_namespace): Restore assert (revert r258839).
754 2018-03-28 Jakub Jelinek <jakub@redhat.com>
756 * gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
757 * ioparm.def (IOPARM_dt_default_exp): Rename to ...
758 (IOPARM_dt_dec_ext): ... this.
759 * trans-io.c (build_dt): Adjust for default_exp renaming to
760 dec_ext and IOPARM_dt_default_exp renaming to IOPARM_dt_dec_ext.
761 * io.c (match_io): Likewise.
763 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
766 * frontend-passes.c (gfc_run_passes): Do not run front-end
767 optimizations if a previous error occurred.
769 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
770 Harald Anlauf <anlauf@gmx.de>
773 * primary.c (gfc_convert_to_structure_constructor): Check
774 conformance of argument types in structure constructor.
776 2018-03-26 Thomas Koenig <tkoenig@gcc.gnu.org>
779 * io.c: Include constructor.h.
780 (resolve_tag_format): For a constant character array, concatenate
781 into a single character expression.
783 2018-03-25 Seth Johnson <johnsonsr@ornl.gov>
784 Dominique d'Humieres <dominiq@gcc.gnu.org>
787 * check.c (gfc_check_c_f_pointer): Allow scalar noninteroperable
788 scalar derived type with -std=f2003 and -std=f2008.
790 2018-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
791 Dominique d'Humieres <dominiq@gcc.gnu.org>
794 * symbol.c (gfc_free_namespace): Delete the assert and only if
795 refs count is equals zero, free the namespace. Otherwise,
796 something is halfway and other errors will resound.
798 2018-03-24 Thomas Koenig <tkoenig@gcc.gnu.org>
801 * expr.c (find_substring_ref): Change types of start, end
802 and length variables to gfc_charlen_t. Set length to zero
805 2018-03-24 Steven G. Kargl <kargl@gcc.gnu.org>
808 * decl.c (check_function_name): Improved error message
809 (gfc_match_volatile, gfc_match_asynchronous) Use check_function_name.
811 2018-03-22 Steven G. Kargl <kargl@gcc.gnu.org>
814 * decl.c (get_proc_name): If the MODULE prefix appears in interface
815 body, then it must appear on the contained subroutine or function.
816 While here, fix nearby mis-indented code.
818 2018-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
819 Harald Anlauf <anlauf@gmx.de>
822 * trans-types.c (gfc_sym_type): Do not dereference NULL pointer.
824 2018-03-21 Janne Blomqvist <jb@gcc.gnu.org>
827 * trans-expr.c (gfc_conv_procedure_call): Convert charlen to
828 gfc_charlen_type_node when calling procedure.
830 2018-03-20 Steven G. Kargl <kargl@gcc.gnu.org>
833 * interface.c (symbol_rank): Remove bogus null pointer check that
834 crept in when translating a ternary operator into an if-else
837 2018-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
840 * simplify.c (gfc_convert_constant): Correctly handle iterators
843 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
846 * decl.c (get_proc_name): Check for a subroutine re-defined in
847 the contain portion of a subroutine. Change language of existing
848 error message to better describe the issue. While here fix whitespace
851 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
854 * decl.c (get_proc_name): Catch clash between a procedure statement
855 and a contained subprogram
857 2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
860 * decl.c (merge_array_spec): Correct the error condition.
862 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
865 * decl.c (get_proc_name): Check for clash of entry name with
868 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
871 * decl.c (merge_array_spec): Limit the merging to maximum allowed
872 dimensions, and issue error message if limit is exceeded.
874 2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
876 * check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
877 * intrinsic.c (add_functions): Remove reference to gfc_resolve_kill.
878 (add_subroutines): Remove reference to gfc_resolve_kill_sub.
879 * intrinsic.texi: Update documentation.
880 * iresolve.c (gfc_resolve_kill, gfc_resolve_kill_sub): Remove.
881 * trans-decl.c (gfc_build_intrinsic_function_decls): Add
882 gfor_fndecl_kill and gfor_fndecl_kill_sub
883 * trans-intrinsic.c (conv_intrinsic_kill, conv_intrinsic_kill_sub): new
885 (gfc_conv_intrinsic_function): Use conv_intrinsic_kill.
886 (gfc_conv_intrinsic_subroutine): Use conv_intrinsic_kill_sub.
887 * trans.h: Declare gfor_fndecl_kill and gfor_fndecl_kill_sub.
889 2018-03-11 Paul Thomas <pault@gcc.gnu.org>
892 * trans-array.c (structure_alloc_comps): Make sure that the
893 vptr is copied and that the unlimited polymorphic _len is used
894 to compute the size to be allocated.
895 * trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
896 unlimited polymorphic _len for the offset to the element.
897 (gfc_copy_class_to_class): Set the new 'unlimited' argument.
898 * trans.h : Add the boolean 'unlimited' to the prototype.
900 2018-03-11 Steven G. Kargl <kargl@gcc.gnu.org>
903 * resolve.c (resolve_fl_procedure): Enforce F2018:C15100.
905 2018-03-11 Steven G. Kargl <kargls@gcc.gnu.org>
907 * check.c (gfc_check_kill): Check pid and sig are scalar.
908 (gfc_check_kill_sub): Restrict kind to 4 and 8.
909 * intrinsic.c (add_function): Sort keyword list. Add pid and sig
910 keywords for KILL. Remove redundant *back="back" in favor of the
911 original *bck="back".
912 (add_subroutines): Sort keyword list. Add pid and sig keywords
914 * intrinsic.texi: Fix documentation to consistently use pid and sig.
915 * iresolve.c (gfc_resolve_kill): Kind can only be 4 or 8. Choose the
917 (gfc_resolve_rename_sub): Add comment.
919 2018-03-11 Thomas Koenig <tkoenig@gcc.gnu.org>
922 * simplify.c (simplify_transformation): Return default result for
923 empty array argument.
924 (gfc_simplify_all): Remove special-case handling for zerosize.
925 (gfc_simplify_any): Likewise.
926 (gfc_simplify_count): Likewise.
927 (gfc_simplify_iall): Likewise.
928 (gfc_simplify_iany): Likewise.
929 (gfc_simplify_iparity): Likewise.
930 (gfc_simplify_minval): Likewise.
931 (gfc_simplify_maxval): Likewise.
932 (gfc_simplify_norm2): Likewise.
933 (gfc_simplify_product): Likewise.
934 (gfc_simplify_sum): Likewise.
936 2018-03-10 Steven G. Kargl <kargl@gcc.gnu.org>
939 * arith.c (check_result, eval_intrinsic): If result overflows, pass
940 the expression up the chain instead of a NULL pointer.
942 2018-03-07 Steven G. Kargl <kargl@gcc.gnu.org>
946 * decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.
948 2017-03-06 Thomas Koenig <tkoenig@gcc.gnu.org>
952 * expr.c (simplify_parameter_variable): If p is a size zero array
953 and not an ARRAY_EXPR insert an empty array constructor and
955 * gfortran.h: Add prototype for gfc_is_size_zero_array.
956 * simplify.c (is_size_zero_array): Make non-static and rename into
957 (gfc_is_size_zero_array): Check for parameter arrays of zero
958 size by comparing shape and absence of constructor.
959 (gfc_simplify_all): Use gfc_is_size_zero_array instead of
961 (gfc_simplify_count): Likewise.
962 (gfc_simplify_iall): Likewise.
963 (gfc_simplify_iany): Likewise.
964 (gfc_simplify_iparity): Likewise.
965 (gfc_simplify_minval): Likewise.
966 (gfc_simplify_maxval): Likewise.
967 (gfc_simplify_product): Likewise.
968 (gfc_simplify_sum): Likewise.
970 2018-03-06 Steven G. Kargl <kargl@gcc.gnu.org>
973 * primary.c (match_sym_complex_part): Give the matcher for an implied
974 do-loop a chance to run.
976 2018-03-03 Harald Anlauf <anlauf@gmx.de>
979 * trans-expr.c (gfc_apply_interface_mapping_to_expr): Do not
980 dereference NULL pointer.
982 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
985 * simplify.c (is_size_zero_array): New function to check for size
987 (gfc_simplify_all, gfc_simplify_any, gfc_simplify_count,
988 gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
989 gfc_simplify_minval, gfc_simplify_maxval, gfc_simplify_norm2,
990 gfc_simplify_product, gfc_simplify_sum): Use it, and implement
991 requirements from F2018.
993 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
996 * simplify.c (gfc_simplify_transfer): Resolve mold.
998 2018-03-03 Paul Thomas <pault@gcc.gnu.org>
1001 * resolve.c (build_loc_call): Change symtree name from 'loc' to
1004 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1007 * target-memory.c (gfc_interpret_derived): Assert that BT_VOID
1008 components are caf tokens.
1009 (gfc_target_interpret_expr): Treat BT_VOID expressions as
1012 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1015 * class.c (class_array_ref_detected): Remove the condition that
1016 there be no reference after the array reference.
1017 (find_intrinsic_vtab): Remove excess whitespace.
1018 * trans-array.c (gfc_conv_scalarized_array_ref): Rename 'tmp'
1019 as 'base and call build_class_array_ref earlier.
1021 2018-02-28 Paul Thomas <pault@gcc.gnu.org>
1024 * trans-stmt.c (trans_associate_var): Make sure that the se
1025 expression is a pointer type before converting it to the symbol
1028 2018-02-25 Steven G. Kargl <kargl@gcc.gnu.org>
1031 * decl.c (variable_decl): Check that an explicit-shape-array with
1032 nonconstant bounds is allowed.
1034 2018-02-25 Paul Thomas <pault@gcc.gnu.org>
1037 * trans-intrinsic.c (gfc_conv_allocated): If the argument se
1038 has a pre block, add it to the expression pre block.
1040 2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
1043 * gfortran.h (gfc_integer_4_kind): Define.
1044 * resolve.c (resolve_select_type): Make sure that the
1045 kind of c->high is gfc_integer_4_kind.
1047 2018-02-24 Steven G. Kargl <kargl@gcc.gnu.org>
1050 * decl.c (gfc_match_data): Check for invalid substring in
1053 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1055 * intrinsic.texi: Arguments to MATMUL cannot both be rank one.
1057 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1060 * trans-io.c (transfer_expr): Deal with C_LOC in transfer statement.
1062 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1065 * interface.c (compare_actual_formal): Issue error if keyword is
1066 used in a statement function.
1068 2018-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1071 * trans-io.c (set_parameter_value_inquire): Adjust range check of
1072 negative unit values for kind=8 units to the kind=4 negative limit.
1074 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1077 * trans-types.c (gfc_sym_type): Test sym->ns->proc_name before
1078 accessing its components.
1080 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1083 * trans-decl.c (gfc_finish_var_decl): Test sym->ns->proc_name
1084 before accessing its components.
1086 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1089 * trans-const.c : Clean up some whitespace issues.
1090 * trans-expr.c (gfc_conv_initializer): If an iso_c_binding
1091 derived type has a kind value of zero, set it to the default
1094 2018-02-23 Janne Blomqvist <jb@gcc.gnu.org>
1097 * trans-decl.c (gfc_build_builtin_function_decls): Add bool
1098 argument to stop and error stop decls.
1099 * trans-stmt.c (gfc_trans_stop): Add false value to argument
1102 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1106 * trans-decl.c (gfc_build_builtin_function_decls): Pass
1107 gfc_int8_type node to pause_numeric, size_type_node to
1109 * trans-stmt.c (gfc_trans_pause): Likewise.
1111 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1113 * gfortran.texi: Update Coarray API description.
1114 * trans-decl.c (gfc_build_builtin_function_decls): Use size_t for
1115 character lengths, int for exit codes.
1116 (generate_coarray_sym_init): Use size_t for character length.
1117 * trans-intrinsic.c (conv_co_collective): Likewise.
1118 * trans-stmt.c (gfc_trans_lock_unlock): Likewise.
1119 (gfc_trans_event_post_wait): Likewise.
1120 (gfc_trans_sync): Likewise.
1121 (gfc_trans_stop): Use size_t for character lengths, int for exit
1124 2018-02-20 Thomas Koenig <tkoenig@gcc.gnu.org>
1128 * primary.c (gfc_convert_to_structure_constructor):
1129 For a constant string constructor, make sure the length
1132 2018-02-19 Paul Thomas <pault@gcc.gnu.org>
1136 * resolve.c (resolve_assoc_var): Rearrange the logic for the
1137 determination of the character length of associate names. If
1138 the associate name is missing a length expression or the length
1139 expression is not a constant and the target is not a variable,
1140 make the associate name allocatable and deferred length.
1141 * trans-decl.c (gfc_get_symbol_decl): Null the character length
1142 backend_decl for deferred length associate names that are not
1143 variables. Set 'length' to gfc_index_zero_node for character
1144 associate names, whose character length is a PARM_DECL.
1146 2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1149 * frontend-passes.c (traverse_io_block): Remove workaround for
1152 2018-02-19 Andre Vehreschild <vehre@gcc.gnu.org>
1154 * gfortran.texi: Document additional src/dst_type. Fix some typos.
1155 * trans-decl.c (gfc_build_builtin_function_decls): Declare the new
1156 argument of _caf_*_by_ref () with * e { get, send, sendget }.
1157 * trans-intrinsic.c (gfc_conv_intrinsic_caf_get): Add the type of the
1158 data referenced when generating a call to caf_get_by_ref ().
1159 (conv_caf_send): Same but for caf_send_by_ref () and
1160 caf_sendget_by_ref ().
1162 2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1165 * io.c (check_format): Allow FMT_COLON.
1167 2018-02-18 Paul Thomas <pault@gcc.gnu.org>
1170 * trans-array.c (gfc_conv_expr_descriptor): Set parmtype from
1171 the typenode in the case of deferred length characters.
1173 2018-02-17 Thomas Koenig <tkoenig@gcc.gnu.org>
1176 * frontend-passes (scalarized_expr): If the expression
1177 is an assumed size array, leave in the last reference
1178 and pass AR_SECTION instead of AR_FULL to gfc_resolve
1179 in order to avoid an error.
1181 2018-02-17 Paul Thomas <pault@gcc.gnu.org>
1184 * resolve.c (resolve_assoc_var): If a non-constant target expr.
1185 has no string length expression, make the associate variable
1186 into a deferred length, allocatable symbol.
1187 * trans-decl.c (gfc_is_reallocatable_lhs): Add and use a ptr to
1189 * trans-stmt.c (trans_associate_var): Null and free scalar
1190 associate names that are allocatable. After assignment, remove
1191 the allocatable attribute to prevent reallocation.
1193 2018-02-16 Jakub Jelinek <jakub@redhat.com>
1196 * trans-openmp.c (gfc_trans_omp_clauses): For OMP_CLAUSE_LINEAR_REF
1197 kind set OMP_CLAUSE_LINEAR_STEP to TYPE_SIZE_UNIT times last_step.
1199 2018-02-16 Dominique d'Humieres <dominiq@gcc.gnu.org>
1202 * decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.
1204 2018-02-15 Janus Weil <janus@gcc.gnu.org>
1207 * interface.c (check_dtio_arg_TKR_intent): Add a check for character
1210 2018-02-14 Janus Weil <janus@gcc.gnu.org>
1213 * match.c (gfc_match_select_type): Fix check for selector in
1214 SELECT TYPE statement.
1216 2018-02-13 Janus Weil <janus@gcc.gnu.org>
1219 * symbol.c (check_conflict): Reject procedure pointers in common blocks.
1221 2018-02-13 Alastair McKinstry <alastair.mckinstry@sceal.ie>
1222 Janne Blomqvist <jb@gcc.gnu.org>
1224 * module.c (dump_module): Use lbasename to ensure that module
1225 files are reproducible.
1227 2018-02-12 Janus Weil <janus@gcc.gnu.org>
1230 * resolve.c (resolve_component): Fix checks of passed argument in
1231 procedure-pointer components.
1233 2018-02-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1236 * resolve.c (resolve_formal_arglist): Update error message.
1238 2018-02-11 Andre Vehreschild <vehre@gcc.gnu.org>
1240 * gfortran.texi: Fix typos in documentation of caf_register ().
1241 * trans-array.c (structure_alloc_comps): Only register a component of
1242 a derived typed corray, not of an ultimate component coarray.
1244 2018-02-11 Steven G. Kargl <kargl@gcc.gnu.org>
1248 * interface.c (compare_actual_formal): Add in_statement_function
1249 bool parameter. Skip check of INTENT attribute for statement
1250 functions. Arguments to a statement function cannot be optional,
1251 issue error for missing argument.
1252 (gfc_procedure_use, gfc_ppc_use, gfc_arglist_matches_symbol): Use
1253 in_statement_function.
1255 2018-02-11 Paul Thomas <pault@gcc.gnu.org>
1258 * trans-expr.c (gfc_conv_derived_to_class): Set the use_offset
1259 flag. If the is a vector subscript or the expression is not a
1260 variable, make the descriptor one-based.
1262 2018-02-10 Paul Thomas <pault@gcc.gnu.org>
1266 * trans-array.c (gfc_array_init_size): Revert the change made
1267 in revision 257356 setting the dtype.
1268 * trans-types.c (gfc_get_dtype): Do not use the cached dtype.
1269 Call gfc_get_dtype_rank_type every time.
1272 * trans-array.c (gfc_conv_expr_descriptor): If the source array
1273 is a descriptor type, use its offset, removing the condition
1274 that is be a class expression.
1276 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1279 * match.c (gfc_match_deallocate): Check for NULL pointer.
1281 2018-02-07 Thomas Koenig <tkoenig@gcc.gnu.org>
1284 * trans-intrinsic.c (gfc_conv_intrinsic_shape): New function.
1285 (gfc_conv_intrinsic_function): Call it.
1287 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1290 * match.c (gfc_match_type_spec): If the charlen is non-NULL, then
1291 try to resolve it. While here return early if possible.
1293 2018-02-04 Paul Thomas <pault@gcc.gnu.org>
1296 * trans-decl.c (gfc_get_symbol_decl): Do not finish the decl of
1297 'length' if the symbol charlen backend_decl is an indirect ref.
1299 2018-02-03 Paul Thomas <pault@gcc.gnu.org>
1303 * trans-array.c (gfc_array_init_size): Instead of gfc_get_dtype
1304 use gfc_get_dtype_rank_type.
1306 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1310 * resolve.c (resolve_assoc_var): Generate an error if
1311 target length unknown.
1313 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1316 * simplify.c (gfc_simplify_repeat): Increase limit for deferring
1317 to runtime, print a warning message.
1319 2018-01-31 Jakub Jelinek <jakub@redhat.com>
1322 * openmp.c (gfc_match_omp_clauses): If all the linear
1323 gfc_match_omp_variable_list calls failed, don't gfc_free_omp_namelist
1324 nor set *head = NULL. Formatting fixes.
1326 2018-01-31 Paul Thomas <pault@gcc.gnu.org>
1329 * trans-expr.c (gfc_conv_procedure_call): If the parm expr is
1330 an address expression passed to an assumed rank dummy, convert
1331 to an indirect reference.
1333 2018-01-31 Thomas Koenig <tkoenig@gcc.gnu.org>
1335 * dump-parse-tree.c (write_proc): Use sym_name (which may
1336 be sym->binding_label) instead of sym->name.
1338 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1340 * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
1343 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1346 * trans-expr.c (fill_with_spaces): Use memset instead of
1348 (gfc_trans_string_copy): Improve opportunity to use builtins with
1351 2018-01-30 Jakub Jelinek <jakub@redhat.com>
1354 * trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
1355 to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
1357 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1360 * array.c (gfc_ref_dimen_size): Whitespace fixes. If stride is
1363 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1366 * frontend-passes (matmul_to_var_expr): Return early if
1367 in association list.
1368 (inline_matmul_assign): Likewise.
1370 2017-01-29 Thomas Koenig <tkoenig@gcc.gnu.org>
1373 * resolve.c (resolve_component): Ensure BIND(C) character
1374 components have length one.
1375 (resolve_symbol): Likewise for variables.
1377 2018-01-27 Jakub Jelinek <jakub@redhat.com>
1380 * decl.c (add_init_expr_to_sym): Ignore initializers for too large
1383 2018-01-26 Damian Rouson <damian@sourceryinstitute.org>
1384 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
1385 Soren Rasmussen <s.c.rasmussen@gmail.com>
1387 Partial support for Fortran 2018 teams features.
1389 * array.c (gfc_match_array_ref): add team attribute in coarray
1391 * check.c (gfc_check_get_team, gfc_check_team_number): add new
1392 functions for get_team and team_number.
1393 * dump-parse-tree.c (show_code_node): add new statements: form team,
1394 change team, end team, and sync team.
1395 * expr.c (gfc_find_team_co): add new function.
1396 * gfortran.h: add new statements.
1397 * intrinsic.c (add_functions): add get_team and team_number functions.
1398 * intrinsic.h: add get_team and team_number prototypes for check,
1399 simplify, and resolve.
1400 * iresolve.c (gfc_resolve_get_team, gfc_resolve_team_number): add new
1402 * iso-fortran-env.def: add the team_type derived type.
1403 * match.c (gfc_match_if, gfc_match_form_team, gfc_match_team_number)
1404 (gfc_match_end_team, gfc_match_sync_team, gfc_match_change_team):
1405 add change team, end team, form team, sync team match and functions.
1406 * match.h: add new prototypes for change team, end team, form team,
1408 * parse.c (decode_statement): add cases for change team, end team,
1409 form team, and sync team.
1410 * resolve.c: add cases for exec form team, change team, end team, and
1412 * simplify.c (gfc_simplify_get_team): add new function for get team.
1413 * st.c (gfc_free_statement): add cases exec for change team, end team,
1414 form team, sync team.
1415 * trans-decl.c (gfor_fndecl_caf_form_team)
1416 (gfor_fndecl_caf_change_team, gfor_fndecl_caf_end_team)
1417 (gfor_fndecl_caf_sync_team, gfor_fndecl_caf_get_team)
1418 (gfor_fndecl_caf_team_number): add functions and definitions.
1419 * trans-intrinsic.c (conv_caf_send, conv_intrinsic_team_number): add
1420 new function and team_type argument support.
1421 * trans-stmt.c (gfc_trans_form_team, gfc_trans_change_team)
1422 (gfc_trans_end_team, gfc_trans_sync_team): add new functions.
1423 * trans-stmt.h: add new prototypes.
1424 * trans-types.c (gfc_get_derived_type): check condition for team_type.
1425 * trans.c (trans_code): new exec cases for form team, change team, end
1426 team, and sync team.
1427 * trans.h: add new prototypes.
1429 2018-01-26 Steven G. Kargl <kargl@gcc.gnu.org>
1432 * simplify.c (compute_dot_product): Initialize result to INTEGER(1) 0
1433 or .false. The summation does the correct type conversion.
1434 (gfc_simplify_dot_product): Special case zero-sized arrays.
1436 2018-25-01 Paul Thomas <pault@gcc.gnu.org>
1439 * array.c (gfc_match_array_ref): If standard earlier than F2008
1440 it is an error if the reference dimension is greater than 7.
1441 libgfortran.h : Increase GFC_MAX_DIMENSIONS to 15. Change the
1442 dtype masks and shifts accordingly.
1443 * trans-array.c (gfc_conv_descriptor_dtype): Use the dtype
1444 type node to check the field.
1445 (gfc_conv_descriptor_dtype): Access the rank field of dtype.
1446 (duplicate_allocatable_coarray): Access the rank field of the
1447 dtype descriptor rather than the dtype itself.
1448 * trans-expr.c (get_scalar_to_descriptor_type): Store the type
1449 of 'scalar' on entry and use its TREE_TYPE if it is ARRAY_TYPE
1451 (gfc_conv_procedure_call): Pass TREE_OPERAND (tmp,0) to
1452 get_scalar_to_descriptor_type if the actual expression is a
1454 (gfc_trans_structure_assign): Assign the rank directly to the
1456 * trans-intrinsic.c (gfc_conv_intrinsic_rank): Cast the result
1457 to default integer kind.
1458 (gfc_conv_intrinsic_sizeof): Obtain the element size from the
1459 'elem_len' field of the dtype.
1460 * trans-io.c (gfc_build_io_library_fndecls): Replace
1461 gfc_int4_type_node with dtype_type_node where necessary.
1462 (transfer_namelist_element): Use gfc_get_dtype_rank_type for
1464 * trans-types.c : Provide 'get_dtype_type_node' to acces the
1465 dtype_type_node and, if necessary, build it.
1466 The maximum size of an array element is now determined by the
1467 maximum value of size_t.
1468 Update the description of the array descriptor, including the
1469 type def for the dtype_type.
1470 (gfc_get_dtype_rank_type): Build a constructor for the dtype.
1471 Distinguish RECORD_TYPEs that are BT_DERIVED or BT_CLASS.
1472 (gfc_get_array_descriptor_base): Change the type of the dtype
1473 field to dtype_type_node.
1474 (gfc_get_array_descr_info): Get the offset to the rank field of
1476 * trans-types.h : Add a prototype for 'get_dtype_type_node ()'.
1477 * trans.h : Define the indices of the dtype fields.
1479 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
1482 * decl.c (gfc_match_derived_decl): If eos not matched, recover
1483 and emit error about garbage after declaration.
1485 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
1488 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor
1491 2018-01-22 Janne Blomqvist <jb@gcc.gnu.org>
1495 * arith.c (gfc_arith_concat): Use size_t for string length.
1496 (gfc_compare_string): Likewise.
1497 (gfc_compare_with_Cstring): Likewise.
1498 * array.c (gfc_resolve_character_array_constructor): Use
1499 HOST_WIDE_INT, gfc_mpz_get_hwi.
1500 * check.c (gfc_check_fe_runtime_error): Use size_t.
1501 * data.c (create_character_initializer): Use HOST_WIDE_INT,
1503 * decl.c (gfc_set_constant_character_len): Use gfc_charlen_t.
1504 (add_init_expr_to_sym): Use HOST_WIDE_INT.
1505 * expr.c (gfc_build_init_expr): Use HOST_WIDE_INT,
1507 (gfc_apply_init): Likewise.
1508 * match.h (gfc_set_constant_character_len): Update prototype.
1509 * primary.c (match_string_constant): Use size_t.
1510 * resolve.c (resolve_ordinary_assign): Use HOST_WIDE_INT,
1512 * simplify.c (init_result_expr): Likewise.
1513 (gfc_simplify_len_trim): Use size_t.
1514 * target-memory.c (gfc_encode_character): Use size_t.
1515 (gfc_target_encode_expr): Use HOST_WIDE_INT, gfc_mpz_get_hwi.
1516 (interpret_array): Use size_t.
1517 (gfc_interpret_character): Likewise.
1518 * target-memory.h (gfc_encode_character): Update prototype.
1519 (gfc_interpret_character): Likewise.
1520 (gfc_target_interpret_expr): Likewise.
1521 * trans-const.c (gfc_build_string_const): Use size_t for length
1523 (gfc_build_wide_string_const): Likewise.
1524 * trans-const.h (gfc_build_string_const): Likewise.
1525 (gfc_build_wide_string_const): Likewise.
1527 2018-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
1530 * simplify.c (gfc_simplify_matmul): Set return type correctly.
1532 2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
1535 * simplify.c (gfc_simplify_matmul): Delete bogus assertion.
1537 2018-01-17 Harald Anlauf <anlauf@gmx.de>
1540 * expr.c (add_init_expr_to_sym): Do not dereference NULL pointer.
1542 2018-01-17 Harald Anlauf <anlauf@gmx.de>
1545 * decl.c (add_init_expr_to_sym): Do not dereference NULL pointer.
1547 2018-01-15 Louis Krupp <louis.krupp@zoho.com>
1550 * interface.c (compare_rank): Don't try to retrieve CLASS_DATA
1551 from symbol marked unlimited polymorphic.
1552 * resolve.c (resolve_structure_cons): Likewise.
1553 * misc.c (gfc_typename): Don't dereference derived->components
1556 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
1559 * gfortran.h (gfc_check_f): Rename f4ml to f5ml.
1560 (gfc_logical_4_kind): New macro
1561 * intrinsic.h (gfc_simplify_minloc): Add a gfc_expr *argument.
1562 (gfc_simplify_maxloc): Likewise.
1563 (gfc_resolve_maxloc): Likewise.
1564 (gfc_resolve_minloc): Likewise.
1565 * check.c (gfc_check_minloc_maxloc): Add checking for "back"
1566 argument; also raise error if it is used (for now). Add it
1567 if it isn't present.
1568 * intrinsic.c (add_sym_4ml): Rename to
1569 (add_sym_5ml), adjust for extra argument.
1570 (add_functions): Add "back" constant. Adjust maxloc and minloc
1572 * iresolve.c (gfc_resolve_maxloc): Add back argument. If back is
1573 not of gfc_logical_4_kind, convert.
1574 (gfc_resolve_minloc): Likewise.
1575 * simplify.c (gfc_simplify_minloc): Add back argument.
1576 (gfc_simplify_maxloc): Likewise.
1577 * trans-intinsic.c (gfc_conv_intrinsic_minmaxloc): Rename last
1578 argument to %VAL to ensure passing by value.
1579 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_minmaxloc
1580 also for library calls.
1582 2018-01-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1585 * resolve.c (resolve_transfer): Delete code looking for 'DT'
1586 format specifiers in format strings. Set formatted to true if a
1587 format string or format label is present.
1588 * trans-io.c (get_dtio_proc): Likewise. (transfer_expr): Fix
1591 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1594 * dump-parse-tree.c (get_c_type_name): Remove extra line.
1595 Change for loop to use declaration in for loop. Handle BT_LOGICAL
1597 (write_decl): Add where argument. Fix indentation. Replace
1598 assert with error message. Add typename to warning
1600 (write_type): Adjust locus to call of write_decl.
1601 (write_variable): Likewise.
1602 (write_proc): Likewise. Replace assert with error message.
1604 2018-01-13 Paul Thomas <pault@gcc.gnu.org>
1607 * trans-expr.c (gfc_trans_scalar_assign): Flag is_alloc_lhs if
1608 the rhs expression is neither an elemental nor a conversion
1612 * trans-array.c (is_pointer_array): Remove unconditional return
1613 of false for -fopenmp.
1615 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1619 * dump-parse-tree.c (write_proc): Always emit closing parenthesis
1622 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1625 * resolve.c (resolve_allocate_expr): Check for NULL pointer.
1627 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1630 * resolve.c (resolve_charlen): Check the type of cl->length
1633 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1636 * trans-array.c (gfc_trans_array_ctor_element): Fix formatting.
1638 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1641 * trans-array.c (gfc_trans_array_ctor_element): Convert RHS to the
1642 LHS type when assigning.
1644 2018-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
1647 * expr.c (gfc_is_simply_contiguous): Check for NULL pointer.
1649 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1651 * match.c (gfc_match_allocate): Check for NULL pointer.
1653 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1655 * expr.c (gfc_check_pointer_assign): Fix typo in comment.
1657 2018-01-08 Paul Thomas <pault@gcc.gnu.org>
1660 * decl.c (gfc_get_pdt_instance): If parameterized arrays have
1661 an initializer, convert the kind parameters and add to the
1662 component if the instance.
1663 * trans-array.c (structure_alloc_comps): Add 'is_pdt_type' and
1664 use it with case COPY_ALLOC_COMP. Call 'duplicate_allocatable'
1665 for parameterized arrays. Clean up typos in comments. Convert
1666 parameterized array initializers and copy into the array.
1667 * trans-expr.c (gfc_trans_scalar_assign): Do a deep copy for
1668 parameterized types.
1669 *trans-stmt.c (trans_associate_var): Deallocate associate vars
1670 as necessary, when they are PDT function results for example.
1673 * trans-array.c (structure_alloc_comps): Only compare len parms
1674 when they are declared explicitly.
1676 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
1679 * trans-expr.c (gfc_trans_pointer_assignment): fold_convert rhs to
1682 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
1686 * array.c (got_charlen): Use gfc_charlen_int_kind.
1687 * class.c (gfc_find_derived_vtab): Use gfc_size_kind instead of
1689 (find_intrinsic_vtab): Likewise.
1690 * decl.c (match_char_length): Use gfc_charlen_int_kind.
1691 (add_init_expr_to_sym): Use gfc_charlen_t and gfc_charlen_int_kind.
1692 (gfc_match_implicit): Use gfc_charlen_int_kind.
1693 * dump-parse-tree.c (show_char_const): Use gfc_charlen_t and size_t.
1694 (show_expr): Use HOST_WIDE_INT_PRINT_DEC.
1695 * expr.c (gfc_get_character_expr): Length parameter of type
1697 (gfc_get_int_expr): Value argument of type HOST_WIDE_INT.
1698 (gfc_extract_hwi): New function.
1699 (simplify_const_ref): Make string_len of type gfc_charlen_t.
1700 (gfc_simplify_expr): Use HOST_WIDE_INT for substring refs.
1701 * frontend-passes.c (optimize_trim): Use gfc_charlen_int_kind.
1702 * gfortran.h (gfc_mpz_get_hwi): New prototype.
1703 (gfc_mpz_set_hwi): Likewise.
1704 (gfc_charlen_t): New typedef.
1705 (gfc_expr): Use gfc_charlen_t for character lengths.
1706 (gfc_size_kind): New extern variable.
1707 (gfc_extract_hwi): New prototype.
1708 (gfc_get_character_expr): Use gfc_charlen_t for character length.
1709 (gfc_get_int_expr): Use HOST_WIDE_INT type for value argument.
1710 * gfortran.texi: Update description of hidden string length argument.
1711 * iresolve.c (check_charlen_present): Use gfc_charlen_int_kind.
1712 (gfc_resolve_char_achar): Likewise.
1713 (gfc_resolve_repeat): Pass string length directly without
1714 temporary, use gfc_charlen_int_kind.
1715 (gfc_resolve_transfer): Use gfc_charlen_int_kind.
1716 * match.c (select_intrinsic_set_tmp): Use HOST_WIDE_INT for charlen.
1717 * misc.c (gfc_mpz_get_hwi): New function.
1718 (gfc_mpz_set_hwi): New function.
1719 * module.c (atom_int): Change type from int to HOST_WIDE_INT.
1720 (parse_integer): Don't complain about large integers.
1721 (write_atom): Use HOST_WIDE_INT for integers.
1722 (mio_integer): Handle integer type mismatch.
1723 (mio_hwi): New function.
1724 (mio_intrinsic_op): Use HOST_WIDE_INT.
1725 (mio_array_ref): Likewise.
1726 (mio_expr): Likewise.
1727 * primary.c (match_substring): Use gfc_charlen_int_kind.
1728 * resolve.c (resolve_substring_charlen): Use gfc_charlen_int_kind.
1729 (resolve_character_operator): Likewise.
1730 (resolve_assoc_var): Likewise.
1731 (resolve_select_type): Use HOST_WIDE_INT for charlen, use snprintf.
1732 (resolve_charlen): Use mpz_sgn to determine sign.
1733 * simplify.c (gfc_simplify_repeat): Use HOST_WIDE_INT/gfc_charlen_t
1735 * symbol.c (generate_isocbinding_symbol): Use gfc_charlen_int_kind.
1736 * target-memory.c (size_character): Length argument of type
1738 (gfc_encode_character): Likewise.
1739 (gfc_interpret_character): Use gfc_charlen_t.
1740 * target-memory.h (gfc_encode_character): Modify prototype.
1741 * trans-array.c (gfc_trans_array_ctor_element): Use existing type.
1742 (get_array_ctor_var_strlen): Use gfc_conv_mpz_to_tree_type.
1743 (trans_array_constructor): Use existing type.
1744 (get_array_charlen): Likewise.
1745 * trans-const.c (gfc_conv_mpz_to_tree_type): New function.
1746 * trans-const.h (gfc_conv_mpz_to_tree_type): New prototype.
1747 * trans-decl.c (gfc_trans_deferred_vars): Use existing type.
1748 (add_argument_checking): Likewise.
1749 * trans-expr.c (gfc_class_len_or_zero_get): Build const of type
1750 gfc_charlen_type_node.
1751 (gfc_conv_intrinsic_to_class): Use gfc_charlen_int_kind instead of
1752 4, fold_convert to correct type.
1753 (gfc_conv_class_to_class): Build const of type size_type_node for
1755 (gfc_copy_class_to_class): Likewise.
1756 (gfc_conv_string_length): Use same type in expression.
1757 (gfc_conv_substring): Likewise, use HOST_WIDE_INT for charlen.
1758 (gfc_conv_string_tmp): Make sure len is of the right type.
1759 (gfc_conv_concat_op): Use same type in expression.
1760 (gfc_conv_procedure_call): Likewise.
1761 (fill_with_spaces): Comment out memset() block due to spurious
1762 -Wstringop-overflow warnings.
1763 (gfc_trans_string_copy): Use gfc_charlen_type_node.
1764 (alloc_scalar_allocatable_for_subcomponent_assignment):
1765 fold_convert to right type.
1766 (gfc_trans_subcomponent_assign): Likewise.
1767 (trans_class_vptr_len_assignment): Build const of correct type.
1768 (gfc_trans_pointer_assignment): Likewise.
1769 (alloc_scalar_allocatable_for_assignment): fold_convert to right
1771 (trans_class_assignment): Build const of correct type.
1772 * trans-intrinsic.c (gfc_conv_associated): Likewise.
1773 (gfc_conv_intrinsic_repeat): Do calculation in sizetype.
1774 * trans-io.c (gfc_build_io_library_fndecls): Use
1775 gfc_charlen_type_node for character lengths.
1776 (set_string): Convert to right type in assignment.
1777 * trans-stmt.c (gfc_trans_label_assign): Build const of
1778 gfc_charlen_type_node.
1779 (trans_associate_var): Likewise.
1780 (gfc_trans_character_select): Likewise.
1781 (gfc_trans_allocate): Likewise, don't typecast strlen result.
1782 (gfc_trans_deallocate): Don't typecast strlen result.
1783 * trans-types.c (gfc_size_kind): New variable.
1784 (gfc_init_types): Determine gfc_charlen_int_kind and gfc_size_kind
1785 from size_type_node.
1786 * trans-types.h: Fix comment.
1788 2018-01-04 Thomas Koenig <tkoenig@gcc.gnu.org>
1792 * check.c (gfc_check_eoshift): Check for string length and
1793 for conformance of boundary.
1794 * intrinsic.c (add_functions): Add gfc_simplify_eoshift.
1795 * intrinsic.h: Add prototype for gfc_simplify_eoshift.
1796 * simplify.c (gfc_simplify_eoshift): New function.
1798 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
1799 Alan Hayward <alan.hayward@arm.com>
1800 David Sherwood <david.sherwood@arm.com>
1802 * trans-types.c (gfc_type_for_mode): Handle MODE_VECTOR_BOOL.
1804 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
1805 Alan Hayward <alan.hayward@arm.com>
1806 David Sherwood <david.sherwood@arm.com>
1808 * trans-types.c (gfc_type_for_mode): Check valid_vector_subparts_p.
1810 2018-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
1813 * check.c (gfc_check_eoshift): Error for missing boundary if array
1814 is not one of the standard types.
1816 2018-01-03 Jakub Jelinek <jakub@redhat.com>
1818 Update copyright years.
1820 * gfortranspec.c (lang_specific_driver): Update copyright notice
1822 * gfc-internals.texi: Bump @copying's copyright year.
1823 * gfortran.texi: Ditto.
1824 * intrinsic.texi: Ditto.
1825 * invoke.texi: Ditto.
1827 2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1830 * intrinsic.c (add_function): Add gfc_simplify_maxloc and
1831 gfc_simplify_minloc to maxloc and minloc, respectively.
1832 * intrinsic.h: Add prototypes for gfc_simplify_minloc
1833 and gfc_simplify_maxloc.
1834 * simplify.c (min_max_chose): Adjust prototype. Modify function
1835 to have a return value which indicates if the extremum was found.
1836 (is_constant_array_expr): Fix typo in comment.
1837 (simplify_minmaxloc_to_scalar): New function.
1838 (simplify_minmaxloc_nodim): New function.
1839 (new_array): New function.
1840 (simplify_minmaxloc_to_array): New function.
1841 (gfc_simplify_minmaxloc): New function.
1842 (simplify_minloc): New function.
1843 (simplify_maxloc): New function.
1845 2018-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1849 * simplify.c (gfc_simplify_cshift): Re-implement to allow full
1852 2018-01-01 Paul Thomas <pault@gcc.gnu.org>
1855 * resolve.c (resolve_fl_derived0): Add caf_token fields for
1856 allocatable and pointer scalars, when -fcoarray selected.
1857 * trans-types.c (gfc_copy_dt_decls_ifequal): Copy the token
1858 field as well as the backend_decl.
1859 (gfc_get_derived_type): Flag GFC_FCOARRAY_LIB for module
1860 derived types that are not vtypes. Components with caf_token
1861 attribute are pvoid types. For a component requiring it, find
1862 the caf_token field and have the component token field point to
1866 *trans-types.c (gfc_get_array_descriptor_base): Add the token
1867 field to the descriptor even when codimen not set.
1869 Copyright (C) 2018 Free Software Foundation, Inc.
1871 Copying and distribution of this file, with or without modification,
1872 are permitted in any medium without royalty provided the copyright
1873 notice and this notice are preserved.