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

	subroutine sigfpe()
	call signal(8, sigfpe, -1)
	return
	end