main module ONECHAR1
//%set debug_print_ccode = true

    use TEXTIO
    declare
	Status_Symbol	is packed array [1..1] of char
	Enums is [IS_C,		IS_P,		IS_A,		IS_S] 

	Enums_Status is packed array [Enums] of Status_Symbol
	Matrix is packed array [Enums] of Status_symbol
	Test_Status : static matrix 
// following initially is causing Matrix to be stored with .even.
	initially
		matrix ([IS_C]: "C",
			[IS_P]: "P",
			[IS_A]: "A",
			[IS_S]: "S" )

	  Text_Char : static packed array [1..1] of char
    enddeclare


	Text_Char := Test_Status [IS_A]

	out_string	(TTY, "Text_Char =")
	out_string	(TTY,	Text_Char)
	out_record	(TTY)
endmodule