void
foo(x,dims)
	pdl *x
	PDL_Long *dims = NO_INIT
	CODE:
          dims = bar(ST(1));
          ...