add poly_type main c

Author: scivision

src/poly_type/CMakeLists.txt

@@ -1,6 +1,13 @@
 set_directory_properties(PROPERTIES LABELS poly_type)
 
-add_executable(cpp_poly_type main.cpp lib.f90)
+add_library(poly_type_lib OBJECT lib.f90)
+
+add_executable(c_poly_type main.c)
+target_link_libraries(c_poly_type PRIVATE poly_type_lib)
+add_test(NAME C_Fortran_poly_type COMMAND c_poly_type)
+
+add_executable(cpp_poly_type main.cpp)
+target_link_libraries(cpp_poly_type PRIVATE poly_type_lib)
 add_test(NAME C++_Fortran_poly_type COMMAND cpp_poly_type)
 
 get_property(test_names DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} PROPERTY TESTS)

src/poly_type/main.c

@@ -0,0 +1,45 @@
+#include <stdio.h>
+
+extern void init_type(int*, void**);
+extern void add_one_C(int*, void**, int*, int*);
+
+
+int main(){
+
+  void* x3;
+  void* x4;
+  int xtype=3;
+  int A, C;
+
+  xtype = 3;
+  init_type(&xtype, &x3);
+
+  add_one_C(&xtype, &x3, &A, &C);
+  if(A != 4) {
+    fprintf(stderr, "Error: %d != 4\n", A);
+    return 1;
+  }
+  printf("C:3 = %d\n", C);
+  add_one_C(&xtype, &x3, &A, &C);
+  printf("C:3 = %d\n", C);
+  add_one_C(&xtype, &x3, &A, &C);
+  printf("C:3 = %d\n", C);
+
+  xtype = 4;
+  init_type(&xtype, &x4);
+
+  add_one_C(&xtype, &x4, &A, &C);
+  if(A != 5) {
+    fprintf(stderr, "Error: %d != 5\n", A);
+    return 1;
+  }
+  printf("C:4 = %d\n", C);
+  add_one_C(&xtype, &x4, &A, &C);
+  printf("C:4 = %d\n", C);
+  add_one_C(&xtype, &x4, &A, &C);
+  printf("C:4 = %d\n", C);
+
+  printf("OK: poly_type\n");
+
+  return 0;
+}