[mpich-discuss] Race condition in MPI3 (Fortran, shared memory)

[C.Friedrich]

Sorry, there was a typo: a(*) should be integer rather than real(8).
(ifort accepts it, gfortran does not.)
>      subroutine mpe_win_fence(a,assert,win,err)
>      implicit none
>      integer, intent(inout) :: a(*)
>      integer, intent(in)    :: assert,win
>      integer, intent(out)   :: err
>      call mpi_win_fence(assert,win,err)
>      end



------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------
Forschungszentrum Juelich GmbH
52425 Juelich
Sitz der Gesellschaft: Juelich
Eingetragen im Handelsregister des Amtsgerichts Dueren Nr. HR B 3498
Vorsitzender des Aufsichtsrats: MinDir Dr. Karl Eugen Huthmacher
Geschaeftsfuehrung: Prof. Dr.-Ing. Wolfgang Marquardt (Vorsitzender),
Karsten Beneke (stellv. Vorsitzender), Prof. Dr.-Ing. Harald Bolt,
Prof. Dr. Sebastian M. Schmidt
------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------

_______________________________________________
discuss mailing list     discuss at mpich.org
To manage subscription options or unsubscribe:
https://lists.mpich.org/mailman/listinfo/discuss