diff --git a/src/libasr/codegen/asr_to_llvm.cpp b/src/libasr/codegen/asr_to_llvm.cpp index 61e54152aa..031e2affa0 100644 --- 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 llvm::StructType* array_type = static_cast( 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,