148086Sbostic(* 2*62160Sbostic * Copyright (c) 1980, 1993 3*62160Sbostic * The Regents of the University of California. All rights reserved. 448086Sbostic * 548086Sbostic * %sccs.include.redist.c% 648086Sbostic * 7*62160Sbostic * @(#)simple.p 8.1 (Berkeley) 06/06/93 848086Sbostic *) 948086Sbostic 1048086Sbosticprogram pdxtest( output ); 1148086Sbosticvar 1248086Sbostic x : real; 1348086Sbosticbegin 1448086Sbostic x := 0.5; 1548086Sbostic x := 0.0; 1648086Sbostic writeln( '17.0/x ', 17.0/x ); 1748086Sbosticend. 18