X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/aa4c6499f0eae7992715a60875e59152f5eafe4a..896386afac0a53b642ff35bb8467791bb952559f:/teshsuite/smpi/MBI/RMAP2PLocalConcurrencyGenerator.py

diff --git a/teshsuite/smpi/MBI/RMAP2PLocalConcurrencyGenerator.py b/teshsuite/smpi/MBI/RMAP2PLocalConcurrencyGenerator.py
new file mode 100644
index 0000000000..0f9f92e1f4
--- /dev/null
+++ b/teshsuite/smpi/MBI/RMAP2PLocalConcurrencyGenerator.py
@@ -0,0 +1,134 @@
+#! /usr/bin/python3
+import os
+import sys
+import generator_utils as gen
+
+template = """// @{generatedby}@
+/* ///////////////////////// The MPI Bugs Initiative ////////////////////////
+
+  Origin: @{origin}@
+
+  Description: @{shortdesc}@
+    @{longdesc}@
+
+  Version of MPI: Conforms to MPI 2, does not require MPI 3 implementation
+
+BEGIN_MPI_FEATURES
+  P2P!basic: @{p2pfeature}@
+  P2P!nonblocking: @{ip2pfeature}@
+  P2P!persistent: Lacking
+  COLL!basic: Lacking
+  COLL!nonblocking: Lacking
+  COLL!persistent: Lacking
+  COLL!tools: Lacking
+  RMA: @{rmafeature}@
+END_MPI_FEATURES
+
+BEGIN_MBI_TESTS
+  $ mpirun -np 3 ${EXE}
+  | @{outcome}@
+  | @{errormsg}@
+END_MBI_TESTS
+//////////////////////       End of MBI headers        /////////////////// */
+
+#include <mpi.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#define N 1
+
+int main(int argc, char **argv) {
+  int nprocs = -1;
+  int rank = -1;
+  MPI_Win win;
+  int * winbuf = (int *)malloc(N * sizeof(int)); // Window buffer
+  int buff_size = N;
+
+  MPI_Init(&argc, &argv);
+  MPI_Comm_size(MPI_COMM_WORLD, &nprocs);
+  MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+  printf("Hello from rank %d \\n", rank);
+
+  if (nprocs < 3)
+    printf("MBI ERROR: This test needs at least 3 processes to produce a bug!\\n");
+
+  MPI_Comm newcom = MPI_COMM_WORLD;
+  MPI_Datatype type = MPI_INT;
+  int stag=0, rtag=0;
+  winbuf[0] = nprocs;
+
+  MPI_Win_create(winbuf, N*sizeof(int), sizeof(int), MPI_INFO_NULL, MPI_COMM_WORLD, &win);
+
+
+  @{init1}@
+  @{init2}@
+  @{init3}@
+
+  @{comment_fence}@MPI_Win_fence(0, win);
+
+  if (rank == 0) {
+    int target=1, dest=2;
+
+    @{comment_lock}@MPI_Win_lock(MPI_LOCK_EXCLUSIVE, 1, 0, win);
+    @{operation1}@
+    @{operation2}@ /* MBIERROR */
+    @{comment_lock}@MPI_Win_unlock(1, win);
+
+    @{fini2}@
+  }else if (rank == 2){
+    int src=0;
+    @{operation3}@
+    @{fini3}@
+  }
+
+  @{comment_fence}@MPI_Win_fence(0, win);
+
+  MPI_Win_free(&win);
+  free(winbuf);
+
+  MPI_Finalize();
+  printf("Rank %d finished normally\\n", rank);
+  return 0;
+}
+"""
+
+
+for p in gen.get:
+    for s in gen.send + gen.isend:
+         for r in gen.recv + gen.irecv:
+             patterns = {}
+             patterns = {'p': p, 's': s, 'r': r}
+             patterns['generatedby'] = f'DO NOT EDIT: this file was generated by {os.path.basename(sys.argv[0])}. DO NOT EDIT.'
+             patterns['origin'] = 'RTED'
+             patterns['shortdesc'] = 'Local Concurrency error.'
+             patterns['longdesc'] = 'Local Concurrency error. Concurrent access of variable localbuf1 by @{p}@ (write) and @{s}@ (read)'
+             patterns['rmafeature'] = 'Yes'
+             patterns['p2pfeature'] = 'Yes' if s in gen.send or r in gen.recv  else 'Lacking'
+             patterns['ip2pfeature'] = 'Yes' if s in gen.isend or r in gen.irecv  else 'Lacking'
+             patterns['p'] = p
+             patterns['s'] = s
+             patterns['r'] = r
+             patterns['init1'] = gen.init[p]("1")
+             patterns['init2'] = gen.init[s]("2")
+             patterns['init3'] = gen.init[r]("3")
+             patterns['fini2'] = gen.fini[s]("2")
+             patterns['fini3'] = gen.fini[r]("3")
+             patterns['operation1'] = gen.operation[p]("1")
+             patterns['operation2'] = gen.operation[s]("2").replace("buf2", "localbuf1")
+             patterns['operation3'] = gen.operation[r]("3")
+             patterns['comment_lock'] = ''
+             patterns['comment_fence'] = ''
+
+             # Use fence epoch
+             replace = patterns.copy()
+             replace['outcome'] = 'ERROR: LocalConcurrency'
+             replace['errormsg'] = 'Local Concurrency error. @{p}@ at @{filename}@:@{line:MBIERROR}@ .'
+             replace['comment_lock'] = '// '
+             gen.make_file(template, f'LocalConcurrency_fence_{p}_{s}_{r}_nok.c', replace)
+
+             # Use lock epoch
+             replace = patterns.copy()
+             replace['outcome'] = 'ERROR: LocalConcurrency'
+             replace['errormsg'] = 'Local Concurrency error. @{p}@ at @{filename}@:@{line:MBIERROR}@ .'
+             replace['comment_fence'] = '// '
+             gen.make_file(template, f'LocalConcurrency_lock_{p}_{s}_{r}_nok.c', replace)