Enabled c backend for test_c_interop_03

Author: czgdp1807

.gitignore

@@ -168,4 +168,5 @@ src/lpython/parser/parser.tab.hh
 integration_tests/test_c_interop_01.c
 integration_tests/test_c_interop_01
 integration_tests/test_c_interop_03
+integration_tests/test_c_interop_03.c
 integration_tests/test_c_interop_04

integration_tests/test_c_interop_03.py

@@ -4,39 +4,42 @@
 def f_pi32_i32(x: CPtr) -> i32:
     pass
 
-# @ccall
-# def f_pi64_i32(x: CPtr) -> i64:
-#     pass
+@ccall
+def f_pi64_i32(x: CPtr) -> i64:
+    pass
 
-# @ccall
-# def f_pf32_i32(x: CPtr) -> f32:
-#     pass
+@ccall
+def f_pf32_i32(x: CPtr) -> f32:
+    pass
 
-# @ccall
-# def f_pf64_i32(x: CPtr) -> f64:
-#     pass
+@ccall
+def f_pf64_i32(x: CPtr) -> f64:
+    pass
 
 def test_c_callbacks():
     xi32: i32
     xi32 = 3
     p: CPtr
     p_c_pointer(pointer(xi32), p)
-    # print(pointer(xi32), p)
-    # assert f_pi32_i32(p) == 4
-
-    # xi64: i64
-    # xi64 = 3
-    # p_c_pointer(xi64, p)
-    # assert f_pi64_i32(p) == 4
-
-    # xf32: f32
-    # xf32 = 3.3
-    # p_c_pointer(xf32, p)
-    # assert abs(f_pf32_i32(p)-4.3) < 1e-6
-
-    # xf64: f64
-    # xf64 = 3.3
-    # p_c_pointer(xf64, p)
-    # assert abs(f_pf64_i32(p)-4.3) < 1e-12
+    print(pointer(xi32), p)
+    assert f_pi32_i32(p) == 4
+
+    xi64: i64
+    xi64 = 3
+    p_c_pointer(pointer(xi64), p)
+    print(pointer(xi64), p)
+    assert f_pi64_i32(p) == 4
+
+    xf32: f32
+    xf32 = 3.3
+    p_c_pointer(pointer(xf32), p)
+    print(pointer(xf32), p)
+    assert abs(f_pf32_i32(p)-4.3) < 1e-6
+
+    xf64: f64
+    xf64 = 3.3
+    p_c_pointer(pointer(xf64), p)
+    print(pointer(xf64), p)
+    assert abs(f_pf64_i32(p)-4.3) < 1e-12
 
 test_c_callbacks()

src/libasr/codegen/asr_to_c.cpp

@@ -335,6 +335,12 @@ R"(
             case ASR::ttypeType::Character: {
                 return "%s";
             }
+            case ASR::ttypeType::CPtr: {
+                return "%p";
+            }
+            case ASR::ttypeType::Pointer: {
+                return "%p";
+            }
             default : throw LFortranException("Not implemented");
         }
     }