ada: Reject Loop_Entry inside prefix of Loop_Entry
commitf185ac2efd79c903e7461e91bceb81f3278aec2e
authorYannick Moy <moy@adacore.com>
Wed, 17 May 2023 13:37:03 +0000 (17 15:37 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Thu, 15 Jun 2023 07:59:38 +0000 (15 09:59 +0200)
treec51dc96299543793c264779d7f58ba4172ae34d6
parent17e45a14a2043ae2117f772945de32d402e10f3f
ada: Reject Loop_Entry inside prefix of Loop_Entry

This rule was incompletely stated in SPARK RM and not checked.
This is now fixed.

gcc/ada/

* sem_attr.adb (Analyze_Attribute): Reject case of Loop_Entry
inside the prefix of Loop_Entry, as per SPARK RM 5.5.3.1(4,8).
gcc/ada/sem_attr.adb