1*48086Sbostic(* 2*48086Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*48086Sbostic * All rights reserved. 4*48086Sbostic * 5*48086Sbostic * %sccs.include.redist.c% 6*48086Sbostic * 7*48086Sbostic * @(#)simple.p 5.1 (Berkeley) 04/16/91 8*48086Sbostic *) 9*48086Sbostic 10*48086Sbosticprogram pdxtest( output ); 11*48086Sbosticvar 12*48086Sbostic x : real; 13*48086Sbosticbegin 14*48086Sbostic x := 0.5; 15*48086Sbostic x := 0.0; 16*48086Sbostic writeln( '17.0/x ', 17.0/x ); 17*48086Sbosticend. 18