Created attachment 55429 [details] Minimal reproducer Xubuntu 23.04 X86_64 GNAT 13 installed with apt install gnat-13 Compiling the attached with gnatmake -gnatc b_strings_prob.ads gives b_strings_prob.ads:11:04: error: subtype does not statically match deferred declaration at line 4 gnatmake: "b_strings_prob.ads" compilation error According to Randy Brukardt, ARG member and ARM editor, this is legal Ada and should be accepted. Output of x86_64-linux-gnu-gcc-13 -v Using built-in specs. COLLECT_GCC=x86_64-linux-gnu-gcc-13 COLLECT_LTO_WRAPPER=/usr/libexec/gcc/x86_64-linux-gnu/13/lto-wrapper OFFLOAD_TARGET_NAMES=nvptx-none:amdgcn-amdhsa OFFLOAD_TARGET_DEFAULT=1 Target: x86_64-linux-gnu Configured with: ../src/configure -v --with-pkgversion='Ubuntu 13-20230320-1ubuntu1' --with-bugurl=file:///usr/share/doc/gcc-13/README.Bugs --enable-languages=c,ada,c++,go,d,fortran,objc,obj-c++,m2,rust --prefix=/usr --with-gcc-major-version-only --program-suffix=-13 --program-prefix=x86_64-linux-gnu- --enable-shared --enable-linker-build-id --libexecdir=/usr/libexec --without-included-gettext --enable-threads=posix --libdir=/usr/lib --enable-nls --enable-bootstrap --enable-clocale=gnu --enable-libstdcxx-debug --enable-libstdcxx-time=yes --with-default-libstdcxx-abi=new --enable-gnu-unique-object --disable-vtable-verify --enable-plugin --enable-default-pie --with-system-zlib --enable-libphobos-checking=release --with-target-system-zlib=auto --enable-objc-gc=auto --enable-multiarch --disable-werror --enable-cet --with-arch-32=i686 --with-abi=m64 --with-multilib-list=m32,m64,mx32 --enable-multilib --with-tune=generic --enable-offload-targets=nvptx-none=/build/gcc-13-oz92yP/gcc-13-13-20230320/debian/tmp-nvptx/usr,amdgcn-amdhsa=/build/gcc-13-oz92yP/gcc-13-13-20230320/debian/tmp-gcn/usr --enable-offload-defaulted --without-cuda-driver --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu --with-build-config=bootstrap-lto-lean --enable-link-serialization=2 Thread model: posix Supported LTO compression algorithms: zlib zstd gcc version 13.0.1 20230320 (experimental) [master r13-6759-g5194ad1958c] (Ubuntu 13-20230320-1ubuntu1)
This compiles up to GCC 12.
Investigating.
The master branch has been updated by Marc Poulhi?s <dkm@gcc.gnu.org>: https://gcc.gnu.org/g:f6367fc211e52b3f7f8d0f2c481e20cb69839071 commit r14-4275-gf6367fc211e52b3f7f8d0f2c481e20cb69839071 Author: Eric Botcazou <ebotcazou@adacore.com> Date: Sat Sep 16 20:29:20 2023 +0200 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.
The releases/gcc-13 branch has been updated by Eric Botcazou <ebotcazou@gcc.gnu.org>: https://gcc.gnu.org/g:35787c3093fa611ba46008e94f329000d6042be4 commit r13-7840-g35787c3093fa611ba46008e94f329000d6042be4 Author: Eric Botcazou <ebotcazou@adacore.com> Date: Sat Sep 16 20:29:20 2023 +0200 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.
Fixed on the mainline and 13 branch.