Re: Bizzare Errors with GW AdaEd 1.4.2 020 Fat for System 7

["Brian M. Boerner" <bboerner@sunspot.tiac.net>]

A little followup information that might help some of you.

--***********************************************************
-- 												BEGIN MAIN EXECUTION
--***********************************************************
begin

loop

-- Adding the following lines of code produce the error described in the
-- previous message.
--		for index in 1..inputlength loop
--		input_string(index) = '0';
--		end loop;

					instructions; -- Print out the Instructions
					text_io.put ("Please Enter a String of Integers: "); -- Ask for the
String 
 				text_io.get_line(input_string,inputlength); -- Read in the string
			loop
 				count := count + 1;
 				iio.get(input_string(last..inputlength) ,output_string(count),
last);
 				last := last + 1;
			exit when output_string(count) = 0;
			end loop;

  for index in 1..(count - 1) loop
				tempchar := character'val (output_string(index) + 64);		
				text_io.put(tempchar);  
		end loop;
		
end loop;