TYPE std__standard__bit IS BOOLEAN {C_0, C_1};

--F /Users/gingold/devel/ghdl-updates.git/testsuite/gna/simple1/simple1.vhdl

-- architecture behav

TYPE work__simple1__ARCH__behav__INSTTYPE IS RECORD;

TYPE work__simple1__ARCH__behav__INSTPTR IS ACCESS 
  work__simple1__ARCH__behav__INSTTYPE;

TYPE work__simple1__ARCH__behav__INSTTYPE IS RECORD 
  s_VAL: std__standard__bit; 
END RECORD;

PRIVATE CONSTANT INST000001 : work__simple1__ARCH__behav__INSTTYPE;

-- CONSTANT INST000001 := { std__standard__bit'[C_0]};