Skip duplicating of BlockCall and Goto nodes in inline_function_calls

Author: Thirumalai-Shaktivel

src/libasr/pass/inline_function_calls.cpp

@@ -338,6 +338,10 @@ class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCa
         // Duplicate each and every statement of the function body.
         for( size_t i = 0; i < func->n_body && success; i++ ) {
             node_duplicator.success = true;
+            if (ASR::is_a<ASR::BlockCall_t>(*func->m_body[i])
+             || ASR::is_a<ASR::GoTo_t>(*func->m_body[i])){
+                continue;
+            }
             ASR::stmt_t* m_body_copy = node_duplicator.duplicate_stmt(func->m_body[i]);
             if( node_duplicator.success ) {
                 func_copy.push_back(al, m_body_copy);
@@ -350,7 +354,7 @@ class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCa
             // Set inlining_function to true so that we inline
             // only one function at a time.
             inlining_function = true;
-            for( size_t i = 0; i < func->n_body && success; i++ ) {
+            for( size_t i = 0; i < func_copy.size() && success; i++ ) {
                 fixed_duplicated_expr_stmt = true;
                 visit_stmt(*func_copy[i]);
                 success = success && fixed_duplicated_expr_stmt;
@@ -373,7 +377,7 @@ class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCa
                 }
 
                 bool is_goto_added = false;
-                for( size_t i = 0; i < func->n_body; i++ ) {
+                for( size_t i = 0; i < func_copy.size(); i++ ) {
                     return_replacer.current_stmt = &func_copy.p[i];
                     return_replacer.has_replacement_happened = false;
                     return_replacer.replace_stmt(func_copy[i]);