1
1
openmpi/orte/test/system/iof_delay.c
Rainer Keller 221fb9dbca ... Delayed due to notifier commits earlier this day ...
- Delete unnecessary header files using
   contrib/check_unnecessary_headers.sh after applying
   patches, that include headers, being "lost" due to
   inclusion in one of the now deleted headers...

   In total 817 files are touched.
   In ompi/mpi/c/ header files are moved up into the actual c-file,
   where necessary (these are the only additional #include),
   otherwise it is only deletions of #include (apart from the above
   additions required due to notifier...)

 - To get different MCAs (OpenIB, TM, ALPS), an earlier version was
   successfully compiled (yesterday) on:
   Linux locally using intel-11, gcc-4.3.2 and gcc-SVN + warnings enabled
   Smoky cluster (x86-64 running Linux) using PGI-8.0.2 + warnings enabled
   Lens cluster (x86-64 running Linux) using Pathscale-3.2 + warnings enabled

This commit was SVN r21096.
2009-04-29 01:32:14 +00:00

65 строки
1.0 KiB
C

#include <stdio.h>
#include <signal.h>
#include <math.h>
#include "orte/runtime/runtime.h"
#define MAX_COUNT 300
#define ORTE_IOF_BASE_MSG_MAX 2048
int
main(int argc, char *argv[]){
int count;
int msgsize;
unsigned char msg[ORTE_IOF_BASE_MSG_MAX];
int i, j, rc;
double maxpower;
unsigned char chr;
bool readstdin;
/*
* Init
*/
orte_init(ORTE_NON_TOOL);
if (argc >= 2) {
count = atoi(argv[1]);
if (count < 0) {
count = INT_MAX-1;
}
} else {
count = MAX_COUNT;
}
i = 1;
for (j=1; j < count+1; j++) {
#if 0
maxpower = (double)(j%7);
#endif
chr = (j % 26) + 65;
memset(msg, chr, ORTE_IOF_BASE_MSG_MAX);
msgsize = 10;
msg[msgsize-1] = '\n';
if (i == 1) {
i = 2;
} else {
i = 1;
}
write(i, msg, msgsize);
sleep(3);
}
orte_finalize();
return 0;
}