Array aggregate problem in generic package

Array aggregate problem in generic package

[Dana Eckart]

I'm getting the error message:

	48: dynamic or empty choice in aggregate must be the only choice

using gnatmake on the following code (package specification):

	generic
		Number_Of_Bits : Positive;
	package Binary is

		type BinaryNumber is private;

		BinaryOne  : constant BinaryNumber;

		procedure Decimal2Binary (Source : Integer; 
					  Target : out BinaryNumber);
	
		procedure Put(Number : BinaryNumber);

	private

		type BinaryNumber is
			array (Integer range 1..Number_Of_Bits) of Boolean;

		BinaryOne  : constant BinaryNumber := (Number_Of_Bits => True,
					       		others => False);
		--
		-- The error is with respect to this array aggregate.
		--

	end Binary;

Any ideas?  Please e-mail as I don't always get a chance to read this group.
Thanks in advance.

-- 
J Dana Eckart, PhD, PP-RH, KA4EVL    | It's so nice to be insane, 
dana@runet.edu                       | no one asks you to explain.
http://www.cs.runet.edu/~dana        |                   -- Helen Reddy