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 / call3.pcat < prev    next >
Text File  |  2006-03-05  |  618b  |  27 lines
  1. (* This program tests returning expressions. *)
  2.  
  3. program is
  4.   procedure foo1 () : integer is
  5.       procedure foo2 () : integer is
  6.           begin
  7.             write ("    Within foo2...");
  8.             write ("    Leaving foo2");
  9.             return 123;
  10.           end;
  11.       var j: integer := 0;
  12.       begin
  13.         write ("  Within foo1...");
  14.         j := foo2 ();
  15.         write ("   foo2 returned ", j);
  16.         write ("  Leaving foo1");
  17.         return 456;
  18.       end;
  19.  
  20.   var i: integer := 0;
  21.   begin
  22.     write ("Within main...");
  23.     i := foo1 ();
  24.     write (" foo1 returned ", i);
  25.     write ("Leaving main");
  26.   end;
  27.