--| 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 	bit-two-to-the-fifteen
test_description A class has a call to a function which takes an argument of type BIT N and just returns its argument.  The system compiles fine, but when executed it dies with the exception "object allocation: No more memory" if it was melted and if N >= 32768 (2 ^ 15).  Frozen code works fine for BIT sizes up to at least 1_000_000.

copy_sub 	Ace $TEST Ace
copy_raw 	test.e $CLUSTER test.e
compile_melted

-- Test cannot complete as compiler reports VTBT for large constants in BIT type
compile_result	validity_error TEST VTBT VTBT
test_end

compile_result 	ok

execute_work 	NONE 	exec_output1
execute_result 	ok
compare		exec_output1 output

test_end