4.3BSD - /usr/src/ucb/pascal/pdx/test/simple.p

   1: program pdxtest( output );
   2: var
   3:     x : real;
   4: begin
   5:     x := 0.5;
   6:     x := 0.0;
   7:     writeln( '17.0/x ', 17.0/x );
   8: end.