home *** CD-ROM | disk | FTP | other *** search
/ ftp.ee.pdx.edu / 2014.02.ftp.ee.pdx.edu.tar / ftp.ee.pdx.edu / pub / users / Harry / compilers / p11 / tst / itof.pcat < prev    next >
Text File  |  2006-03-05  |  270b  |  16 lines
  1. (* This program tests integer-to-floating conversion. *)
  2.  
  3. program is
  4.  
  5.   var i: integer := 123;
  6.       j: integer := -321;
  7.       x: real := 0.0;
  8.       y: real := 0.0;
  9.  
  10. begin
  11.   x := i;
  12.   write ("Should print 123...", x);
  13.   y := j;
  14.   write ("Should print -321...", y);
  15. end;
  16.