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 / neg.pcat < prev    next >
Text File  |  2006-03-05  |  227b  |  16 lines
  1. (* This program tests ineg and fneg. *)
  2.  
  3. program is
  4.  
  5.   var x: integer := 0;
  6.       y: integer := 3;
  7.       a: real := 0.0;
  8.       b: real := 3.3;
  9.  
  10. begin
  11.   x := - y;
  12.   write ("- 3 = ", x);
  13.   a := - b;
  14.   write ("- 3.3 = ", a);
  15. end;
  16.