https://gcc.gnu.org/bugzilla/show_bug.cgi?id=117517

            Bug ID: 117517
           Summary: Reduce attribute creates bug
           Product: gcc
           Version: 14.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
          Assignee: unassigned at gcc dot gnu.org
          Reporter: 00120260a at gmail dot com
                CC: dkm at gcc dot gnu.org
  Target Milestone: ---

+===========================GNAT BUG DETECTED==============================+
| 14.2.0 (x86_64-pc-linux-gnu) Program_Error sem_eval.adb:4636 explicit raise|
| Error detected at main.adb:5:38                                          |
| Compiling main.adb                                                       |
| Please submit a bug report; see https://gcc.gnu.org/bugs/ .              |
| Use a subject line meaningful to you and us to track the bug.            |
| Include the entire contents of this bug box in the report.               |
| Include the exact command that you entered.                              |
| Also include sources listed below.                                       |
+==========================================================================+

file, from gnatmake main.adb (faulty line : "B: Positive :=
A'Reduce(1,Positive'Max);")

pragma Ada_2022;
procedure main is
   type ArrayInput is array (Positive range <>) of Positive;
   A: arrayinput := (2,87);
   B: Positive := A'Reduce(1,Positive'Max);
begin
   null;
end main;

I've had a LOT of issues related to reduction expression and also iterated
component associations.

Reply via email to