Merge pull request #2193 from Smit-create/i-2187

certik · web-flow · commit 0f660e0be42d · 2023-07-22T12:06:10.000-06:00
C: Fix complex types
diff --git a/src/libasr/codegen/asr_to_c_cpp.h b/src/libasr/codegen/asr_to_c_cpp.h
@@ -450,13 +450,13 @@ R"(#include <stdio.h>
                     if (gen_stdcomplex) {
                         sub = "std::complex<float> ";
                     } else {
-                        sub = "float complex ";
+                        sub = "float_complex_t ";
                     }
                 } else {
                     if (gen_stdcomplex) {
                         sub = "std::complex<double> ";
                     } else {
-                        sub = "double complex ";
+                        sub = "double_complex_t ";
                     }
                 }
             }
diff --git a/src/libasr/codegen/c_utils.h b/src/libasr/codegen/c_utils.h
@@ -314,13 +314,13 @@ namespace CUtils {
             case ASR::ttypeType::Complex: {
                 if( kind == 4 ) {
                     if( is_c ) {
-                        type_src = "float complex";
+                        type_src = "float_complex_t";
                     } else {
                         type_src = "std::complex<float>";
                     }
                 } else if( kind == 8 ) {
                     if( is_c ) {
-                        type_src = "double complex";
+                        type_src = "double_complex_t";
                     } else {
                         type_src = "std::complex<double>";
                     }
diff --git a/tests/reference/c-expr7-bb2692a.json b/tests/reference/c-expr7-bb2692a.json
@@ -6,7 +6,7 @@
     "outfile": null,
     "outfile_hash": null,
     "stdout": "c-expr7-bb2692a.stdout",
-    "stdout_hash": "11026dff0f543f773698075edb3d690f8a475e8639124f1e1dcaef6a",
+    "stdout_hash": "49af46a64f7f11d442e2216c1bb51d307305cc70980caa7952cc85d1",
     "stderr": "c-expr7-bb2692a.stderr",
     "stderr_hash": "6e9790ac88db1a9ead8f64a91ba8a6605de67167037908a74b77be0c",
     "returncode": 0
diff --git a/tests/reference/c-expr7-bb2692a.stdout b/tests/reference/c-expr7-bb2692a.stdout
@@ -23,9 +23,9 @@ double __lpython_overloaded_0__pow(int32_t x, int32_t y)
     return _lpython_return_variable;
 }
 
-float _lfortran_caimag(float complex x);
+float _lfortran_caimag(float_complex_t x);
 
-double _lfortran_zaimag(double complex x);
+double _lfortran_zaimag(double_complex_t x);
 
 void test_pow()
 {

Original file line number	Diff line number	Diff line change
`@@ -450,13 +450,13 @@ R"(#include <stdio.h>`
`450`	`450`	`if (gen_stdcomplex) {`
`451`	`451`	`sub = "std::complex<float> ";`
`452`	`452`	`} else {`
`453`		`- sub = "float complex ";`
	`453`	`+ sub = "float_complex_t ";`
`454`	`454`	`}`
`455`	`455`	`} else {`
`456`	`456`	`if (gen_stdcomplex) {`
`457`	`457`	`sub = "std::complex<double> ";`
`458`	`458`	`} else {`
`459`		`- sub = "double complex ";`
	`459`	`+ sub = "double_complex_t ";`
`460`	`460`	`}`
`461`	`461`	`}`
`462`	`462`	`}`
Original file line number	Diff line number	Diff line change
`@@ -23,9 +23,9 @@ double __lpython_overloaded_0__pow(int32_t x, int32_t y)`
`23`	`23`	`return _lpython_return_variable;`
`24`	`24`	`}`
`25`	`25`
`26`		`-float _lfortran_caimag(float complex x);`
	`26`	`+float _lfortran_caimag(float_complex_t x);`
`27`	`27`
`28`		`-double _lfortran_zaimag(double complex x);`
	`28`	`+double _lfortran_zaimag(double_complex_t x);`
`29`	`29`
`30`	`30`	`void test_pow()`
`31`	`31`	`{`