1 2023-04-28 Julian Brown <julian@codesourcery.com>
4 * trans-openmp.cc (gfc_trans_omp_clauses): Attach/detach clause fixes.
6 2023-04-28 Tobias Burnus <tobias@codesourcery.com>
8 * gfortran.texi: Fix typos.
9 * decl.cc: Fix typos in comments and in a variable name.
10 * arith.cc: Fix comment typos.
13 * dependency.cc: Likewise.
15 * frontend-passes.cc: Likewise.
16 * gfortran.h: Likewise.
17 * intrinsic.cc: Likewise.
18 * iresolve.cc: Likewise.
20 * module.cc: Likewise.
21 * primary.cc: Likewise.
22 * resolve.cc: Likewise.
23 * simplify.cc: Likewise.
24 * trans-array.cc: Likewise.
25 * trans-decl.cc: Likewise.
26 * trans-expr.cc: Likewise.
27 * trans-intrinsic.cc: Likewise.
28 * trans-openmp.cc: Likewise.
29 * trans-stmt.cc: Likewise.
31 2023-04-25 Tobias Burnus <tobias@codesourcery.com>
33 * openmp.cc (gfc_resolve_omp_do_blocks): Handle zero
34 or more than one exec statements before/after 'omp scan'.
35 * trans-openmp.cc (gfc_trans_omp_do): Likewise.
37 2023-04-22 Harald Anlauf <anlauf@gmx.de>
38 Steven G. Kargl <kargl@gcc.gnu.org>
41 * interface.cc (gfc_compare_actual_formal): Reject allocatable
42 functions being used as actual argument for allocable dummy.
44 2023-04-14 Harald Anlauf <anlauf@gmx.de>
47 * simplify.cc (gfc_simplify_set_exponent): Fix implementation of
48 compile-time simplification of intrinsic SET_EXPONENT for argument
51 2023-04-14 Paul Thomas <pault@gcc.gnu.org>
54 * gfortran.h : Add expr3_not_explicit bit field to gfc_code.
55 * resolve.cc (resolve_allocate_expr): Set bit field when the
56 default initializer is applied to expr3.
57 * trans-stmt.cc (gfc_trans_allocate): If expr3_not_explicit is
58 set, do not deallocate expr3.
60 2023-04-13 Harald Anlauf <anlauf@gmx.de>
63 * trans-expr.cc (gfc_conv_power_op): Use absu_hwi and
64 unsigned HOST_WIDE_INT for portability.
66 2023-04-12 Harald Anlauf <anlauf@gmx.de>
69 * resolve.cc (resolve_entries): Handle functions with ENTRY and
71 * trans-expr.cc (gfc_conv_procedure_call): Functions with a result
72 with the POINTER or ALLOCATABLE attribute shall not get any special
73 treatment with -ff2c, as they cannot be written in Fortran 77.
74 * trans-types.cc (gfc_return_by_reference): Likewise.
75 (gfc_get_function_type): Likewise.
77 2023-04-12 Harald Anlauf <anlauf@gmx.de>
81 * interface.cc (compare_parameter): Enable type and rank checks for
82 arguments of derived type from the intrinsic module ISO_C_BINDING.
84 2023-04-08 Paul Thomas <pault@gcc.gnu.org>
87 * iresolve.cc (gfc_resolve_adjustl, gfc_resolve_adjustr): if
88 string length is deferred use the string typespec for result.
89 * resolve.cc (resolve_assoc_var): Handle parentheses around the
91 (resolve_block_construct): Remove unnecessary static decls.
92 * trans-array.cc (gfc_conv_expr_descriptor): Guard string len
93 expression in condition. Improve handling of string length and
94 span, especially for substrings of the descriptor.
95 (duplicate_allocatable): Make element type more explicit with
97 * trans-decl.cc (gfc_get_symbol_decl): Emit a fatal error with
98 appropriate message instead of ICE if symbol type is unknown.
99 (gfc_generate_function_code): Set current locus to proc_sym
101 * trans-expr.cc (gfc_get_expr_charlen): Retain last charlen in
102 'previous' and use if end expression in substring reference is
104 (gfc_conv_string_length): Use gfc_conv_expr_descriptor if
105 'expr_flat' is an array. Add post block to catch deallocation
107 (gfc_conv_procedure_call): Assign the parmse string length to
108 the expression string length, if it is deferred.
109 (gfc_trans_alloc_subarray_assign): If this is a deferred string
110 length component, store the string length in the hidden comp.
111 Update the typespec length accordingly. Generate a new type
112 spec for the call to gfc_duplicate-allocatable in this case.
113 * trans-io.cc (gfc_trans_transfer): Scalarize transfer of
114 deferred character array components.
116 2023-04-04 Harald Anlauf <anlauf@gmx.de>
119 * expr.cc (check_restricted): Adjust check for valid variables in
120 restricted expressions: make no exception for module variables.
122 2023-04-01 Thomas Koenig <tkoenig@gcc.gnu.org>
124 * dump-parse-tree.cc (get_c_type_name): Fix "long_long"
125 type name to be "long long".
127 2023-03-30 Andrew Pinski <apinski@marvell.com>
129 * dump-parse-tree.cc (get_c_type_name): Fix "long_long"
130 type name to be "long long". Add a comment on why adding
133 2023-03-28 Jakub Jelinek <jakub@redhat.com>
136 * openmp.cc (gfc_omp_absent_contains_clause): Fix typo in diagnostics
137 - composit -> composite.
139 2023-03-25 Harald Anlauf <anlauf@gmx.de>
142 * trans-decl.cc (gfc_conv_cfi_to_gfc): Remove dead code.
144 2023-03-24 Harald Anlauf <anlauf@gmx.de>
146 * expr.cc (free_expr0): Free also BOZ strings as part of an expression.
148 2023-03-24 Haochen Gui <guihaoc@gcc.gnu.org>
149 Tobias Burnus <tobias@codesourcery.com>
152 * target-memory.cc (gfc_interpret_float): Return FAIL when
153 native_interpret_expr gets a NULL tree.
154 * arith.cc (gfc_hollerith2real): Return NULL when
155 gfc_interpret_float fails.
156 * error.cc (gfc_buffered_p): Define.
157 * gfortran.h (gfc_buffered_p): Declare.
158 * intrinsic.cc: Add diagnostic.h to include list.
159 (do_simplify): Save errorcount and check it at finish. Report a
160 "Cannot simplify expression" error on a bad result if error count
161 doesn't change and no other errors buffered.
163 2023-03-22 Harald Anlauf <anlauf@gmx.de>
164 Steven G. Kargl <kargl@gcc.gnu.org>
167 * resolve.cc (gfc_resolve_finalizers): Argument of a FINAL subroutine
168 cannot be an alternate return.
170 2023-03-21 Harald Anlauf <anlauf@gmx.de>
173 * decl.cc (gfc_match_modproc): Reject MODULE PROCEDURE if not in a
174 generic module interface.
176 2023-03-21 Arsen Arsenović <arsen@aarsen.me>
178 * invoke.texi: Remove usages of @gol.
179 * intrinsic.texi: Ditto.
181 2023-03-21 Paul Thomas <pault@gcc.gnu.org>
184 * trans-array.cc (gfc_trans_array_constructor_value): Correct
185 incorrect setting of typespec.
187 2023-03-21 Paul Thomas <pault@gcc.gnu.org>
190 * resolve.cc (generate_component_assignments): Restore the
191 exclusion of allocatable components from the loop.
193 2023-03-20 Harald Anlauf <anlauf@gmx.de>
196 * invoke.texi: Correct documentation of how underscores are appended
199 2023-03-20 Harald Anlauf <anlauf@gmx.de>
202 * simplify.cc (gfc_simplify_nearest): Fix off-by-one error in setting
203 up real kind-specific maximum exponent for mpfr.
205 2023-03-20 Paul Thomas <pault@gcc.gnu.org>
208 * resolve.cc (check_host_association): If an external function
209 is typed but not declared explicitly to be external, change the
210 old symbol from a variable to an external function.
212 2023-03-19 Harald Anlauf <anlauf@gmx.de>
215 * resolve.cc (resolve_fl_procedure): Check for an explicit interface
216 of procedures with the BIND(C) attribute (F2018:15.4.2.2).
218 2023-03-19 Thomas Koenig <tkoenig@gcc.gnu.org>
220 * gfortran.texi: Mention behavior on overflow.
222 2023-03-18 Paul Thomas <pault@gcc.gnu.org>
227 * class.cc (finalize_component): Include the missing arguments
228 in the call to the component's finalizer wrapper.
229 (has_finalizer_component): Do not return true for procedure
231 (finalizer_insert_packed_call): Remove the redundant argument
232 in the call to the final subroutine.
233 (generate_finalization_wrapper): Add support for assumed rank
235 (gfc_may_be_finalized): New helper function.
236 * dump-parse-tree.cc (write_proc): Whitespace.
237 * gfortran.h : Add prototype for gfc_may_be_finalized.
238 * resolve.cc (resolve_function): Correct derived types that
239 have an incomplete namespace.
240 (resolve_where, gfc_resolve_where_code_in_forall,
241 gfc_resolve_forall_body, gfc_resolve_code): Check that the op
242 code is still EXEC_ASSIGN. If it is set lhs to must finalize.
243 (is_finalizable_type): New function.
244 (generate_component_assignments): Set must_finalize if needed.
245 (gfc_resolve_finalizers): Error if assumed rank finalizer is
246 not the only one. Warning on lack of scalar finalizer modified
247 to account for assumed rank finalizers.
248 (generate_final_call): New function.
249 (generate_component_assignments): Enclose the outermost call in
250 a block to capture automatic deallocation and final calls.
251 Set must_finalize as required to satisfy the standards. Use an
252 explicit pointer assignment for pointer components to capture
253 finalization of the target. Likewise use explicit assignment
254 for allocatable components. Do not use the temporary copy of
255 the lhs in defined assignment if the component is allocatable.
256 Put the temporary in the same namespace as the lhs symbol if
257 the component may be finalized. Remove the leading assignment
258 from the expansion of assignment of components that have their
259 own defined assignment components. Suppress finalization of
260 assignment of temporary components to the lhs. Make an explicit
261 final call for the rhs function temporary if it exists.
262 (gfc_resolve_code): Set must_finalize for assignments with an
263 array constructor on the rhs.
264 (gfc_resolve_finalizers): Ensure that an assumed rank finalizer
265 is the only finalizer for that type and correct the surprising
266 warning for the lack of a scalar finalizer.
267 (check_defined_assignments): Handle allocatable components.
268 (resolve_fl_derived): Set referenced the vtab for use
270 (resolve_symbol): Set referenced an unreferenced symbol that
272 * trans-array.cc (gfc_trans_array_constructor_value): Add code
273 to finalize the constructor result. Warn that this feature was
274 removed in F2018 and that it is suppressed by -std=2018.
275 (trans_array_constructor): Add finalblock, pass to previous
276 and apply to loop->post if filled.
277 (gfc_add_loop_ss_code): Add se finalblock to outer loop post.
278 (gfc_trans_array_cobounds, gfc_trans_array_bounds): Add any
279 generated finalization code to the main block.
280 (structure_alloc_comps): Add boolean argument to suppress
281 finalization and use it for calls from
282 gfc_deallocate_alloc_comp_no_caf. Otherwise it defaults to
284 (gfc_copy_alloc_comp_no_fini): New wrapper for
285 structure_alloc_comps.
286 (gfc_alloc_allocatable_for_assignment): Suppress finalization
287 by setting new arg in call to gfc_deallocate_alloc_comp_no_caf.
288 (gfc_trans_deferred_array): Use gfc_may_be_finalized and do not
289 deallocate the components of entities with a leading '_' in the
290 name that are also marked as artificial.
291 * trans-array.h : Add the new boolean argument to the prototype
292 of gfc_deallocate_alloc_comp_no_caf with a default of false.
293 Add prototype for gfc_copy_alloc_comp_no_fini.
294 * trans-decl.cc(init_intent_out_dt): Tidy up the code.
295 * trans-expr.cc (gfc_init_se): Initialize finalblock.
296 (gfc_conv_procedure_call): Use gfc_finalize_tree_expr to
297 finalize function results. Replace in-line block for class
298 results with call to new function.
299 (gfc_conv_expr): Finalize structure constructors for F2003 and
300 F2008. Warn that this feature was deleted in F2018 and, unlike
301 array constructors, is not default. Add array constructor
302 finalblock to the post block.
303 (gfc_trans_scalar_assign): Suppress finalization by setting new
304 argument in call to gfc_deallocate_alloc_comp_no_caf. Add the
305 finalization blocks to the main block.
306 (gfc_trans_arrayfunc_assign): Use gfc_assignment_finalizer_call
307 and ensure that finalization occurs after the evaluation of the
308 rhs but using the initial value for the lhs. Finalize rhs
309 function results using gfc_finalize_tree_expr.
310 (trans_class_assignment, gfc_trans_assignment_1): As previous
311 function, taking care to order evaluation, assignment and
312 finalization correctly.
313 * trans-io.cc (gfc_trans_transfer): Add the final block.
314 * trans-stmt.cc (gfc_trans_call, gfc_trans_allocate): likewise.
315 (trans_associate_var): Nullify derived allocatable components
316 and finalize function targets with defined assignment
317 components on leaving the block scope.
318 (trans_allocate): Finalize source expressions, if required,
319 and set init_expr artificial temporarily to suppress the
320 finalization in gfc_trans_assignment.
321 * trans.cc (gfc_add_finalizer_call): Do not finalize the
322 temporaries generated in type assignment with defined
323 assignment components.
324 (gfc_assignment_finalizer_call): New function.
325 (gfc_finalize_tree_expr): New function.
326 * trans.h: Add finalblock to gfc_se. Add the prototypes for
327 gfc_finalize_tree_expr and gfc_assignment_finalizer_call.
329 2023-03-15 Harald Anlauf <anlauf@gmx.de>
330 Tobias Burnus <tobias@codesourcery.com>
333 * interface.cc (compare_parameter): Adjust check of array dummy
334 arguments to handle the case of CLASS variables.
336 2023-03-11 Harald Anlauf <anlauf@gmx.de>
339 * trans-expr.cc (gfc_copy_class_to_class): Convert element counts in
340 bounds check to common type for comparison.
342 2023-03-10 Harald Anlauf <anlauf@gmx.de>
345 * resolve.cc (resolve_symbol): Avoid NULL pointer dereference while
346 checking a symbol with the BIND(C) attribute.
348 2023-03-05 Harald Anlauf <anlauf@gmx.de>
349 Tobias Burnus <tobias@codesourcery.com>
352 * class.cc (gfc_build_class_symbol): Handle update of attributes of
353 existing class container.
354 (gfc_find_derived_vtab): Fix several memory leaks.
355 (find_intrinsic_vtab): Ditto.
356 * decl.cc (attr_decl1): Manage update of symbol attributes from
358 * primary.cc (gfc_variable_attr): OPTIONAL shall not be taken or
359 updated from the class container.
360 * symbol.cc (free_old_symbol): Adjust management of symbol versions
361 to not prematurely free array specs while working on the declation
364 2023-03-01 Tobias Burnus <tobias@codesourcery.com>
367 * trans-openmp.cc (gfc_trans_omp_clauses): Fix mapping of
368 type(C_ptr) variables.
370 2023-02-27 Harald Anlauf <anlauf@gmx.de>
373 * trans-intrinsic.cc (gfc_conv_intrinsic_ibits): Handle corner case
374 LEN argument of IBITS equal to BITSIZE(I).
376 2023-02-25 Mikael Morin <mikael@gcc.gnu.org>
379 * intrinsic.cc (get_intrinsic_dummy_arg,
380 set_intrinsic_dummy_arg): Rename the former to the latter.
381 Remove the return value, add a reference to the lhs as argument,
382 and do the pointer assignment inside the function. Don't do
383 it if the pointer is already non-NULL.
384 (sort_actual): Update caller.
386 2023-02-25 Harald Anlauf <anlauf@gmx.de>
388 * arith.cc (gfc_real2int): Clear mpfr variable after use.
390 2023-02-25 Tobias Burnus <tobias@codesourcery.com>
393 * trans-expr.cc (gfc_conv_gfc_desc_to_cfi_desc): Skip setting of
394 bounds of CFI desc for 'pointer,intent(out)'.
396 2023-02-24 Rimvydas Jasinskas <rimvydas.jas@gmail.com>
398 * trans-decl.cc (gfc_finish_var_decl): Apply attribute.
399 (generate_local_decl): Add diagnostic for dummy and local variables.
401 2023-02-24 Mikael Morin <mikael@gcc.gnu.org>
404 * expr.cc (gfc_free_actual_arglist): Free associated_dummy
406 (gfc_copy_actual_arglist): Make a copy of the associated_dummy
407 field if it is set in the original element.
409 2023-02-24 Harald Anlauf <anlauf@gmx.de>
412 * frontend-passes.cc (do_subscript): Clear used gmp variable.
414 2023-02-23 Arsen Arsenović <arsen@aarsen.me>
416 * invoke.texi: Reorder index entries around @items.
418 2023-02-23 Arsen Arsenović <arsen@aarsen.me>
420 * invoke.texi: Reorder @opindex commands to precede @items they
423 2023-02-22 Harald Anlauf <anlauf@gmx.de>
426 * resolve.cc (resolve_component): The type of a CHARACTER length
427 expression must be INTEGER.
429 2023-02-21 Harald Anlauf <anlauf@gmx.de>
432 * parse.cc (check_function_result_typed): Improve type check of
433 specification expression for character length and return status.
434 (parse_spec): Use status from above.
435 * resolve.cc (resolve_fntype): Prevent use of invalid specification
436 expression for character length.
438 2023-02-16 Patrick Palka <ppalka@redhat.com>
440 * gfortran.h: Mechanically drop static from static inline
441 functions via s/^static inline/inline/g.
443 2023-02-15 Steve Kargl <kargl@gcc.gnu.org>
446 * frontend-passes.cc (do_intent): Catch NULL pointer dereference on
447 reference to invalid formal argument.
449 2023-02-15 Steve Kargl <kargl@gcc.gnu.org>
452 * resolve.cc (check_assumed_size_reference): Avoid NULL pointer
455 2023-02-15 Tobias Burnus <tobias@codesourcery.com>
458 * openmp.cc (gfc_resolve_omp_parallel_blocks): Handle combined 'loop'
460 (gfc_resolve_do_iterator): Set a source location for added
461 'private'-clause arguments.
462 * resolve.cc (gfc_resolve_code): Call gfc_resolve_omp_do_blocks
463 also for EXEC_OMP_LOOP and gfc_resolve_omp_parallel_blocks for
464 combined directives with loop + '{masked,master} taskloop (simd)'.
466 2023-02-13 Harald Anlauf <anlauf@gmx.de>
469 * primary.cc (gfc_expr_attr): Avoid NULL pointer dereference for
470 invalid use of CLASS variable.
472 2023-02-13 Rimvydas Jasinskas <rimvydas.jas@gmail.com>
474 * decl.cc: Add EXT_ATTR_NOINLINE, EXT_ATTR_NORETURN, EXT_ATTR_WEAK.
475 * gfortran.h (ext_attr_id_t): Ditto.
476 * gfortran.texi (GCC$ ATTRIBUTES): Document them.
477 * trans-decl.cc (build_function_decl): Apply them.
479 2023-02-09 Harald Anlauf <anlauf@gmx.de>
480 Steven G. Kargl <kargl@gcc.gnu.org>
484 * intrinsic.cc (gfc_convert_chartype): Recover on invalid character
485 kind in conversion instead of generating an internal error.
487 2023-02-09 Tobias Burnus <tobias@codesourcery.com>
490 * trans-openmp.cc (struct dovar_init_d): Add 'sym' and
491 'non_unit_incr' members.
492 (gfc_nonrect_loop_expr): New.
493 (gfc_trans_omp_do): Call it; use normal loop bounds
494 for unit stride - and only create local loop var.
496 2023-02-09 Tobias Burnus <tobias@codesourcery.com>
498 * parse.cc (decode_omp_directive): Really ignore 'assumes' with
501 2023-02-08 Steve Kargl <kargl@gcc.gnu.org>
504 * resolve.cc (resolve_common_vars): Avoid NULL pointer dereference
505 when a symbol's location is not set.
507 2023-02-07 Harald Anlauf <anlauf@gmx.de>
510 * trans-decl.cc (gfc_finish_var_decl): With -fno-automatic, do not
511 make ASSOCIATE variables TREE_STATIC.
513 2023-02-05 Harald Anlauf <anlauf@gmx.de>
516 * arith.cc (gfc_arith_divide): Emit integer division truncation
517 warnings using gfc_warning instead of gfc_warning_now to prevent
520 2023-02-03 Jakub Jelinek <jakub@redhat.com>
523 * trans-decl.cc (gfc_trans_use_stmts): Call clear_slot before
526 2023-02-01 Harald Anlauf <anlauf@gmx.de>
529 * expr.cc (find_array_section): Add check to prevent interpreting an
530 mpz non-integer constant as an integer.
532 2023-02-01 Tobias Burnus <tobias@codesourcery.com>
534 * openmp.cc (resolve_omp_clauses): Check also for
537 2023-01-29 Mikael Morin <mikael@gcc.gnu.org>
540 * check.cc (gfc_check_minloc_maxloc): Explicitly set argument name.
541 (gfc_check_findloc): Ditto.
543 2023-01-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
546 * parse.cc (parse_module): Remove use of a bool error value
547 that prevented proper setting of the namespace pointer.
549 2023-01-28 Harald Anlauf <anlauf@gmx.de>
550 Steven G. Kargl <kargl@gcc.gnu.org>
553 * resolve.cc (compare_bound_int): Expression to compare must be of
555 (compare_bound_mpz_t): Likewise.
556 (check_dimension): Fix comment on checks applied to array section
557 and clean up associated logic.
559 2023-01-28 Harald Anlauf <anlauf@gmx.de>
562 * match.cc (gfc_match_common): A USE associated name shall not appear
563 in a COMMON block (F2018:C8121).
565 2023-01-27 Tobias Burnus <tobias@codesourcery.com>
568 * trans-openmp.cc (gfc_split_omp_clauses): Handle has_device_addr.
570 2023-01-26 Harald Anlauf <anlauf@gmx.de>
573 * resolve.cc (check_host_association): Extend host association check
574 so that it is not restricted to functions. Also prevent NULL pointer
577 2023-01-25 Steve Kargl <kargl@gcc.gnu.org>
580 * array.cc (compare_bounds): Return false instead of generating an
581 internal error on an invalid argument type.
583 2023-01-24 Harald Anlauf <anlauf@gmx.de>
586 * simplify.cc (simplify_transformation): Do not try to simplify
587 transformational intrinsic when the ARRAY argument has a NULL shape.
589 2023-01-23 Harald Anlauf <anlauf@gmx.de>
592 * dependency.cc (gfc_check_dependency): Prevent NULL pointer
593 dereference while recursively checking expressions.
595 2023-01-23 Harald Anlauf <anlauf@gmx.de>
598 * interface.cc (get_expr_storage_size): Check array subscript triplets
599 that we actually have integer values before trying to extract with
602 2023-01-23 Harald Anlauf <anlauf@gmx.de>
605 * iresolve.cc (check_charlen_present): Preserve character length if
606 there is no array constructor.
608 2023-01-21 Jerry DeLisle <jvdelisle@gcc.gnu.org>
611 * data.cc (gfc_assign_data_value): Remove check for PARAMETER in DATA.
612 * primary.cc (match_variable): Add check for PARAMETER in DATA.
614 2023-01-19 Harald Anlauf <anlauf@gmx.de>
617 * expr.cc (class_allocatable): Prevent NULL pointer dereference
619 (class_pointer): Likewise.
621 2023-01-17 Harald Anlauf <anlauf@gmx.de>
624 * interface.cc (get_expr_storage_size): Check that we actually have
625 an integer value before trying to extract it with mpz_get_si.
627 2023-01-12 Tobias Burnus <tobias@codesourcery.com>
630 * openmp.cc (gfc_resolve_omp_assumptions): Reject nonscalars.
632 2023-01-11 Jakub Jelinek <jakub@redhat.com>
635 * f95-lang.cc (gfc_init_builtin_function): Fix up function types
636 for BUILT_IN_REALLOC and BUILT_IN_SINCOS{F,,L}. Formatting fixes.
638 2023-01-10 Harald Anlauf <anlauf@gmx.de>
641 * frontend-passes.cc (do_subscript): Clear used gmp variables.
643 2023-01-02 Jakub Jelinek <jakub@redhat.com>
645 * gfortranspec.cc (lang_specific_driver): Update copyright notice
647 * gfc-internals.texi: Bump @copying's copyright year.
648 * gfortran.texi: Ditto.
649 * intrinsic.texi: Ditto.
650 * invoke.texi: Ditto.
653 Copyright (C) 2023 Free Software Foundation, Inc.
655 Copying and distribution of this file, with or without modification,
656 are permitted in any medium without royalty provided the copyright
657 notice and this notice are preserved.