//---------------------------------------------------------------
//	Test of low bound of array constructors
//--------------------------------------------------------------
%define debug
%set debug=false
%if debug
    %set debug_print_ccode=true
%endif

main module LOWBOUND

%if not debug
	use 	TEXTIO
%endif
	declare
		AAAAA_range is -1..1
		AAAAA_mess is packed array [1..4] of char
		BBBBB_type is array [AAAAA_range] of AAAAA_mess
		BBBBB : BBBBB_type initially BBBBB_type ([-1]:"JOE ",
							 [0]:"SAM ",
							 [1]:"PETE")
		CCCCC : static BBBBB_type initially BBBBB_type ([-1]:"JOE ",
							 [0]:"SAM ",
							 [1]:"PETE")
	enddeclare

	BBBBB [0] := "ABCD"
	CCCCC [0] := "ABCD"

%if not debug 	
	out_line (TTY, "------------------")
	for I in AAAAA_range do
		out_line (TTY, BBBBB[I])
	endfor
	out_line (TTY, "------------------")
	for I in AAAAA_range do
		out_line (TTY, CCCCC[I])
	endfor
	out_line (TTY, "------------------")
%endif
endmodule