begin   
comment exception SINCOSERR;

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

	r := 10000000.0;  
	s := sin(r);	
	write(s);
end.