Przeglądaj źródła

- basic test for the openmp runtime support

Olivier Aumage 11 lat temu
rodzic
commit
b661cb806b
2 zmienionych plików z 38 dodań i 0 usunięć
  1. 4 0
      tests/Makefile.am
  2. 34 0
      tests/openmp/init_exit.c

+ 4 - 0
tests/Makefile.am

@@ -219,6 +219,7 @@ noinst_PROGRAMS =				\
 	microbenchs/redundant_buffer		\
 	microbenchs/local_pingpong		\
 	microbenchs/matrix_as_vector		\
+	openmp/init_exit			\
 	overlap/overlap				\
 	parallel_tasks/explicit_combined_worker	\
 	parallel_tasks/parallel_kernels		\
@@ -428,6 +429,9 @@ main_subgraph_repeat_regenerate_tag_SOURCES +=		\
 	main/increment.cu
 endif
 
+openmp_init_exit_SOURCES = 	\
+	openmp/init_exit.c
+
 ###################
 # Block interface #
 ###################

+ 34 - 0
tests/openmp/init_exit.c

@@ -0,0 +1,34 @@
+/* StarPU --- Runtime system for heterogeneous multicore architectures.
+ *
+ * Copyright (C) 2014  Inria
+ *
+ * StarPU is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published by
+ * the Free Software Foundation; either version 2.1 of the License, or (at
+ * your option) any later version.
+ *
+ * StarPU is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+ *
+ * See the GNU Lesser General Public License in COPYING.LGPL for more details.
+ */
+
+#include <starpu.h>
+#include "../helper.h"
+#include <stdio.h>
+
+#if !defined(STARPU_OPENMP)
+int main(int argc, char **argv)
+{
+	return STARPU_TEST_SKIPPED;
+}
+#else
+int
+main (int argc, char *argv[]) {
+	int ret = starpu_omp_init();
+	STARPU_CHECK_RETURN_VALUE(ret, "starpu_omp_init");
+	starpu_omp_shutdown();
+	return 0;
+}
+#endif