pointer add main.c

Author: scivision

src/pointer/CMakeLists.txt

@@ -2,6 +2,10 @@ set_directory_properties(PROPERTIES LABELS pointer)
 
 add_library(pointer_fortran OBJECT lib.f90)
 
+add_executable(c_fortran_pointer main.c)
+target_link_libraries(c_fortran_pointer PRIVATE pointer_fortran)
+add_test(NAME C_Fortran_pointer COMMAND c_fortran_pointer)
+
 add_executable(cxx_fortran_pointer main.cpp)
 target_link_libraries(cxx_fortran_pointer PRIVATE pointer_fortran)
 add_test(NAME C++_Fortran_pointer COMMAND cxx_fortran_pointer)

src/pointer/main.c

@@ -0,0 +1,27 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+extern void point23(float [], float [], size_t*);
+
+
+int main(void)
+{
+
+  float* a;
+  float* b;
+  size_t N = 3;
+  size_t M = 2;
+
+  a = (float*) malloc(N * sizeof(float));
+  b = (float*) malloc(M * sizeof(float));
+
+  point23(&a[0], &b[0], &N);
+
+  if (b[0] != a[1] || b[1] != a[2]){
+    fprintf(stderr, "value %f != %f or %f != %f\n", b[0], a[1], b[1], a[2]);
+    return 1;
+  }
+
+  printf("OK: C to Fortran pointer\n");
+  return 0;
+}

src/poly_type/main.c

@@ -39,7 +39,7 @@ int main(){
   add_one_C(&xtype, &x4, &A, &C);
   printf("C:4 = %d\n", C);
 
-  printf("OK: poly_type\n");
+  printf("OK: C poly_type\n");
 
   return 0;
 }

src/poly_type/main.cpp

@@ -39,7 +39,7 @@ int main(){
   add_one_C(&xtype, &x4, &A, &C);
   std::cout << "C:4 = " << C << std::endl;
 
-  std::cout << "OK: poly_type" << std::endl;
+  std::cout << "OK: C++ poly_type" << std::endl;
 
   return EXIT_SUCCESS;
 }