add c malloc

Author: scivision

src/malloc/CMakeLists.txt

@@ -1,5 +1,10 @@
 set_directory_properties(PROPERTIES LABELS malloc)
 
+add_executable(c_fortran_malloc main.c)
+set_target_properties(c_fortran_malloc PROPERTIES LINKER_LANGUAGE C)
+target_link_libraries(c_fortran_malloc PRIVATE vector_fortran)
+add_test(NAME C_Fortran_malloc COMMAND c_fortran_malloc)
+
 add_executable(cxx_fortran_malloc main.cpp)
 target_link_libraries(cxx_fortran_malloc PRIVATE vector_fortran)
 add_test(NAME C++_Fortran_malloc COMMAND cxx_fortran_malloc)

src/malloc/main.c

@@ -0,0 +1,29 @@
+#include <stdio.h>
+#include <stdlib.h>
+
+extern void timestwo(int [], int [], const size_t*);
+
+
+int main()
+{
+  const size_t N = 3;
+
+  int* x = malloc(N*sizeof(int));
+  int* x2 = malloc(N*sizeof(int));
+
+  timestwo(&x[0], &x2[0], &N);
+
+  for (size_t i=0; i < N; i++){
+    if (x2[i] != 2*x[i]){
+      fprintf(stderr, "value %d != %d\n", x2[i], x[i]);
+      return 1;
+    }
+  }
+
+  free(x);
+  free(x2);
+
+  printf("OK: C malloc new\n");
+
+  return 0;
+}