begin   
comment exception LNLOGERR;
	real r, s;
	
	xcplimit(lnlogerr) := 3;
	xcpmark(lnlogerr) := true;
	xcpmsg(lnlogerr) := "log of negative exception";
	xcpaction(lnlogerr) := 2; 

	r := -1.0;  
	s := ln(r);	
	write(s);
end.