#{ sfpe -- Simple FPE error test.

procedure sfpe ()
begin
	fpe ()
end