//_Header
//*******************************************************************
//    NOVA CONTROL SYSTEM  ---  Lawrence Livermore Laboratory
//
//    Copyright 1984 by The Regents of the University of California
//*******************************************************************
//
//_Module_Name:  BUGGY		_File:  [HOLLOWAY.FRAMES]BUGGY.PRX
//
//_Description:
//	This module shows a bug in Praxis.  The Test_Char should
//	be set to an "A" but it is set to a "P" instead.
//	The indexing into the table appears to be off by a factor
//	of 2, in that the 1st, 3rd, 5th, index values actually 
//	pick up the 1st, 2nd, 3rd elements, while the other
//	index values pick up either nothing or at least no
//	recognizable ascii character.
//	
//_Call:
//_Identifier: { none }
//*******************************************************************
//_Author:  F. Holloway		_Creation_Date:  25-JAN-1984
//_Revisions:
//  1.000  25-JAN-1984  FWH	Initial Key-in.
//*******************************************************************
//_End


main module buggy
    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
	Test_Status = table Enums_Status (
		"C",	"P",	"A",	"S")

	  Text_Char : 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