anchor.diff:    implicit none
   
     integer :: ierr, id
  -  integer :: myid, npes, gcomm, tag ! MPI variables
  -  integer, dimension(2) :: request
  -  integer, dimension(MPI_STATUS_SIZE) :: status
  +  integer :: myid, npes, tag ! MPI variables
  +  type(MPI_Comm) :: gcomm
  +  type(MPI_Request), dimension(2) :: request
  +  type(MPI_Status) :: status
     integer :: otherID, offset
     integer(occaUDim_t) :: iu
     integer(occaUDim_t) :: entries = 8
  
positive.code: program main
    use mpi
    use occa
    use, intrinsic :: iso_fortran_env, only : stdout=>output_unit, &
                                              stderr=>error_unit
  
negative.code:   request = MPI_REQUEST_NULL
    call MPI_IRecv(ab_ptr(otherID*offset+1), &
                   offset, &
                   MPI_REAL4, &
                   otherID, &
                   tag, &
                   gcomm, &
  