2.9BSD/usr/src/lib/libU77/test/syml.f

	program syml

	integer symlnk
	external symlnk
	write(*,*) symlnk("xyzzy", "poof")
	end