1 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
4 * array.c (gfc_resolve_character_array_constructor): Substrings
5 with upper bound smaller than lower bound are zero length strings.
7 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
10 * data.c (gfc_assign_data_value): Check that a data object does
11 not also have default initialization.
13 2018-05-10 Marek Polacek <polacek@redhat.com>
16 * options.c (gfc_post_options): Set main_input_filename.
18 2018-05-10 Thomas Koenig <tkoenig@gcc.gnu.org>
21 * intrinsic.texi: Document BACK for MINLOC and MAXLOC.
23 2018-05-10 Paul Thomas <pault@gcc.gnu.org>
27 * resolve.c (get_temp_from_expr): The temporary must not have
28 dummy or intent attributes.
30 2018-05-08 Thomas Koenig <tkoenig@gcc.gnu.org>
33 * check.c (gfc_check_minmaxloc): Remove error for BACK not being
34 implemented. Use gfc_logical_4_kind for BACK.
35 * simplify.c (min_max_choose): Add optional argument back_val.
37 (simplify_minmaxloc_to_scalar): Add argument back_val. Pass
38 back_val to min_max_choose.
39 (simplify_minmaxloc_to_nodim): Likewise.
40 (simplify_minmaxloc_to_array): Likewise.
41 (gfc_simplify_minmaxloc): Add argument back, handle it.
42 Pass back_val to specific simplification functions.
43 (gfc_simplify_minloc): Remove ATTRIBUTE_UNUSED from argument back,
44 pass it on to gfc_simplify_minmaxloc.
45 (gfc_simplify_maxloc): Likewise.
46 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Adjust
47 comment. If BACK is true, use greater or equal (or lesser or
48 equal) insteal of greater (or lesser). Mark the condition of
49 having found a value which exceeds the limit as unlikely.
51 2018-05-07 Jeff Law <law@redhat.comg>
53 * scanner.c (preprocessor_line): Call linemap_add after a line
54 directive that changes the current filename.
56 2018-05-06 Andre Vehreschild <vehre@gcc.gnu.org>
59 * dependency.c (gfc_dep_resolver): Revert looking at coarray dimension
60 introduced by r259385.
61 * trans-intrinsic.c (conv_caf_send): Always report a dependency for
62 same variables in coarray assignments.
64 2018-05-02 Tom de Vries <tom@codesourcery.com>
67 * f95-lang.c (DEF_GOACC_BUILTIN_ONLY): Define.
69 2018-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
72 * decl.c (gfc_match_char_spec): Check for negative length and set to 0.
74 2018-04-14 Andre Vehreschild <vehre@gcc.gnu.org>
78 * dependency.c (gfc_dep_resolver): Coarray indexes are to be ignored
79 during dependency computation. They define no data dependency.
80 * trans-array.c (conv_array_index_offset): The stride can not be set
82 * trans-intrinsic.c (conv_caf_send): Add creation of temporary array
83 for caf_get's result and copying to the array with vectorial
86 2018-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
89 * frontend-passes.c (traverse_io_block): Check for start, end or
90 stride being defined by an outer implied DO loop.
92 2018-04-12 Thomas Koenig <tkoenig@gcc.gnu.org>
96 * trans-stmt.c (gfc_trans_forall_loop): Use annot_expr_ivdep_kind
97 for annotation and remove dependence on -ftree-parallelize-loops.
99 2018-04-10 Jakub Jelinek <jakub@redhat.com>
102 * openmp.c (resolve_omp_do): Remove bogus if (j < i) break;.
103 (resolve_oacc_nested_loops): Likewise. Formatting fix.
105 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
108 * trans-stmt.c (gfc_trans_forall_loop): Remove annotation for
109 parallell processing of DO CONCURRENT -ftree-parallelize-loops
112 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
115 * resolve.c (resolve_variable): Simplify cases where access to a
116 parameter array results in a single constant.
118 2018-04-02 Thomas Koenig <tkoenig@gcc.gnu.org>
121 * decl.c (variable_decl): If upper or lower bounds simplify
122 to a constant, use that.
124 2018-03-30 Paul Thomas <pault@gcc.gnu.org>
127 * simplify.c (gfc_convert_constant): Handle case of array
128 constructors within an array that has no iterator and improve
129 the conciseness of this section of code.
131 2017-03-30 Thomas Koenig <tkoenig@gcc.gnu.org>
134 * array.c (gfc_resolve_character_array_constructor): Early
135 exit for zero-size arrays.
136 * simplify.c (simplify_transformation_to_array): Exit early
137 if the result size is zero.
138 (simplify_minmaxloc_to_array): Likewise.
140 2018-03-28 Mikael Morin <mikael@gcc.gnu.org>
143 * symbol.c (gfc_symbol_done_2): Start freeing namespaces
145 (gfc_free_namespace): Restore assert (revert r258839).
147 2018-03-28 Jakub Jelinek <jakub@redhat.com>
149 * gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
150 * ioparm.def (IOPARM_dt_default_exp): Rename to ...
151 (IOPARM_dt_dec_ext): ... this.
152 * trans-io.c (build_dt): Adjust for default_exp renaming to
153 dec_ext and IOPARM_dt_default_exp renaming to IOPARM_dt_dec_ext.
154 * io.c (match_io): Likewise.
156 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
159 * frontend-passes.c (gfc_run_passes): Do not run front-end
160 optimizations if a previous error occurred.
162 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
163 Harald Anlauf <anlauf@gmx.de>
166 * primary.c (gfc_convert_to_structure_constructor): Check
167 conformance of argument types in structure constructor.
169 2018-03-26 Thomas Koenig <tkoenig@gcc.gnu.org>
172 * io.c: Include constructor.h.
173 (resolve_tag_format): For a constant character array, concatenate
174 into a single character expression.
176 2018-03-25 Seth Johnson <johnsonsr@ornl.gov>
177 Dominique d'Humieres <dominiq@gcc.gnu.org>
180 * check.c (gfc_check_c_f_pointer): Allow scalar noninteroperable
181 scalar derived type with -std=f2003 and -std=f2008.
183 2018-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
184 Dominique d'Humieres <dominiq@gcc.gnu.org>
187 * symbol.c (gfc_free_namespace): Delete the assert and only if
188 refs count is equals zero, free the namespace. Otherwise,
189 something is halfway and other errors will resound.
191 2018-03-24 Thomas Koenig <tkoenig@gcc.gnu.org>
194 * expr.c (find_substring_ref): Change types of start, end
195 and length variables to gfc_charlen_t. Set length to zero
198 2018-03-24 Steven G. Kargl <kargl@gcc.gnu.org>
201 * decl.c (check_function_name): Improved error message
202 (gfc_match_volatile, gfc_match_asynchronous) Use check_function_name.
204 2018-03-22 Steven G. Kargl <kargl@gcc.gnu.org>
207 * decl.c (get_proc_name): If the MODULE prefix appears in interface
208 body, then it must appear on the contained subroutine or function.
209 While here, fix nearby mis-indented code.
211 2018-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
212 Harald Anlauf <anlauf@gmx.de>
215 * trans-types.c (gfc_sym_type): Do not dereference NULL pointer.
217 2018-03-21 Janne Blomqvist <jb@gcc.gnu.org>
220 * trans-expr.c (gfc_conv_procedure_call): Convert charlen to
221 gfc_charlen_type_node when calling procedure.
223 2018-03-20 Steven G. Kargl <kargl@gcc.gnu.org>
226 * interface.c (symbol_rank): Remove bogus null pointer check that
227 crept in when translating a ternary operator into an if-else
230 2018-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
233 * simplify.c (gfc_convert_constant): Correctly handle iterators
236 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
239 * decl.c (get_proc_name): Check for a subroutine re-defined in
240 the contain portion of a subroutine. Change language of existing
241 error message to better describe the issue. While here fix whitespace
244 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
247 * decl.c (get_proc_name): Catch clash between a procedure statement
248 and a contained subprogram
250 2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
253 * decl.c (merge_array_spec): Correct the error condition.
255 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
258 * decl.c (get_proc_name): Check for clash of entry name with
261 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
264 * decl.c (merge_array_spec): Limit the merging to maximum allowed
265 dimensions, and issue error message if limit is exceeded.
267 2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
269 * check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
270 * intrinsic.c (add_functions): Remove reference to gfc_resolve_kill.
271 (add_subroutines): Remove reference to gfc_resolve_kill_sub.
272 * intrinsic.texi: Update documentation.
273 * iresolve.c (gfc_resolve_kill, gfc_resolve_kill_sub): Remove.
274 * trans-decl.c (gfc_build_intrinsic_function_decls): Add
275 gfor_fndecl_kill and gfor_fndecl_kill_sub
276 * trans-intrinsic.c (conv_intrinsic_kill, conv_intrinsic_kill_sub): new
278 (gfc_conv_intrinsic_function): Use conv_intrinsic_kill.
279 (gfc_conv_intrinsic_subroutine): Use conv_intrinsic_kill_sub.
280 * trans.h: Declare gfor_fndecl_kill and gfor_fndecl_kill_sub.
282 2018-03-11 Paul Thomas <pault@gcc.gnu.org>
285 * trans-array.c (structure_alloc_comps): Make sure that the
286 vptr is copied and that the unlimited polymorphic _len is used
287 to compute the size to be allocated.
288 * trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
289 unlimited polymorphic _len for the offset to the element.
290 (gfc_copy_class_to_class): Set the new 'unlimited' argument.
291 * trans.h : Add the boolean 'unlimited' to the prototype.
293 2018-03-11 Steven G. Kargl <kargl@gcc.gnu.org>
296 * resolve.c (resolve_fl_procedure): Enforce F2018:C15100.
298 2018-03-11 Steven G. Kargl <kargls@gcc.gnu.org>
300 * check.c (gfc_check_kill): Check pid and sig are scalar.
301 (gfc_check_kill_sub): Restrict kind to 4 and 8.
302 * intrinsic.c (add_function): Sort keyword list. Add pid and sig
303 keywords for KILL. Remove redundant *back="back" in favor of the
304 original *bck="back".
305 (add_subroutines): Sort keyword list. Add pid and sig keywords
307 * intrinsic.texi: Fix documentation to consistently use pid and sig.
308 * iresolve.c (gfc_resolve_kill): Kind can only be 4 or 8. Choose the
310 (gfc_resolve_rename_sub): Add comment.
312 2018-03-11 Thomas Koenig <tkoenig@gcc.gnu.org>
315 * simplify.c (simplify_transformation): Return default result for
316 empty array argument.
317 (gfc_simplify_all): Remove special-case handling for zerosize.
318 (gfc_simplify_any): Likewise.
319 (gfc_simplify_count): Likewise.
320 (gfc_simplify_iall): Likewise.
321 (gfc_simplify_iany): Likewise.
322 (gfc_simplify_iparity): Likewise.
323 (gfc_simplify_minval): Likewise.
324 (gfc_simplify_maxval): Likewise.
325 (gfc_simplify_norm2): Likewise.
326 (gfc_simplify_product): Likewise.
327 (gfc_simplify_sum): Likewise.
329 2018-03-10 Steven G. Kargl <kargl@gcc.gnu.org>
332 * arith.c (check_result, eval_intrinsic): If result overflows, pass
333 the expression up the chain instead of a NULL pointer.
335 2018-03-07 Steven G. Kargl <kargl@gcc.gnu.org>
339 * decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.
341 2017-03-06 Thomas Koenig <tkoenig@gcc.gnu.org>
345 * expr.c (simplify_parameter_variable): If p is a size zero array
346 and not an ARRAY_EXPR insert an empty array constructor and
348 * gfortran.h: Add prototype for gfc_is_size_zero_array.
349 * simplify.c (is_size_zero_array): Make non-static and rename into
350 (gfc_is_size_zero_array): Check for parameter arrays of zero
351 size by comparing shape and absence of constructor.
352 (gfc_simplify_all): Use gfc_is_size_zero_array instead of
354 (gfc_simplify_count): Likewise.
355 (gfc_simplify_iall): Likewise.
356 (gfc_simplify_iany): Likewise.
357 (gfc_simplify_iparity): Likewise.
358 (gfc_simplify_minval): Likewise.
359 (gfc_simplify_maxval): Likewise.
360 (gfc_simplify_product): Likewise.
361 (gfc_simplify_sum): Likewise.
363 2018-03-06 Steven G. Kargl <kargl@gcc.gnu.org>
366 * primary.c (match_sym_complex_part): Give the matcher for an implied
367 do-loop a chance to run.
369 2018-03-03 Harald Anlauf <anlauf@gmx.de>
372 * trans-expr.c (gfc_apply_interface_mapping_to_expr): Do not
373 dereference NULL pointer.
375 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
378 * simplify.c (is_size_zero_array): New function to check for size
380 (gfc_simplify_all, gfc_simplify_any, gfc_simplify_count,
381 gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
382 gfc_simplify_minval, gfc_simplify_maxval, gfc_simplify_norm2,
383 gfc_simplify_product, gfc_simplify_sum): Use it, and implement
384 requirements from F2018.
386 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
389 * simplify.c (gfc_simplify_transfer): Resolve mold.
391 2018-03-03 Paul Thomas <pault@gcc.gnu.org>
394 * resolve.c (build_loc_call): Change symtree name from 'loc' to
397 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
400 * target-memory.c (gfc_interpret_derived): Assert that BT_VOID
401 components are caf tokens.
402 (gfc_target_interpret_expr): Treat BT_VOID expressions as
405 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
408 * class.c (class_array_ref_detected): Remove the condition that
409 there be no reference after the array reference.
410 (find_intrinsic_vtab): Remove excess whitespace.
411 * trans-array.c (gfc_conv_scalarized_array_ref): Rename 'tmp'
412 as 'base and call build_class_array_ref earlier.
414 2018-02-28 Paul Thomas <pault@gcc.gnu.org>
417 * trans-stmt.c (trans_associate_var): Make sure that the se
418 expression is a pointer type before converting it to the symbol
421 2018-02-25 Steven G. Kargl <kargl@gcc.gnu.org>
424 * decl.c (variable_decl): Check that an explicit-shape-array with
425 nonconstant bounds is allowed.
427 2018-02-25 Paul Thomas <pault@gcc.gnu.org>
430 * trans-intrinsic.c (gfc_conv_allocated): If the argument se
431 has a pre block, add it to the expression pre block.
433 2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
436 * gfortran.h (gfc_integer_4_kind): Define.
437 * resolve.c (resolve_select_type): Make sure that the
438 kind of c->high is gfc_integer_4_kind.
440 2018-02-24 Steven G. Kargl <kargl@gcc.gnu.org>
443 * decl.c (gfc_match_data): Check for invalid substring in
446 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
448 * intrinsic.texi: Arguments to MATMUL cannot both be rank one.
450 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
453 * trans-io.c (transfer_expr): Deal with C_LOC in transfer statement.
455 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
458 * interface.c (compare_actual_formal): Issue error if keyword is
459 used in a statement function.
461 2018-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
464 * trans-io.c (set_parameter_value_inquire): Adjust range check of
465 negative unit values for kind=8 units to the kind=4 negative limit.
467 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
470 * trans-types.c (gfc_sym_type): Test sym->ns->proc_name before
471 accessing its components.
473 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
476 * trans-decl.c (gfc_finish_var_decl): Test sym->ns->proc_name
477 before accessing its components.
479 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
482 * trans-const.c : Clean up some whitespace issues.
483 * trans-expr.c (gfc_conv_initializer): If an iso_c_binding
484 derived type has a kind value of zero, set it to the default
487 2018-02-23 Janne Blomqvist <jb@gcc.gnu.org>
490 * trans-decl.c (gfc_build_builtin_function_decls): Add bool
491 argument to stop and error stop decls.
492 * trans-stmt.c (gfc_trans_stop): Add false value to argument
495 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
499 * trans-decl.c (gfc_build_builtin_function_decls): Pass
500 gfc_int8_type node to pause_numeric, size_type_node to
502 * trans-stmt.c (gfc_trans_pause): Likewise.
504 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
506 * gfortran.texi: Update Coarray API description.
507 * trans-decl.c (gfc_build_builtin_function_decls): Use size_t for
508 character lengths, int for exit codes.
509 (generate_coarray_sym_init): Use size_t for character length.
510 * trans-intrinsic.c (conv_co_collective): Likewise.
511 * trans-stmt.c (gfc_trans_lock_unlock): Likewise.
512 (gfc_trans_event_post_wait): Likewise.
513 (gfc_trans_sync): Likewise.
514 (gfc_trans_stop): Use size_t for character lengths, int for exit
517 2018-02-20 Thomas Koenig <tkoenig@gcc.gnu.org>
521 * primary.c (gfc_convert_to_structure_constructor):
522 For a constant string constructor, make sure the length
525 2018-02-19 Paul Thomas <pault@gcc.gnu.org>
529 * resolve.c (resolve_assoc_var): Rearrange the logic for the
530 determination of the character length of associate names. If
531 the associate name is missing a length expression or the length
532 expression is not a constant and the target is not a variable,
533 make the associate name allocatable and deferred length.
534 * trans-decl.c (gfc_get_symbol_decl): Null the character length
535 backend_decl for deferred length associate names that are not
536 variables. Set 'length' to gfc_index_zero_node for character
537 associate names, whose character length is a PARM_DECL.
539 2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
542 * frontend-passes.c (traverse_io_block): Remove workaround for
545 2018-02-19 Andre Vehreschild <vehre@gcc.gnu.org>
547 * gfortran.texi: Document additional src/dst_type. Fix some typos.
548 * trans-decl.c (gfc_build_builtin_function_decls): Declare the new
549 argument of _caf_*_by_ref () with * e { get, send, sendget }.
550 * trans-intrinsic.c (gfc_conv_intrinsic_caf_get): Add the type of the
551 data referenced when generating a call to caf_get_by_ref ().
552 (conv_caf_send): Same but for caf_send_by_ref () and
553 caf_sendget_by_ref ().
555 2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
558 * io.c (check_format): Allow FMT_COLON.
560 2018-02-18 Paul Thomas <pault@gcc.gnu.org>
563 * trans-array.c (gfc_conv_expr_descriptor): Set parmtype from
564 the typenode in the case of deferred length characters.
566 2018-02-17 Thomas Koenig <tkoenig@gcc.gnu.org>
569 * frontend-passes (scalarized_expr): If the expression
570 is an assumed size array, leave in the last reference
571 and pass AR_SECTION instead of AR_FULL to gfc_resolve
572 in order to avoid an error.
574 2018-02-17 Paul Thomas <pault@gcc.gnu.org>
577 * resolve.c (resolve_assoc_var): If a non-constant target expr.
578 has no string length expression, make the associate variable
579 into a deferred length, allocatable symbol.
580 * trans-decl.c (gfc_is_reallocatable_lhs): Add and use a ptr to
582 * trans-stmt.c (trans_associate_var): Null and free scalar
583 associate names that are allocatable. After assignment, remove
584 the allocatable attribute to prevent reallocation.
586 2018-02-16 Jakub Jelinek <jakub@redhat.com>
589 * trans-openmp.c (gfc_trans_omp_clauses): For OMP_CLAUSE_LINEAR_REF
590 kind set OMP_CLAUSE_LINEAR_STEP to TYPE_SIZE_UNIT times last_step.
592 2018-02-16 Dominique d'Humieres <dominiq@gcc.gnu.org>
595 * decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.
597 2018-02-15 Janus Weil <janus@gcc.gnu.org>
600 * interface.c (check_dtio_arg_TKR_intent): Add a check for character
603 2018-02-14 Janus Weil <janus@gcc.gnu.org>
606 * match.c (gfc_match_select_type): Fix check for selector in
607 SELECT TYPE statement.
609 2018-02-13 Janus Weil <janus@gcc.gnu.org>
612 * symbol.c (check_conflict): Reject procedure pointers in common blocks.
614 2018-02-13 Alastair McKinstry <alastair.mckinstry@sceal.ie>
615 Janne Blomqvist <jb@gcc.gnu.org>
617 * module.c (dump_module): Use lbasename to ensure that module
618 files are reproducible.
620 2018-02-12 Janus Weil <janus@gcc.gnu.org>
623 * resolve.c (resolve_component): Fix checks of passed argument in
624 procedure-pointer components.
626 2018-02-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
629 * resolve.c (resolve_formal_arglist): Update error message.
631 2018-02-11 Andre Vehreschild <vehre@gcc.gnu.org>
633 * gfortran.texi: Fix typos in documentation of caf_register ().
634 * trans-array.c (structure_alloc_comps): Only register a component of
635 a derived typed corray, not of an ultimate component coarray.
637 2018-02-11 Steven G. Kargl <kargl@gcc.gnu.org>
641 * interface.c (compare_actual_formal): Add in_statement_function
642 bool parameter. Skip check of INTENT attribute for statement
643 functions. Arguments to a statement function cannot be optional,
644 issue error for missing argument.
645 (gfc_procedure_use, gfc_ppc_use, gfc_arglist_matches_symbol): Use
646 in_statement_function.
648 2018-02-11 Paul Thomas <pault@gcc.gnu.org>
651 * trans-expr.c (gfc_conv_derived_to_class): Set the use_offset
652 flag. If the is a vector subscript or the expression is not a
653 variable, make the descriptor one-based.
655 2018-02-10 Paul Thomas <pault@gcc.gnu.org>
659 * trans-array.c (gfc_array_init_size): Revert the change made
660 in revision 257356 setting the dtype.
661 * trans-types.c (gfc_get_dtype): Do not use the cached dtype.
662 Call gfc_get_dtype_rank_type every time.
665 * trans-array.c (gfc_conv_expr_descriptor): If the source array
666 is a descriptor type, use its offset, removing the condition
667 that is be a class expression.
669 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
672 * match.c (gfc_match_deallocate): Check for NULL pointer.
674 2018-02-07 Thomas Koenig <tkoenig@gcc.gnu.org>
677 * trans-intrinsic.c (gfc_conv_intrinsic_shape): New function.
678 (gfc_conv_intrinsic_function): Call it.
680 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
683 * match.c (gfc_match_type_spec): If the charlen is non-NULL, then
684 try to resolve it. While here return early if possible.
686 2018-02-04 Paul Thomas <pault@gcc.gnu.org>
689 * trans-decl.c (gfc_get_symbol_decl): Do not finish the decl of
690 'length' if the symbol charlen backend_decl is an indirect ref.
692 2018-02-03 Paul Thomas <pault@gcc.gnu.org>
696 * trans-array.c (gfc_array_init_size): Instead of gfc_get_dtype
697 use gfc_get_dtype_rank_type.
699 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
703 * resolve.c (resolve_assoc_var): Generate an error if
704 target length unknown.
706 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
709 * simplify.c (gfc_simplify_repeat): Increase limit for deferring
710 to runtime, print a warning message.
712 2018-01-31 Jakub Jelinek <jakub@redhat.com>
715 * openmp.c (gfc_match_omp_clauses): If all the linear
716 gfc_match_omp_variable_list calls failed, don't gfc_free_omp_namelist
717 nor set *head = NULL. Formatting fixes.
719 2018-01-31 Paul Thomas <pault@gcc.gnu.org>
722 * trans-expr.c (gfc_conv_procedure_call): If the parm expr is
723 an address expression passed to an assumed rank dummy, convert
724 to an indirect reference.
726 2018-01-31 Thomas Koenig <tkoenig@gcc.gnu.org>
728 * dump-parse-tree.c (write_proc): Use sym_name (which may
729 be sym->binding_label) instead of sym->name.
731 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
733 * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
736 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
739 * trans-expr.c (fill_with_spaces): Use memset instead of
741 (gfc_trans_string_copy): Improve opportunity to use builtins with
744 2018-01-30 Jakub Jelinek <jakub@redhat.com>
747 * trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
748 to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
750 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
753 * array.c (gfc_ref_dimen_size): Whitespace fixes. If stride is
756 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
759 * frontend-passes (matmul_to_var_expr): Return early if
761 (inline_matmul_assign): Likewise.
763 2017-01-29 Thomas Koenig <tkoenig@gcc.gnu.org>
766 * resolve.c (resolve_component): Ensure BIND(C) character
767 components have length one.
768 (resolve_symbol): Likewise for variables.
770 2018-01-27 Jakub Jelinek <jakub@redhat.com>
773 * decl.c (add_init_expr_to_sym): Ignore initializers for too large
776 2018-01-26 Damian Rouson <damian@sourceryinstitute.org>
777 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
778 Soren Rasmussen <s.c.rasmussen@gmail.com>
780 Partial support for Fortran 2018 teams features.
782 * array.c (gfc_match_array_ref): add team attribute in coarray
784 * check.c (gfc_check_get_team, gfc_check_team_number): add new
785 functions for get_team and team_number.
786 * dump-parse-tree.c (show_code_node): add new statements: form team,
787 change team, end team, and sync team.
788 * expr.c (gfc_find_team_co): add new function.
789 * gfortran.h: add new statements.
790 * intrinsic.c (add_functions): add get_team and team_number functions.
791 * intrinsic.h: add get_team and team_number prototypes for check,
792 simplify, and resolve.
793 * iresolve.c (gfc_resolve_get_team, gfc_resolve_team_number): add new
795 * iso-fortran-env.def: add the team_type derived type.
796 * match.c (gfc_match_if, gfc_match_form_team, gfc_match_team_number)
797 (gfc_match_end_team, gfc_match_sync_team, gfc_match_change_team):
798 add change team, end team, form team, sync team match and functions.
799 * match.h: add new prototypes for change team, end team, form team,
801 * parse.c (decode_statement): add cases for change team, end team,
802 form team, and sync team.
803 * resolve.c: add cases for exec form team, change team, end team, and
805 * simplify.c (gfc_simplify_get_team): add new function for get team.
806 * st.c (gfc_free_statement): add cases exec for change team, end team,
807 form team, sync team.
808 * trans-decl.c (gfor_fndecl_caf_form_team)
809 (gfor_fndecl_caf_change_team, gfor_fndecl_caf_end_team)
810 (gfor_fndecl_caf_sync_team, gfor_fndecl_caf_get_team)
811 (gfor_fndecl_caf_team_number): add functions and definitions.
812 * trans-intrinsic.c (conv_caf_send, conv_intrinsic_team_number): add
813 new function and team_type argument support.
814 * trans-stmt.c (gfc_trans_form_team, gfc_trans_change_team)
815 (gfc_trans_end_team, gfc_trans_sync_team): add new functions.
816 * trans-stmt.h: add new prototypes.
817 * trans-types.c (gfc_get_derived_type): check condition for team_type.
818 * trans.c (trans_code): new exec cases for form team, change team, end
820 * trans.h: add new prototypes.
822 2018-01-26 Steven G. Kargl <kargl@gcc.gnu.org>
825 * simplify.c (compute_dot_product): Initialize result to INTEGER(1) 0
826 or .false. The summation does the correct type conversion.
827 (gfc_simplify_dot_product): Special case zero-sized arrays.
829 2018-25-01 Paul Thomas <pault@gcc.gnu.org>
832 * array.c (gfc_match_array_ref): If standard earlier than F2008
833 it is an error if the reference dimension is greater than 7.
834 libgfortran.h : Increase GFC_MAX_DIMENSIONS to 15. Change the
835 dtype masks and shifts accordingly.
836 * trans-array.c (gfc_conv_descriptor_dtype): Use the dtype
837 type node to check the field.
838 (gfc_conv_descriptor_dtype): Access the rank field of dtype.
839 (duplicate_allocatable_coarray): Access the rank field of the
840 dtype descriptor rather than the dtype itself.
841 * trans-expr.c (get_scalar_to_descriptor_type): Store the type
842 of 'scalar' on entry and use its TREE_TYPE if it is ARRAY_TYPE
844 (gfc_conv_procedure_call): Pass TREE_OPERAND (tmp,0) to
845 get_scalar_to_descriptor_type if the actual expression is a
847 (gfc_trans_structure_assign): Assign the rank directly to the
849 * trans-intrinsic.c (gfc_conv_intrinsic_rank): Cast the result
850 to default integer kind.
851 (gfc_conv_intrinsic_sizeof): Obtain the element size from the
852 'elem_len' field of the dtype.
853 * trans-io.c (gfc_build_io_library_fndecls): Replace
854 gfc_int4_type_node with dtype_type_node where necessary.
855 (transfer_namelist_element): Use gfc_get_dtype_rank_type for
857 * trans-types.c : Provide 'get_dtype_type_node' to acces the
858 dtype_type_node and, if necessary, build it.
859 The maximum size of an array element is now determined by the
860 maximum value of size_t.
861 Update the description of the array descriptor, including the
862 type def for the dtype_type.
863 (gfc_get_dtype_rank_type): Build a constructor for the dtype.
864 Distinguish RECORD_TYPEs that are BT_DERIVED or BT_CLASS.
865 (gfc_get_array_descriptor_base): Change the type of the dtype
866 field to dtype_type_node.
867 (gfc_get_array_descr_info): Get the offset to the rank field of
869 * trans-types.h : Add a prototype for 'get_dtype_type_node ()'.
870 * trans.h : Define the indices of the dtype fields.
872 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
875 * decl.c (gfc_match_derived_decl): If eos not matched, recover
876 and emit error about garbage after declaration.
878 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
881 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor
884 2018-01-22 Janne Blomqvist <jb@gcc.gnu.org>
888 * arith.c (gfc_arith_concat): Use size_t for string length.
889 (gfc_compare_string): Likewise.
890 (gfc_compare_with_Cstring): Likewise.
891 * array.c (gfc_resolve_character_array_constructor): Use
892 HOST_WIDE_INT, gfc_mpz_get_hwi.
893 * check.c (gfc_check_fe_runtime_error): Use size_t.
894 * data.c (create_character_initializer): Use HOST_WIDE_INT,
896 * decl.c (gfc_set_constant_character_len): Use gfc_charlen_t.
897 (add_init_expr_to_sym): Use HOST_WIDE_INT.
898 * expr.c (gfc_build_init_expr): Use HOST_WIDE_INT,
900 (gfc_apply_init): Likewise.
901 * match.h (gfc_set_constant_character_len): Update prototype.
902 * primary.c (match_string_constant): Use size_t.
903 * resolve.c (resolve_ordinary_assign): Use HOST_WIDE_INT,
905 * simplify.c (init_result_expr): Likewise.
906 (gfc_simplify_len_trim): Use size_t.
907 * target-memory.c (gfc_encode_character): Use size_t.
908 (gfc_target_encode_expr): Use HOST_WIDE_INT, gfc_mpz_get_hwi.
909 (interpret_array): Use size_t.
910 (gfc_interpret_character): Likewise.
911 * target-memory.h (gfc_encode_character): Update prototype.
912 (gfc_interpret_character): Likewise.
913 (gfc_target_interpret_expr): Likewise.
914 * trans-const.c (gfc_build_string_const): Use size_t for length
916 (gfc_build_wide_string_const): Likewise.
917 * trans-const.h (gfc_build_string_const): Likewise.
918 (gfc_build_wide_string_const): Likewise.
920 2018-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
923 * simplify.c (gfc_simplify_matmul): Set return type correctly.
925 2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
928 * simplify.c (gfc_simplify_matmul): Delete bogus assertion.
930 2018-01-17 Harald Anlauf <anlauf@gmx.de>
933 * expr.c (add_init_expr_to_sym): Do not dereference NULL pointer.
935 2018-01-17 Harald Anlauf <anlauf@gmx.de>
938 * decl.c (add_init_expr_to_sym): Do not dereference NULL pointer.
940 2018-01-15 Louis Krupp <louis.krupp@zoho.com>
943 * interface.c (compare_rank): Don't try to retrieve CLASS_DATA
944 from symbol marked unlimited polymorphic.
945 * resolve.c (resolve_structure_cons): Likewise.
946 * misc.c (gfc_typename): Don't dereference derived->components
949 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
952 * gfortran.h (gfc_check_f): Rename f4ml to f5ml.
953 (gfc_logical_4_kind): New macro
954 * intrinsic.h (gfc_simplify_minloc): Add a gfc_expr *argument.
955 (gfc_simplify_maxloc): Likewise.
956 (gfc_resolve_maxloc): Likewise.
957 (gfc_resolve_minloc): Likewise.
958 * check.c (gfc_check_minloc_maxloc): Add checking for "back"
959 argument; also raise error if it is used (for now). Add it
961 * intrinsic.c (add_sym_4ml): Rename to
962 (add_sym_5ml), adjust for extra argument.
963 (add_functions): Add "back" constant. Adjust maxloc and minloc
965 * iresolve.c (gfc_resolve_maxloc): Add back argument. If back is
966 not of gfc_logical_4_kind, convert.
967 (gfc_resolve_minloc): Likewise.
968 * simplify.c (gfc_simplify_minloc): Add back argument.
969 (gfc_simplify_maxloc): Likewise.
970 * trans-intinsic.c (gfc_conv_intrinsic_minmaxloc): Rename last
971 argument to %VAL to ensure passing by value.
972 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_minmaxloc
973 also for library calls.
975 2018-01-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
978 * resolve.c (resolve_transfer): Delete code looking for 'DT'
979 format specifiers in format strings. Set formatted to true if a
980 format string or format label is present.
981 * trans-io.c (get_dtio_proc): Likewise. (transfer_expr): Fix
984 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
987 * dump-parse-tree.c (get_c_type_name): Remove extra line.
988 Change for loop to use declaration in for loop. Handle BT_LOGICAL
990 (write_decl): Add where argument. Fix indentation. Replace
991 assert with error message. Add typename to warning
993 (write_type): Adjust locus to call of write_decl.
994 (write_variable): Likewise.
995 (write_proc): Likewise. Replace assert with error message.
997 2018-01-13 Paul Thomas <pault@gcc.gnu.org>
1000 * trans-expr.c (gfc_trans_scalar_assign): Flag is_alloc_lhs if
1001 the rhs expression is neither an elemental nor a conversion
1005 * trans-array.c (is_pointer_array): Remove unconditional return
1006 of false for -fopenmp.
1008 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1012 * dump-parse-tree.c (write_proc): Always emit closing parenthesis
1015 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1018 * resolve.c (resolve_allocate_expr): Check for NULL pointer.
1020 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1023 * resolve.c (resolve_charlen): Check the type of cl->length
1026 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1029 * trans-array.c (gfc_trans_array_ctor_element): Fix formatting.
1031 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1034 * trans-array.c (gfc_trans_array_ctor_element): Convert RHS to the
1035 LHS type when assigning.
1037 2018-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
1040 * expr.c (gfc_is_simply_contiguous): Check for NULL pointer.
1042 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1044 * match.c (gfc_match_allocate): Check for NULL pointer.
1046 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1048 * expr.c (gfc_check_pointer_assign): Fix typo in comment.
1050 2018-01-08 Paul Thomas <pault@gcc.gnu.org>
1053 * decl.c (gfc_get_pdt_instance): If parameterized arrays have
1054 an initializer, convert the kind parameters and add to the
1055 component if the instance.
1056 * trans-array.c (structure_alloc_comps): Add 'is_pdt_type' and
1057 use it with case COPY_ALLOC_COMP. Call 'duplicate_allocatable'
1058 for parameterized arrays. Clean up typos in comments. Convert
1059 parameterized array initializers and copy into the array.
1060 * trans-expr.c (gfc_trans_scalar_assign): Do a deep copy for
1061 parameterized types.
1062 *trans-stmt.c (trans_associate_var): Deallocate associate vars
1063 as necessary, when they are PDT function results for example.
1066 * trans-array.c (structure_alloc_comps): Only compare len parms
1067 when they are declared explicitly.
1069 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
1072 * trans-expr.c (gfc_trans_pointer_assignment): fold_convert rhs to
1075 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
1079 * array.c (got_charlen): Use gfc_charlen_int_kind.
1080 * class.c (gfc_find_derived_vtab): Use gfc_size_kind instead of
1082 (find_intrinsic_vtab): Likewise.
1083 * decl.c (match_char_length): Use gfc_charlen_int_kind.
1084 (add_init_expr_to_sym): Use gfc_charlen_t and gfc_charlen_int_kind.
1085 (gfc_match_implicit): Use gfc_charlen_int_kind.
1086 * dump-parse-tree.c (show_char_const): Use gfc_charlen_t and size_t.
1087 (show_expr): Use HOST_WIDE_INT_PRINT_DEC.
1088 * expr.c (gfc_get_character_expr): Length parameter of type
1090 (gfc_get_int_expr): Value argument of type HOST_WIDE_INT.
1091 (gfc_extract_hwi): New function.
1092 (simplify_const_ref): Make string_len of type gfc_charlen_t.
1093 (gfc_simplify_expr): Use HOST_WIDE_INT for substring refs.
1094 * frontend-passes.c (optimize_trim): Use gfc_charlen_int_kind.
1095 * gfortran.h (gfc_mpz_get_hwi): New prototype.
1096 (gfc_mpz_set_hwi): Likewise.
1097 (gfc_charlen_t): New typedef.
1098 (gfc_expr): Use gfc_charlen_t for character lengths.
1099 (gfc_size_kind): New extern variable.
1100 (gfc_extract_hwi): New prototype.
1101 (gfc_get_character_expr): Use gfc_charlen_t for character length.
1102 (gfc_get_int_expr): Use HOST_WIDE_INT type for value argument.
1103 * gfortran.texi: Update description of hidden string length argument.
1104 * iresolve.c (check_charlen_present): Use gfc_charlen_int_kind.
1105 (gfc_resolve_char_achar): Likewise.
1106 (gfc_resolve_repeat): Pass string length directly without
1107 temporary, use gfc_charlen_int_kind.
1108 (gfc_resolve_transfer): Use gfc_charlen_int_kind.
1109 * match.c (select_intrinsic_set_tmp): Use HOST_WIDE_INT for charlen.
1110 * misc.c (gfc_mpz_get_hwi): New function.
1111 (gfc_mpz_set_hwi): New function.
1112 * module.c (atom_int): Change type from int to HOST_WIDE_INT.
1113 (parse_integer): Don't complain about large integers.
1114 (write_atom): Use HOST_WIDE_INT for integers.
1115 (mio_integer): Handle integer type mismatch.
1116 (mio_hwi): New function.
1117 (mio_intrinsic_op): Use HOST_WIDE_INT.
1118 (mio_array_ref): Likewise.
1119 (mio_expr): Likewise.
1120 * primary.c (match_substring): Use gfc_charlen_int_kind.
1121 * resolve.c (resolve_substring_charlen): Use gfc_charlen_int_kind.
1122 (resolve_character_operator): Likewise.
1123 (resolve_assoc_var): Likewise.
1124 (resolve_select_type): Use HOST_WIDE_INT for charlen, use snprintf.
1125 (resolve_charlen): Use mpz_sgn to determine sign.
1126 * simplify.c (gfc_simplify_repeat): Use HOST_WIDE_INT/gfc_charlen_t
1128 * symbol.c (generate_isocbinding_symbol): Use gfc_charlen_int_kind.
1129 * target-memory.c (size_character): Length argument of type
1131 (gfc_encode_character): Likewise.
1132 (gfc_interpret_character): Use gfc_charlen_t.
1133 * target-memory.h (gfc_encode_character): Modify prototype.
1134 * trans-array.c (gfc_trans_array_ctor_element): Use existing type.
1135 (get_array_ctor_var_strlen): Use gfc_conv_mpz_to_tree_type.
1136 (trans_array_constructor): Use existing type.
1137 (get_array_charlen): Likewise.
1138 * trans-const.c (gfc_conv_mpz_to_tree_type): New function.
1139 * trans-const.h (gfc_conv_mpz_to_tree_type): New prototype.
1140 * trans-decl.c (gfc_trans_deferred_vars): Use existing type.
1141 (add_argument_checking): Likewise.
1142 * trans-expr.c (gfc_class_len_or_zero_get): Build const of type
1143 gfc_charlen_type_node.
1144 (gfc_conv_intrinsic_to_class): Use gfc_charlen_int_kind instead of
1145 4, fold_convert to correct type.
1146 (gfc_conv_class_to_class): Build const of type size_type_node for
1148 (gfc_copy_class_to_class): Likewise.
1149 (gfc_conv_string_length): Use same type in expression.
1150 (gfc_conv_substring): Likewise, use HOST_WIDE_INT for charlen.
1151 (gfc_conv_string_tmp): Make sure len is of the right type.
1152 (gfc_conv_concat_op): Use same type in expression.
1153 (gfc_conv_procedure_call): Likewise.
1154 (fill_with_spaces): Comment out memset() block due to spurious
1155 -Wstringop-overflow warnings.
1156 (gfc_trans_string_copy): Use gfc_charlen_type_node.
1157 (alloc_scalar_allocatable_for_subcomponent_assignment):
1158 fold_convert to right type.
1159 (gfc_trans_subcomponent_assign): Likewise.
1160 (trans_class_vptr_len_assignment): Build const of correct type.
1161 (gfc_trans_pointer_assignment): Likewise.
1162 (alloc_scalar_allocatable_for_assignment): fold_convert to right
1164 (trans_class_assignment): Build const of correct type.
1165 * trans-intrinsic.c (gfc_conv_associated): Likewise.
1166 (gfc_conv_intrinsic_repeat): Do calculation in sizetype.
1167 * trans-io.c (gfc_build_io_library_fndecls): Use
1168 gfc_charlen_type_node for character lengths.
1169 (set_string): Convert to right type in assignment.
1170 * trans-stmt.c (gfc_trans_label_assign): Build const of
1171 gfc_charlen_type_node.
1172 (trans_associate_var): Likewise.
1173 (gfc_trans_character_select): Likewise.
1174 (gfc_trans_allocate): Likewise, don't typecast strlen result.
1175 (gfc_trans_deallocate): Don't typecast strlen result.
1176 * trans-types.c (gfc_size_kind): New variable.
1177 (gfc_init_types): Determine gfc_charlen_int_kind and gfc_size_kind
1178 from size_type_node.
1179 * trans-types.h: Fix comment.
1181 2018-01-04 Thomas Koenig <tkoenig@gcc.gnu.org>
1185 * check.c (gfc_check_eoshift): Check for string length and
1186 for conformance of boundary.
1187 * intrinsic.c (add_functions): Add gfc_simplify_eoshift.
1188 * intrinsic.h: Add prototype for gfc_simplify_eoshift.
1189 * simplify.c (gfc_simplify_eoshift): New function.
1191 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
1192 Alan Hayward <alan.hayward@arm.com>
1193 David Sherwood <david.sherwood@arm.com>
1195 * trans-types.c (gfc_type_for_mode): Handle MODE_VECTOR_BOOL.
1197 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
1198 Alan Hayward <alan.hayward@arm.com>
1199 David Sherwood <david.sherwood@arm.com>
1201 * trans-types.c (gfc_type_for_mode): Check valid_vector_subparts_p.
1203 2018-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
1206 * check.c (gfc_check_eoshift): Error for missing boundary if array
1207 is not one of the standard types.
1209 2018-01-03 Jakub Jelinek <jakub@redhat.com>
1211 Update copyright years.
1213 * gfortranspec.c (lang_specific_driver): Update copyright notice
1215 * gfc-internals.texi: Bump @copying's copyright year.
1216 * gfortran.texi: Ditto.
1217 * intrinsic.texi: Ditto.
1218 * invoke.texi: Ditto.
1220 2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1223 * intrinsic.c (add_function): Add gfc_simplify_maxloc and
1224 gfc_simplify_minloc to maxloc and minloc, respectively.
1225 * intrinsic.h: Add prototypes for gfc_simplify_minloc
1226 and gfc_simplify_maxloc.
1227 * simplify.c (min_max_chose): Adjust prototype. Modify function
1228 to have a return value which indicates if the extremum was found.
1229 (is_constant_array_expr): Fix typo in comment.
1230 (simplify_minmaxloc_to_scalar): New function.
1231 (simplify_minmaxloc_nodim): New function.
1232 (new_array): New function.
1233 (simplify_minmaxloc_to_array): New function.
1234 (gfc_simplify_minmaxloc): New function.
1235 (simplify_minloc): New function.
1236 (simplify_maxloc): New function.
1238 2018-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1242 * simplify.c (gfc_simplify_cshift): Re-implement to allow full
1245 2018-01-01 Paul Thomas <pault@gcc.gnu.org>
1248 * resolve.c (resolve_fl_derived0): Add caf_token fields for
1249 allocatable and pointer scalars, when -fcoarray selected.
1250 * trans-types.c (gfc_copy_dt_decls_ifequal): Copy the token
1251 field as well as the backend_decl.
1252 (gfc_get_derived_type): Flag GFC_FCOARRAY_LIB for module
1253 derived types that are not vtypes. Components with caf_token
1254 attribute are pvoid types. For a component requiring it, find
1255 the caf_token field and have the component token field point to
1259 *trans-types.c (gfc_get_array_descriptor_base): Add the token
1260 field to the descriptor even when codimen not set.
1262 Copyright (C) 2018 Free Software Foundation, Inc.
1264 Copying and distribution of this file, with or without modification,
1265 are permitted in any medium without royalty provided the copyright
1266 notice and this notice are preserved.