@@ -1080,7 +1080,8 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
1080
1080
variable_dependencies_vec.size (), ASR::intentType::Local,
1081
1081
nullptr , nullptr , ASR::storage_typeType::Default,
1082
1082
type, nullptr , ASR::abiType::Source, ASR::accessType::Public,
1083
- ASR::presenceType::Required, false , false , false , nullptr , false );
1083
+ ASR::presenceType::Required, false , false , false , nullptr ,
1084
+ false ,false );
1084
1085
ASR::symbol_t * variable_sym = ASR::down_cast<ASR::symbol_t >(variable_asr);
1085
1086
current_scope->add_symbol (dummy_ret_name, variable_sym);
1086
1087
ASR::expr_t * variable_var = ASRUtils::EXPR (ASR::make_Var_t (al, expr->base .loc , variable_sym));
@@ -2759,7 +2760,7 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
2759
2760
variable_dependencies_vec.size (),
2760
2761
s_intent, nullptr , nullptr , storage_type, type,
2761
2762
nullptr , current_procedure_abi_type, s_access,
2762
- s_presence, value_attr, false , false , nullptr , false );
2763
+ s_presence, value_attr, false , false , nullptr , false , false );
2763
2764
ASR::symbol_t * v_sym = ASR::down_cast<ASR::symbol_t >(v);
2764
2765
current_scope->add_or_overwrite_symbol (var_name, v_sym);
2765
2766
}
@@ -2916,7 +2917,7 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
2916
2917
variable_dependencies_vec.size (), ASRUtils::intent_unspecified,
2917
2918
nullptr , nullptr , ASR::storage_typeType::Default, fn_type->m_arg_types [i],
2918
2919
nullptr , ASR::abiType::Source, ASR::Public, ASR::presenceType::Required,
2919
- false , false , false , nullptr , false ));
2920
+ false , false , false , nullptr , false , false ));
2920
2921
current_scope->add_symbol (arg_name, v);
2921
2922
LCOMPILERS_ASSERT (v != nullptr )
2922
2923
args.push_back (al, ASRUtils::EXPR (ASR::make_Var_t (al, x.m_args .m_args [i].loc , v)));
@@ -3515,7 +3516,7 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
3515
3516
s2c (al, var_name), variable_dependencies_vec.p ,
3516
3517
variable_dependencies_vec.size (), s_intent, init_expr,
3517
3518
value, storage_type, type, nullptr , current_procedure_abi_type,
3518
- s_access, s_presence, value_attr, false , false , nullptr , false );
3519
+ s_access, s_presence, value_attr, false , false , nullptr , false , false );
3519
3520
current_scope->add_symbol (var_name, ASR::down_cast<ASR::symbol_t >(v));
3520
3521
}
3521
3522
@@ -3545,7 +3546,7 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
3545
3546
variable_dependencies_vec.size (),
3546
3547
s_intent, init_expr, value, storage_type, type, nullptr ,
3547
3548
current_procedure_abi_type, s_access, s_presence,
3548
- value_attr, false , false , nullptr , false );
3549
+ value_attr, false , false , nullptr , false , false );
3549
3550
current_scope->add_symbol (var_name, ASR::down_cast<ASR::symbol_t >(v));
3550
3551
}
3551
3552
@@ -4418,6 +4419,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
4418
4419
/* a_name */ s2c (al, module_name),
4419
4420
nullptr ,
4420
4421
0 ,
4422
+ nullptr ,
4421
4423
false , false );
4422
4424
module_sym = ASR::down_cast<ASR::Module_t>(ASR::down_cast<ASR::symbol_t >(tmp1));
4423
4425
parent_scope->add_symbol (module_name, ASR::down_cast<ASR::symbol_t >(tmp1));
@@ -4467,7 +4469,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
4467
4469
variable_dependencies_vec.size (), ASRUtils::intent_unspecified,
4468
4470
nullptr , nullptr , ASR::storage_typeType::Default, func->m_arg_types [i],
4469
4471
nullptr , ASR::abiType::Source, ASR::Public, ASR::presenceType::Required,
4470
- false , false , false , nullptr , false ));
4472
+ false , false , false , nullptr , false , false ));
4471
4473
current_scope->add_symbol (arg_name, v);
4472
4474
LCOMPILERS_ASSERT (v != nullptr )
4473
4475
args.push_back (al, ASRUtils::EXPR (ASR::make_Var_t (al, loc,
@@ -4486,7 +4488,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
4486
4488
variable_dependencies_vec.size (), ASRUtils::intent_return_var,
4487
4489
nullptr , nullptr , ASR::storage_typeType::Default, func->m_return_var_type ,
4488
4490
nullptr , ASR::abiType::Source, ASR::Public, ASR::presenceType::Required,
4489
- false , false , false , nullptr , false );
4491
+ false , false , false , nullptr , false , false );
4490
4492
current_scope->add_symbol (return_var_name, ASR::down_cast<ASR::symbol_t >(return_var));
4491
4493
to_return = ASRUtils::EXPR (ASR::make_Var_t (al, loc,
4492
4494
ASR::down_cast<ASR::symbol_t >(return_var)));
@@ -4684,6 +4686,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
4684
4686
alloc_arg.n_dims = 0 ;
4685
4687
alloc_arg.m_type = nullptr ;
4686
4688
alloc_arg.m_len_expr = nullptr ;
4689
+ alloc_arg.m_sym_subclass = nullptr ;
4687
4690
alloc_args.push_back (al, alloc_arg);
4688
4691
init_expr = ASRUtils::EXPR (ASR::make_Allocate_t (al, loc, alloc_args.p , 1 , nullptr , nullptr , nullptr ));
4689
4692
@@ -4726,7 +4729,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
4726
4729
variable_dependencies_vec.size (),
4727
4730
s_intent, init_expr, value, storage_type, arg_type,
4728
4731
nullptr , current_procedure_abi_type, s_access, s_presence,
4729
- value_attr, false , false , nullptr , false );
4732
+ value_attr, false , false , nullptr , false , false );
4730
4733
v = ASR::down_cast<ASR::symbol_t >(_tmp);
4731
4734
4732
4735
}
@@ -4770,7 +4773,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
4770
4773
current_scope, s2c (al, return_var_name), variable_dependencies_vec.p ,
4771
4774
variable_dependencies_vec.size (), ASRUtils::intent_return_var,
4772
4775
nullptr , nullptr , storage_type, type, nullptr , current_procedure_abi_type, ASR::Public,
4773
- ASR::presenceType::Required, false , false , false , nullptr , false );
4776
+ ASR::presenceType::Required, false , false , false , nullptr , false , false );
4774
4777
LCOMPILERS_ASSERT (current_scope->get_scope ().find (return_var_name) == current_scope->get_scope ().end ())
4775
4778
current_scope->add_symbol (return_var_name,
4776
4779
ASR::down_cast<ASR::symbol_t >(return_var));
@@ -5108,7 +5111,7 @@ class SymbolTableVisitor : public CommonVisitor<SymbolTableVisitor> {
5108
5111
ASR::asr_t *v = ASR::make_Variable_t (al, x.base .base .loc , current_scope,
5109
5112
s2c (al, tvar_name), variable_dependencies_vec.p , variable_dependencies_vec.size (),
5110
5113
s_intent, init_expr, value, storage_type, type, nullptr , current_procedure_abi_type,
5111
- s_access, s_presence, value_attr, false , false , nullptr , false );
5114
+ s_access, s_presence, value_attr, false , false , nullptr , false , false );
5112
5115
current_scope->add_symbol (tvar_name, ASR::down_cast<ASR::symbol_t >(v));
5113
5116
5114
5117
tmp = nullptr ;
@@ -5868,7 +5871,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
5868
5871
variable_dependencies_vec.p , variable_dependencies_vec.size (),
5869
5872
ASR::intentType::Local, nullptr , nullptr , storage_type,
5870
5873
int_type, nullptr , ASR::abiType::Source, ASR::accessType::Public,
5871
- ASR::presenceType::Required, false , false , false , nullptr , false
5874
+ ASR::presenceType::Required, false , false , false , nullptr , false , false
5872
5875
);
5873
5876
current_scope->add_symbol (explicit_iter_name,
5874
5877
ASR::down_cast<ASR::symbol_t >(explicit_iter_variable));
@@ -6075,7 +6078,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
6075
6078
s2c (al, tmp_assign_name), variable_dependencies_vec.p , variable_dependencies_vec.size (),
6076
6079
ASR::intentType::Local, nullptr , nullptr , ASR::storage_typeType::Default,
6077
6080
loop_src_var_ttype, nullptr , ASR::abiType::Source, ASR::accessType::Public,
6078
- ASR::presenceType::Required, false , false , false , nullptr , false
6081
+ ASR::presenceType::Required, false , false , false , nullptr , false , false
6079
6082
);
6080
6083
ASR::symbol_t *tmp_assign_variable_sym = ASR::down_cast<ASR::symbol_t >(tmp_assign_variable);
6081
6084
current_scope->add_symbol (tmp_assign_name, tmp_assign_variable_sym);
@@ -6113,7 +6116,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
6113
6116
s2c (al, tmp_assign_name), variable_dependencies_vec.p , variable_dependencies_vec.size (),
6114
6117
ASR::intentType::Local, nullptr , nullptr , ASR::storage_typeType::Default,
6115
6118
loop_src_var_ttype, nullptr , ASR::abiType::Source, ASR::accessType::Public,
6116
- ASR::presenceType::Required, false , false , false , nullptr , false
6119
+ ASR::presenceType::Required, false , false , false , nullptr , false , false
6117
6120
);
6118
6121
ASR::symbol_t *tmp_assign_variable_sym = ASR::down_cast<ASR::symbol_t >(tmp_assign_variable);
6119
6122
current_scope->add_symbol (tmp_assign_name, tmp_assign_variable_sym);
@@ -8791,6 +8794,7 @@ we will have to use something else.
8791
8794
new_arg.m_dims = dims.p ;
8792
8795
new_arg.n_dims = dims.size ();
8793
8796
new_arg.m_a = assign_asr_target;
8797
+ new_arg.m_sym_subclass = nullptr ;
8794
8798
alloc_args_vec.push_back (al, new_arg);
8795
8799
tmp = ASR::make_Allocate_t (al, loc,
8796
8800
alloc_args_vec.p , alloc_args_vec.size (),
0 commit comments