3 # Copyright 2021-2022. The MBI project. All rights reserved.
4 # This program is free software; you can redistribute it and/or modify it under the terms of the license (GNU GPL).
8 from generator_utils import *
10 template = """// @{generatedby}@
11 /* ///////////////////////// The MPI Bugs Initiative ////////////////////////
15 Description: @{shortdesc}@
18 Version of MPI: Conforms to MPI 1.1, does not require MPI 2 implementation
22 P2P!nonblocking: Lacking
23 P2P!persistent: Lacking
25 COLL!nonblocking: Lacking
26 COLL!persistent: Lacking
27 COLL!tools: @{toolfeature}@
36 ////////////////////// End of MBI headers /////////////////// */
41 #define ITERATIONS 100
42 #define PARAM_PER_ITERATION 3
43 #define PARAM_LOST_PER_ITERATION 1
45 static void myOp(int *invec, int *inoutvec, int *len, MPI_Datatype *dtype) {
46 for (int i = 0; i < *len; i++)
47 inoutvec[i] += invec[i];
50 int main(int argc, char **argv) {
56 MPI_Init(&argc, &argv);
57 MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
58 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
59 printf("Hello from rank %d \\n", rank);
62 printf("MBI ERROR: This test needs at least 2 processes to produce a bug!\\n");
75 printf("Rank %d finished normally\\n", rank);
80 # Generate code with one collective
83 patterns = {'call': call}
84 patterns['generatedby'] = f'DO NOT EDIT: this file was generated by {os.path.basename(sys.argv[0])}. DO NOT EDIT.'
85 patterns['toolfeature'] = 'Yes'
86 patterns['call'] = call
87 patterns['operation'] = operation[call]("1")
88 patterns['init'] = init[call]("1")
89 patterns['fini'] = fini[call]("1")
90 patterns['free'] = free[call]("1")
91 missing = patterns['fini']
94 patterns['change_size'] = ''
97 # Generate the correct code
99 replace['shortdesc'] = '@{call}@ is correctly used'
100 replace['longdesc'] = f'{call} correctly used'
101 replace['outcome'] = 'OK'
102 replace['errormsg'] = ''
103 make_file(template, f'ResLeak_{call}_ok.c', replace)
105 # Generate the resleak
107 replace['shortdesc'] = '@{call}@ has no free'
108 replace['longdesc'] = '@{call}@ has no free'
109 replace['outcome'] = f'ERROR: {error[call]}'
110 replace['errormsg'] = 'Resleak. @{call}@ at @{filename}@:@{line:MBIERROR}@ has no free.'
111 replace['fini'] = ' /* MBIERROR MISSING: ' + missing + ' */'
112 make_file(template, f'ResLeak_{call}_nok.c', replace)
114 # Generate multiple resleak
116 replace['shortdesc'] = '@{call}@ lacks several free'
117 replace['longdesc'] = '@{call}@ lacks several free'
118 replace['outcome'] = f'ERROR: {error[call]}'
119 replace['errormsg'] = 'Resleak. @{call}@ at @{filename}@:@{line:MBIERROR}@ lacks several free.'
120 replace['change_size'] = 'size=PARAM_PER_ITERATION;'
121 replace['loop'] = 'for (i = 0; i < ITERATIONS; i++) {\n for (j = 0; j < PARAM_PER_ITERATION; j++) {'
122 replace['cond'] = ' if (j < PARAM_PER_ITERATION - PARAM_LOST_PER_ITERATION) {'
123 replace['fini'] = fini[call]("1") + ' /* MBIERROR */'
124 replace['end'] = ' }\n }\n }'
125 make_file(template, f'ResLeak_multiple_{call}_nok.c', replace)