Add a new test (equivalent to tag_example2, but task are submitted in the

reverse order).

examples/Makefile.am

@@ -149,6 +149,7 @@ endif
 
 check_PROGRAMS +=			\
 	tag_example/tag_example			\
+	tag_example/tag_example3			\
 	tag_example/tag_example2
 
 examplebin_PROGRAMS +=			\

examples/tag_example/tag_example3.c

@@ -0,0 +1,134 @@
+/*
+ * StarPU
+ * Copyright (C) INRIA 2008-2009 (see AUTHORS file)
+ *
+ * This program 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.
+ *
+ * This program 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 <semaphore.h>
+#include <string.h>
+#include <math.h>
+#include <sys/types.h>
+#include <pthread.h>
+#include <signal.h>
+
+#include <starpu.h>
+
+#define TAG(i, iter)	((uint64_t)  (((uint64_t)iter)<<32 | (i)) )
+
+sem_t sem;
+starpu_codelet cl;
+
+#define Ni	64
+#define Nk	256
+
+static unsigned ni = Ni, nk = Nk;
+static unsigned callback_cnt;
+static unsigned iter = 0;
+
+static void parse_args(int argc, char **argv)
+{
+	int i;
+	for (i = 1; i < argc; i++) {
+		if (strcmp(argv[i], "-iter") == 0) {
+		        char *argptr;
+			nk = strtol(argv[++i], &argptr, 10);
+		}
+
+		if (strcmp(argv[i], "-i") == 0) {
+		        char *argptr;
+			ni = strtol(argv[++i], &argptr, 10);
+		}
+
+		if (strcmp(argv[i], "-h") == 0) {
+			printf("usage : %s [-iter iter] [-i i]\n", argv[0]);
+		}
+	}
+}
+
+void callback_core(void *argcb);
+
+static void tag_cleanup_grid(unsigned ni, unsigned iter)
+{
+	unsigned i;
+
+	for (i = 0; i < ni; i++)
+	{
+		starpu_tag_remove(TAG(i,iter));
+	}
+
+
+} 
+
+static void create_task_grid(unsigned iter)
+{
+	int i;
+
+//	fprintf(stderr, "start iter %d ni %d...\n", iter, ni);
+
+	callback_cnt = (ni);
+
+	for (i = ni - 1; i > 0; i--)
+	{
+		/* create a new task */
+		struct starpu_task *task = starpu_task_create();
+
+		task->cl = &cl;
+		task->cl_arg = NULL;
+
+		task->use_tag = 1;
+		task->tag_id = TAG(i, iter);
+
+		if (i != 0)
+			starpu_tag_declare_deps(TAG(i,iter), 1, TAG(i-1,iter));
+
+		starpu_submit_task(task);
+	}
+
+}
+
+void core_codelet(void *_args __attribute__ ((unused)))
+{
+}
+
+int main(int argc __attribute__((unused)) , char **argv __attribute__((unused)))
+{
+	unsigned i;
+
+	starpu_init(NULL);
+
+	parse_args(argc, argv);
+
+	cl.core_func = core_codelet;
+	cl.cublas_func = core_codelet;
+	cl.where = CORE;
+	cl.nbuffers = 0;
+
+	fprintf(stderr, "ITER : %d\n", nk);
+
+	for (i = 0; i < nk; i++)
+	{
+		create_task_grid(i);
+
+		starpu_tag_wait(TAG(ni-1, i));
+
+		/* cleanup old grids ... */
+		if (i > 1)
+			tag_cleanup_grid(ni, i-1);
+	}
+
+	starpu_shutdown();
+
+	fprintf(stderr, "TEST DONE ...\n");
+
+	return 0;
+}