1(* 2 * Copyright (c) 1980 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)fpe.p 5.1 (Berkeley) 04/16/91 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