6.58 RM F.1(2): Decimal Radix Support

"Packed decimal should be used as the internal representation for objects of subtype S when S'Machine_Radix = 10."

Not followed. GNAT ignores S'Machine_Radix and always uses binary representations.