test_name 	once-followed-by-static-call
test_description A "once" routine without a once key whose first instruction is a static call {TEST1}.weasel should be accepted

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

compile_melted
compile_result	ok

test_end