#include <octave/oct.h>
#include <octave/f77-fcn.h>

extern "C" F77_RET_T F77_FUNC (barf, BARF) (void);

DEFUN_DLD (foo, , , "")
{
  F77_XFCN (barf, BARF, ());

  return octave_value_list ();
}