--| 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 	melt-call-real-external
test_description A system calls an external routine that takes a REAL and returns a DOUBLE.  The signature specifies that the argument should be cast to double before being passed to the external routine.  After freezing, system produces correct output.  Changing the routine with the call and melting yields a system that produces incorrect output.

copy_sub 	Ace $TEST Ace
define INSTRUCTION ""
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 INSTRUCTION "x := 0"
copy_sub 	test.e $CLUSTER test.e
compile_melted
compile_result 	ok

execute_work 	NONE 	exec_output2
execute_result 	ok
compare		exec_output2 output

test_end