From mboxrd@z Thu Jan  1 00:00:00 1970
Path: eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: "Jeffrey R.Carter" <spam.jrcarter.not@spam.acm.org.not>
Newsgroups: comp.lang.ada
Subject: GNAT Error?
Date: Fri, 16 Feb 2024 23:51:33 +0100
Organization: A noiseless patient Spider
Message-ID: <uqootl$3rue0$1@dont-email.me>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 16 Feb 2024 22:51:33 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="a04b014c840d72992801a502e7abc5b0";
	logging-data="4061632"; mail-complaints-to="abuse@eternal-september.org";	posting-account="U2FsdGVkX1/hzAXJElbAY/xzclaxRxumMlubu9ru+h8="
User-Agent: Mozilla Thunderbird
Cancel-Lock: sha1:cq+JXxnP443dbU/vQDgYFsHt8eE=
Content-Language: en-US
Xref: news.eternal-september.org comp.lang.ada:66065
List-Id: <comp.lang.ada>

I have this code:

package Alloc_Err is
    type RT is record
       F1 : Integer;
       F2 : Integer;
    end record;

    type Grid is array (Positive range <>, Positive range <>) of RT with
       Dynamic_Predicate => Grid'First (1) = 1 and Grid'First (2) = 1;

    procedure What;
end Alloc_Err;

package Alloc_Err is
    type RT is record
       F1 : Integer;
       F2 : Integer;
    end record;

    type Grid is array (Positive range <>, Positive range <>) of RT with
       Dynamic_Predicate => Grid'First (1) = 1 and Grid'First (2) = 1;

    procedure What;
end Alloc_Err;

and GNAT 12.3.0 and 13.2.0 say

alloc_err.adb:5:26: error: invalid use of subtype mark in expression or call

This doesn't happen if the Dynamic_Predicate is removed. This looks like an 
error to me, but I thought I'd better see if there's something I've missed.

-- 
Jeff Carter
"I like it when the support group complains that they have
insufficient data on mean time to repair bugs in Ada software."
Robert I. Eachus
91