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 / readWrite.pcat < prev    next >
Text File  |  2006-02-17  |  503b  |  22 lines
  1. (* This program tests IR generation for READ and WRITE stmts. *)
  2.  
  3. program is
  4.  
  5.   var i,j,k: integer := 0;
  6.       x,y,z: real := 0.0;
  7.   type A is array of integer;
  8.        R is record
  9.               f1: integer;
  10.               f2: real;
  11.               f3: A;
  12.             end;
  13.   var a: A := nil;
  14.       r: R := nil;
  15.  
  16.   begin
  17.     write ( "Test printing expressions...");
  18.     write ( i+j, k*43+i, x-y-z-i);
  19.     write ( "Test reading complex L-values...");
  20.     read  ( i, x, a[i+j], r.f1, r.f2, r.f3[k*j] );
  21.   end;
  22.