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 / frame.pcat < prev    next >
Text File  |  2006-02-17  |  3KB  |  201 lines
  1. (* This program tests the computation of frameSize. *)
  2.  
  3. program is
  4.  
  5.   var x1, x2: integer := 0;
  6.  
  7.   procedure foo1 (a1: integer) is
  8.     var x1, x2, x3, x4: integer := 0;
  9.     begin
  10.       foo2 (1,2,3,4);
  11.       return;
  12.     end;
  13.   procedure foo2 (a1,a2,a3,a4: integer) is
  14.     var x1: integer := 0;
  15.     begin
  16.       foo3 (1,2);
  17.       return;
  18.     end;
  19.   procedure foo3 (a1,a2: integer) is
  20.     var x1, x2, x3: integer := 0;
  21.     begin
  22.       foo1 (1);
  23.       return;
  24.     end;
  25.  
  26.  
  27.  
  28.   procedure bar1 () is
  29.     begin
  30.       foo1 (1);
  31.       return;
  32.     end;
  33.  
  34.   procedure bar2 (a1: integer) is
  35.     begin
  36.       foo1 (1);
  37.       return;
  38.     end;
  39.  
  40.   procedure bar3 (a1,a2: integer) is
  41.     begin
  42.       foo1 (1);
  43.       return;
  44.     end;
  45.  
  46.   procedure bar4 (a1,a2,a3: integer) is
  47.     begin
  48.       foo1 (1);
  49.       return;
  50.     end;
  51.  
  52.  
  53.  
  54.   procedure bar5 () is
  55.     var x1: integer := 0;
  56.     begin
  57.       foo1 (1);
  58.       return;
  59.     end;
  60.  
  61.   procedure bar6 (a1: integer) is
  62.     var x1: integer := 0;
  63.     begin
  64.       foo1 (1);
  65.       return;
  66.     end;
  67.  
  68.   procedure bar7 (a1,a2: integer) is
  69.     var x1: integer := 0;
  70.     begin
  71.       foo1 (1);
  72.       return;
  73.     end;
  74.  
  75.   procedure bar8 (a1,a2,a3: integer) is
  76.     var x1: integer := 0;
  77.     begin
  78.       foo1 (1);
  79.       return;
  80.     end;
  81.  
  82.  
  83.  
  84.   procedure bar9 () is
  85.     var x1,x2: integer := 0;
  86.     begin
  87.       foo1 (1);
  88.       return;
  89.     end;
  90.  
  91.   procedure bar10 (a1: integer) is
  92.     var x1,x2: integer := 0;
  93.     begin
  94.       foo1 (1);
  95.       return;
  96.     end;
  97.  
  98.   procedure bar11 (a1,a2: integer) is
  99.     var x1,x2: integer := 0;
  100.     begin
  101.       foo1 (1);
  102.       return;
  103.     end;
  104.  
  105.   procedure bar12 (a1,a2,a3: integer) is
  106.     var x1,x2: integer := 0;
  107.     begin
  108.       foo1 (1);
  109.       return;
  110.     end;
  111.  
  112.  
  113.  
  114.   procedure bar13 () is
  115.     var x1,x2: integer := 0;
  116.     begin
  117.       foo2 (1,2,3,4);
  118.       return;
  119.     end;
  120.  
  121.   procedure bar14 (a1: integer) is
  122.     var x1,x2: integer := 0;
  123.     begin
  124.       foo2 (1,2,3,4);
  125.       return;
  126.     end;
  127.  
  128.   procedure bar15 (a1,a2: integer) is
  129.     var x1,x2: integer := 0;
  130.     begin
  131.       foo2 (1,2,3,4);
  132.       return;
  133.     end;
  134.  
  135.   procedure bar16 (a1,a2,a3: integer) is
  136.     var x1,x2: integer := 0;
  137.     begin
  138.       foo2 (1,2,3,4);
  139.       return;
  140.     end;
  141.  
  142.  
  143.  
  144.   procedure fun1 (a1: integer) is
  145.     procedure fun2 (a1: integer) is
  146.       procedure fun3 (a1,a2: integer) is
  147.         procedure fun4 (a1,a2: integer) is
  148.           procedure fun5 () is
  149.             procedure fun6 () is
  150.               procedure fun7 (a1: integer) is
  151.                 procedure fun8 (a1: integer) is
  152.                   var x1: integer := 0;
  153.                   begin
  154.                     foo2 (1,2,3,4);
  155.                     return;
  156.                   end;
  157.                 var x1,x2: integer := 0;
  158.                 begin
  159.                   foo2 (1,2,3,4);
  160.                   return;
  161.                 end;
  162.               var x1: integer := 0;
  163.               begin
  164.                 foo2 (1,2,3,4);
  165.                 return;
  166.               end;
  167.             var x1,x2: integer := 0;
  168.             begin
  169.               foo2 (1,2,3,4);
  170.               return;
  171.             end;
  172.           var x1: integer := 0;
  173.           begin
  174.             foo2 (1,2,3,4);
  175.             return;
  176.           end;
  177.         var x1,x2: integer := 0;
  178.         begin
  179.           foo2 (1,2,3,4);
  180.           return;
  181.         end;
  182.       var x1: integer := 0;
  183.       begin
  184.         foo2 (1,2,3,4);
  185.         return;
  186.       end;
  187.     var x1,x2: integer := 0;
  188.     begin
  189.       foo2 (1,2,3,4);
  190.       return;
  191.     end;
  192.  
  193.  
  194.  
  195.  
  196.   begin
  197.     foo1 (1);
  198.     foo2 (1,2,3,4);
  199.     foo3 (1,2);
  200.   end;
  201.