fixed to make flang happy

Author: gronki

src/operation/builtin/trace_operation.f90

@@ -57,7 +57,7 @@ pure function is_elemental()
    is_elemental = .false.
 end function
 
-pure subroutine get_info(argspec, help)
+subroutine get_info(argspec, help)
    type(arg_entry_t), intent(out), allocatable, optional :: argspec(:)
    character(len=:), intent(out), allocatable, optional :: help
 

src/operation/database.f90

@@ -29,7 +29,7 @@ module operation_database_m
 
 contains
 
-pure subroutine operation_db_init(operation_db)
+subroutine operation_db_init(operation_db)
    use operation_mksequence_m
    use operation_item_m
    use operation_trace_m
@@ -41,12 +41,12 @@ pure subroutine operation_db_init(operation_db)
    call add_operation(operation_db, op_trace_t())
 end subroutine
 
-pure function operation_db_new()
+function operation_db_new()
    type(operation_db_t) :: operation_db_new !! operation catalog
    call operation_db_init(operation_db_new)
 end function
 
-pure subroutine fetch_operation(operation_db, opname, op, err)
+subroutine fetch_operation(operation_db, opname, op, err)
    !! fetches an operation from the operation database based on its name
 
    type(operation_db_t), intent(in) :: operation_db !! operation catalog
@@ -93,7 +93,7 @@ pure subroutine fetch_operation(operation_db, opname, op, err)
 
 end subroutine
 
-pure subroutine add_operation(operation_db, op, err)
+subroutine add_operation(operation_db, op, err)
    !! fetches an operation from the operation database based on its name
 
    type(operation_db_t), intent(inout) :: operation_db !! operation catalog

src/operation/example/pow.f90

@@ -46,7 +46,7 @@ pure function powd_name() result(name)
    name = "pow"
 end function
 
-pure subroutine get_info(argspec, help)
+subroutine get_info(argspec, help)
    type(arg_entry_t), intent(out), allocatable, optional :: argspec(:)
    character(len=:), intent(out), allocatable, optional :: help
 

src/operation/example/square.f90

@@ -41,7 +41,7 @@ pure function squared_name() result(name)
    name = "squared"
 end function
 
-pure subroutine get_info(argspec, help)
+subroutine get_info(argspec, help)
    type(arg_entry_t), intent(out), allocatable, optional :: argspec(:)
    character(len=:), intent(out), allocatable, optional :: help
 

src/operation/input_args.f90

@@ -15,7 +15,7 @@ module input_args_m
 type input_key_t
    logical :: has_key = .false.
    character(len=key_max_len) :: key = ""
-   type(token_loc_t) :: loc
+   type(token_loc_t) :: loc = token_loc_t()
 end type input_key_t
 
 public :: input_key_t
@@ -115,6 +115,8 @@ subroutine collect_keys(argspec, actual_keys, key_positions, err)
    character(len=:), allocatable :: current_key
    type(set_t) :: valid_keys
 
+   valid_keys%hasher => fnv_hash
+
    keyword_section = .false.
 
    if (size(actual_keys) > size(argspec)) then
@@ -178,6 +180,8 @@ subroutine match_arguments(argspec, actual_keys, match, err)
    type(dict_t) :: key_positions
    integer :: iarg
 
+   key_positions % hasher => fnv_hash
+
    if (size(match) /= size(argspec)) then
       error stop "match_arguments: Dimensions of argspec and match must be the same."
    end if

src/operation/namespace.f90

@@ -25,7 +25,7 @@ module namespace_m
 
 contains
 
-pure subroutine namespace_push_value(namespace, key, value, err)
+subroutine namespace_push_value(namespace, key, value, err)
    class(namespace_t), intent(inout) :: namespace
    character(len=*), intent(in) :: key
    class(value_t), intent(in) :: value
@@ -37,7 +37,7 @@ pure subroutine namespace_push_value(namespace, key, value, err)
    call namespace_move_value_in(namespace, key, new_value, err)
 end subroutine
 
-pure subroutine namespace_move_value_in(namespace, key, value, err)
+subroutine namespace_move_value_in(namespace, key, value, err)
    class(namespace_t), intent(inout) :: namespace
    character(len=*), intent(in) :: key
    class(value_t), intent(inout), allocatable :: value
@@ -62,7 +62,7 @@ pure subroutine namespace_move_value_in(namespace, key, value, err)
 
 end subroutine
 
-pure subroutine namespace_fetch_value(namespace, key, value, err)
+subroutine namespace_fetch_value(namespace, key, value, err)
    class(namespace_t), intent(in) :: namespace
    character(len=*), intent(in) :: key
    class(value_t), allocatable, intent(inout) :: value
@@ -84,7 +84,7 @@ pure subroutine namespace_fetch_value(namespace, key, value, err)
 
 end subroutine
 
-pure subroutine namespace_fetch_ptr(namespace, key, ptr, err)
+subroutine namespace_fetch_ptr(namespace, key, ptr, err)
    !! Fetches pointer to value of item contained in a namespace.
    class(namespace_t), intent(inout), target :: namespace
    !! Namespace - must be target!

src/operation/operation.f90

@@ -197,7 +197,7 @@ pure function is_elemental()
    is_elemental = .true.
 end function is_elemental
 
-pure subroutine get_info(argspec, help)
+subroutine get_info(argspec, help)
    type(arg_entry_t), intent(out), allocatable, optional :: argspec(:)
    character(len=:), intent(out), allocatable, optional :: help
 end subroutine

src/parser/ast.f90

@@ -132,7 +132,7 @@ function ast_expr_op_name_args(op_name, num_args, args, keys, loc) result(val_ex
  !> This procedure performs a (deep) copy of AST nodes.
  !> This is only needed to work around gfortran bug
  !> preventing correct copies and causing double free error.
-recursive pure subroutine ast_expression_copy(to, from)
+recursive subroutine ast_expression_copy(to, from)
    !> Node to copy to.
    type(ast_expression_t), intent(inout) :: to
    !> Node to copy from.

src/parser/token.f90

@@ -22,7 +22,7 @@ module token_m
 type, public :: token_t
    integer :: type = token_none
    character(len=:), allocatable :: value
-   type(token_loc_t) :: loc
+   type(token_loc_t) :: loc = token_loc_t()
 end type
 
 

src/value/value.f90

@@ -18,7 +18,7 @@ module value_m
 public :: value_trace_t
 
 type, abstract :: value_t
-   type(value_trace_t) :: trace
+   type(value_trace_t) :: trace = value_trace_t()
 contains
    procedure :: get_trace
    procedure :: to_str