--| 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 	 chg-external-function-type
test_description A system has an external function of type INTEGER_8 which is inline C. After initial compilation where the system is frozen, the function return type is changed to INTEGER and changes are melted.  System execution then produces the wrong output.

define RETURN_TYPE "INTEGER_8"
copy_sub 	Ace $TEST Ace
copy_sub 	test.e $CLUSTER test.e
compile_frozen
compile_result 	ok

c_compile_work
c_compile_result ok

execute_work 	NONE 	exec_output1
execute_result 	ok
compare		exec_output1 output

define RETURN_TYPE "INTEGER"
copy_sub 	test.e $CLUSTER test.e
compile_melted
compile_result 	ok

c_compile_work
c_compile_result ok

execute_work 	NONE 	exec_output2
execute_result 	ok
compare		exec_output2 output


test_end