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 / p11 / tst / param1.pcat < prev    next >
Text File  |  2006-03-05  |  869b  |  39 lines
  1. (* This program tests passing parameters. *)
  2.  
  3. program is
  4.   procedure foo1 (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10: integer) is
  5.       begin
  6.         write (a1);
  7.         write (a2);
  8.         write (a3);
  9.         write (a4);
  10.         write (a5);
  11.         write (a6);
  12.         write (a7);
  13.         write (a8);
  14.         write (a9);
  15.         write (a10);
  16.         return;
  17.       end;
  18.   procedure foo2 (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10: real) is
  19.       begin
  20.         write (a1);
  21.         write (a2);
  22.         write (a3);
  23.         write (a4);
  24.         write (a5);
  25.         write (a6);
  26.         write (a7);
  27.         write (a8);
  28.         write (a9);
  29.         write (a10);
  30.         return;
  31.       end;
  32.  
  33.   begin
  34.     write ("Should print 1, 2, 3, ..., 10:");
  35.     foo1 (1,2,3,4,5,6,7,8,9,10);
  36.     write ("Should print 1.1, 2.2, 3.3, ..., 10.1:");
  37.     foo2 (1.1, 2.2, 3.3, 4.4, 5.5, 6.6, 7.7, 8.8, 9.9, 10.1);
  38.   end;
  39.