anchor.diff:  
     implicit none
     type(Formura_Navigator) :: navi
  -  integer :: seedsize, mpi_my_rank
  +  integer :: seedsize
     integer,allocatable:: seed(:)
   
   
  
positive.code: 
    subroutine write_global_monitor(navi)
      type(Formura_Navigator) :: navi
      print *, "global monitor"
      if (navi%offset_x + navi%lower_x == 0) then
         print *, "global monitor output"
      end if
    end subroutine write_global_monitor
  
  
negative.code: 
    call init(navi)
  
    call write_global_monitor(navi)
  
    call mpi_finalize(mpi_err)
  contains
  