@@ -57,8 +57,8 @@ class ReplaceSymbolicVisitor : public PassUtils::PassVisitor<ReplaceSymbolicVisi
57
57
ASR::asr_t * new_subrout = ASRUtils::make_Function_t_util (al, x.base .base .loc ,
58
58
fn_symtab, s2c (al, new_name), dep.p , dep.n , args.p , args.n , body.p , body.n ,
59
59
nullptr , ASR::abiType::BindC, ASR::accessType::Public,
60
- ASR::deftypeType::Interface, nullptr , false , false , false ,
61
- false , false , nullptr , 0 , nullptr , 0 , false , false , false , s2c (al, header) );
60
+ ASR::deftypeType::Interface, s2c (al, new_name) , false , false , false ,
61
+ false , false , nullptr , 0 , false , false , false );
62
62
ASR::symbol_t *new_symbol = ASR::down_cast<ASR::symbol_t >(new_subrout);
63
63
current_scope->add_symbol (new_name, new_symbol);
64
64
symbolic_replaces_with_CPtr_Module = false ;
@@ -172,4 +172,4 @@ void pass_replace_symbolic(Allocator &al, ASR::TranslationUnit_t &unit,
172
172
v.visit_TranslationUnit (unit);
173
173
}
174
174
175
- } // namespace LCompilers
175
+ } // namespace LCompilers
0 commit comments