test_name  melted-on-character-32
test_description A call to `is_character_8' on a CHARACTER_32 causes incorrect melted code to be generated.

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

compile_melted
compile_result	ok

execute_work	NONE exec_output_m
execute_result	ok
compare		exec_output_m output

test_end