llvm-gcc-4.0/gcc/testsuite/treelang/compile/function-1.tree

// { dg-do compile }
static int foo ();
static int bar (int a);

foo
{
	return 1;
}

bar
{
	a = a + foo ();
	return a;
}