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 / param2.pcat < prev    next >
Text File  |  2006-03-05  |  309b  |  17 lines
  1. (* This program tests returning results. *)
  2.  
  3. program is
  4.   procedure foo1 (): integer is
  5.       begin
  6.         return 123;
  7.       end;
  8.   procedure foo2 (): real is
  9.       begin
  10.         return 43.21;
  11.       end;
  12.  
  13.   begin
  14.     write ("Should print 123...", foo1());
  15.     write ("Should print 43.21...", foo2());
  16.   end;
  17.