teshsuite/smpi/MBI/RMARemoteLocalConcurrencyGenerator.py

   1 #! /usr/bin/python3
   2 import os
   3 import sys
   4 import generator_utils as gen
   5
   6 template = """// @{generatedby}@
   7 /* ///////////////////////// The MPI Bugs Initiative ////////////////////////
   8
   9   Origin: MBI
  10
  11   Description: @{shortdesc}@
  12     @{longdesc}@
  13
  14   Version of MPI: Conforms to MPI 2, requires MPI 3 implementation (for lock_all/unlock_all epochs)
  15
  16 BEGIN_MPI_FEATURES
  17   P2P!basic: Lacking
  18   P2P!nonblocking: Lacking
  19   P2P!persistent: Lacking
  20   COLL!basic: Lacking
  21   COLL!nonblocking: Lacking
  22   COLL!persistent: Lacking
  23   COLL!tools: Lacking
  24   RMA: @{rmafeature}@
  25 END_MPI_FEATURES
  26
  27 BEGIN_MBI_TESTS
  28   $ mpirun -np 2 ${EXE}
  29   | @{outcome}@
  30   | @{errormsg}@
  31 END_MBI_TESTS
  32 //////////////////////       End of MBI headers        /////////////////// */
  33
  34 #include <mpi.h>
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37
  38 #define N 10
  39
  40 int main(int argc, char **argv) {
  41   int nprocs = -1;
  42   int rank = -1;
  43   MPI_Win win;
  44   int winbuf[100] = {0};
  45
  46   MPI_Init(&argc, &argv);
  47   MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
  48   MPI_Comm_rank(MPI_COMM_WORLD, &rank);
  49   printf("Hello from rank %d \\n", rank);
  50
  51   if (nprocs < 2)
  52     printf("MBI ERROR: This test needs at least 2 processes to produce a bug!\\n");
  53
  54   MPI_Datatype type = MPI_INT;
  55   int target = 1 - rank;
  56
  57   MPI_Win_create(&winbuf, 100 * sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_WORLD, &win);
  58
  59   @{init1}@
  60   @{init2}@
  61
  62   @{epoch}@
  63
  64   if (rank == 0) {
  65     @{operation1}@ /* MBIERROR1 */
  66   }
  67   if(rank == 1){
  68     @{operation2}@ /* MBIERROR2 */
  69   }
  70
  71   @{finEpoch}@
  72
  73   MPI_Win_free(&win);
  74
  75   MPI_Finalize();
  76   return 0;
  77 }
  78 """
  79
  80
  81 for e in gen.epoch:
  82     for p1 in gen.get:
  83         for p2 in gen.put + gen.rstore + gen.rload + gen.get :
  84             patterns = {}
  85             patterns = {'e': e, 'p1': p1, 'p2': p2}
  86             patterns['generatedby'] = f'DO NOT EDIT: this file was generated by {os.path.basename(sys.argv[0])}. DO NOT EDIT.'
  87             patterns['rmafeature'] = 'Yes'
  88             patterns['p1'] = p1
  89             patterns['p2'] = p2
  90             patterns['e'] = e
  91             patterns['epoch'] = gen.epoch[e]("1")
  92             patterns['finEpoch'] = gen.finEpoch[e]("1")
  93             patterns['init1'] = gen.init[p1]("1")
  94             patterns['operation1'] = gen.operation[p1]("1")
  95             patterns['init2'] = gen.init[p2]("2")
  96             patterns['operation2'] = gen.operation[p2]("2")
  97
  98             # Generate a data race (Get + Get/load/store/Put)
  99             replace = patterns.copy()
 100             replace['shortdesc'] = 'Global Concurrency error.'
 101             replace['longdesc'] = 'Global Concurrency error. @{p2}@ conflicts with @{p1}@'
 102             replace['outcome'] = 'ERROR: GlobalConcurrency'
 103             replace['errormsg'] = 'Global Concurrency error. @{p2}@ at @{filename}@:@{line:MBIERROR2}@ conflicts with @{p1}@ line @{line:MBIERROR1}@'
 104
 105             # Replace Put and Get first argument
 106             if p2 in gen.put:
 107                 replace['operation2'] = 'MPI_Put(&winbuf[5], N, MPI_INT, target, 0, N, type, win);'
 108                 replace['outcome'] = 'OK'
 109                 replace['errormsg'] = 'OK'
 110             elif p2 in gen.get:
 111                 replace['operation2'] = 'MPI_Get(&winbuf[5], N, MPI_INT, target, 0, N, type, win);'
 112             elif p2 in gen.rload:
 113                 replace['outcome'] = 'OK'
 114                 replace['errormsg'] = 'OK'
 115
 116             ok = 'ok' if replace['outcome'] == 'OK' else 'nok'
 117             gen.make_file(template, f'GlobalConcurrency_rl_{e}_{p1}_{p2}_{ok}.c', replace)
 118
 119
 120 for e in gen.epoch:
 121     for p1 in gen.put:
 122         for p2 in gen.rstore + gen.rload + gen.put + gen.get:
 123             patterns = {}
 124             patterns = {'e': e, 'p1': p1, 'p2': p2}
 125             patterns['generatedby'] = f'DO NOT EDIT: this file was generated by {os.path.basename(sys.argv[0])}. DO NOT EDIT.'
 126             patterns['rmafeature'] = 'Yes'
 127             patterns['p1'] = p1
 128             patterns['p2'] = p2
 129             patterns['e'] = e
 130             patterns['epoch'] = gen.epoch[e]("1")
 131             patterns['finEpoch'] = gen.finEpoch[e]("1")
 132             patterns['init1'] = gen.init[p1]("1")
 133             patterns['operation1'] = gen.operation[p1]("1")
 134             patterns['init2'] = gen.init[p2]("2")
 135             patterns['operation2'] = gen.operation[p2]("2")
 136
 137             # Generate a data race (Put + store)
 138             replace = patterns.copy()
 139             replace['shortdesc'] = 'Global Concurrency error.'
 140             replace['longdesc'] = 'Global Concurrency error. @{p2}@ conflicts with @{p1}@'
 141             replace['outcome'] = 'ERROR: GlobalConcurrency'
 142             replace['errormsg'] = 'Global Concurrency error. @{p2}@ at @{filename}@:@{line:MBIERROR2}@ conflicts with @{p1}@ line @{line:MBIERROR1}@'
 143
 144             # Replace Put/Get first argument
 145             if p2 in gen.put:
 146               replace['operation2'] = 'MPI_Put(&winbuf[5], N, MPI_INT, target, 0, N, type, win);'
 147             elif p2 in gen.get:
 148               replace['operation2'] = 'MPI_Get(&winbuf[5], N, MPI_INT, target, 0, N, type, win);'
 149
 150             gen.make_file(template, f'GlobalConcurrency_rl_{e}_{p1}_{p2}_nok.c', replace)