subroutine george(x, y, z, ifail)
  double precision x, y, z
  integer ifail
  ! some computation here
  call fred(x,y,ifail)
  if ( ifail < 0 )
    print *, 'Error detected in george, ifail =', ifail
    return
  endif
  ! more computation here
end