Contents of /trunk/eweasel/tests/freez001/tcf


--| 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-arg-extend-frozen
test_description A call to a routine whose formal argument is a BIT type with a larger number of bits than the actual argument.  The actual argument should be extended with trailing zeros

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

execute_work    NONE    exec_output1
execute_result  ok
compare         exec_output1 output1

compile_frozen
compile_result  ok
c_compile_work
c_compile_result ok

execute_work    NONE    exec_output2
execute_result  ok
compare         exec_output2 output1

test_end
1
2	--\| Copyright (c) 1993-2006 University of Southern California and contributors.
3	--\| All rights reserved.
4	--\| Your use of this work is governed under the terms of the GNU General
5	--\| Public License version 2.
6
7	-- This is a test control file
8
9	test_name bit-arg-extend-frozen
10	test_description A call to a routine whose formal argument is a BIT type with a larger number of bits than the actual argument. The actual argument should be extended with trailing zeros
11
12	copy_sub Ace $TEST Ace
13	copy_raw test.e $CLUSTER test.e
14	compile_melted
15	compile_result ok
16
17	execute_work NONE exec_output1
18	execute_result ok
19	compare exec_output1 output1
20
21	compile_frozen
22	compile_result ok
23	c_compile_work
24	c_compile_result ok
25
26	execute_work NONE exec_output2
27	execute_result ok
28	compare exec_output2 output1
29
30	test_end