1 2018-08-16 Nathan Sidwell <nathan@acm.org>
3 * cpp.c (dump_macro): Use cpp_user_macro_p.
5 2018-08-14 Janus Weil <janus@gcc.gnu.org>
8 * interface.c (compare_type): Remove a CLASS/TYPE check.
9 (compare_type_characteristics): New function that behaves like the old
11 (gfc_check_dummy_characteristics, gfc_check_result_characteristics):
12 Call 'compare_type_characteristics' instead of 'compare_type'.
14 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
17 * trans-intrinsic.c (gfc_conv_intrinsic_transfer): Class array
18 elements are returned as references to the data element. Get
19 the class expression by stripping back the references. Use this
22 2018-08-12 Paul Thomas <pault@gcc.gnu.org>
25 * resolve.c (resolve_fl_variable_derived): Check if the derived
26 type is use associated before checking for the host association
29 2018-08-10 Janus Weil <janus@gcc.gnu.org>
32 * invoke.texi (frontend-optimize): Mention short-circuiting.
33 * options.c (gfc_post_options): Disable -ffrontend-optimize with -Og.
34 * resolve.c (resolve_operator): Warn about short-circuiting only with
36 * trans-expr.c (gfc_conv_expr_op): Use short-circuiting operators only
37 with -ffrontend-optimize. Without that flag, make sure that both
38 operands are evaluated.
40 2018-08-08 Nathan Sidwell <nathan@acm.org>
42 * cpp.c (cb_file_change): Use linemap_included_from.
44 2018-08-07 Cesar Philippidis <cesar@codesourcery.com>
46 * trans-stmt.h: Remove stale reference to trans-openacc.c.
48 2018-08-04 Janus Weil <janus@gcc.gnu.org>
51 * interface.c (gfc_compare_interfaces): Apply additional
52 distinguishability criteria of F08 to operator interfaces.
54 2018-07-31 Andre Vieira <andre.simoesdiasvieira@arm.com>
56 Revert 'AsyncI/O patch committed'
57 2018-07-25 Nicolas Koenig <koenigni@gcc.gnu.org>
58 Thomas Koenig <tkoenig@gcc.gnu.org>
61 * gfortran.texi: Add description of asynchronous I/O.
62 * trans-decl.c (gfc_finish_var_decl): Treat asynchronous variables
64 * trans-io.c (gfc_build_io_library_fndecls): Rename st_wait to
65 st_wait_async and change argument spec from ".X" to ".w".
66 (gfc_trans_wait): Pass ID argument via reference.
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-20 Martin Sebor <msebor@redhat.com>
82 * gfortran.h (gfc_handle_option): Change function argument
84 * options.c (gfc_handle_option): Same.
86 2018-07-20 Andrew Benson <abenson@carnegiescience.edu>
88 * gfortran.h (gfc_symbol): Add pointer to next derived type.
89 (gfc_dt_list, gfc_get_dt_list): Remove.
90 (gfc_namespace): Replace gfc_dt_list with gfc_symbol.
91 * parse.c (resolve_all_program_units): Replace gfc_free_dt_list() with
92 simple nullification of gfc_derived_types.
93 * resolve.c (resolve_global_procedure): Replace gfc_dt_list with
95 (add_dt_to_dt_list): Change derived type linked list insertion to
96 utilize dt_next pointers in gfc_symbol.
97 * symbol.c (gfc_new_symbol, gfc_free_dt_list, gfc_symbol_done2)
98 (get_iso_c_binding_dt, generate_isocbinding_symbol): Remove
99 gfc_free_dt_list as gfc_dt_list is obsoleted. Change derived type
100 linked list search/insertion to utilize dt_next pointers in gfc_symbol.
101 * trans-types.c (gfc_get_derived_type): Change derived type linked
102 list search to utilize dt_next pointers in gfc_symbol.
104 2018-07-19 Kyrylo Tkachov <kyrylo.tkachov@arm.com>
106 * trans-intrinsic.c: (gfc_conv_intrinsic_minmax): Emit MIN_MAX_EXPR
107 or IFN_FMIN/FMAX sequence to calculate the min/max when possible.
109 2018-07-18 Janus Weil <janus@gcc.gnu.org>
110 Thomas Koenig <tkoenig@gcc.gnu.org>
113 * dump-parse-tree.c (show_attr): Add handling of implicit_pure.
114 * frontend-passes.c (do_warn_function_elimination): Do not warn for
116 * gfortran.h: Add prototypes for gfc_pure_function and
117 gfc_implicit_pure_function.
118 * gfortran.texi: Add chapter on evaluation of logical expressions.
119 * invoke.texi: Mention that -Wfunction-elimination is implied
121 * lang.opt: Make -Wextra imply -Wfunction-elimination.
122 * resolve.c (pure_function): Rename to gfc_pure_function.
123 (gfc_implicit_pure_function): New function.
124 (check_pure_function): Use it here.
125 (impure_function_callback): New function.
126 (resolve_operator): Call it via gfc_expr_walker.
128 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
131 * decl.c (match_old_style_init): Initialize locus of variable expr when
132 creating a data variable.
133 (match_clist_expr): Verify array is explicit shape/size before
134 attempting to allocate constant array constructor.
136 2018-07-16 Fritz Reese <fritzoreese@gmail.com>
139 * module.c (mio_component): Set component->loc when loading from module.
141 2018-07-10 Jakub Jelinek <jakub@redhat.com>
144 * module.c (omp_declare_simd_clauses): Add LINEAR with _REF, _VAL and
146 (mio_omp_declare_simd): Save and restore ref, val and uval modifiers
147 on linear clauses. Initialize n->where to gfc_current_locus.
149 2018-07-05 Paul Thomas <pault@gcc.gnu.org>
152 * resolve.c.c (resolve_contained_fntype): Reference to C418 is
153 in F2008 and not F2003.
154 (resolve_function): Ditto in error message. Also, exclude
155 deferred character length results from the error.
157 2018-07-05 Fritz Reese <fritzoreese@gmail.com>
161 * expr.c (class_allocatable, class_pointer, comp_allocatable,
162 comp_pointer): New helpers.
163 (component_initializer): Generate EXPR_NULL for allocatable or pointer
164 components. Do not generate initializers for components within BT_CLASS.
165 Do not assign to comp->initializer.
166 (gfc_generate_initializer): Use new helpers; move code to generate
167 EXPR_NULL for class allocatable components into component_initializer().
169 2018-07-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
172 * trans-decl.c (gfc_process_block_locals): Delete assert and set
173 saved_local_decls = NULL_TREE.
175 2018-07-02 Richard Biener <rguenther@suse.de>
178 * trans-types.c (gfc_get_array_type_bounds): Unshare TYPE_FIELDs
179 for the distinct type copy.
181 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
185 * trans-array.c (structure_alloc_comps): Do not explicitly copy
186 procedure pointer components.
188 2018-07-02 Paul Thomas <pault@gcc.gnu.org>
191 * expr.c : Add a prototype for scalarize_intrinsic_call.
192 (gfc_simplify_expr): Use scalarize_intrinsic_call for elemental
193 intrinsic function calls.
194 (scalarize_intrinsic_call): Add 'init_flag' argument. Check if
195 the expression or any of the actual argument expressions are
196 NULL. Before calling gfc_check_init_expr, check 'init_flag'.
197 Only simplify the scalarized expressions if there are no errors
199 (gfc_check_init_expr): Set 'init_flag' true in the call to
200 scalarize_intrinsic_call.
202 2018-06-28 Fritz Reese <fritzoreese@gmail.com>
205 * decl.c (gfc_match_type): Refactor and check for PDT declarations.
207 2018-06-28 Martin Liska <mliska@suse.cz>
209 * gfortranspec.c: Include opt-suggestions.h.
211 2018-06-25 Fritz Reese <fritzoreese@gmail.com>
216 * expr.c (component_initializer): Assign init expr to c->initializer.
217 (generate_isocbinding_initializer): New.
218 (gfc_generate_initializer): Call generate_isocbinding_initializer to
219 generate initializers for c_ptr and c_funptr with -finit-derived.
221 2018-06-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
224 * interface.c (check_dtio_interface1): Delete assert.
226 2018-06-22 Paul Thomas <pault@gcc.gnu.org>
227 Rainer Orth <ro@gcc.gnu.org>
230 * resolve.c (resolve_contained_fntype): Check for the charlen
231 before testing the length.
233 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
236 * resolve.c (resolve_contained_fntype): Change standard ref.
237 from F95 to F2003: C418. Correct a spelling error in a comment.
238 It is an error for an abstract interface to have an assumed
239 character length result.
240 * trans-expr.c (gfc_conv_procedure_call): Likewise change the
243 2018-06-21 Paul Thomas <pault@gcc.gnu.org>
246 * resolve.c (resolve_ordinary_assign): Force the creation of a
247 vtable for assignment of non-polymorphic expressions to an
248 unlimited polymorphic object.
249 * trans-array.c (gfc_alloc_allocatable_for_assignment): Use the
250 size of the rhs type for such assignments. Set the dtype, _len
251 and vptrs appropriately.
252 * trans-expr.c (gfc_trans_assignment): Force the use of the
253 _copy function for these assignments.
255 2018-06-20 Chung-Lin Tang <cltang@codesourcery.com>
256 Thomas Schwinge <thomas@codesourcery.com>
257 Cesar Philippidis <cesar@codesourcery.com>
259 * gfortran.h (gfc_omp_clauses): Add unsigned if_present, finalize
261 * openmp.c (enum omp_mask2): Remove OMP_CLAUSE_PRESENT_OR_*. Add
262 OMP_CLAUSE_{IF_PRESENT,FINALIZE}.
263 (gfc_match_omp_clauses): Update handling of copy, copyin, copyout,
264 create, deviceptr, present_of_*. Add support for finalize and
266 (OACC_PARALLEL_CLAUSES): Remove PRESENT_OR_* clauses.
267 (OACC_KERNELS_CLAUSES): Likewise.
268 (OACC_DATA_CLAUSES): Likewise.
269 (OACC_DECLARE_CLAUSES): Likewise.
270 (OACC_UPDATE_CLAUSES): Add IF_PRESENT clause.
271 (OACC_ENTER_DATA_CLAUSES): Remove PRESENT_OR_* clauses.
272 (OACC_EXIT_DATA_CLAUSES): Add FINALIZE clause.
273 (gfc_match_oacc_declare): Update to OpenACC 2.5 semantics.
274 * trans-openmp.c (gfc_trans_omp_clauses): Add support for IF_PRESENT
277 2018-06-18 Eric Botcazou <ebotcazou@adacore.com>
279 * trans-decl.c (gfc_get_fake_result_decl): Revert latest change.
281 2018-06-17 Eric Botcazou <ebotcazou@adacore.com>
283 * trans-decl.c (nonlocal_dummy_decl_pset): Delete.
284 (nonlocal_dummy_decls): Likewise.
285 (gfc_nonlocal_dummy_array_decl): Likewise.
286 (gfc_get_symbol_decl): Do not call gfc_nonlocal_dummy_array_decl.
287 (gfc_get_fake_result_decl): Do not generate a new DECL if simply
288 reusing the result of a recursive call.
289 (gfc_generate_function_code): Do not create, insert and destroy
290 nonlocal_dummy_decls.
292 2018-06-13 Steven G. Kargl <kargl@gcc.gnu.org>
295 * array.c (gfc_resolve_character_array_constructor): Avoid NULL
298 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
301 * parse.c (decode_oacc_directive): Set gfc_matching_function
303 (decode_omp_directive): Likewise.
305 2018-06-13 Cesar Philippidis <cesar@codesourcery.com>
308 * openmp.c (gfc_match_oacc_wait): Use %C to report error location.
310 2018-06-12 David Malcolm <dmalcolm@redhat.com>
313 * misc.c (gfc_closest_fuzzy_match): Update for renaming of
314 levenshtein_distance to get_edit_distance.
316 2018-06-12 Steven G. Kargl <kargl@gcc.gnu.org>
319 * expr.c (gfc_check_assign): Select non-NULL locus.
321 2018-06-11 Janus Weil <janus@gcc.gnu.org>
324 * interface.c (compare_ptr_alloc): New function.
325 (generic_correspondence): Call it.
327 2018-06-10 Thomas Koenig <tkoenig@gcc.gnu.org>
329 * gfortran.h (gfc_expr): Add no_bounds_check field.
330 * frontend-passes.c (get_array_inq_function): Set no_bounds_check
331 on function and function argument.
332 (inline_matmul_assign): Set no_bounds_check on zero expression
333 and on lhs of zero expression.
334 Also handle A1B2 case if realloc on assigment is active.
335 * trans-array.c (gfc_conv_array_ref): Don't do range checking
336 if expr has no_bounds_check set.
337 (gfc_conv_expr_descriptor): Set no_bounds_check on ss if expr
339 * trans-expr.c (gfc_trans_assignment_1): Set no_bounds_check
340 on lss and lss if the corresponding expressions have it set.
342 2018-06-10 Dominique d'Humieres <dominiq@gcc.gnu.org>
345 * trans-const.c: Remove include "diagnostic-core.h".
346 (gfc_conv_constant_to_tree): Replace fatal_error with gcc_unreachable.
348 2018-06-10 Janus Weil <janus@gcc.gnu.org>
351 * decl.c (match_attr_spec): Synchronize the DECL_* enum values with the
352 INTENT_* values from the enum 'sym_intent'. Call 'match_intent_spec'
353 and remove a TODO note.
354 * gfortran.h: Add a comment to sym_intent.
356 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
359 * resolve.c (resolve_operator): Provide better error message for
360 derived type entity used in an binary intrinsic numeric operator.
362 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
367 * decl.c (gfc_match_char_spec): Use private namespace in attempt to
368 reduce a charlen to a constant.
370 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
373 * data.c (gfc_assign_data_value): Re-arrange code to allow for
374 an error for double initialization of CHARACTER entities.
376 2018-06-09 Steven G. Kargl <kargl@gcc.gnu.org>
379 * symbol.c (gfc_add_volatile): Enforce F2008:C1282 and F2018:C1588.
381 2018-06-08 Thomas Koenig <tkoenig@gcc.gnu.org>
384 * trans.h (gfc_ss): Add field no_bounds_check.
385 * trans-array.c (gfc_conv_ss_startstride): If flag_realloc_lhs and
386 ss->no_bounds_check is set, do not use runtime checks.
387 * trans-expr.c (gfc_trans_assignment_1): Set lss->no_bounds_check
388 for reallocatable lhs.
390 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
393 * array.c (match_array_cons_element): NULL() cannot be in an
396 2018-06-08 Steven G. Kargl <kargl@gcc.gnu.org>
399 * data.c (create_character_initializer): Return early if type is
400 incompatible with CHARACTER.
402 2018-06-07 Steven G. Kargl <kargl@gcc.gnu.org>
405 * simplify.c (gfc_simplify_mod): Re-arrange code to test whether
406 'P' is zero and issue an error if it is.
408 2018-06-06 Thomas Koenig <tkoenig@gcc.gnu.org>
411 * frontend-passes.c (is_fe_temp): Add prototype.
412 (realloc_string_callback): Early return for frontend-generated
415 2018-06-05 Cesar Philippidis <cesar@codesourcery.com>
419 * openmp.c (gfc_resolve_oacc_declare): Error on functions and
420 subroutine data clause arguments.
422 2018-06-04 Steven G. Kargl <kargl@gcc.gnu.org>
425 * resolve.c (resolve_allocate_deallocate): Check errmsg is default
428 2018-06-03 Paul Thomas <pault@gcc.gnu.org>
431 * decl.c (variable_decl): Use gfc_add_type for cray pointees.
433 2018-06-01 Steven G. Kargl <kargl@gcc.gnu.org>
436 * check.c (gfc_check_random_init): New function. Check arguments of
438 * gfortran.h (GFC_ISYM_RANDOM_INIT): New enum token.
439 * intrinsic.c (add_subroutines): Add RANDOM_INIT to list of
441 (gfc_check_intrinsic_standard): Introduce Fortran 2018 check.
442 * intrinsic.h: Add prototypes for gfc_check_random_init and
443 gfc_resolve_random_init
444 * intrinsic.texi: Document new intrinsic subprogram.
445 * iresolve.c (gfc_resolve_random_init): Resolve routine name.
446 * trans-decl.c: Declare gfor_fndecl_random_init
447 * trans-intrinsic.c (conv_intrinsic_random_init): New function.
448 Translate call to RANDOM_INIT.
449 (gfc_conv_intrinsic_subroutine): Call it.
450 * trans.h: Declare gfor_fndecl_random_init
452 2018-05-27 Steven G. Kargl <kargl@gcc.gnu.org>
454 * decl.c (match_data_constant): Fortran 2018 allows pointer
455 initialization in a data statement.
457 2018-05-25 Janus Weil <janus@gcc.gnu.org>
460 * match.c (gfc_match_block_data): Call gfc_notify_std to warn about
461 an obsolescent feature in Fortran 2018.
462 (gfc_match_equivalence): Ditto.
463 * resolve.c (resolve_common_blocks): Ditto.
464 (gfc_resolve_forall): Ditto.
465 * symbol.c (gfc_define_st_label): Ditto.
467 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
470 * resolve.c (update_current_proc_array_outer_dependency): Avoid NULL
473 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
476 * resolve.c (resolve_fl_procedure): Avoid NULL dereference.
478 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
481 * decl.c (gfc_match_derived_decl): Fix NULL point dereference.
483 2018-05-24 Steven G. Kargl <kargl@gcc.gnu.org>
486 * resolve.c (resolve_sync): Resolve expression before checking for
489 2018-05-22 Janus Weil <janus@gcc.gnu.org>
492 * libgfortran.h: Remove the macros GFC_STD_F2008_TS and
494 * error.c (notify_std_msg): Remove GFC_STD_F2008_TS.
495 * options.c (set_default_std_flags): Ditto.
496 (gfc_handle_option): Make -std=f2008ts an alias for -std=f2018.
497 * array.c (gfc_match_array_spec): Replace GFC_STD_F2008_TS by
499 * check.c (gfc_check_atomic, gfc_check_event_query,
500 gfc_check_c_f_pointer, gfc_check_c_f_procpointer, gfc_check_c_funloc,
501 gfc_check_c_loc, gfc_check_num_images, gfc_check_this_image): Ditto.
502 * decl.c (gfc_verify_c_interop_param, gfc_match_decl_type_spec): Ditto.
503 * intrinsic.c (add_functions, add_subroutines,
504 gfc_check_intrinsic_standard): Ditto.
505 * iso-c-binding.def: Ditto.
506 * iso-fortran-env.def: Ditto.
507 * match.c (gfc_match_event_post, gfc_match_event_wait,
508 gfc_match_fail_image, gfc_match_form_team, gfc_match_change_team,
509 gfc_match_end_team, gfc_match_sync_team): Ditto.
510 * gfortran.texi: Remove mention of -std=f2008ts.
511 Move TSs into F2018 section.
512 * invoke.texi: Update documentation of -std=f2008ts.
514 2018-05-21 Janus Weil <janus@gcc.gnu.org>
517 * libgfortran.h: New macros GFC_STD_OPT_*.
518 * error.c (notify_std_msg): New function.
519 (gfc_notify_std): Adjust such that it can handle combinations of
520 GFC_STD_* flags in the 'std' argument, not just a single one.
521 * match.c (match_arithmetic_if, gfc_match_if): Reject arithmetic if
523 (gfc_match_stopcode): Use GFC_STD_OPT_* macros.
524 * options.c (set_default_std_flags): Warn for F2018 deleted features
526 (gfc_handle_option): F2018 deleted features are allowed in earlier
528 * symbol.c (gfc_define_st_label, gfc_reference_st_label): Reject
529 nonblock do constructs in Fortran 2018.
531 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
534 * resolve.c (flag_fn_result_spec): Use the 'sym' argument to
535 test for self refs to the function result in the character len
536 expression. If a self reference is found, emit an error and
538 (resolve_fntype): Use the function symbol in the calls to the
541 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
544 * trans-array.c (gfc_get_array_span): Renamed from
546 (gfc_conv_expr_descriptor): Change references to above.
547 * trans-array.h : Add prototype for 'gfc_get_array_span'.
548 * trans-intrinsic.c (gfc_conv_associated): Add pre and post
550 * trans-stmt.c (trans_associate_var): If the associate name is
551 a subref array pointer, use gfc_get_array_span for the span.
553 2018-05-20 Paul Thomas <pault@gcc.gnu.org>
556 * match.c (gfc_match_type_spec): Go through the array ref and
557 decrement 'rank' for every dimension that is an element.
559 2018-05-19 Paul Thomas <pault@gcc.gnu.org>
564 * trans-array.c (gfc_alloc_allocatable_for_assignment): Set the
565 charlen backend_decl of the rhs expr to ss->info->string_length
566 so that the value in the current scope is used.
568 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
571 * gfortran.texi: Clarify documentation for Cray pointer and
574 2018-05-13 Paul Thomas <pault@gcc.gnu.org>
577 * trans-types.c (gfc_get_dtype_rank_type): Reorder evaluation
578 of 'size'. If the element type is a pointer use the size of the
579 TREE_TYPE of the type, unless it is VOID_TYPE. In this latter
580 case, set the size to zero.
582 2018-05-13 Steven G. Kargl <kargl@gcc.gnu.org>
584 * gfortran.h: Remove prototype.
585 * symbol.c (gfc_new_undo_checkpoint): Remove unused function.
587 2018-05-11 Steven G. Kargl <kargl@gcc.gnu.org>
590 * expr.c (check_inquiry): Avoid NULL pointer dereference.
592 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
595 * check.c (gfc_check_rank): Check that the argument is a data object.
597 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
600 * array.c (gfc_resolve_character_array_constructor): Substrings
601 with upper bound smaller than lower bound are zero length strings.
603 2018-05-10 Steven G. Kargl <kargl@gcc.gnu.org>
606 * data.c (gfc_assign_data_value): Check that a data object does
607 not also have default initialization.
609 2018-05-10 Marek Polacek <polacek@redhat.com>
612 * options.c (gfc_post_options): Set main_input_filename.
614 2018-05-10 Thomas Koenig <tkoenig@gcc.gnu.org>
617 * intrinsic.texi: Document BACK for MINLOC and MAXLOC.
619 2018-05-10 Paul Thomas <pault@gcc.gnu.org>
623 * resolve.c (get_temp_from_expr): The temporary must not have
624 dummy or intent attributes.
626 2018-05-08 Thomas Koenig <tkoenig@gcc.gnu.org>
629 * check.c (gfc_check_minmaxloc): Remove error for BACK not being
630 implemented. Use gfc_logical_4_kind for BACK.
631 * simplify.c (min_max_choose): Add optional argument back_val.
633 (simplify_minmaxloc_to_scalar): Add argument back_val. Pass
634 back_val to min_max_choose.
635 (simplify_minmaxloc_to_nodim): Likewise.
636 (simplify_minmaxloc_to_array): Likewise.
637 (gfc_simplify_minmaxloc): Add argument back, handle it.
638 Pass back_val to specific simplification functions.
639 (gfc_simplify_minloc): Remove ATTRIBUTE_UNUSED from argument back,
640 pass it on to gfc_simplify_minmaxloc.
641 (gfc_simplify_maxloc): Likewise.
642 * trans-intrinsic.c (gfc_conv_intrinsic_minmaxloc): Adjust
643 comment. If BACK is true, use greater or equal (or lesser or
644 equal) insteal of greater (or lesser). Mark the condition of
645 having found a value which exceeds the limit as unlikely.
647 2018-05-07 Jeff Law <law@redhat.comg>
649 * scanner.c (preprocessor_line): Call linemap_add after a line
650 directive that changes the current filename.
652 2018-05-06 Andre Vehreschild <vehre@gcc.gnu.org>
655 * dependency.c (gfc_dep_resolver): Revert looking at coarray dimension
656 introduced by r259385.
657 * trans-intrinsic.c (conv_caf_send): Always report a dependency for
658 same variables in coarray assignments.
660 2018-05-02 Tom de Vries <tom@codesourcery.com>
663 * f95-lang.c (DEF_GOACC_BUILTIN_ONLY): Define.
665 2018-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
668 * decl.c (gfc_match_char_spec): Check for negative length and set to 0.
670 2018-04-14 Andre Vehreschild <vehre@gcc.gnu.org>
674 * dependency.c (gfc_dep_resolver): Coarray indexes are to be ignored
675 during dependency computation. They define no data dependency.
676 * trans-array.c (conv_array_index_offset): The stride can not be set
678 * trans-intrinsic.c (conv_caf_send): Add creation of temporary array
679 for caf_get's result and copying to the array with vectorial
682 2018-04-14 Thomas Koenig <tkoenig@gcc.gnu.org>
685 * frontend-passes.c (traverse_io_block): Check for start, end or
686 stride being defined by an outer implied DO loop.
688 2018-04-12 Thomas Koenig <tkoenig@gcc.gnu.org>
692 * trans-stmt.c (gfc_trans_forall_loop): Use annot_expr_ivdep_kind
693 for annotation and remove dependence on -ftree-parallelize-loops.
695 2018-04-10 Jakub Jelinek <jakub@redhat.com>
698 * openmp.c (resolve_omp_do): Remove bogus if (j < i) break;.
699 (resolve_oacc_nested_loops): Likewise. Formatting fix.
701 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
704 * trans-stmt.c (gfc_trans_forall_loop): Remove annotation for
705 parallell processing of DO CONCURRENT -ftree-parallelize-loops
708 2018-04-09 Thomas Koenig <tkoenig@gcc.gnu.org>
711 * resolve.c (resolve_variable): Simplify cases where access to a
712 parameter array results in a single constant.
714 2018-04-02 Thomas Koenig <tkoenig@gcc.gnu.org>
717 * decl.c (variable_decl): If upper or lower bounds simplify
718 to a constant, use that.
720 2018-03-30 Paul Thomas <pault@gcc.gnu.org>
723 * simplify.c (gfc_convert_constant): Handle case of array
724 constructors within an array that has no iterator and improve
725 the conciseness of this section of code.
727 2017-03-30 Thomas Koenig <tkoenig@gcc.gnu.org>
730 * array.c (gfc_resolve_character_array_constructor): Early
731 exit for zero-size arrays.
732 * simplify.c (simplify_transformation_to_array): Exit early
733 if the result size is zero.
734 (simplify_minmaxloc_to_array): Likewise.
736 2018-03-28 Mikael Morin <mikael@gcc.gnu.org>
739 * symbol.c (gfc_symbol_done_2): Start freeing namespaces
741 (gfc_free_namespace): Restore assert (revert r258839).
743 2018-03-28 Jakub Jelinek <jakub@redhat.com>
745 * gfortran.h (gfc_dt): Rename default_exp field to dec_ext.
746 * ioparm.def (IOPARM_dt_default_exp): Rename to ...
747 (IOPARM_dt_dec_ext): ... this.
748 * trans-io.c (build_dt): Adjust for default_exp renaming to
749 dec_ext and IOPARM_dt_default_exp renaming to IOPARM_dt_dec_ext.
750 * io.c (match_io): Likewise.
752 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
755 * frontend-passes.c (gfc_run_passes): Do not run front-end
756 optimizations if a previous error occurred.
758 2018-03-27 Thomas Koenig <tkoenig@gcc.gnu.org>
759 Harald Anlauf <anlauf@gmx.de>
762 * primary.c (gfc_convert_to_structure_constructor): Check
763 conformance of argument types in structure constructor.
765 2018-03-26 Thomas Koenig <tkoenig@gcc.gnu.org>
768 * io.c: Include constructor.h.
769 (resolve_tag_format): For a constant character array, concatenate
770 into a single character expression.
772 2018-03-25 Seth Johnson <johnsonsr@ornl.gov>
773 Dominique d'Humieres <dominiq@gcc.gnu.org>
776 * check.c (gfc_check_c_f_pointer): Allow scalar noninteroperable
777 scalar derived type with -std=f2003 and -std=f2008.
779 2018-03-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
780 Dominique d'Humieres <dominiq@gcc.gnu.org>
783 * symbol.c (gfc_free_namespace): Delete the assert and only if
784 refs count is equals zero, free the namespace. Otherwise,
785 something is halfway and other errors will resound.
787 2018-03-24 Thomas Koenig <tkoenig@gcc.gnu.org>
790 * expr.c (find_substring_ref): Change types of start, end
791 and length variables to gfc_charlen_t. Set length to zero
794 2018-03-24 Steven G. Kargl <kargl@gcc.gnu.org>
797 * decl.c (check_function_name): Improved error message
798 (gfc_match_volatile, gfc_match_asynchronous) Use check_function_name.
800 2018-03-22 Steven G. Kargl <kargl@gcc.gnu.org>
803 * decl.c (get_proc_name): If the MODULE prefix appears in interface
804 body, then it must appear on the contained subroutine or function.
805 While here, fix nearby mis-indented code.
807 2018-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
808 Harald Anlauf <anlauf@gmx.de>
811 * trans-types.c (gfc_sym_type): Do not dereference NULL pointer.
813 2018-03-21 Janne Blomqvist <jb@gcc.gnu.org>
816 * trans-expr.c (gfc_conv_procedure_call): Convert charlen to
817 gfc_charlen_type_node when calling procedure.
819 2018-03-20 Steven G. Kargl <kargl@gcc.gnu.org>
822 * interface.c (symbol_rank): Remove bogus null pointer check that
823 crept in when translating a ternary operator into an if-else
826 2018-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
829 * simplify.c (gfc_convert_constant): Correctly handle iterators
832 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
835 * decl.c (get_proc_name): Check for a subroutine re-defined in
836 the contain portion of a subroutine. Change language of existing
837 error message to better describe the issue. While here fix whitespace
840 2018-03-18 Steven G. Kargl <kargl@gcc.gnu.org>
843 * decl.c (get_proc_name): Catch clash between a procedure statement
844 and a contained subprogram
846 2018-03-16 Steven G. Kargl <kargl@gcc.gnu.org>
849 * decl.c (merge_array_spec): Correct the error condition.
851 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
854 * decl.c (get_proc_name): Check for clash of entry name with
857 2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
860 * decl.c (merge_array_spec): Limit the merging to maximum allowed
861 dimensions, and issue error message if limit is exceeded.
863 2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
865 * check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
866 * intrinsic.c (add_functions): Remove reference to gfc_resolve_kill.
867 (add_subroutines): Remove reference to gfc_resolve_kill_sub.
868 * intrinsic.texi: Update documentation.
869 * iresolve.c (gfc_resolve_kill, gfc_resolve_kill_sub): Remove.
870 * trans-decl.c (gfc_build_intrinsic_function_decls): Add
871 gfor_fndecl_kill and gfor_fndecl_kill_sub
872 * trans-intrinsic.c (conv_intrinsic_kill, conv_intrinsic_kill_sub): new
874 (gfc_conv_intrinsic_function): Use conv_intrinsic_kill.
875 (gfc_conv_intrinsic_subroutine): Use conv_intrinsic_kill_sub.
876 * trans.h: Declare gfor_fndecl_kill and gfor_fndecl_kill_sub.
878 2018-03-11 Paul Thomas <pault@gcc.gnu.org>
881 * trans-array.c (structure_alloc_comps): Make sure that the
882 vptr is copied and that the unlimited polymorphic _len is used
883 to compute the size to be allocated.
884 * trans-expr.c (gfc_get_class_array_ref): If unlimited, use the
885 unlimited polymorphic _len for the offset to the element.
886 (gfc_copy_class_to_class): Set the new 'unlimited' argument.
887 * trans.h : Add the boolean 'unlimited' to the prototype.
889 2018-03-11 Steven G. Kargl <kargl@gcc.gnu.org>
892 * resolve.c (resolve_fl_procedure): Enforce F2018:C15100.
894 2018-03-11 Steven G. Kargl <kargls@gcc.gnu.org>
896 * check.c (gfc_check_kill): Check pid and sig are scalar.
897 (gfc_check_kill_sub): Restrict kind to 4 and 8.
898 * intrinsic.c (add_function): Sort keyword list. Add pid and sig
899 keywords for KILL. Remove redundant *back="back" in favor of the
900 original *bck="back".
901 (add_subroutines): Sort keyword list. Add pid and sig keywords
903 * intrinsic.texi: Fix documentation to consistently use pid and sig.
904 * iresolve.c (gfc_resolve_kill): Kind can only be 4 or 8. Choose the
906 (gfc_resolve_rename_sub): Add comment.
908 2018-03-11 Thomas Koenig <tkoenig@gcc.gnu.org>
911 * simplify.c (simplify_transformation): Return default result for
912 empty array argument.
913 (gfc_simplify_all): Remove special-case handling for zerosize.
914 (gfc_simplify_any): Likewise.
915 (gfc_simplify_count): Likewise.
916 (gfc_simplify_iall): Likewise.
917 (gfc_simplify_iany): Likewise.
918 (gfc_simplify_iparity): Likewise.
919 (gfc_simplify_minval): Likewise.
920 (gfc_simplify_maxval): Likewise.
921 (gfc_simplify_norm2): Likewise.
922 (gfc_simplify_product): Likewise.
923 (gfc_simplify_sum): Likewise.
925 2018-03-10 Steven G. Kargl <kargl@gcc.gnu.org>
928 * arith.c (check_result, eval_intrinsic): If result overflows, pass
929 the expression up the chain instead of a NULL pointer.
931 2018-03-07 Steven G. Kargl <kargl@gcc.gnu.org>
935 * decl.c (gfc_match_char_spec): Try to reduce a charlen to a constant.
937 2017-03-06 Thomas Koenig <tkoenig@gcc.gnu.org>
941 * expr.c (simplify_parameter_variable): If p is a size zero array
942 and not an ARRAY_EXPR insert an empty array constructor and
944 * gfortran.h: Add prototype for gfc_is_size_zero_array.
945 * simplify.c (is_size_zero_array): Make non-static and rename into
946 (gfc_is_size_zero_array): Check for parameter arrays of zero
947 size by comparing shape and absence of constructor.
948 (gfc_simplify_all): Use gfc_is_size_zero_array instead of
950 (gfc_simplify_count): Likewise.
951 (gfc_simplify_iall): Likewise.
952 (gfc_simplify_iany): Likewise.
953 (gfc_simplify_iparity): Likewise.
954 (gfc_simplify_minval): Likewise.
955 (gfc_simplify_maxval): Likewise.
956 (gfc_simplify_product): Likewise.
957 (gfc_simplify_sum): Likewise.
959 2018-03-06 Steven G. Kargl <kargl@gcc.gnu.org>
962 * primary.c (match_sym_complex_part): Give the matcher for an implied
963 do-loop a chance to run.
965 2018-03-03 Harald Anlauf <anlauf@gmx.de>
968 * trans-expr.c (gfc_apply_interface_mapping_to_expr): Do not
969 dereference NULL pointer.
971 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
974 * simplify.c (is_size_zero_array): New function to check for size
976 (gfc_simplify_all, gfc_simplify_any, gfc_simplify_count,
977 gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
978 gfc_simplify_minval, gfc_simplify_maxval, gfc_simplify_norm2,
979 gfc_simplify_product, gfc_simplify_sum): Use it, and implement
980 requirements from F2018.
982 2018-03-03 Steven G. Kargl <kargl@gcc.gnu.org>
985 * simplify.c (gfc_simplify_transfer): Resolve mold.
987 2018-03-03 Paul Thomas <pault@gcc.gnu.org>
990 * resolve.c (build_loc_call): Change symtree name from 'loc' to
993 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
996 * target-memory.c (gfc_interpret_derived): Assert that BT_VOID
997 components are caf tokens.
998 (gfc_target_interpret_expr): Treat BT_VOID expressions as
1001 2018-03-01 Paul Thomas <pault@gcc.gnu.org>
1004 * class.c (class_array_ref_detected): Remove the condition that
1005 there be no reference after the array reference.
1006 (find_intrinsic_vtab): Remove excess whitespace.
1007 * trans-array.c (gfc_conv_scalarized_array_ref): Rename 'tmp'
1008 as 'base and call build_class_array_ref earlier.
1010 2018-02-28 Paul Thomas <pault@gcc.gnu.org>
1013 * trans-stmt.c (trans_associate_var): Make sure that the se
1014 expression is a pointer type before converting it to the symbol
1017 2018-02-25 Steven G. Kargl <kargl@gcc.gnu.org>
1020 * decl.c (variable_decl): Check that an explicit-shape-array with
1021 nonconstant bounds is allowed.
1023 2018-02-25 Paul Thomas <pault@gcc.gnu.org>
1026 * trans-intrinsic.c (gfc_conv_allocated): If the argument se
1027 has a pre block, add it to the expression pre block.
1029 2018-02-25 Thomas Koenig <tkoenig@gcc.gnu.org>
1032 * gfortran.h (gfc_integer_4_kind): Define.
1033 * resolve.c (resolve_select_type): Make sure that the
1034 kind of c->high is gfc_integer_4_kind.
1036 2018-02-24 Steven G. Kargl <kargl@gcc.gnu.org>
1039 * decl.c (gfc_match_data): Check for invalid substring in
1042 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1044 * intrinsic.texi: Arguments to MATMUL cannot both be rank one.
1046 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1049 * trans-io.c (transfer_expr): Deal with C_LOC in transfer statement.
1051 2018-02-23 Steven G. Kargl <kargl@gcc.gnu.org>
1054 * interface.c (compare_actual_formal): Issue error if keyword is
1055 used in a statement function.
1057 2018-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1060 * trans-io.c (set_parameter_value_inquire): Adjust range check of
1061 negative unit values for kind=8 units to the kind=4 negative limit.
1063 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1066 * trans-types.c (gfc_sym_type): Test sym->ns->proc_name before
1067 accessing its components.
1069 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1072 * trans-decl.c (gfc_finish_var_decl): Test sym->ns->proc_name
1073 before accessing its components.
1075 2018-02-23 Paul Thomas <pault@gcc.gnu.org>
1078 * trans-const.c : Clean up some whitespace issues.
1079 * trans-expr.c (gfc_conv_initializer): If an iso_c_binding
1080 derived type has a kind value of zero, set it to the default
1083 2018-02-23 Janne Blomqvist <jb@gcc.gnu.org>
1086 * trans-decl.c (gfc_build_builtin_function_decls): Add bool
1087 argument to stop and error stop decls.
1088 * trans-stmt.c (gfc_trans_stop): Add false value to argument
1091 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1095 * trans-decl.c (gfc_build_builtin_function_decls): Pass
1096 gfc_int8_type node to pause_numeric, size_type_node to
1098 * trans-stmt.c (gfc_trans_pause): Likewise.
1100 2018-02-22 Janne Blomqvist <jb@gcc.gnu.org>
1102 * gfortran.texi: Update Coarray API description.
1103 * trans-decl.c (gfc_build_builtin_function_decls): Use size_t for
1104 character lengths, int for exit codes.
1105 (generate_coarray_sym_init): Use size_t for character length.
1106 * trans-intrinsic.c (conv_co_collective): Likewise.
1107 * trans-stmt.c (gfc_trans_lock_unlock): Likewise.
1108 (gfc_trans_event_post_wait): Likewise.
1109 (gfc_trans_sync): Likewise.
1110 (gfc_trans_stop): Use size_t for character lengths, int for exit
1113 2018-02-20 Thomas Koenig <tkoenig@gcc.gnu.org>
1117 * primary.c (gfc_convert_to_structure_constructor):
1118 For a constant string constructor, make sure the length
1121 2018-02-19 Paul Thomas <pault@gcc.gnu.org>
1125 * resolve.c (resolve_assoc_var): Rearrange the logic for the
1126 determination of the character length of associate names. If
1127 the associate name is missing a length expression or the length
1128 expression is not a constant and the target is not a variable,
1129 make the associate name allocatable and deferred length.
1130 * trans-decl.c (gfc_get_symbol_decl): Null the character length
1131 backend_decl for deferred length associate names that are not
1132 variables. Set 'length' to gfc_index_zero_node for character
1133 associate names, whose character length is a PARM_DECL.
1135 2018-02-19 Thomas Koenig <tkoenig@gcc.gnu.org>
1138 * frontend-passes.c (traverse_io_block): Remove workaround for
1141 2018-02-19 Andre Vehreschild <vehre@gcc.gnu.org>
1143 * gfortran.texi: Document additional src/dst_type. Fix some typos.
1144 * trans-decl.c (gfc_build_builtin_function_decls): Declare the new
1145 argument of _caf_*_by_ref () with * e { get, send, sendget }.
1146 * trans-intrinsic.c (gfc_conv_intrinsic_caf_get): Add the type of the
1147 data referenced when generating a call to caf_get_by_ref ().
1148 (conv_caf_send): Same but for caf_send_by_ref () and
1149 caf_sendget_by_ref ().
1151 2018-02-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1154 * io.c (check_format): Allow FMT_COLON.
1156 2018-02-18 Paul Thomas <pault@gcc.gnu.org>
1159 * trans-array.c (gfc_conv_expr_descriptor): Set parmtype from
1160 the typenode in the case of deferred length characters.
1162 2018-02-17 Thomas Koenig <tkoenig@gcc.gnu.org>
1165 * frontend-passes (scalarized_expr): If the expression
1166 is an assumed size array, leave in the last reference
1167 and pass AR_SECTION instead of AR_FULL to gfc_resolve
1168 in order to avoid an error.
1170 2018-02-17 Paul Thomas <pault@gcc.gnu.org>
1173 * resolve.c (resolve_assoc_var): If a non-constant target expr.
1174 has no string length expression, make the associate variable
1175 into a deferred length, allocatable symbol.
1176 * trans-decl.c (gfc_is_reallocatable_lhs): Add and use a ptr to
1178 * trans-stmt.c (trans_associate_var): Null and free scalar
1179 associate names that are allocatable. After assignment, remove
1180 the allocatable attribute to prevent reallocation.
1182 2018-02-16 Jakub Jelinek <jakub@redhat.com>
1185 * trans-openmp.c (gfc_trans_omp_clauses): For OMP_CLAUSE_LINEAR_REF
1186 kind set OMP_CLAUSE_LINEAR_STEP to TYPE_SIZE_UNIT times last_step.
1188 2018-02-16 Dominique d'Humieres <dominiq@gcc.gnu.org>
1191 * decl.c (gfc_get_pdt_instance): Replace '%qs' with %qs.
1193 2018-02-15 Janus Weil <janus@gcc.gnu.org>
1196 * interface.c (check_dtio_arg_TKR_intent): Add a check for character
1199 2018-02-14 Janus Weil <janus@gcc.gnu.org>
1202 * match.c (gfc_match_select_type): Fix check for selector in
1203 SELECT TYPE statement.
1205 2018-02-13 Janus Weil <janus@gcc.gnu.org>
1208 * symbol.c (check_conflict): Reject procedure pointers in common blocks.
1210 2018-02-13 Alastair McKinstry <alastair.mckinstry@sceal.ie>
1211 Janne Blomqvist <jb@gcc.gnu.org>
1213 * module.c (dump_module): Use lbasename to ensure that module
1214 files are reproducible.
1216 2018-02-12 Janus Weil <janus@gcc.gnu.org>
1219 * resolve.c (resolve_component): Fix checks of passed argument in
1220 procedure-pointer components.
1222 2018-02-11 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
1225 * resolve.c (resolve_formal_arglist): Update error message.
1227 2018-02-11 Andre Vehreschild <vehre@gcc.gnu.org>
1229 * gfortran.texi: Fix typos in documentation of caf_register ().
1230 * trans-array.c (structure_alloc_comps): Only register a component of
1231 a derived typed corray, not of an ultimate component coarray.
1233 2018-02-11 Steven G. Kargl <kargl@gcc.gnu.org>
1237 * interface.c (compare_actual_formal): Add in_statement_function
1238 bool parameter. Skip check of INTENT attribute for statement
1239 functions. Arguments to a statement function cannot be optional,
1240 issue error for missing argument.
1241 (gfc_procedure_use, gfc_ppc_use, gfc_arglist_matches_symbol): Use
1242 in_statement_function.
1244 2018-02-11 Paul Thomas <pault@gcc.gnu.org>
1247 * trans-expr.c (gfc_conv_derived_to_class): Set the use_offset
1248 flag. If the is a vector subscript or the expression is not a
1249 variable, make the descriptor one-based.
1251 2018-02-10 Paul Thomas <pault@gcc.gnu.org>
1255 * trans-array.c (gfc_array_init_size): Revert the change made
1256 in revision 257356 setting the dtype.
1257 * trans-types.c (gfc_get_dtype): Do not use the cached dtype.
1258 Call gfc_get_dtype_rank_type every time.
1261 * trans-array.c (gfc_conv_expr_descriptor): If the source array
1262 is a descriptor type, use its offset, removing the condition
1263 that is be a class expression.
1265 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1268 * match.c (gfc_match_deallocate): Check for NULL pointer.
1270 2018-02-07 Thomas Koenig <tkoenig@gcc.gnu.org>
1273 * trans-intrinsic.c (gfc_conv_intrinsic_shape): New function.
1274 (gfc_conv_intrinsic_function): Call it.
1276 2018-02-07 Steven G. Kargl <kargl@gcc.gnu.org>
1279 * match.c (gfc_match_type_spec): If the charlen is non-NULL, then
1280 try to resolve it. While here return early if possible.
1282 2018-02-04 Paul Thomas <pault@gcc.gnu.org>
1285 * trans-decl.c (gfc_get_symbol_decl): Do not finish the decl of
1286 'length' if the symbol charlen backend_decl is an indirect ref.
1288 2018-02-03 Paul Thomas <pault@gcc.gnu.org>
1292 * trans-array.c (gfc_array_init_size): Instead of gfc_get_dtype
1293 use gfc_get_dtype_rank_type.
1295 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1299 * resolve.c (resolve_assoc_var): Generate an error if
1300 target length unknown.
1302 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
1305 * simplify.c (gfc_simplify_repeat): Increase limit for deferring
1306 to runtime, print a warning message.
1308 2018-01-31 Jakub Jelinek <jakub@redhat.com>
1311 * openmp.c (gfc_match_omp_clauses): If all the linear
1312 gfc_match_omp_variable_list calls failed, don't gfc_free_omp_namelist
1313 nor set *head = NULL. Formatting fixes.
1315 2018-01-31 Paul Thomas <pault@gcc.gnu.org>
1318 * trans-expr.c (gfc_conv_procedure_call): If the parm expr is
1319 an address expression passed to an assumed rank dummy, convert
1320 to an indirect reference.
1322 2018-01-31 Thomas Koenig <tkoenig@gcc.gnu.org>
1324 * dump-parse-tree.c (write_proc): Use sym_name (which may
1325 be sym->binding_label) instead of sym->name.
1327 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1329 * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
1332 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
1335 * trans-expr.c (fill_with_spaces): Use memset instead of
1337 (gfc_trans_string_copy): Improve opportunity to use builtins with
1340 2018-01-30 Jakub Jelinek <jakub@redhat.com>
1343 * trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
1344 to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
1346 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1349 * array.c (gfc_ref_dimen_size): Whitespace fixes. If stride is
1352 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
1355 * frontend-passes (matmul_to_var_expr): Return early if
1356 in association list.
1357 (inline_matmul_assign): Likewise.
1359 2017-01-29 Thomas Koenig <tkoenig@gcc.gnu.org>
1362 * resolve.c (resolve_component): Ensure BIND(C) character
1363 components have length one.
1364 (resolve_symbol): Likewise for variables.
1366 2018-01-27 Jakub Jelinek <jakub@redhat.com>
1369 * decl.c (add_init_expr_to_sym): Ignore initializers for too large
1372 2018-01-26 Damian Rouson <damian@sourceryinstitute.org>
1373 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
1374 Soren Rasmussen <s.c.rasmussen@gmail.com>
1376 Partial support for Fortran 2018 teams features.
1378 * array.c (gfc_match_array_ref): add team attribute in coarray
1380 * check.c (gfc_check_get_team, gfc_check_team_number): add new
1381 functions for get_team and team_number.
1382 * dump-parse-tree.c (show_code_node): add new statements: form team,
1383 change team, end team, and sync team.
1384 * expr.c (gfc_find_team_co): add new function.
1385 * gfortran.h: add new statements.
1386 * intrinsic.c (add_functions): add get_team and team_number functions.
1387 * intrinsic.h: add get_team and team_number prototypes for check,
1388 simplify, and resolve.
1389 * iresolve.c (gfc_resolve_get_team, gfc_resolve_team_number): add new
1391 * iso-fortran-env.def: add the team_type derived type.
1392 * match.c (gfc_match_if, gfc_match_form_team, gfc_match_team_number)
1393 (gfc_match_end_team, gfc_match_sync_team, gfc_match_change_team):
1394 add change team, end team, form team, sync team match and functions.
1395 * match.h: add new prototypes for change team, end team, form team,
1397 * parse.c (decode_statement): add cases for change team, end team,
1398 form team, and sync team.
1399 * resolve.c: add cases for exec form team, change team, end team, and
1401 * simplify.c (gfc_simplify_get_team): add new function for get team.
1402 * st.c (gfc_free_statement): add cases exec for change team, end team,
1403 form team, sync team.
1404 * trans-decl.c (gfor_fndecl_caf_form_team)
1405 (gfor_fndecl_caf_change_team, gfor_fndecl_caf_end_team)
1406 (gfor_fndecl_caf_sync_team, gfor_fndecl_caf_get_team)
1407 (gfor_fndecl_caf_team_number): add functions and definitions.
1408 * trans-intrinsic.c (conv_caf_send, conv_intrinsic_team_number): add
1409 new function and team_type argument support.
1410 * trans-stmt.c (gfc_trans_form_team, gfc_trans_change_team)
1411 (gfc_trans_end_team, gfc_trans_sync_team): add new functions.
1412 * trans-stmt.h: add new prototypes.
1413 * trans-types.c (gfc_get_derived_type): check condition for team_type.
1414 * trans.c (trans_code): new exec cases for form team, change team, end
1415 team, and sync team.
1416 * trans.h: add new prototypes.
1418 2018-01-26 Steven G. Kargl <kargl@gcc.gnu.org>
1421 * simplify.c (compute_dot_product): Initialize result to INTEGER(1) 0
1422 or .false. The summation does the correct type conversion.
1423 (gfc_simplify_dot_product): Special case zero-sized arrays.
1425 2018-25-01 Paul Thomas <pault@gcc.gnu.org>
1428 * array.c (gfc_match_array_ref): If standard earlier than F2008
1429 it is an error if the reference dimension is greater than 7.
1430 libgfortran.h : Increase GFC_MAX_DIMENSIONS to 15. Change the
1431 dtype masks and shifts accordingly.
1432 * trans-array.c (gfc_conv_descriptor_dtype): Use the dtype
1433 type node to check the field.
1434 (gfc_conv_descriptor_dtype): Access the rank field of dtype.
1435 (duplicate_allocatable_coarray): Access the rank field of the
1436 dtype descriptor rather than the dtype itself.
1437 * trans-expr.c (get_scalar_to_descriptor_type): Store the type
1438 of 'scalar' on entry and use its TREE_TYPE if it is ARRAY_TYPE
1440 (gfc_conv_procedure_call): Pass TREE_OPERAND (tmp,0) to
1441 get_scalar_to_descriptor_type if the actual expression is a
1443 (gfc_trans_structure_assign): Assign the rank directly to the
1445 * trans-intrinsic.c (gfc_conv_intrinsic_rank): Cast the result
1446 to default integer kind.
1447 (gfc_conv_intrinsic_sizeof): Obtain the element size from the
1448 'elem_len' field of the dtype.
1449 * trans-io.c (gfc_build_io_library_fndecls): Replace
1450 gfc_int4_type_node with dtype_type_node where necessary.
1451 (transfer_namelist_element): Use gfc_get_dtype_rank_type for
1453 * trans-types.c : Provide 'get_dtype_type_node' to acces the
1454 dtype_type_node and, if necessary, build it.
1455 The maximum size of an array element is now determined by the
1456 maximum value of size_t.
1457 Update the description of the array descriptor, including the
1458 type def for the dtype_type.
1459 (gfc_get_dtype_rank_type): Build a constructor for the dtype.
1460 Distinguish RECORD_TYPEs that are BT_DERIVED or BT_CLASS.
1461 (gfc_get_array_descriptor_base): Change the type of the dtype
1462 field to dtype_type_node.
1463 (gfc_get_array_descr_info): Get the offset to the rank field of
1465 * trans-types.h : Add a prototype for 'get_dtype_type_node ()'.
1466 * trans.h : Define the indices of the dtype fields.
1468 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
1471 * decl.c (gfc_match_derived_decl): If eos not matched, recover
1472 and emit error about garbage after declaration.
1474 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
1477 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor
1480 2018-01-22 Janne Blomqvist <jb@gcc.gnu.org>
1484 * arith.c (gfc_arith_concat): Use size_t for string length.
1485 (gfc_compare_string): Likewise.
1486 (gfc_compare_with_Cstring): Likewise.
1487 * array.c (gfc_resolve_character_array_constructor): Use
1488 HOST_WIDE_INT, gfc_mpz_get_hwi.
1489 * check.c (gfc_check_fe_runtime_error): Use size_t.
1490 * data.c (create_character_initializer): Use HOST_WIDE_INT,
1492 * decl.c (gfc_set_constant_character_len): Use gfc_charlen_t.
1493 (add_init_expr_to_sym): Use HOST_WIDE_INT.
1494 * expr.c (gfc_build_init_expr): Use HOST_WIDE_INT,
1496 (gfc_apply_init): Likewise.
1497 * match.h (gfc_set_constant_character_len): Update prototype.
1498 * primary.c (match_string_constant): Use size_t.
1499 * resolve.c (resolve_ordinary_assign): Use HOST_WIDE_INT,
1501 * simplify.c (init_result_expr): Likewise.
1502 (gfc_simplify_len_trim): Use size_t.
1503 * target-memory.c (gfc_encode_character): Use size_t.
1504 (gfc_target_encode_expr): Use HOST_WIDE_INT, gfc_mpz_get_hwi.
1505 (interpret_array): Use size_t.
1506 (gfc_interpret_character): Likewise.
1507 * target-memory.h (gfc_encode_character): Update prototype.
1508 (gfc_interpret_character): Likewise.
1509 (gfc_target_interpret_expr): Likewise.
1510 * trans-const.c (gfc_build_string_const): Use size_t for length
1512 (gfc_build_wide_string_const): Likewise.
1513 * trans-const.h (gfc_build_string_const): Likewise.
1514 (gfc_build_wide_string_const): Likewise.
1516 2018-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
1519 * simplify.c (gfc_simplify_matmul): Set return type correctly.
1521 2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
1524 * simplify.c (gfc_simplify_matmul): Delete bogus assertion.
1526 2018-01-17 Harald Anlauf <anlauf@gmx.de>
1529 * expr.c (add_init_expr_to_sym): Do not dereference NULL pointer.
1531 2018-01-17 Harald Anlauf <anlauf@gmx.de>
1534 * decl.c (add_init_expr_to_sym): Do not dereference NULL pointer.
1536 2018-01-15 Louis Krupp <louis.krupp@zoho.com>
1539 * interface.c (compare_rank): Don't try to retrieve CLASS_DATA
1540 from symbol marked unlimited polymorphic.
1541 * resolve.c (resolve_structure_cons): Likewise.
1542 * misc.c (gfc_typename): Don't dereference derived->components
1545 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
1548 * gfortran.h (gfc_check_f): Rename f4ml to f5ml.
1549 (gfc_logical_4_kind): New macro
1550 * intrinsic.h (gfc_simplify_minloc): Add a gfc_expr *argument.
1551 (gfc_simplify_maxloc): Likewise.
1552 (gfc_resolve_maxloc): Likewise.
1553 (gfc_resolve_minloc): Likewise.
1554 * check.c (gfc_check_minloc_maxloc): Add checking for "back"
1555 argument; also raise error if it is used (for now). Add it
1556 if it isn't present.
1557 * intrinsic.c (add_sym_4ml): Rename to
1558 (add_sym_5ml), adjust for extra argument.
1559 (add_functions): Add "back" constant. Adjust maxloc and minloc
1561 * iresolve.c (gfc_resolve_maxloc): Add back argument. If back is
1562 not of gfc_logical_4_kind, convert.
1563 (gfc_resolve_minloc): Likewise.
1564 * simplify.c (gfc_simplify_minloc): Add back argument.
1565 (gfc_simplify_maxloc): Likewise.
1566 * trans-intinsic.c (gfc_conv_intrinsic_minmaxloc): Rename last
1567 argument to %VAL to ensure passing by value.
1568 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_minmaxloc
1569 also for library calls.
1571 2018-01-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
1574 * resolve.c (resolve_transfer): Delete code looking for 'DT'
1575 format specifiers in format strings. Set formatted to true if a
1576 format string or format label is present.
1577 * trans-io.c (get_dtio_proc): Likewise. (transfer_expr): Fix
1580 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1583 * dump-parse-tree.c (get_c_type_name): Remove extra line.
1584 Change for loop to use declaration in for loop. Handle BT_LOGICAL
1586 (write_decl): Add where argument. Fix indentation. Replace
1587 assert with error message. Add typename to warning
1589 (write_type): Adjust locus to call of write_decl.
1590 (write_variable): Likewise.
1591 (write_proc): Likewise. Replace assert with error message.
1593 2018-01-13 Paul Thomas <pault@gcc.gnu.org>
1596 * trans-expr.c (gfc_trans_scalar_assign): Flag is_alloc_lhs if
1597 the rhs expression is neither an elemental nor a conversion
1601 * trans-array.c (is_pointer_array): Remove unconditional return
1602 of false for -fopenmp.
1604 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
1608 * dump-parse-tree.c (write_proc): Always emit closing parenthesis
1611 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1614 * resolve.c (resolve_allocate_expr): Check for NULL pointer.
1616 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
1619 * resolve.c (resolve_charlen): Check the type of cl->length
1622 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1625 * trans-array.c (gfc_trans_array_ctor_element): Fix formatting.
1627 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
1630 * trans-array.c (gfc_trans_array_ctor_element): Convert RHS to the
1631 LHS type when assigning.
1633 2018-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
1636 * expr.c (gfc_is_simply_contiguous): Check for NULL pointer.
1638 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1640 * match.c (gfc_match_allocate): Check for NULL pointer.
1642 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
1644 * expr.c (gfc_check_pointer_assign): Fix typo in comment.
1646 2018-01-08 Paul Thomas <pault@gcc.gnu.org>
1649 * decl.c (gfc_get_pdt_instance): If parameterized arrays have
1650 an initializer, convert the kind parameters and add to the
1651 component if the instance.
1652 * trans-array.c (structure_alloc_comps): Add 'is_pdt_type' and
1653 use it with case COPY_ALLOC_COMP. Call 'duplicate_allocatable'
1654 for parameterized arrays. Clean up typos in comments. Convert
1655 parameterized array initializers and copy into the array.
1656 * trans-expr.c (gfc_trans_scalar_assign): Do a deep copy for
1657 parameterized types.
1658 *trans-stmt.c (trans_associate_var): Deallocate associate vars
1659 as necessary, when they are PDT function results for example.
1662 * trans-array.c (structure_alloc_comps): Only compare len parms
1663 when they are declared explicitly.
1665 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
1668 * trans-expr.c (gfc_trans_pointer_assignment): fold_convert rhs to
1671 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
1675 * array.c (got_charlen): Use gfc_charlen_int_kind.
1676 * class.c (gfc_find_derived_vtab): Use gfc_size_kind instead of
1678 (find_intrinsic_vtab): Likewise.
1679 * decl.c (match_char_length): Use gfc_charlen_int_kind.
1680 (add_init_expr_to_sym): Use gfc_charlen_t and gfc_charlen_int_kind.
1681 (gfc_match_implicit): Use gfc_charlen_int_kind.
1682 * dump-parse-tree.c (show_char_const): Use gfc_charlen_t and size_t.
1683 (show_expr): Use HOST_WIDE_INT_PRINT_DEC.
1684 * expr.c (gfc_get_character_expr): Length parameter of type
1686 (gfc_get_int_expr): Value argument of type HOST_WIDE_INT.
1687 (gfc_extract_hwi): New function.
1688 (simplify_const_ref): Make string_len of type gfc_charlen_t.
1689 (gfc_simplify_expr): Use HOST_WIDE_INT for substring refs.
1690 * frontend-passes.c (optimize_trim): Use gfc_charlen_int_kind.
1691 * gfortran.h (gfc_mpz_get_hwi): New prototype.
1692 (gfc_mpz_set_hwi): Likewise.
1693 (gfc_charlen_t): New typedef.
1694 (gfc_expr): Use gfc_charlen_t for character lengths.
1695 (gfc_size_kind): New extern variable.
1696 (gfc_extract_hwi): New prototype.
1697 (gfc_get_character_expr): Use gfc_charlen_t for character length.
1698 (gfc_get_int_expr): Use HOST_WIDE_INT type for value argument.
1699 * gfortran.texi: Update description of hidden string length argument.
1700 * iresolve.c (check_charlen_present): Use gfc_charlen_int_kind.
1701 (gfc_resolve_char_achar): Likewise.
1702 (gfc_resolve_repeat): Pass string length directly without
1703 temporary, use gfc_charlen_int_kind.
1704 (gfc_resolve_transfer): Use gfc_charlen_int_kind.
1705 * match.c (select_intrinsic_set_tmp): Use HOST_WIDE_INT for charlen.
1706 * misc.c (gfc_mpz_get_hwi): New function.
1707 (gfc_mpz_set_hwi): New function.
1708 * module.c (atom_int): Change type from int to HOST_WIDE_INT.
1709 (parse_integer): Don't complain about large integers.
1710 (write_atom): Use HOST_WIDE_INT for integers.
1711 (mio_integer): Handle integer type mismatch.
1712 (mio_hwi): New function.
1713 (mio_intrinsic_op): Use HOST_WIDE_INT.
1714 (mio_array_ref): Likewise.
1715 (mio_expr): Likewise.
1716 * primary.c (match_substring): Use gfc_charlen_int_kind.
1717 * resolve.c (resolve_substring_charlen): Use gfc_charlen_int_kind.
1718 (resolve_character_operator): Likewise.
1719 (resolve_assoc_var): Likewise.
1720 (resolve_select_type): Use HOST_WIDE_INT for charlen, use snprintf.
1721 (resolve_charlen): Use mpz_sgn to determine sign.
1722 * simplify.c (gfc_simplify_repeat): Use HOST_WIDE_INT/gfc_charlen_t
1724 * symbol.c (generate_isocbinding_symbol): Use gfc_charlen_int_kind.
1725 * target-memory.c (size_character): Length argument of type
1727 (gfc_encode_character): Likewise.
1728 (gfc_interpret_character): Use gfc_charlen_t.
1729 * target-memory.h (gfc_encode_character): Modify prototype.
1730 * trans-array.c (gfc_trans_array_ctor_element): Use existing type.
1731 (get_array_ctor_var_strlen): Use gfc_conv_mpz_to_tree_type.
1732 (trans_array_constructor): Use existing type.
1733 (get_array_charlen): Likewise.
1734 * trans-const.c (gfc_conv_mpz_to_tree_type): New function.
1735 * trans-const.h (gfc_conv_mpz_to_tree_type): New prototype.
1736 * trans-decl.c (gfc_trans_deferred_vars): Use existing type.
1737 (add_argument_checking): Likewise.
1738 * trans-expr.c (gfc_class_len_or_zero_get): Build const of type
1739 gfc_charlen_type_node.
1740 (gfc_conv_intrinsic_to_class): Use gfc_charlen_int_kind instead of
1741 4, fold_convert to correct type.
1742 (gfc_conv_class_to_class): Build const of type size_type_node for
1744 (gfc_copy_class_to_class): Likewise.
1745 (gfc_conv_string_length): Use same type in expression.
1746 (gfc_conv_substring): Likewise, use HOST_WIDE_INT for charlen.
1747 (gfc_conv_string_tmp): Make sure len is of the right type.
1748 (gfc_conv_concat_op): Use same type in expression.
1749 (gfc_conv_procedure_call): Likewise.
1750 (fill_with_spaces): Comment out memset() block due to spurious
1751 -Wstringop-overflow warnings.
1752 (gfc_trans_string_copy): Use gfc_charlen_type_node.
1753 (alloc_scalar_allocatable_for_subcomponent_assignment):
1754 fold_convert to right type.
1755 (gfc_trans_subcomponent_assign): Likewise.
1756 (trans_class_vptr_len_assignment): Build const of correct type.
1757 (gfc_trans_pointer_assignment): Likewise.
1758 (alloc_scalar_allocatable_for_assignment): fold_convert to right
1760 (trans_class_assignment): Build const of correct type.
1761 * trans-intrinsic.c (gfc_conv_associated): Likewise.
1762 (gfc_conv_intrinsic_repeat): Do calculation in sizetype.
1763 * trans-io.c (gfc_build_io_library_fndecls): Use
1764 gfc_charlen_type_node for character lengths.
1765 (set_string): Convert to right type in assignment.
1766 * trans-stmt.c (gfc_trans_label_assign): Build const of
1767 gfc_charlen_type_node.
1768 (trans_associate_var): Likewise.
1769 (gfc_trans_character_select): Likewise.
1770 (gfc_trans_allocate): Likewise, don't typecast strlen result.
1771 (gfc_trans_deallocate): Don't typecast strlen result.
1772 * trans-types.c (gfc_size_kind): New variable.
1773 (gfc_init_types): Determine gfc_charlen_int_kind and gfc_size_kind
1774 from size_type_node.
1775 * trans-types.h: Fix comment.
1777 2018-01-04 Thomas Koenig <tkoenig@gcc.gnu.org>
1781 * check.c (gfc_check_eoshift): Check for string length and
1782 for conformance of boundary.
1783 * intrinsic.c (add_functions): Add gfc_simplify_eoshift.
1784 * intrinsic.h: Add prototype for gfc_simplify_eoshift.
1785 * simplify.c (gfc_simplify_eoshift): New function.
1787 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
1788 Alan Hayward <alan.hayward@arm.com>
1789 David Sherwood <david.sherwood@arm.com>
1791 * trans-types.c (gfc_type_for_mode): Handle MODE_VECTOR_BOOL.
1793 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
1794 Alan Hayward <alan.hayward@arm.com>
1795 David Sherwood <david.sherwood@arm.com>
1797 * trans-types.c (gfc_type_for_mode): Check valid_vector_subparts_p.
1799 2018-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
1802 * check.c (gfc_check_eoshift): Error for missing boundary if array
1803 is not one of the standard types.
1805 2018-01-03 Jakub Jelinek <jakub@redhat.com>
1807 Update copyright years.
1809 * gfortranspec.c (lang_specific_driver): Update copyright notice
1811 * gfc-internals.texi: Bump @copying's copyright year.
1812 * gfortran.texi: Ditto.
1813 * intrinsic.texi: Ditto.
1814 * invoke.texi: Ditto.
1816 2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1819 * intrinsic.c (add_function): Add gfc_simplify_maxloc and
1820 gfc_simplify_minloc to maxloc and minloc, respectively.
1821 * intrinsic.h: Add prototypes for gfc_simplify_minloc
1822 and gfc_simplify_maxloc.
1823 * simplify.c (min_max_chose): Adjust prototype. Modify function
1824 to have a return value which indicates if the extremum was found.
1825 (is_constant_array_expr): Fix typo in comment.
1826 (simplify_minmaxloc_to_scalar): New function.
1827 (simplify_minmaxloc_nodim): New function.
1828 (new_array): New function.
1829 (simplify_minmaxloc_to_array): New function.
1830 (gfc_simplify_minmaxloc): New function.
1831 (simplify_minloc): New function.
1832 (simplify_maxloc): New function.
1834 2018-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
1838 * simplify.c (gfc_simplify_cshift): Re-implement to allow full
1841 2018-01-01 Paul Thomas <pault@gcc.gnu.org>
1844 * resolve.c (resolve_fl_derived0): Add caf_token fields for
1845 allocatable and pointer scalars, when -fcoarray selected.
1846 * trans-types.c (gfc_copy_dt_decls_ifequal): Copy the token
1847 field as well as the backend_decl.
1848 (gfc_get_derived_type): Flag GFC_FCOARRAY_LIB for module
1849 derived types that are not vtypes. Components with caf_token
1850 attribute are pvoid types. For a component requiring it, find
1851 the caf_token field and have the component token field point to
1855 *trans-types.c (gfc_get_array_descriptor_base): Add the token
1856 field to the descriptor even when codimen not set.
1858 Copyright (C) 2018 Free Software Foundation, Inc.
1860 Copying and distribution of this file, with or without modification,
1861 are permitted in any medium without royalty provided the copyright
1862 notice and this notice are preserved.