1 2018-02-04 Paul Thomas <pault@gcc.gnu.org>
4 * trans-decl.c (gfc_get_symbol_decl): Do not finish the decl of
5 'length' if the symbol charlen backend_decl is an indirect ref.
7 2018-02-03 Paul Thomas <pault@gcc.gnu.org>
11 * trans-array.c (gfc_array_init_size): Instead of gfc_get_dtype
12 use gfc_get_dtype_rank_type.
14 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
18 * resolve.c (resolve_assoc_var): Generate an error if
19 target length unknown.
21 2018-02-01 Janne Blomqvist <jb@gcc.gnu.org>
24 * simplify.c (gfc_simplify_repeat): Increase limit for deferring
25 to runtime, print a warning message.
27 2018-01-31 Jakub Jelinek <jakub@redhat.com>
30 * openmp.c (gfc_match_omp_clauses): If all the linear
31 gfc_match_omp_variable_list calls failed, don't gfc_free_omp_namelist
32 nor set *head = NULL. Formatting fixes.
34 2018-01-31 Paul Thomas <pault@gcc.gnu.org>
37 * trans-expr.c (gfc_conv_procedure_call): If the parm expr is
38 an address expression passed to an assumed rank dummy, convert
39 to an indirect reference.
41 2018-01-31 Thomas Koenig <tkoenig@gcc.gnu.org>
43 * dump-parse-tree.c (write_proc): Use sym_name (which may
44 be sym->binding_label) instead of sym->name.
46 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
48 * trans-const.c (gfc_conv_string_init): Use gfc_charlen_t instead
51 2018-01-31 Janne Blomqvist <jb@gcc.gnu.org>
54 * trans-expr.c (fill_with_spaces): Use memset instead of
56 (gfc_trans_string_copy): Improve opportunity to use builtins with
59 2018-01-30 Jakub Jelinek <jakub@redhat.com>
62 * trans-array.c (gfc_get_descriptor_offsets_for_info): Set *data_off
63 to DATA_FIELD's offset rather than OFFSET_FIELD's offset.
65 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
68 * array.c (gfc_ref_dimen_size): Whitespace fixes. If stride is
71 2018-01-30 Thomas Koenig <tkoenig@gcc.gnu.org>
74 * frontend-passes (matmul_to_var_expr): Return early if
76 (inline_matmul_assign): Likewise.
78 2017-01-29 Thomas Koenig <tkoenig@gcc.gnu.org>
81 * resolve.c (resolve_component): Ensure BIND(C) character
82 components have length one.
83 (resolve_symbol): Likewise for variables.
85 2018-01-27 Jakub Jelinek <jakub@redhat.com>
88 * decl.c (add_init_expr_to_sym): Ignore initializers for too large
91 2018-01-26 Damian Rouson <damian@sourceryinstitute.org>
92 Alessandro Fanfarillo <fanfarillo.gcc@gmail.com>
93 Soren Rasmussen <s.c.rasmussen@gmail.com>
95 Partial support for Fortran 2018 teams features.
97 * array.c (gfc_match_array_ref): add team attribute in coarray
99 * check.c (gfc_check_get_team, gfc_check_team_number): add new
100 functions for get_team and team_number.
101 * dump-parse-tree.c (show_code_node): add new statements: form team,
102 change team, end team, and sync team.
103 * expr.c (gfc_find_team_co): add new function.
104 * gfortran.h: add new statements.
105 * intrinsic.c (add_functions): add get_team and team_number functions.
106 * intrinsic.h: add get_team and team_number prototypes for check,
107 simplify, and resolve.
108 * iresolve.c (gfc_resolve_get_team, gfc_resolve_team_number): add new
110 * iso-fortran-env.def: add the team_type derived type.
111 * match.c (gfc_match_if, gfc_match_form_team, gfc_match_team_number)
112 (gfc_match_end_team, gfc_match_sync_team, gfc_match_change_team):
113 add change team, end team, form team, sync team match and functions.
114 * match.h: add new prototypes for change team, end team, form team,
116 * parse.c (decode_statement): add cases for change team, end team,
117 form team, and sync team.
118 * resolve.c: add cases for exec form team, change team, end team, and
120 * simplify.c (gfc_simplify_get_team): add new function for get team.
121 * st.c (gfc_free_statement): add cases exec for change team, end team,
122 form team, sync team.
123 * trans-decl.c (gfor_fndecl_caf_form_team)
124 (gfor_fndecl_caf_change_team, gfor_fndecl_caf_end_team)
125 (gfor_fndecl_caf_sync_team, gfor_fndecl_caf_get_team)
126 (gfor_fndecl_caf_team_number): add functions and definitions.
127 * trans-intrinsic.c (conv_caf_send, conv_intrinsic_team_number): add
128 new function and team_type argument support.
129 * trans-stmt.c (gfc_trans_form_team, gfc_trans_change_team)
130 (gfc_trans_end_team, gfc_trans_sync_team): add new functions.
131 * trans-stmt.h: add new prototypes.
132 * trans-types.c (gfc_get_derived_type): check condition for team_type.
133 * trans.c (trans_code): new exec cases for form team, change team, end
135 * trans.h: add new prototypes.
137 2018-01-26 Steven G. Kargl <kargl@gcc.gnu.org>
140 * simplify.c (compute_dot_product): Initialize result to INTEGER(1) 0
141 or .false. The summation does the correct type conversion.
142 (gfc_simplify_dot_product): Special case zero-sized arrays.
144 2018-25-01 Paul Thomas <pault@gcc.gnu.org>
147 * array.c (gfc_match_array_ref): If standard earlier than F2008
148 it is an error if the reference dimension is greater than 7.
149 libgfortran.h : Increase GFC_MAX_DIMENSIONS to 15. Change the
150 dtype masks and shifts accordingly.
151 * trans-array.c (gfc_conv_descriptor_dtype): Use the dtype
152 type node to check the field.
153 (gfc_conv_descriptor_dtype): Access the rank field of dtype.
154 (duplicate_allocatable_coarray): Access the rank field of the
155 dtype descriptor rather than the dtype itself.
156 * trans-expr.c (get_scalar_to_descriptor_type): Store the type
157 of 'scalar' on entry and use its TREE_TYPE if it is ARRAY_TYPE
159 (gfc_conv_procedure_call): Pass TREE_OPERAND (tmp,0) to
160 get_scalar_to_descriptor_type if the actual expression is a
162 (gfc_trans_structure_assign): Assign the rank directly to the
164 * trans-intrinsic.c (gfc_conv_intrinsic_rank): Cast the result
165 to default integer kind.
166 (gfc_conv_intrinsic_sizeof): Obtain the element size from the
167 'elem_len' field of the dtype.
168 * trans-io.c (gfc_build_io_library_fndecls): Replace
169 gfc_int4_type_node with dtype_type_node where necessary.
170 (transfer_namelist_element): Use gfc_get_dtype_rank_type for
172 * trans-types.c : Provide 'get_dtype_type_node' to acces the
173 dtype_type_node and, if necessary, build it.
174 The maximum size of an array element is now determined by the
175 maximum value of size_t.
176 Update the description of the array descriptor, including the
177 type def for the dtype_type.
178 (gfc_get_dtype_rank_type): Build a constructor for the dtype.
179 Distinguish RECORD_TYPEs that are BT_DERIVED or BT_CLASS.
180 (gfc_get_array_descriptor_base): Change the type of the dtype
181 field to dtype_type_node.
182 (gfc_get_array_descr_info): Get the offset to the rank field of
184 * trans-types.h : Add a prototype for 'get_dtype_type_node ()'.
185 * trans.h : Define the indices of the dtype fields.
187 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
190 * decl.c (gfc_match_derived_decl): If eos not matched, recover
191 and emit error about garbage after declaration.
193 2018-23-01 Paul Thomas <pault@gcc.gnu.org>
196 * trans-stmt.c (trans_associate_var): Do not set cst_array_ctor
199 2018-01-22 Janne Blomqvist <jb@gcc.gnu.org>
203 * arith.c (gfc_arith_concat): Use size_t for string length.
204 (gfc_compare_string): Likewise.
205 (gfc_compare_with_Cstring): Likewise.
206 * array.c (gfc_resolve_character_array_constructor): Use
207 HOST_WIDE_INT, gfc_mpz_get_hwi.
208 * check.c (gfc_check_fe_runtime_error): Use size_t.
209 * data.c (create_character_initializer): Use HOST_WIDE_INT,
211 * decl.c (gfc_set_constant_character_len): Use gfc_charlen_t.
212 (add_init_expr_to_sym): Use HOST_WIDE_INT.
213 * expr.c (gfc_build_init_expr): Use HOST_WIDE_INT,
215 (gfc_apply_init): Likewise.
216 * match.h (gfc_set_constant_character_len): Update prototype.
217 * primary.c (match_string_constant): Use size_t.
218 * resolve.c (resolve_ordinary_assign): Use HOST_WIDE_INT,
220 * simplify.c (init_result_expr): Likewise.
221 (gfc_simplify_len_trim): Use size_t.
222 * target-memory.c (gfc_encode_character): Use size_t.
223 (gfc_target_encode_expr): Use HOST_WIDE_INT, gfc_mpz_get_hwi.
224 (interpret_array): Use size_t.
225 (gfc_interpret_character): Likewise.
226 * target-memory.h (gfc_encode_character): Update prototype.
227 (gfc_interpret_character): Likewise.
228 (gfc_target_interpret_expr): Likewise.
229 * trans-const.c (gfc_build_string_const): Use size_t for length
231 (gfc_build_wide_string_const): Likewise.
232 * trans-const.h (gfc_build_string_const): Likewise.
233 (gfc_build_wide_string_const): Likewise.
235 2018-01-20 Steven G. Kargl <kargl@gcc.gnu.org>
238 * simplify.c (gfc_simplify_matmul): Set return type correctly.
240 2018-01-19 Steven G. Kargl <kargl@gcc.gnu.org>
243 * simplify.c (gfc_simplify_matmul): Delete bogus assertion.
245 2018-01-17 Harald Anlauf <anlauf@gmx.de>
248 * expr.c (add_init_expr_to_sym): Do not dereference NULL pointer.
250 2018-01-17 Harald Anlauf <anlauf@gmx.de>
253 * decl.c (add_init_expr_to_sym): Do not dereference NULL pointer.
255 2018-01-15 Louis Krupp <louis.krupp@zoho.com>
258 * interface.c (compare_rank): Don't try to retrieve CLASS_DATA
259 from symbol marked unlimited polymorphic.
260 * resolve.c (resolve_structure_cons): Likewise.
261 * misc.c (gfc_typename): Don't dereference derived->components
264 2018-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
267 * gfortran.h (gfc_check_f): Rename f4ml to f5ml.
268 (gfc_logical_4_kind): New macro
269 * intrinsic.h (gfc_simplify_minloc): Add a gfc_expr *argument.
270 (gfc_simplify_maxloc): Likewise.
271 (gfc_resolve_maxloc): Likewise.
272 (gfc_resolve_minloc): Likewise.
273 * check.c (gfc_check_minloc_maxloc): Add checking for "back"
274 argument; also raise error if it is used (for now). Add it
276 * intrinsic.c (add_sym_4ml): Rename to
277 (add_sym_5ml), adjust for extra argument.
278 (add_functions): Add "back" constant. Adjust maxloc and minloc
280 * iresolve.c (gfc_resolve_maxloc): Add back argument. If back is
281 not of gfc_logical_4_kind, convert.
282 (gfc_resolve_minloc): Likewise.
283 * simplify.c (gfc_simplify_minloc): Add back argument.
284 (gfc_simplify_maxloc): Likewise.
285 * trans-intinsic.c (gfc_conv_intrinsic_minmaxloc): Rename last
286 argument to %VAL to ensure passing by value.
287 (gfc_conv_intrinsic_function): Call gfc_conv_intrinsic_minmaxloc
288 also for library calls.
290 2018-01-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
293 * resolve.c (resolve_transfer): Delete code looking for 'DT'
294 format specifiers in format strings. Set formatted to true if a
295 format string or format label is present.
296 * trans-io.c (get_dtio_proc): Likewise. (transfer_expr): Fix
299 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
302 * dump-parse-tree.c (get_c_type_name): Remove extra line.
303 Change for loop to use declaration in for loop. Handle BT_LOGICAL
305 (write_decl): Add where argument. Fix indentation. Replace
306 assert with error message. Add typename to warning
308 (write_type): Adjust locus to call of write_decl.
309 (write_variable): Likewise.
310 (write_proc): Likewise. Replace assert with error message.
312 2018-01-13 Paul Thomas <pault@gcc.gnu.org>
315 * trans-expr.c (gfc_trans_scalar_assign): Flag is_alloc_lhs if
316 the rhs expression is neither an elemental nor a conversion
320 * trans-array.c (is_pointer_array): Remove unconditional return
321 of false for -fopenmp.
323 2018-01-13 Thomas Koenig <tkoenig@gcc.gnu.org>
327 * dump-parse-tree.c (write_proc): Always emit closing parenthesis
330 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
333 * resolve.c (resolve_allocate_expr): Check for NULL pointer.
335 2018-01-10 Steven G. Kargl <kargl@gcc.gnu.org>
338 * resolve.c (resolve_charlen): Check the type of cl->length
341 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
344 * trans-array.c (gfc_trans_array_ctor_element): Fix formatting.
346 2018-01-10 Janne Blomqvist <jb@gcc.gnu.org>
349 * trans-array.c (gfc_trans_array_ctor_element): Convert RHS to the
350 LHS type when assigning.
352 2018-01-09 Steven G. Kargl <kargl@gcc.gnu.org>
355 * expr.c (gfc_is_simply_contiguous): Check for NULL pointer.
357 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
359 * match.c (gfc_match_allocate): Check for NULL pointer.
361 2018-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
363 * expr.c (gfc_check_pointer_assign): Fix typo in comment.
365 2018-01-08 Paul Thomas <pault@gcc.gnu.org>
368 * decl.c (gfc_get_pdt_instance): If parameterized arrays have
369 an initializer, convert the kind parameters and add to the
370 component if the instance.
371 * trans-array.c (structure_alloc_comps): Add 'is_pdt_type' and
372 use it with case COPY_ALLOC_COMP. Call 'duplicate_allocatable'
373 for parameterized arrays. Clean up typos in comments. Convert
374 parameterized array initializers and copy into the array.
375 * trans-expr.c (gfc_trans_scalar_assign): Do a deep copy for
377 *trans-stmt.c (trans_associate_var): Deallocate associate vars
378 as necessary, when they are PDT function results for example.
381 * trans-array.c (structure_alloc_comps): Only compare len parms
382 when they are declared explicitly.
384 2018-01-06 Janne Blomqvist <jb@gcc.gnu.org>
387 * trans-expr.c (gfc_trans_pointer_assignment): fold_convert rhs to
390 2018-01-05 Janne Blomqvist <jb@gcc.gnu.org>
394 * array.c (got_charlen): Use gfc_charlen_int_kind.
395 * class.c (gfc_find_derived_vtab): Use gfc_size_kind instead of
397 (find_intrinsic_vtab): Likewise.
398 * decl.c (match_char_length): Use gfc_charlen_int_kind.
399 (add_init_expr_to_sym): Use gfc_charlen_t and gfc_charlen_int_kind.
400 (gfc_match_implicit): Use gfc_charlen_int_kind.
401 * dump-parse-tree.c (show_char_const): Use gfc_charlen_t and size_t.
402 (show_expr): Use HOST_WIDE_INT_PRINT_DEC.
403 * expr.c (gfc_get_character_expr): Length parameter of type
405 (gfc_get_int_expr): Value argument of type HOST_WIDE_INT.
406 (gfc_extract_hwi): New function.
407 (simplify_const_ref): Make string_len of type gfc_charlen_t.
408 (gfc_simplify_expr): Use HOST_WIDE_INT for substring refs.
409 * frontend-passes.c (optimize_trim): Use gfc_charlen_int_kind.
410 * gfortran.h (gfc_mpz_get_hwi): New prototype.
411 (gfc_mpz_set_hwi): Likewise.
412 (gfc_charlen_t): New typedef.
413 (gfc_expr): Use gfc_charlen_t for character lengths.
414 (gfc_size_kind): New extern variable.
415 (gfc_extract_hwi): New prototype.
416 (gfc_get_character_expr): Use gfc_charlen_t for character length.
417 (gfc_get_int_expr): Use HOST_WIDE_INT type for value argument.
418 * gfortran.texi: Update description of hidden string length argument.
419 * iresolve.c (check_charlen_present): Use gfc_charlen_int_kind.
420 (gfc_resolve_char_achar): Likewise.
421 (gfc_resolve_repeat): Pass string length directly without
422 temporary, use gfc_charlen_int_kind.
423 (gfc_resolve_transfer): Use gfc_charlen_int_kind.
424 * match.c (select_intrinsic_set_tmp): Use HOST_WIDE_INT for charlen.
425 * misc.c (gfc_mpz_get_hwi): New function.
426 (gfc_mpz_set_hwi): New function.
427 * module.c (atom_int): Change type from int to HOST_WIDE_INT.
428 (parse_integer): Don't complain about large integers.
429 (write_atom): Use HOST_WIDE_INT for integers.
430 (mio_integer): Handle integer type mismatch.
431 (mio_hwi): New function.
432 (mio_intrinsic_op): Use HOST_WIDE_INT.
433 (mio_array_ref): Likewise.
434 (mio_expr): Likewise.
435 * primary.c (match_substring): Use gfc_charlen_int_kind.
436 * resolve.c (resolve_substring_charlen): Use gfc_charlen_int_kind.
437 (resolve_character_operator): Likewise.
438 (resolve_assoc_var): Likewise.
439 (resolve_select_type): Use HOST_WIDE_INT for charlen, use snprintf.
440 (resolve_charlen): Use mpz_sgn to determine sign.
441 * simplify.c (gfc_simplify_repeat): Use HOST_WIDE_INT/gfc_charlen_t
443 * symbol.c (generate_isocbinding_symbol): Use gfc_charlen_int_kind.
444 * target-memory.c (size_character): Length argument of type
446 (gfc_encode_character): Likewise.
447 (gfc_interpret_character): Use gfc_charlen_t.
448 * target-memory.h (gfc_encode_character): Modify prototype.
449 * trans-array.c (gfc_trans_array_ctor_element): Use existing type.
450 (get_array_ctor_var_strlen): Use gfc_conv_mpz_to_tree_type.
451 (trans_array_constructor): Use existing type.
452 (get_array_charlen): Likewise.
453 * trans-const.c (gfc_conv_mpz_to_tree_type): New function.
454 * trans-const.h (gfc_conv_mpz_to_tree_type): New prototype.
455 * trans-decl.c (gfc_trans_deferred_vars): Use existing type.
456 (add_argument_checking): Likewise.
457 * trans-expr.c (gfc_class_len_or_zero_get): Build const of type
458 gfc_charlen_type_node.
459 (gfc_conv_intrinsic_to_class): Use gfc_charlen_int_kind instead of
460 4, fold_convert to correct type.
461 (gfc_conv_class_to_class): Build const of type size_type_node for
463 (gfc_copy_class_to_class): Likewise.
464 (gfc_conv_string_length): Use same type in expression.
465 (gfc_conv_substring): Likewise, use HOST_WIDE_INT for charlen.
466 (gfc_conv_string_tmp): Make sure len is of the right type.
467 (gfc_conv_concat_op): Use same type in expression.
468 (gfc_conv_procedure_call): Likewise.
469 (fill_with_spaces): Comment out memset() block due to spurious
470 -Wstringop-overflow warnings.
471 (gfc_trans_string_copy): Use gfc_charlen_type_node.
472 (alloc_scalar_allocatable_for_subcomponent_assignment):
473 fold_convert to right type.
474 (gfc_trans_subcomponent_assign): Likewise.
475 (trans_class_vptr_len_assignment): Build const of correct type.
476 (gfc_trans_pointer_assignment): Likewise.
477 (alloc_scalar_allocatable_for_assignment): fold_convert to right
479 (trans_class_assignment): Build const of correct type.
480 * trans-intrinsic.c (gfc_conv_associated): Likewise.
481 (gfc_conv_intrinsic_repeat): Do calculation in sizetype.
482 * trans-io.c (gfc_build_io_library_fndecls): Use
483 gfc_charlen_type_node for character lengths.
484 (set_string): Convert to right type in assignment.
485 * trans-stmt.c (gfc_trans_label_assign): Build const of
486 gfc_charlen_type_node.
487 (trans_associate_var): Likewise.
488 (gfc_trans_character_select): Likewise.
489 (gfc_trans_allocate): Likewise, don't typecast strlen result.
490 (gfc_trans_deallocate): Don't typecast strlen result.
491 * trans-types.c (gfc_size_kind): New variable.
492 (gfc_init_types): Determine gfc_charlen_int_kind and gfc_size_kind
494 * trans-types.h: Fix comment.
496 2018-01-04 Thomas Koenig <tkoenig@gcc.gnu.org>
500 * check.c (gfc_check_eoshift): Check for string length and
501 for conformance of boundary.
502 * intrinsic.c (add_functions): Add gfc_simplify_eoshift.
503 * intrinsic.h: Add prototype for gfc_simplify_eoshift.
504 * simplify.c (gfc_simplify_eoshift): New function.
506 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
507 Alan Hayward <alan.hayward@arm.com>
508 David Sherwood <david.sherwood@arm.com>
510 * trans-types.c (gfc_type_for_mode): Handle MODE_VECTOR_BOOL.
512 2018-01-03 Richard Sandiford <richard.sandiford@linaro.org>
513 Alan Hayward <alan.hayward@arm.com>
514 David Sherwood <david.sherwood@arm.com>
516 * trans-types.c (gfc_type_for_mode): Check valid_vector_subparts_p.
518 2018-01-03 Thomas Koenig <tkoenig@gcc.gnu.org>
521 * check.c (gfc_check_eoshift): Error for missing boundary if array
522 is not one of the standard types.
524 2018-01-03 Jakub Jelinek <jakub@redhat.com>
526 Update copyright years.
528 * gfortranspec.c (lang_specific_driver): Update copyright notice
530 * gfc-internals.texi: Bump @copying's copyright year.
531 * gfortran.texi: Ditto.
532 * intrinsic.texi: Ditto.
533 * invoke.texi: Ditto.
535 2017-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
538 * intrinsic.c (add_function): Add gfc_simplify_maxloc and
539 gfc_simplify_minloc to maxloc and minloc, respectively.
540 * intrinsic.h: Add prototypes for gfc_simplify_minloc
541 and gfc_simplify_maxloc.
542 * simplify.c (min_max_chose): Adjust prototype. Modify function
543 to have a return value which indicates if the extremum was found.
544 (is_constant_array_expr): Fix typo in comment.
545 (simplify_minmaxloc_to_scalar): New function.
546 (simplify_minmaxloc_nodim): New function.
547 (new_array): New function.
548 (simplify_minmaxloc_to_array): New function.
549 (gfc_simplify_minmaxloc): New function.
550 (simplify_minloc): New function.
551 (simplify_maxloc): New function.
553 2018-01-02 Thomas Koenig <tkoenig@gcc.gnu.org>
557 * simplify.c (gfc_simplify_cshift): Re-implement to allow full
560 2018-01-01 Paul Thomas <pault@gcc.gnu.org>
563 * resolve.c (resolve_fl_derived0): Add caf_token fields for
564 allocatable and pointer scalars, when -fcoarray selected.
565 * trans-types.c (gfc_copy_dt_decls_ifequal): Copy the token
566 field as well as the backend_decl.
567 (gfc_get_derived_type): Flag GFC_FCOARRAY_LIB for module
568 derived types that are not vtypes. Components with caf_token
569 attribute are pvoid types. For a component requiring it, find
570 the caf_token field and have the component token field point to
574 *trans-types.c (gfc_get_array_descriptor_base): Add the token
575 field to the descriptor even when codimen not set.
577 Copyright (C) 2018 Free Software Foundation, Inc.
579 Copying and distribution of this file, with or without modification,
580 are permitted in any medium without royalty provided the copyright
581 notice and this notice are preserved.