fix array symbol duplication in interactive mode

lcompilers · Jun 15, 2024 · 74795a7 · 74795a7
1 parent e5308f1
commit 74795a7
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/libasr/codegen/asr_to_llvm.cpp b/src/libasr/codegen/asr_to_llvm.cpp
@@ -2738,9 +2738,11 @@ class ASRToLLVMVisitor : public ASR::BaseVisitor<ASRToLLVMVisitor>
  llvm::StructType* array_type = static_cast<llvm::StructType*>(
  llvm_utils->get_type_from_ttype_t_util(x.m_type, module.get()));
  llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name, array_type);
- module->getNamedGlobal(x.m_name)->setInitializer(
- llvm::ConstantStruct::get(array_type,
- llvm::Constant::getNullValue(array_type)));
+ if (!external) {
+ module->getNamedGlobal(x.m_name)->setInitializer(
+ llvm::ConstantStruct::get(array_type,
+ llvm::Constant::getNullValue(array_type)));
+ }
  llvm_symtab[h] = ptr;
  } else if (x.m_type->type == ASR::ttypeType::Logical) {
  llvm::Constant *ptr = module->getOrInsertGlobal(x.m_name,