Check for no arguments

kmr-srbh · ubaidsk · kmr-srbh · commit d2f51d6e771b · 2024-04-27T10:38:08.000+05:30
Co-authored-by: Shaikh Ubaid &lt;shaikhubaid769@gmail.com&gt;
diff --git a/src/libasr/pass/intrinsic_functions.h b/src/libasr/pass/intrinsic_functions.h
@@ -4673,7 +4673,7 @@ static inline void verify_args(const ASR::IntrinsicElementalFunction_t& x, diag:
 
 static inline ASR::expr_t *eval_list_pop(Allocator &/*al*/,
     const Location &/*loc*/, ASR::ttype_t */*t*/, Vec<ASR::expr_t*>& args, diag::Diagnostics& /*diag*/) {
-        if (args[0] == nullptr) {
+        if (args.n == 0 || args[0] == nullptr) {
             return nullptr;
         }
         ASR::ListConstant_t* clist = ASR::down_cast<ASR::ListConstant_t>(args[0]);

Original file line number	Diff line number	Diff line change
`@@ -4673,7 +4673,7 @@ static inline void verify_args(const ASR::IntrinsicElementalFunction_t& x, diag:`
`4673`	`4673`
`4674`	`4674`	`static inline ASR::expr_t eval_list_pop(Allocator &/al*/,`
`4675`	`4675`	`const Location &/loc/, ASR::ttype_t /t/, Vec<ASR::expr_t>& args, diag::Diagnostics& /diag/) {`
`4676`		`- if (args[0] == nullptr) {`
	`4676`	`+ if (args.n == 0 \|\| args[0] == nullptr) {`
`4677`	`4677`	`return nullptr;`
`4678`	`4678`	`}`
`4679`	`4679`	`ASR::ListConstant_t* clist = ASR::down_cast<ASR::ListConstant_t>(args[0]);`