function longest_enum return integer is longest : integer := 0; begin for i in enum_list loop if enum_list'image(i)'length > longest then longest := enum_list'image(i)'length; end if; end loop; return longest; end;