1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)fpe.p 8.1 (Berkeley) 06/06/93 8 *) 9 10{ 11 test of floating point exception handling 12} 13 14program fpe(input, output); 15var x, y : real; 16begin 17 x := 1; 18 y := 0; 19 writeln(x/y); 20end. 21