--| Copyright (c) 1993-2006 University of Southern California and contributors.
--| All rights reserved.
--| Your use of this work is governed under the terms of the GNU General
--| Public License version 2.

-- This is a test control file

test_name 	manifest-array-of-expanded
test_description A class repeated creates a manifest array whose elements are an expanded type.  If the routine which does this creation the array and the elements are all melted and there are four or more elements in the manifest array, a segmentation fault occurs when the system is executed.  Frozen code works fine.

copy_sub 	Ace $TEST Ace
define		ASSIGNMENT ""
define		ARRAY ""
define		ELEMENT ""
copy_sub 	test.e $CLUSTER test.e
copy_raw 	test1.e $CLUSTER test1.e
compile_frozen
compile_result 	ok

c_compile_work
c_compile_result ok

define		ASSIGNMENT "weasel := << wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp, wimp >>;"
define		ARRAY "weasel: ARRAY [TEST1];"
define		ELEMENT "wimp: TEST1 is do end;"
copy_sub 	test.e $CLUSTER test.e
copy_raw 	test1.e $CLUSTER test1.e
compile_melted
compile_result 	ok

execute_work 	NONE exec_output1 1000
execute_result 	ok
compare		exec_output1 output

test_end