Skip to content
Snippets Groups Projects

Draft: Fortran Support

1 file
+ 3
2
Compare changes
  • Side-by-side
  • Inline
@@ -5,6 +5,7 @@ from Infrastructure.CorrectParameter import CorrectParameterFactory
from Infrastructure.ErrorGenerator import ErrorGenerator
from Infrastructure.MPICallFactory import CorrectMPICallFactory
from Infrastructure.Template import TemplateManager
from Infrastructure.ArrAsgn import ArrAsgn
class MessageRaceErrorAnyTag(ErrorGenerator):
@@ -26,7 +27,7 @@ class MessageRaceErrorAnyTag(ErrorGenerator):
# send part
tm.register_instruction("for(int i =0; i < 10; ++i) {", rank_to_execute=1)
tm.register_instruction("buf[0]=i;", rank_to_execute=1)
tm.register_instruction(ArrAsgn("buf", 0, "i"), rank_to_execute=1)
send_call = CorrectMPICallFactory().mpi_send()
send_call.set_arg("tag", "i")
tm.register_instruction(send_call, rank_to_execute=1)
@@ -72,7 +73,7 @@ class MessageRaceErrorAnysource(ErrorGenerator):
tm.register_instruction(CorrectParameterFactory().get_buffer_alloc())
# send part
tm.register_instruction("buf[0]=rank;", rank_to_execute='not0')
tm.register_instruction(ArrAsgn("buf", 0, "rank"), rank_to_execute='not0')
send_call = CorrectMPICallFactory().mpi_send()
tm.register_instruction(send_call, rank_to_execute='not0')
# rank 1 sends an additional msg
Loading