[Ada] Improve error message for Object_Size clause on dynamic array
authorEric Botcazou <ebotcazou@adacore.com>
Mon, 12 Aug 2019 09:00:04 +0000 (09:00 +0000)
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>
Mon, 12 Aug 2019 09:00:04 +0000 (09:00 +0000)
commit62f0fa2170c3875c28171caa4e1ce3a16a0dc18b
tree0855280e3418d38c2b3c6037a51c739bdad20306
parent651c9c1e4b1bd2369ced718599ad1ac370aa37cd
[Ada] Improve error message for Object_Size clause on dynamic array

This makes the compiler issue the same error:

    size clause not allowed for variable length type

for an Object_Size clause on a variable-sized type as for a Size clause,
for example on the following procedure:

procedure P (X, Y : Integer) is
   subtype Sub is String (X .. Y) with Object_Size => 64;
begin
   null;
end;

2019-08-12  Eric Botcazou  <ebotcazou@adacore.com>

gcc/ada/

* freeze.adb (Freeze_Entity): Give the same error for an
Object_Size clause on a variable-sized type as for a Size
clause.

From-SVN: r274294
gcc/ada/ChangeLog
gcc/ada/freeze.adb