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 / p10 / tst / write.pcat < prev   
Text File  |  2006-02-17  |  528b  |  28 lines
  1. (* This program tests code generation for WRITE statements. *)
  2.  
  3. program is
  4.  
  5.   var x: real := 0.0;
  6.       i: integer := 0;
  7.       b: boolean := false;
  8.  
  9.   procedure foo1 () is
  10.     begin
  11.       write ("Within foo1...");
  12.       write ("x+i = ", x+i);
  13.       write ("b = ", b, "True = ", true, "Bool-expr = ", b and (not b));
  14.       return;
  15.     end;
  16.  
  17.   procedure foo2 () is
  18.     begin
  19.       write ("Within foo2...");
  20.       write ("x-i = ", x-i);
  21.       return;
  22.     end;
  23.  
  24. begin
  25.   write ("Hello, world!");
  26.   write ("x = ", x, "i = ", i);
  27. end;
  28.