Ada can't initialize (aggregate) array of length 1?

[duz@roxi.rz.fht-mannheim.de (Dirk Zoller)]

Hello,

yesterday I ran accross the following problem. Trying to write a little
tetris game as an excercise in Ada programming I wanted to initialize
an array of arrays of char i.e. the different shapes of stones.  Not
being sure about the aggregate syntax I experimented with an array of
length 1 as a start.

This didn't work, not for the wrong aggregate syntax (which is similar
enough to C) but because of the array length 1.

Simplified I did this:

    type stone is array (1..2) of character;
    shapes: constant array (1..1) of stone := ("[]");
    ____________________________________________^

At this point I got an error message about type stone expected.
When using two stones, it works:

    shapes: constant array (1..2) of stone := ("[]", "{}");

I further simplified it to this:

    type t1 is array (1..1) of integer;
    v1: constant t1 := (1234);

didn't work with the message aggregates of length 1 were not allowed.
Why? My books don't seem to know about (mention) this peculiarity.
I use gnat 2.0 on OS/2.

Dirk
---
duz@roxi.rz.fht-mannheim.de <Dirk Zoller>
The world is switching from the 'computers are magical, programmers are
magicians' to 'computer=TV+typewriter+fax+telephone' --- Will Baguhn