anchor.diff:    use datatransferkit
     use x
     use utc
  -#ifdef HAVE_MPI
     use mpi
  -#endif
     implicit none
  +
  +  integer :: ierr
   
     integer(c_int) :: my_rank, num_procs
     integer(kind(DTK_MemorySpace)) :: memory_space
  
positive.code:   deallocate(f_field_name)
    deallocate(udata)
  
  #ifdef HAVE_MPI
    ! Finalize MPI must be called after releasing all handles
    call MPI_FINALIZE(ierr)
  #endif
  
  end program
  
negative.code:   allocate(udata(u%size_1 * u%space_dim))
    u%data = c_loc(udata)
  
    ! Initialize MPI subsystem
    call MPI_INIT(ierr)
    if (ierr /= 0) then
  