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 / write.pcat < prev   
Text File  |  2006-03-05  |  849b  |  32 lines
  1. (* This program tests IR code generation for various WRITE stmts. *)
  2.  
  3. program is
  4.   var i,j,k : integer := 4321;
  5.   var x: real := 654.321;
  6.   var b1: boolean := false;
  7.   var b2: boolean := true;
  8.  
  9.   begin
  10.     write ("Test printing constants...");
  11.     write ("Should print 1234...");
  12.     write (1234);
  13.     write ("Should print 1234...");
  14.     write (1234);
  15.     write ("Should print 123.456...");
  16.     write (123.456);
  17.     write ("Should print 0...");
  18.     write (0.0);
  19.     write ("Should print TRUE...");
  20.     write (true);
  21.     write ("Should print FALSE...");
  22.     write (false);
  23.     write ("Test printing variables...");
  24.     write ("Should print 654.321...");
  25.     write (x);
  26.     write ("Should print 4321...");
  27.     write (i);
  28.     write ("Should print b1 = FALSE, b2 = TRUE...");
  29.     write ("b1 = ", b1, ", b2 = ", b2);
  30.     write ("Test complete!");
  31.   end;
  32.