home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / ADAUTIL / BTEST.ADA < prev    next >
Encoding:
Text File  |  1990-06-28  |  436 b   |  20 lines
  1. with array_object;
  2. with ada_io; use ada_io;
  3. procedure btest is
  4.   type block is array(1..1000) of character;
  5.   package a is new array_object(character, block);
  6.   b: block;
  7. begin
  8.   for c in character loop
  9.     b := (others => c);
  10.     a.set(c, b);
  11.   end loop;
  12.   put_line("init done");
  13.   for c in reverse character loop
  14.     if a.get(c)(37) /= c then
  15.       put_line("fail");
  16.     end if;
  17.   end loop;
  18.   put_line("pass");
  19. end;
  20.