[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 #4 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Eric Botcazou <ebotcazou@gcc.gnu.org>:

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

commit r16-6039-gb0365ca040bdba4de17d72f45bfc18912fca36ac
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.