begin   
comment exception EXPERR;
	real r, s;
	
	xcplimit(experr) := 3;
	xcpmark(experr) := true;
	xcpmsg(experr) := "exp exception";
	xcpaction(experr) := 1; 

	r := 11111.0;  
	s := exp(r);	
	write(s);
end.