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 / p6 / tst / writeOK.pcat < prev   
Text File  |  2005-11-18  |  457b  |  29 lines
  1. (* Test WRITE statements.
  2. **
  3. ** This program has no errors.
  4. *)
  5.  
  6. program is
  7.  
  8.   var i: integer := 0;
  9.       f: real := 0.0;
  10.       b: boolean := false;
  11.       r: MyRec := nil;
  12.       a: MyArr1 := nil;
  13.   type MyArr1 is array of MyArr2;
  14.        MyArr2 is array of integer;
  15.        MyRec is record f: integer; end;
  16.  
  17. begin
  18.  
  19.   write ("Hello");
  20.   write (i);
  21.   write (f);
  22.   write (b);
  23.   write (r.f);
  24.   write (a [2] [3]);
  25.  
  26.   write ("Hello", i, f, b, r.f, a [2] [3]);
  27.  
  28. end;
  29.