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 / offset.pcat < prev    next >
Text File  |  2006-02-17  |  732b  |  27 lines
  1. (* This program tests that variables and formals are assign correct offsets. *)
  2.  
  3. program is
  4.   var x1, x2: integer := 0;
  5.       y1, y2: real := 0;
  6.  
  7.   procedure big (z1,z2,z3: boolean) is
  8.     procedure middle1 (z1,z2,z3: boolean) is
  9.       var v1, v2: integer := 0;
  10.           w1, w2: real := 0;
  11.       begin return; end;
  12.     procedure middle2 (z1,z2,z3: boolean) is
  13.       var v1, v2: integer := 0;
  14.           w1, w2: real := 0;
  15.       begin return; end;
  16.     procedure middle3 (u1, u2, u3: boolean) is
  17.       procedure inner1 () is
  18.         var v1, v2: integer := 0;
  19.             w1, w2: real := 0;
  20.         begin return; end;
  21.       begin return; end;
  22.     var v1, v2: integer := 0;
  23.         w1, w2: real := 0;
  24.     begin return; end;
  25.  
  26. begin end;
  27.