activate fortran attr tests

[simgrid.git] / teshsuite / simdag / comm-mxn-scatter / comm-mxn-scatter.c

diff --git a/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c b/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c
index 8fc362d..2efabe6 100644 (file)
--- a/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c
+++ b/teshsuite/simdag/comm-mxn-scatter/comm-mxn-scatter.c
@@ -1,18 +1,18 @@
 /* Latency tests                                                            */
 
-/* Copyright (c) 2007, 2009-2011, 2013-2015. The SimGrid Team.
+/* Copyright (c) 2007-2018. The SimGrid Team.
  * All rights reserved.                                                     */
 
 /* This program is free software; you can redistribute it and/or modify it
  * under the terms of the license (GNU LGPL) which comes with this package. */
 
-#include <stdio.h>
 #include "simgrid/simdag.h"
+XBT_LOG_NEW_DEFAULT_SUBCATEGORY(comm_mxn_scatter, sd, "SimDag test scatter");
 
 /*
  * intra communication test 1
  * scatter
- * 
+ *
  * start: 1 2 3 (each having 1/3 of the bandwidth)
  * after 3 sec: 0 1 2 (having 1/2 of the bandwidth)
  * after another 2 sec: 0 0 1 (having all the bandwidth)
@@ -22,27 +22,25 @@
 
 int main(int argc, char **argv)
 {
-
   double communication_amount[] = { 0.0, 1.0, 2.0, 3.0,
                                     0.0, 0.0, 0.0, 0.0,
                                     0.0, 0.0, 0.0, 0.0,
                                     0.0, 0.0, 0.0, 0.0 };
-  double no_cost[] = { 0.0, 0.0, 0.0, 0.0 };
 
   SD_init(&argc, argv);
   SD_create_environment(argv[1]);
 
   SD_task_t task = SD_task_create("Scatter task", NULL, 1.0);
 
-  SD_task_schedule(task, 4, sg_host_list(), no_cost, communication_amount, -1.0);
+  sg_host_t *hosts = sg_host_list();
+  SD_task_schedule(task, 4, hosts, SD_SCHED_NO_COST, communication_amount, -1.0);
+  xbt_free(hosts);
 
   SD_simulate(-1.0);
 
-  printf("%g\n", SD_get_clock());
-  fflush(stdout);
+  XBT_INFO("%g", SD_get_clock());
 
   SD_task_destroy(task);
 
-  SD_exit();
   return 0;
 }