Subversion Repositories openrisc

2012-02-29  Paul Thomas  

        PR fortran/52386

        * trans-expr.c (fcncall_realloc_result): Dereference the

        descriptor if needed.

2012-02-22  Tobias Burnus  

        PR fortran/52335

        * io.c (gfc_match_open): Remove bogus F2003 DELIM= check.

2012-02-18  Tobias Burnus  

        PR fortran/52295

        * interface.c (check_interface0): Internal procs in

        generic interfaces are allowed in Fortran 2008.

2012-02-17  Tobias Burnus  

            Roland Stigge  

        PR translation/52273

        * interface.c (compare_actual_formal): Fix typo "at at".

2012-02-17  Tobias Burnus  

        * gfortran.texi (Q exponent-letter): Fix grammar.

2012-02-17  Tobias Burnus  

        * gfortran.texi (Status): Fix typos.

        * invoke.texi (ffixed-form, fstack-arrays): Spell Fortran with

        a majuscule.

2012-02-17  Tobias Burnus  

            Roland Stigge  

        PR translation/52232

        PR translation/52234

        PR translation/52245

        PR translation/52246

        PR translation/52262

        PR translation/52273

        * io.c (gfc_match_open): Fix typo.

        * interface.c (compare_actual_formal): Ditto.

        * lang.opt (freal-4-real-8, freal-4-real-16, freal-8-real-16): Ditto.

        * match.c (alloc_opt_list, gfc_match_nullify): Ditto.

        * check.c (gfc_check_associated, gfc_check_null): Ditto.

2012-02-12  Mikael Morin  

        PR fortran/50981

        * trans-stmt.c (gfc_get_proc_ifc_for_call): New function.

        (gfc_trans_call): Use gfc_get_proc_ifc_for_call.

2012-02-12  Mikael Morin  

        * trans-array.c (gfc_walk_elemental_function_args,

        gfc_walk_function_expr): Move call to gfc_get_proc_ifc_for_expr out

        of gfc_walk_elemental_function_args.

        * trans-stmt.c (gfc_trans_call): Ditto.

        * trans-array.h (gfc_get_proc_ifc_for_expr): New prototype.

        (gfc_walk_elemental_function_args): Update prototype.

2012-02-12  Mikael Morin  

        * trans-array.c (gfc_get_proc_ifc_for_expr): New function.

        (gfc_walk_elemental_function_args): Move code to

        gfc_get_proc_ifc_for_expr and call it.

2012-02-08  Tobias Burnus  

        PR fortran/52151

        * trans-expr.c (fcncall_realloc_result): Set also the stride.

2012-02-07  Tobias Burnus  

        PR fortran/51514

        * trans-expr.c (gfc_conv_procedure_call): Add _data component

        for calls of scalar CLASS actuals to TYPE dummies.

2012-02-05  Thomas König  

        PR fortran/48847

        * trans-decl.c:  Warn about unused dummy procedure arguments

        if -Wunused-dummy-argument is specified.  Suppress middle-end

        warnings about procedure arguments.

2012-02-05  Paul Thomas  

        * trans-array.c (gfc_array_allocate): Zero memory for all class

        array allocations.

        * trans-stmt.c (gfc_trans_allocate): Ditto for class scalars.

        PR fortran/52102

        * trans-stmt.c (gfc_trans_allocate): Before correcting a class

        array reference, ensure that 'dataref' points to the _data

        component that is followed by the array reference..

2012-02-02  Mikael Morin  

        PR fortran/41587

        PR fortran/46356

        PR fortran/51754

        PR fortran/50981

        * class.c (insert_component_ref, class_data_ref_missing,

        gfc_fix_class_refs): New functions.

        * gfortran.h (gfc_fix_class_refs): New prototype.

        * trans-expr.c (gfc_conv_expr): Remove special case handling and call

        gfc_fix_class_refs instead.

2012-02-02  Paul Thomas  

        PR fortran/52012

        * trans-expr.c (fcncall_realloc_result): If variable shape is

        correct, retain the bounds, whatever they are.

2012-02-02  Tobias Burnus  

        PR fortran/52093

        * simplify.c (gfc_simplify_size): Handle INTRINSIC_PARENTHESES.

2012-02-01  Thomas König  

        PR fortran/51958

        * frontend-passes.c (convert_elseif):  New function.

        (optimize_namespace):  Call it.

2012-02-01  Tobias Burnus  

        PR fortran/52024

        * module.c (MOD_VERSION): Bump.

        (mio_typebound_proc): Read/write is_operator from/to the

        .mod file.

2012-02-01  Tobias Burnus  

        PR fortran/52059

        * trans-expr.c (gfc_conv_procedure_call): Add array ref

        only to variables.

2012-01-31  Tobias Burnus  

        PR fortran/52024

        * gfortran.h (gfc_tbp_generic): Store whether the

        generic is an operator.

        * decl.c (gfc_match_generic): Set that flag.

        * resolve.c (check_generic_tbp_ambiguity): Use it in the

        gfc_compare_interfaces check.

2012-01-31  Tobias Burnus  

        PR fortran/52029

        * class.c (gfc_find_derived_vtab): Mark _copy function as pure.

2012-01-31  Tobias Burnus  

        PR fortran/52013

        * class.c (get_unique_hashed_string): Adapt trim length.

        (gfc_build_class_symbol) Encode also corank in the container name.

2012-01-31  Paul Thomas  

        PR fortran/52012

        * trans-expr.c (fcncall_realloc_result): Correct calculation of

        result offset.

2012-01-29  Janne Blomqvist  

        * module.c (pointer_info): Make true_name and module pointers

        rather than arrays, order pointers before other fields.

        (free_pi_tree): free true_name and module as well.

        (mio_read_string): Rename to read_string.

        (mio_write_string): Remove.

        (load_commons): Use read_string.

        (read_module): Use read_string rather than mio_internal_string.

        (write_blank_common): Call write_atom directly.

        (write_symbol): Likewise.

2012-01-29  Tobias Burnus  

        PR fortran/41600

        * expr.c (gfc_default_initializer): Convert the values if

        the type does not match.

2012-01-29  Tobias Burnus  

        PR fortran/51972

        * trans-array.c (structure_alloc_comps): Fix assignment of

        polymorphic components (polymorphic deep copying).

2012-01-29  Janne Blomqvist  

        PR fortran/51808

        * decl.c (set_binding_label): Make binding_label argument const.

        (curr_binding_label): Constify.

        * gfortran.h (gfc_symbol): Constify binding_label.

        (gfc_common_head): Likewise.

        (get_iso_c_sym): Likewise.

        * match.c (gfc_match_name_C): Constify buffer argument.

        * match.h (gfc_match_name_C): Likewise.

        * resolve.c (set_name_and_label): Constify binding_label argument.

        (gfc_iso_c_sub_interface): Constify binding_label variable.

        * symbol.c (get_iso_c_sym): Constify binding_label argument.

2012-01-29  Janne Blomqvist  

        PR fortran/51808

        * decl.c (set_binding_label): Move prototype from match.h to here.

        (curr_binding_label): Make a pointer rather than static array.

        (build_sym): Check sym->binding_label pointer rather than array,

        update set_binding_label call, handle curr_binding_label changes.

        (set_binding_label): Handle new curr_binding_label, dest_label

        double ptr, and sym->binding_label.

        (verify_bind_c_sym): Handle sym->binding_label being a pointer.

        (set_verify_bind_c_sym): Check sym->binding_label pointer rather

        than array, update set_binding_label call.

        (gfc_match_bind_c_stmt): Handle curr_binding_label change.

        (match_procedure_decl): Update set_binding_label call.

        (gfc_match_bind_c): Change binding_label to pointer, update

        gfc_match_name_C call.

        * gfortran.h (GFC_MAX_BINDING_LABEL_LEN): Remove macro.

        (gfc_symbol): Make binding_label a pointer.

        (gfc_common_head): Likewise.

        * match.c (gfc_match_name_C): Heap allocate bind(C) name.

        * match.h (gfc_match_name_C): Change prototype argument.

        (set_binding_label): Move prototype to decl.c.

        * module.c (struct pointer_info): Make binding_label a pointer.

        (free_pi_tree): Free unused binding_label.

        (mio_read_string): New function.

        (mio_write_string): New function.

        (load_commons): Redo reading of binding_label.

        (read_module): Likewise.

        (write_common_0): Change to write empty string instead of name if

        no binding_label.

        (write_blank_common): Write empty string for binding label.

        (write_symbol): Change to write empty string instead of name if no

        binding_label.

        * resolve.c (gfc_iso_c_func_interface): Don't set binding_label.

        (set_name_and_label): Make binding_label double pointer, use

        asprintf.

        (gfc_iso_c_sub_interface): Make binding_label a pointer.

        (resolve_bind_c_comms): Handle cases if

        gfc_common_head->binding_label is NULL.

        (gfc_verify_binding_labels): sym->binding_label is a pointer.

        * symbol.c (gfc_new_symbol): Rely on XCNEW zero init for

        binding_label.

        (gen_special_c_interop_ptr): Don't set binding label.

        (generate_isocbinding_symbol): Insert binding_label into symbol

        table.

        (get_iso_c_sym): Use pointer assignment instead of strcpy.

        * trans-common.c (gfc_sym_mangled_common_id): Handle

        com->binding_label being a pointer.

        * trans-decl.c (gfc_sym_mangled_identifier): Handle

        sym->binding_label being a pointer.

        (gfc_sym_mangled_function_id): Likewise.

2012-01-29  Tobias Burnus  

        PR fortran/52038

        * resolve.c (symbol_as): Remove unused, accidentally

        added function.

2012-01-28  Tobias Burnus  

        PR fortran/51972

        * trans-stmt.c (gfc_trans_allocate): Properly check whether

        we have a BT_CLASS which needs to be memset.

2012-01-27  Tobias Burnus  

        PR fortran/52022

        * trans-expr.c (gfc_conv_procedure_call): Fix passing

        of functions, which return allocatables.

2012-01-27  Tobias Burnus  

        PR fortran/52016

        * resolve.c (resolve_formal_arglist): Fix elemental

        constraint checks for polymorphic dummies also for

        pointers.

2012-01-27  Tobias Burnus  

        PR fortran/51970

        PR fortran/51977

        * primary.c (gfc_match_varspec. gfc_match_rvalue): Set

        handle array spec for BT_CLASS.

        * expr.c (gfc_get_variable_expr, gfc_lval_expr_from_sym)

        * frontend-passes.c (create_var): Ditto.

        * resolve.c (resolve_actual_arglist, resolve_assoc_var): Ditto.

        * trans-decl.c (gfc_trans_deferred_vars): Use class_pointer

        instead of attr.pointer.

        (gfc_generate_function_code): Use CLASS_DATA (sym) for BT_CLASS.

        * trans-intrinsic.c (conv_intrinsic_move_alloc): Move assert.

        * trans-stmt.c (trans_associate_var): Ask for the descriptor.

2012-01-27  Tobias Burnus  

        PR fortran/51953

        * match.c (gfc_match_allocate): Allow more than allocate

        object with SOURCE=.

2012-01-27  Tobias Burnus  

        PR fortran/52016

        * resolve.c (resolve_formal_arglist): Fix elemental

        constraint checks for polymorphic dummies.

2012-01-27  Paul Thomas  

            Tobias Burnus 

        PR fortran/48705

        PR fortran/51870

        PR fortran/51943

        PR fortran/51946

        * trans-array.c (gfc_array_init_size): Add two extra arguments

        to convey the dynamic element size of a calls object and to

        return the number of elements that have been allocated.

        (gfc_array_allocate): Add the same arguments and use them to

        call gfc_array_init_size.  Before the allocation dereference

        the data pointer, if necessary. Set the allocated array to zero

        if the class element size or expr3 are non-null.

        * trans-expr.c (gfc_conv_class_to_class): Give this function

        global scope.

        (get_class_array_ref): New function.

        (gfc_copy_class_to_class): New function.

        * trans-array.h : Update prototype for gfc_array_allocate.

        * trans-stmt.c (gfc_trans_allocate): For non-variable class

        STATUS expressions extract the class object and the dynamic

        element size. Use the latter to call gfc_array_allocate and

        the former for setting the vptr and, via

        gfc_copy_class_to_clasfc_cs, to copy to the allocated data.

        * trans.h : Prototypes for gfc_get_class_array_ref,

        gfc_copy_class_to_class and gfc_conv_class_to_class.

2012-01-25  Tobias Burnus  

        * resolve.c (symbol_as): Check also for attr.class_ok.

2012-01-25  Tobias Burnus  

        PR fortran/51995

        * class.c (gfc_build_class_symbol): Fix invalid freeing

        issue with fclass->f2k_derived.

2012-01-25  Tobias Burnus  

        PR fortran/51995

        * class.c (gfc_build_class_symbol): Ensure that

        fclass->f2k_derived is set.

2012-01-25  Tobias Burnus  

        PR fortran/51966

        * resolve.c (resolve_structure_cons): Only create an

        array constructors for nonscalars.

2012-01-23  Tobias Burnus  

        PR fortran/51948

        * check.c (variable_check): Fix checking for

         variables and deeply nested BLOCKs.

2012-01-21  Tobias Burnus  

            Steven G. Kargl  

        PR fortran/50556

        * symbol.c (check_conflict): namelist-group-name cannot have the SAVE

        attribute.

2012-01-21  Tobias Burnus  

        PR fortran/51913

        * interface.c (compare_parameter): Fix CLASS comparison.

2012-01-20  Tobias Burnus  

            Janus Weil  

        PR fortran/51056

        * module.c (load_needed, read_module): Don't mark __vtab etc.

        as use_only.

2012-01-19  Tobias Burnus  

        PR fortran/51904

        * expr.c (gfc_build_intrinsic_call): Also set the symtree.

2012-01-18  Paul Thomas  

        PR fortran/51634

        * trans-expr.c (gfc_conv_procedure_call): Deallocate allocatable

        components of temporary class arguments.

2012-01-17  Tobias Burnus  

            Janne Blomqvist  

        PR fortran/51869

        * trans-expr.c (alloc_scalar_allocatable_for_assignment): Nullify

        LHS after allocation, if it has allocatable components.

        * f95-lang.c (gfc_init_builtin_functions): Add BUILT_IN_CALLOC.

2012-01-16  Mikael Morin  

            Tobias Burnus  

        PR fortran/50981

        * trans-array.c (gfc_walk_elemental_function_args): Fix

        passing of deallocated allocatables/pointers as absent argument.

2012-01-16  Tobias Burnus  

        PR fortran/51809

        * class.c (gfc_find_derived_vtab): Mark __vtab and

        __def_init as FL_VARIABLE not as FL_PARAMETER.

        * expr.c (gfc_simplify_expr): Remove special

        handling of __vtab.

        * resolve.c (resolve_values): Ditto.

        * trans-decl.c (gfc_get_symbol_decl): Mark __vtab

        and __def_init as TREE_READONLY.

2012-01-16  Zydrunas Gimbutas  

        Andreas Kloeckner  

        Steven G. Kargl  

        PR fortran/48426

        * gfortran.h (gfc_option_t): Add members flag_*_kind to store kind.

        * lang.opt: Add options -freal-4-real-8, -freal-4-real-10,

        -freal-4-real-16, -freal-8-real-4, -freal-8-real-10, -freal-8-real-16

        and -finteger-4-integer-8. User-desired type conversion information.

        * decl.c (gfc_match_old_kind_spec,kind_expr): Type conversions

        in declaration parsing.

        * trans-types.c (gfc_init_kinds): User-specified type conversion

        checked for current backend.

        * primary.c (match_integer_constant,match_real_constant): Implement

        type conversion in constant parsing.

        * options.c (gfc_init_options,gfc_handle_option): Translate input

        options to flags in internal options data structure.

        * invoke.texi: Document new options.  Re-order options in Options

        summary section.

2012-01-16  Paul Thomas  

        * trans-array.c (gfc_trans_create_temp_array): In the case of a

        class array temporary, detect a null 'eltype' on entry and use

        'initial' to provde the class reference and so, through the

        vtable, the element size for the dynamic type.

        * trans-stmt.c (gfc_conv_elemental_dependencies): For class

        expressions, set 'eltype' to null and pass the values via the

        'initial' expression.

2012-01-14  Tobias Burnus  

        PR fortran/51800

        * resolve.c (build_default_init_expr): Also initialize

        nonconstant-length strings with -finit-character=.

2011-01-14  Tobias Burnus  

        PR fortran/51816

        * module.c (read_module): Don't make nonexisting

        intrinsic operators as found.

        (rename_list_remove_duplicate): New function.

        (gfc_use_modules): Use it.

2012-01-13  Paul Thomas  

        PR fortran/48351

        * trans-array.c (structure_alloc_comps): Suppress interative

        call to self, when current component is deallocated using

        gfc_trans_dealloc_allocated.

        * class.c (gfc_build_class_symbol): Copy the 'alloc_comp'

        attribute from the declared type to the class structure.

2012-01-13  Tobias Burnus  

        PR fortran/51842

        * fortran/trans-types.c (gfc_init_kinds): Use PTRDIFF_TYPE

        instead of a signed int of size POINTER_SIZE for

        gfc_index_integer_kind.

2012-01-12  Tobias Burnus  

        PR fortran/36755

        * intrinsic.texi (CHMOD): Extend a bit and remove statement

        that /bin/chmod is called.

2012-01-10  Gerald Pfeifer  

        * gfortran.texi (Fortran 2003 Status): Fix grammar.

2012-01-10  Tobias Burnus  

        PR fortran/51652

        * resolve.c (resolve_allocate_expr): For non-deferred char lengths,

        check whether type-spec matches declaration.

2012-01-10  Tobias Burnus  

        * resolve.c (resolve_ordinary_assign): Improve error wording.

2012-01-09  Paul Thomas  

        PR fortran/51791

        * interface.c (matching_typebound_op): Drill down through

        possible parentheses to obtain base expression. Do not test for

        'class_ok' but, instead for the class structure components.

        * resolve.c (resolve_ordinary_assign): Extend error message for

        polymorphic assignment to advise checking for specific

        subroutine.

        PR fortran/51792

        * resolve.c (resolve_typebound_function): Restore 'static' to

        declaration.

2012-01-09  Mikael Morin  

        PR fortran/51758

        * trans-array.c (gfc_walk_elemental_function_args):

        Skip over NULL() actual arguments.

2012-01-09  Tobias Burnus  

        * gfortran.texi: Bump copyright year.

        (Fortran 2003 Status): Update polymorphism item, add

        item for generic interface with DT name.

2012-01-09  Tobias Burnus  

        PR fortran/51578

        * gfortran.h (gfc_use_list):

        * match.h (gfc_use_module): Rename to ...

        (gfc_use_modules): ... this.

        * module.c (use_locus, specified_nonint, specified_int): Remove

        global variable.

        (module_name): Change type to const char*, used with gfc_get_string.

        (module_list): New global variable.

        (free_rename): Free argument not global var.

        (gfc_match_use): Save match to module_list.

        (load_generic_interfaces, read_module): Don't free symtree.

        (write_dt_extensions, gfc_dump_module): Fix module-name I/O due to the

        type change of module_name.

        (write_symbol0, write_generic): Optimize due to the type change.

        (import_iso_c_binding_module, use_iso_fortran_env_module): Use

        locus of rename->where.

        (gfc_use_module): Take module_list as argument.

        (gfc_use_modules): New function.

        (gfc_module_init_2, gfc_module_done_2): Init module_list, rename_list.

        * parse.c (last_was_use_stmt): New global variable.

        (use_modules): New function.

        (decode_specification_statement, decode_statement): Move USE match up

        and call use_modules.

        (next_free, next_fixed): Call use_modules.

        (accept_statement): Don't call gfc_module_use.

2012-01-06  Tobias Burnus 

        * trans-openmp.c (gfc_omp_clause_dtor, gfc_trans_omp_array_reduction):

        Update call to gfc_trans_dealloc_allocated.

        * trans.c (gfc_allocate_using_malloc): Fix spacing.

        (gfc_allocate_allocatable): For gfc_allocate_using_lib, jump to

        label_finish when an error occurs.

        (gfc_deallocate_with_status): Call caf_deregister for -fcoarray=lib.

        * trans.h (gfc_allocate_allocatable, gfc_deallocate_with_status):

        Update prototype.

        (gfor_fndecl_caf_deregister): New tree symbol.

        * trans-expr.c (gfc_conv_procedure_call): Update

        gfc_deallocate_with_status and gfc_trans_dealloc_allocated calls.

        * trans-array.c (gfc_array_allocate, gfc_trans_dealloc_allocated,

        structure_alloc_comps, gfc_trans_deferred_array): Ditto.

        (gfc_array_deallocate): Handle coarrays with -fcoarray=lib.

        * trans-array.h (gfc_array_deallocate, gfc_array_allocate,

        gfc_trans_dealloc_allocated): Update prototypes.

        * trans-stmt.c (gfc_trans_sync): Fix indentation.

        (gfc_trans_allocate): Fix errmsg padding and label handling.

        (gfc_trans_deallocate): Ditto and handle -fcoarray=lib.

        * expr.c (gfc_is_coarray): Fix algorithm for BT_CLASS.

        * libgfortran.h (GFC_STAT_STOPPED_IMAGE): Use large value

        to avoid other stats accidentally matching this one.

        * trans-decl.c (gfor_fndecl_caf_deregister): New global var.

        (gfc_build_builtin_function_decls): Fix prototype decl of caf_register

        and add decl for caf_deregister.

        (gfc_trans_deferred_vars): Handle CAF vars with -fcoarrays=lib.

        * trans-intrinsic.c (conv_intrinsic_move_alloc): Update call to

        gfc_deallocate_with_status.

2012-01-05  Paul Thomas  

        PR fortran/PR48946

        * resolve.c (resolve_typebound_static): If the typebound

        procedure is 'deferred' try to find the correct specific

        procedure in the derived type operator space itself.

2012-01-04  Mikael Morin  

        PR fortran/50981

        * trans-array.h (gfc_walk_elemental_function_args): New argument.

        * trans-intrinsic.c (gfc_walk_intrinsic_function): Update call.

        * trans-stmt.c (gfc_trans_call): Ditto.

        * trans-array.c (gfc_walk_function_expr): Ditto.

        (gfc_walk_elemental_function_args): Get the dummy argument list

        if possible.  Check that the dummy and the actual argument are both

        optional, and set can_be_null_ref accordingly.

2012-01-04  Mikael Morin  

        PR fortran/50981

        * trans.h (struct gfc_ss_info): New field data::scalar::can_be_null_ref

        * trans-array.c: If the reference can be NULL, save the reference

        instead of the value.

        * trans-expr.c (gfc_conv_expr): If we have saved a reference,

        dereference it.

2012-01-04  Mikael Morin  

        * trans-expr.c (gfc_conv_expr): Move address taking...

        (gfc_conv_expr_reference): ... here.

2012-01-04  Thomas Koenig  

        PR fortran/49693

        * trans-common.c (create_common): Update copyright years.  Mark

        variables as used to avoid warnings about unused variables in

        common blocks.

2012-01-03  Hans-Peter Nilsson  

        * gfortran.h (struct gfc_expr): Add missing "struct"

        qualifier for member base_expr.

2012-01-02  Paul Thomas  

        PR fortran/51529

        * trans-array.c (gfc_array_allocate): Null allocated memory of

        newly allocted class arrays.

        PR fortran/46262

        PR fortran/46328

        PR fortran/51052

        * interface.c(build_compcall_for_operator): Add a type to the

        expression.

        * trans-expr.c (conv_base_obj_fcn_val): New function.

        (gfc_conv_procedure_call): Use base_expr to detect non-variable

        base objects and, ensuring that there is a temporary variable,

        build up the typebound call using conv_base_obj_fcn_val.

        (gfc_trans_class_assign): Pick out class procedure pointer

        assignments and do the assignment with no further prcessing.

        (gfc_trans_class_array_init_assign, gfc_trans_class_init_assign

        gfc_trans_class_assign): Move to top of file.

        * gfortran.h : Add 'base_expr' field to gfc_expr.

        * resolve.c (get_declared_from_expr): Add 'types' argument to

        switch checking of derived types on or off.

        (resolve_typebound_generic_call): Set the new argument.

        (resolve_typebound_function, resolve_typebound_subroutine):

        Set 'types' argument for get_declared_from_expr appropriately.

        Identify base expression, if not a variable, in the argument

        list of class valued calls. Assign it to the 'base_expr' field

        of the final expression. Strip away all references after the

        last class reference.

2012-01-02  Tobias Burnus  

        PR fortran/51682

        * trans-intrinsic.c (trans_this_image, trans_image_index,

        trans_num_images, conv_intrinsic_cobound): Fold_convert the

        caf_num_images/caf_this_images variables to the correct int kind.

2012-01-01  Jakub Jelinek  

        * gfortranspec.c (lang_specific_driver): Update copyright notice

        dates.

Copyright (C) 2012 Free Software Foundation, Inc.

Copying and distribution of this file, with or without modification,

are permitted in any medium without royalty provided the copyright

notice and this notice are preserved.