| commit | f6367fc211e52b3f7f8d0f2c481e20cb69839071 | |
| author | Eric Botcazou <ebotcazou@adacore.com> | |
| Sat, 16 Sep 2023 18:29:20 +0000 (16 20:29 +0200) | ||
| committer | Marc Poulhiès <poulhies@adacore.com> | |
| Tue, 26 Sep 2023 11:43:18 +0000 (26 13:43 +0200) | ||
| tree | 1795eb0f41f0f5e72fc6d67b097e24f159b3eb52 | treesnapshot (tar.gz zip) |
| parent | a1c78073051327da96f2321234e71d302a6df671 | commitdiff |
ada: Fix deferred constant wrongly rejected
This recent regression occurs when the nominal subtype of the constant is a
discriminated record type with default discriminants.
gcc/ada/
PR ada/110488
* sem_ch3.adb (Analyze_Object_Declaration): Do not build a default
subtype for a deferred constant in the definite case too.
This recent regression occurs when the nominal subtype of the constant is a
discriminated record type with default discriminants.
gcc/ada/
PR ada/110488
* sem_ch3.adb (Analyze_Object_Declaration): Do not build a default
subtype for a deferred constant in the definite case too.
| gcc/ada/sem_ch3.adb | diffblobblamehistory |