Skip to content
Snippets Groups Projects

Draft: Fortran Support

1 file
+ 2
1
Compare changes
  • Side-by-side
  • Inline
+ 2
1
@@ -83,7 +83,7 @@ class ComplexMissmach(ErrorGenerator):
tm.add_stack_variable("MPI_Request", "request")
tm.add_stack_variable("MPI_Status", "status")
tm.add_stack_variable("int", "countEvenNumbers")
tm.add_stack_variable("int", "tag_sender", "i * N")
tm.add_stack_variable("int", "tag_sender")
tm.add_stack_variable("int", "tag_receiver")
tm.register_instruction(Instruction("#define MSG_TAG_A 124523"))
@@ -94,6 +94,7 @@ class ComplexMissmach(ErrorGenerator):
for (i = 0; i < 10; i++) {
if (rank == 0) {
tag_sender = i * N;
MPI_Isend(buffer, 1, MPI_INT, 1, tag_sender, MPI_COMM_WORLD, &request);
MPI_Wait(&request, &status);
}
Loading