-- Program to test the comparison of strings.
-- Author : Bryce Bardin, Hughes Aircraft Company.
--
-- Additions/modifications by:  L.A. AdaTec

with Text_IO; use Text_IO;
procedure Compare_Test is

  procedure Compare (S, T: String) is
  begin
    Put ("""");
    Put (S);
    Put ("""");
    if S > T then
       Put (" is greater than ");
    elsif S = T then
       Put (" is equal to ");
    else
       Put (" is less than ");
    end if;
    Put ("""");
    Put (T);
    Put ("""");
    New_line;
    New_Line;
  end Compare;

begin
  Compare ("a", "b");
  Compare ("ACME", "B");
  Compare ("A", "AAA");
  Compare ("", "A");
  Compare ("B", "B");
  Compare ("AB", "AA");
  Compare ("aA", "aa");
  Compare ("aAa", "aa");
  Compare ("A", " ");
  Compare ("", "");
  compare ("F800", "16000");
  compare ("a ","a");
end Compare_Test;