--| 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 	 internal-exception-memory-leak
test_description An internal routine A with no rescue clause calls a second internal routine B, passing it some feature addresses.  Routine B raises an exception.  After initial compilation where the system is frozen, the routine B is modified to cause it to be melted.  When routine A is called repeatedly, more and more C memory is used, which seems to indicate a memory leak.

copy_sub 	 Ace $TEST Ace
define		 INSTRUCTION ""
copy_sub 	 test.e  $CLUSTER test.e
compile_frozen
compile_result 	 validity_warning TEST "Unused Local"

c_compile_work
c_compile_result ok

define		 INSTRUCTION "print (Void)"
copy_sub 	 test.e  $CLUSTER test.e
compile_melted
compile_result 	 validity_warning TEST "Unused Local"

execute_work	 NONE exec_output1 1000 1000
execute_result	 ok
compare		 exec_output1 output

test_end