add malloc new C++

Author: scivision

CMakeLists.txt

@@ -10,7 +10,7 @@ include (cmake/compilers.cmake)
 
 set(CMAKE_RUNTIME_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR})
 
-foreach(d array bool error opaque pointer poly_function poly_type struct submodule tictoc vector)
+foreach(d array bool error malloc opaque pointer poly_function poly_type struct submodule tictoc vector)
   set(td src/${d})
   add_subdirectory(${td})
   get_property(targets DIRECTORY ${td} PROPERTY BUILDSYSTEM_TARGETS)

src/array/main.cpp

@@ -20,5 +20,7 @@ int main()
     }
   }
 
+  std::cout << "OK: array" << std::endl;
+
   return EXIT_SUCCESS;
 }

src/malloc/CMakeLists.txt

@@ -0,0 +1,8 @@
+set_directory_properties(PROPERTIES LABELS 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)
+
+get_property(test_names DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR} PROPERTY TESTS)
+set_tests_properties(${test_names} PROPERTIES TIMEOUT 5)

src/malloc/main.cpp

@@ -0,0 +1,28 @@
+#include <iostream>
+
+extern "C" void timestwo(int [], int [], const size_t*);
+
+
+int main()
+{
+  const size_t N = 3;
+
+  auto x = new int[N];
+  auto x2 = new int[N];
+
+  timestwo(&x[0], &x2[0], &N);
+
+  for (auto i=0u; i < N; i++){
+    if (x2[i] != 2*x[i]){
+      std::cerr << "value " <<  x2[i] << "!=" << x[i] << std::endl;
+      return EXIT_FAILURE;
+    }
+  }
+
+  delete[] x;
+  delete[] x2;
+
+  std::cout << "OK: C++ malloc new" << std::endl;
+
+  return EXIT_SUCCESS;
+}

src/vector/main.cpp

@@ -20,5 +20,7 @@ int main()
     }
   }
 
+  std::cout << "OK: vector" << std::endl;
+
   return EXIT_SUCCESS;
 }