fix issue 740.

ankitaS11 · Jul 9, 2022 · e4d4340 · e4d4340
1 parent 0e39d6c
commit e4d4340
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/libasr/asr_utils.h b/src/libasr/asr_utils.h
@@ -40,7 +40,7 @@ static inline ASR::ttype_t* TYPE(const ASR::asr_t *f)
 
 static inline ASR::symbol_t *symbol_get_past_external(ASR::symbol_t *f)
 {
-    if (f->type == ASR::symbolType::ExternalSymbol) {
+    if (f && f->type == ASR::symbolType::ExternalSymbol) {
         ASR::ExternalSymbol_t *e = ASR::down_cast<ASR::ExternalSymbol_t>(f);
         LFORTRAN_ASSERT(!ASR::is_a<ASR::ExternalSymbol_t>(*e->m_external));
         return e->m_external;