root/orte/test/system/orte_spin.c

DEFINITIONS

1. main

   1 /* -*- C -*-
   2  *
   3  * $HEADER$
   4  *
   5  * A program that just spins - provides mechanism for testing user-driven
   6  * abnormal program termination
   7  */
   8 #include "orte_config.h"
   9 #include "orte/constants.h"
  10 
  11 #include <stdio.h>
  12 
  13 #include "opal/mca/event/event.h"
  14 #include "orte/runtime/orte_globals.h"
  15 #include "orte/util/name_fns.h"
  16 #include "orte/runtime/runtime.h"
  17 
  18 int main(int argc, char* argv[])
  19 {
  20     int i;
  21     float pi;
  22 
  23     if (ORTE_SUCCESS != orte_init(&argc, &argv, ORTE_PROC_NON_MPI)) {
  24         fprintf(stderr, "ORTE_INIT FAILED\n");
  25         exit(1);
  26     }
  27     opal_output(0, "%s RUNNING", ORTE_NAME_PRINT(ORTE_PROC_MY_NAME));
  28 
  29     i = 0;
  30     while (1) {
  31         i++;
  32         pi = i / 3.14159256;
  33         if (i == 9995) {
  34             i=0;
  35         }
  36     }
  37 
  38     orte_finalize();
  39 
  40     return 0;
  41 }