File tree Expand file tree Collapse file tree 3 files changed +25
-1
lines changed Expand file tree Collapse file tree 3 files changed +25
-1
lines changed Original file line number Diff line number Diff line change @@ -416,6 +416,7 @@ orte/test/mpi/coll_test
416
416
orte /test /mpi /badcoll
417
417
orte /test /mpi /iof
418
418
orte /test /mpi /no-disconnect
419
+ orte /test /mpi /nonzero
419
420
420
421
orte /test /system /radix
421
422
orte /test /system /sigusr_trap
Original file line number Diff line number Diff line change @@ -5,7 +5,7 @@ PROGS = mpi_no_op mpi_barrier hello hello_nodename abort multi_abort simple_spaw
5
5
parallel_w8 parallel_w64 parallel_r8 parallel_r64 sio sendrecv_blaster early_abort \
6
6
debugger singleton_client_server intercomm_create spawn_tree init-exit77 mpi_info \
7
7
info_spawn server client paccept pconnect ring hello.sapp binding badcoll attach xlib \
8
- no-disconnect
8
+ no-disconnect nonzero
9
9
10
10
all : $(PROGS )
11
11
Original file line number Diff line number Diff line change
1
+ #include <stdlib.h>
2
+ #include <unistd.h>
3
+ #include <mpi.h>
4
+
5
+ int main (int argc , char * * argv )
6
+ {
7
+ int rank ;
8
+
9
+ if (argc < 2 ) {
10
+ return 0 ;
11
+ }
12
+ MPI_Init (& argc , & argv );
13
+ MPI_Comm_rank (MPI_COMM_WORLD ,& rank );
14
+
15
+ int i = atoi (argv [1 ]);
16
+
17
+ MPI_Finalize ();
18
+
19
+ if (i != rank ) {
20
+ sleep (1 );
21
+ }
22
+ return i ;
23
+ }
You can’t perform that action at this time.
0 commit comments