--test.ada  rob  84-01-12
--
-- convert a string character to an integer

procedure test is

 input_string : string (1..5) := "abcde";
 index : integer :=1;
 qval  : integer;
begin
 qval := integer(input_string(index));

 qval := integer'(input_string(index));

 qval := integer'value(input_string(index));

 qval := integer'value(string(input_string(index)));

 qval := integer'value(character'image(input_string(index)));

 qval := character'pos(input_string(index));

end test;