[Bug ada/123096] [15/16 regression] internal error on incomplete private tagged type

[cvs-commit at gcc dot gnu.org]

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

--- Comment #5 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The releases/gcc-15 branch has been updated by Eric Botcazou
<ebotcazou@gcc.gnu.org>:

https://gcc.gnu.org/g:d2136fa1e16140a1391497427c0bad5570882105

commit r15-10598-gd2136fa1e16140a1391497427c0bad5570882105
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Thu Dec 11 20:08:54 2025 +0100

    Ada: Fix internal error on incomplete private tagged type

    The code expects the partial view but gets the incomplete view instead.

    gcc/ada/
            PR ada/123096
            * exp_put_image.adb (Build_Record_Put_Image_Procedure): Call
            Incomplete_Or_Partial_View with Partial_Only set to True.

    gcc/testsuite/
            * gnat.dg/specs/put_image2.ads: New test.