[Bug ada/112781] New: [13?/14 regression] ICE in generic instantiation

[simon at pushface dot org]

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

            Bug ID: 112781
           Summary: [13?/14 regression] ICE in generic instantiation
           Product: gcc
           Version: 14.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
          Assignee: unassigned at gcc dot gnu.org
          Reporter: simon at pushface dot org
                CC: dkm at gcc dot gnu.org
  Target Milestone: ---

Created attachment 56727
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=56727&action=edit
Reproducer: to be gnatchopped

I'm not sure this is in fact a regression in 13; with 13.1.0, the
program builds, but when run reports

    $ ./test
    Hello World

    raised PROGRAM_ERROR : test.adb:4 finalize/adjust raised exception

With 14.0.0, built from LATEST, we get a bug box:

$ gnatmake test.adb 
gcc -c test.adb
+===========================GNAT BUG DETECTED==============================+
| 14.0.0 20231126 (experimental) (x86_64-apple-darwin21) Assert_Failure
sem_ch3.adb:16970|
| Error detected at example.ads:3:9 [test.adb:16:4]                        |
| Compiling test.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.                                       |
+==========================================================================+

Please include these source files with error report
Note that list may not be accurate in some cases,
so please double check that the problem can still
be reproduced with the set of files listed.
Consider also -gnatd.n switch (see debug.adb).

test.adb
example.ads

compilation abandoned
gnatmake: "test.adb" compilation error

Reproducer (to be gnat chopped) attached.