anyone know the semantics for _gfortran_caf_this_image(0)?

[Steve Kargl]

Well, I have a fully functional RANDOM_INIT implemented with
the caveat that I have no idea what _gfortran_caf_this_image(0)
does.

If I compile 

function foo() result(n)
  integer n
  n = this_image()
end function foo

with -fdump-tree-original -fcoarray=lib -c, I see 

foo ()
{
  integer(kind=4) n;
  n = _gfortran_caf_this_image (0);
  return n;
}

I assume the argument 0 tells _gfortran_caf_this_image to 
return the image index of the current image.  Is this correct?

-- 
Steve