148078Sbostic(* 2*62156Sbostic * Copyright (c) 1980, 1993 3*62156Sbostic * The Regents of the University of California. All rights reserved. 448078Sbostic * 548078Sbostic * %sccs.include.redist.c% 648078Sbostic * 7*62156Sbostic * @(#)fpe.p 8.1 (Berkeley) 06/06/93 848078Sbostic *) 948078Sbostic 1048078Sbostic{ 1148078Sbostic test of floating point exception handling 1248078Sbostic} 1348078Sbostic 1448078Sbosticprogram fpe(input, output); 1548078Sbosticvar x, y : real; 1648078Sbosticbegin 1748078Sbostic x := 1; 1848078Sbostic y := 0; 1948078Sbostic writeln(x/y); 2048078Sbosticend. 21