Only use ptr_loads = 0 if it is an argument

The solution in this commit should be simplified.

Author: certik

src/libasr/codegen/asr_to_llvm.cpp

@@ -1247,7 +1247,27 @@ class ASRToLLVMVisitor : public ASR::BaseVisitor<ASRToLLVMVisitor>
         int64_t ptr_loads_copy = ptr_loads;
         for( size_t i = 0; i < x.n_args; i++ ) {
             if (ASR::is_a<ASR::CPtr_t>(*ASRUtils::expr_type(x.m_args[i]))) {
-                ptr_loads = 0;
+                bool is_argument = false;
+                ASR::expr_t *var = x.m_args[i];
+                if (is_a<ASR::Var_t>(*var)) {
+                    ASR::symbol_t *var_sym = ASR::down_cast<ASR::Var_t>(var)
+                        ->m_v;
+                    if (is_a<ASR::Variable_t>(*var_sym)) {
+                        ASR::Variable_t *v = down_cast<ASR::Variable_t>(var_sym);
+                        if (v->m_intent == intent_local ||
+                            v->m_intent == intent_return_var ||
+                            !v->m_intent) {
+                            is_argument = false;
+                        } else {
+                            is_argument = true;
+                        }
+                    }
+                }
+                if (is_argument) {
+                    ptr_loads = 0;
+                } else {
+                    ptr_loads = 1;
+                }
             } else {
                 ptr_loads = 1;
             }