The Unsorted BBS Collection/thegreatunsorted.tar/thegreatunsorted/programming/misc_programming/TEST/DBTEST.ADA

Text File | 1990-06-28 | 611 b | 27 lines

with ada_io; use ada_io;
procedure dbtest is
  x: integer := 37;
  s: string(1..3) := "abc";
  type color is (red, yellow, blue);
  a: array(color) of integer := (2, 3, 5);
  b: array(yellow..blue) of float := (3.7, 7.3);
  t: string(3..6);
  empty: string(1..0);
  type ivector is array(natural range <>) of integer;
  iempty: ivector(1..0);
  type rec is
    record
      x,y,z: integer;
    end record;
  r: array(1..3) of rec := ((11,12,13),(21,22,23),(31,32,33));
  procedure p(n: string) is
  begin
    put_line(n);
  end;
begin
  t := "wxyz";
  p("hello");
  p(t);
  p("");
end;