anchor.diff:              error stop 'FORTRAN pisum fail to converge'
           endif
   
  -        pisum = sysclock2ms(tmin)
       endif
  +
  +    call co_min(tmin)
  +
  +    pisum = sysclock2ms(tmin)
   
   End Function pisum
   
  
positive.code: 
      if (im==1) then
          psum = 4.0_dp*psum
          print *, psum
  
          if (abs(psum-pi) > 1e-4_dp) then
              write(stderr,*) 'final value',psum
  
negative.code: 
      integer, intent(in) :: N,Nrun
  
      integer(i64) :: tic,toc
      integer(i64) :: tmin[*] = huge(0_i64)
      real(dp) :: psum[*] = 0.0_dp
      integer :: k,j, im, Nimg
      real(dp), parameter :: pi = 4.0_dp*atan(1.0_dp)
  
      im = this_image()
      Nimg = num_images()
  