Handle multiple block symbols

Author: Thirumalai-Shaktivel

src/libasr/asr_scopes.cpp

@@ -147,15 +147,27 @@ void SymbolTable::move_symbols_from_global_scope(Allocator &/*al*/,
                 for (size_t i = 0; i < fn->n_dependencies; i++ ) {
                     ASR::symbol_t *s = fn->m_symtab->get_symbol(
                         fn->m_dependencies[i]);
-                    ASR::symbol_t *block_s = nullptr;
                     if (s == nullptr) {
-                        block_s = fn->m_symtab->get_symbol("block");
-                    }
-                    while(s == nullptr && block_s != nullptr) {
-                        ASR::Block_t *b = ASR::down_cast<ASR::Block_t>(block_s);
-                        s = b->m_symtab->get_symbol(fn->m_dependencies[i]);
-                        if (s == nullptr) {
-                            block_s = b->m_symtab->get_symbol("block");
+                        std::string block_name = "block";
+                        ASR::symbol_t *block_s = fn->m_symtab->get_symbol(block_name);
+                        int32_t j = 1;
+                        while(block_s != nullptr) {
+                            while(block_s != nullptr) {
+                                ASR::Block_t *b = ASR::down_cast<ASR::Block_t>(block_s);
+                                s = b->m_symtab->get_symbol(fn->m_dependencies[i]);
+                                if (s == nullptr) {
+                                    block_s = b->m_symtab->get_symbol("block");
+                                } else {
+                                    break;
+                                }
+                            }
+                            if (s == nullptr) {
+                                block_s = fn->m_symtab->get_symbol(block_name +
+                                    std::to_string(j));
+                                j++;
+                            } else {
+                                break;
+                            }
                         }
                     }
                     if (s == nullptr) {