[Bug ada/13370] internal error on pragma Machine_Attribute with string constant

[cvs-commit at gcc dot gnu.org]

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

--- Comment #9 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:baa73659cd03da29441004466ace3f57a05e6b8f

commit r16-4629-gbaa73659cd03da29441004466ace3f57a05e6b8f
Author: Eric Botcazou <ebotcazou@adacore.com>
Date:   Sun Oct 26 10:21:31 2025 +0100

    Ada: Fix internal error on pragma Machine_Attribute with string constant

    This was reported a long time ago and is a fairly pathological case,
    so the fix is purposely ad hoc: when the attribute name of a pragma
    Machine_Attribute is not a string literal, its processing needs to
    be delayed for the back-end.

    gcc/ada/
            PR ada/13370
            * sem_prag.adb (Analyze_Pragma) <Pragma_Machine_Attribute>: Set the
            Has_Delayed_Freeze flag if the argument is not a literal.

    gcc/testsuite/
            * gnat.dg/machine_attr3.ads, gnat.dg/machine_attr3.adb: New test.