4 from generator_utils import *
6 template = """// @{generatedby}@
7 /* ///////////////////////// The MPI Bugs Initiative ////////////////////////
11 Description: @{shortdesc}@
14 Version of MPI: Conforms to MPI 1.1, does not require MPI 2 implementation
17 P2P!basic: @{p2pfeature}@
18 P2P!nonblocking: @{ip2pfeature}@
19 P2P!persistent: @{persfeature}0@
21 COLL!nonblocking: Lacking
22 COLL!persistent: Lacking
32 ////////////////////// End of MBI headers /////////////////// */
40 int main(int argc, char **argv) {
47 MPI_Init(&argc, &argv);
48 MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
49 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
50 printf("Hello from rank %d \\n", rank);
53 printf("MBI ERROR: This test needs at least 2 processes to produce a bug!\\n");
55 MPI_Comm newcom = MPI_COMM_WORLD;
56 MPI_Datatype type = MPI_INT;
61 @{operation1}@ /* MBIERROR1 */
63 }else if (@{change_cond}@){
64 @{operation2}@ /* MBIERROR2 */
69 printf("Rank %d finished normally\\n", rank);
75 for p in send + ssend + bsend + recv + irecv + isend:
78 patterns['generatedby'] = f'DO NOT EDIT: this file was generated by {os.path.basename(sys.argv[0])}. DO NOT EDIT.'
79 patterns['p2pfeature'] = 'Yes' if p in send + bsend + ssend + recv else 'Lacking'
80 patterns['ip2pfeature'] = 'Yes' if p in isend + irecv else 'Lacking'
81 patterns['persfeature'] = 'Lacking'
82 #patterns['persfeature'] = 'Yes' if p in psend + precv else 'Lacking'
84 patterns['init1'] = init[p]("1")
85 patterns['init2'] = '' #init[p2]("2")
86 patterns['fini1'] = fini[p]("1")
87 patterns['fini2'] = '' #fini[p2]("2")
88 patterns['operation1'] = operation[p]("1")
89 patterns['operation2'] = '' #operation[p2]("2")
90 patterns['change_cond'] = 'rank == 1'
92 # Generate the incorrect matching with one call
94 replace['shortdesc'] = 'Point to point @{p}@ is not matched'
95 replace['longdesc'] = 'Process 0 calls @{p}@ and is not matched'
96 replace['outcome'] = 'ERROR: CallMatching'
97 replace['errormsg'] = 'P2P mistmatch. @{p}@ at @{filename}@:@{line:MBIERROR1}@ is not matched.'
98 make_file(template, f'CallOrdering_{p}_nok.c', replace)
100 # Generate the incorrect matching with two calls
102 replace['shortdesc'] = 'Both point to point @{p}@ are not matched'
103 replace['longdesc'] = 'Processes 0 and 1 both call @{p}@ which are not matched'
104 replace['outcome'] = 'ERROR: CallMatching'
105 replace['errormsg'] = 'P2P mismatch. @{p}@ at @{filename}@:@{line:MBIERROR1}@ and @{p}@ at @{filename}@:@{line:MBIERROR2}@ are not matched.'
106 replace['operation2'] = operation[p]("1")
107 replace['fini2'] = fini[p]("1")
108 make_file(template, f'CallOrdering_{p}_{p}_nok.c', replace)
110 for s in send + isend + ssend + bsend:
111 for r in recv + irecv:
113 patterns = {'s': s, 'r': r}
114 patterns['generatedby'] = f'DO NOT EDIT: this file was generated by {os.path.basename(sys.argv[0])}. DO NOT EDIT.'
115 patterns['p2pfeature'] = 'Yes' if s in send or r in recv else 'Lacking'
116 patterns['ip2pfeature'] = 'Yes' if s in isend or r in irecv else 'Lacking'
119 patterns['init1'] = init[s]("1")
120 patterns['init2'] = init[r]("2")
121 patterns['fini1'] = fini[s]("1")
122 patterns['fini2'] = fini[r]("2")
123 patterns['operation1'] = operation[s]("1")
124 patterns['operation2'] = operation[r]("2")
125 patterns['change_cond'] = '(rank == 1) && (its_raining)'
127 # Generate the incorrect matching because of the conditional
129 replace['shortdesc'] = 'Point to point @{r}@ is never called.'
130 replace['longdesc'] = 'Point to point @{r}@ is never executed. Process 1 calls MPI_Finalize and causes a deadlock.'
131 replace['outcome'] = 'ERROR: CallMatching'
132 replace['errormsg'] = 'P2P mistmatch. @{r}@ at @{filename}@:@{line:MBIERROR2}@ is never called because of the conditional (@{change_cond}@).'
133 replace['operation1'] = operation[s]("1")
134 replace['operation2'] = operation[r]("2")
135 make_file(template, f'CallOrdering_{r}_{s}_nok.c', replace)