anchor.diff:  
   #if defined(COARRAY_USE_MPI_FOR_INTENSIVE_COMMS)
   #ifdef REALFLOAT
  -    integer :: mympi_dp = MPI_REAL
  +    integer, parameter :: mympi_dp = MPI_REAL
   #else
  -    integer :: mympi_dp = MPI_DOUBLE_PRECISION
  +    integer, parameter :: mympi_dp = MPI_DOUBLE_PRECISION
   #endif
   #endif
   
  
positive.code: 
      end subroutine
  
      ! Routine to put all domains outputs in a single folder
      subroutine setup_multidomain_output_folder(md)
  
          class(multidomain_type), intent(inout) :: md
          integer:: i, date_time_values(8) ! For date_and_time
          character(len=charlen) :: datetime_char, mkdir_command
  
          call date_and_time(values=date_time_values)
  #ifdef COARRAY
  
negative.code:         class(multidomain_type), intent(inout) :: md
  
          call md%send_halos(send_to_recv_buffer=send_halos_immediately)
          if(.not. send_halos_immediately) call communicate_p2p(md%p2p)
  #ifdef COARRAY
          call sync_all_generic
  #endif
  