home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / TEST / DBTASK.ADA < prev    next >
Encoding:
Text File  |  1990-06-28  |  268 b   |  21 lines
  1. procedure dbtask is
  2.   task type t is
  3.     entry e(n: integer);
  4.   end;
  5.  
  6.   for t'storage_size use 4096;
  7.  
  8.   z: integer := 999;
  9.   x, y: t;
  10.  
  11.   task body t is
  12.   begin
  13.     accept e(n: integer) do
  14.       null;
  15.     end;
  16.   end;
  17. begin
  18.   x.e(37);
  19.   y.e(73);
  20. end;
  21.