Skip to content

Commit 5e10562

Browse files
committed
Fix the return variable intent type
1 parent 380d9dd commit 5e10562

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/libasr/pass/pass_compare.cpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -161,7 +161,7 @@ class CompareExprReplacer : public ASR::BaseExprReplacer<CompareExprReplacer>
161161
// Declare `result`
162162
ASR::symbol_t* arg = ASR::down_cast<ASR::symbol_t>(
163163
ASR::make_Variable_t(al, loc, tup_compare_symtab,
164-
s2c(al, "result"), nullptr, 0, ASR::intentType::In, nullptr, nullptr,
164+
s2c(al, "result"), nullptr, 0, ASR::intentType::ReturnVar, nullptr, nullptr,
165165
ASR::storage_typeType::Default, bool_type,
166166
ASR::abiType::Source, ASR::accessType::Public,
167167
ASR::presenceType::Required, false));
@@ -341,7 +341,7 @@ class CompareExprReplacer : public ASR::BaseExprReplacer<CompareExprReplacer>
341341
// Declare `result`
342342
ASR::symbol_t* res_arg = ASR::down_cast<ASR::symbol_t>(
343343
ASR::make_Variable_t(al, loc, list_compare_symtab,
344-
s2c(al, "result"), nullptr, 0, ASR::intentType::In, nullptr, nullptr,
344+
s2c(al, "result"), nullptr, 0, ASR::intentType::ReturnVar, nullptr, nullptr,
345345
ASR::storage_typeType::Default, bool_type,
346346
ASR::abiType::Source, ASR::accessType::Public,
347347
ASR::presenceType::Required, false));

0 commit comments

Comments
 (0)