From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 30 Jun 2020 16:06:12 +0000 (-0400)
Subject: [Ada] Preelaborate rules not fully enforced
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4b97cbeed9e4538c22f2c1d2bef8429f494735b2;p=gcc.git

[Ada] Preelaborate rules not fully enforced

gcc/ada/

	* sem_cat.adb (Is_Primary): Handle N_Range properly.
---

diff --git a/gcc/ada/sem_cat.adb b/gcc/ada/sem_cat.adb
index be1e67e57c6..7872c6821fc 100644
--- a/gcc/ada/sem_cat.adb
+++ b/gcc/ada/sem_cat.adb
@@ -2121,6 +2121,7 @@ package body Sem_Cat is
                | N_Index_Or_Discriminant_Constraint
                | N_Membership_Test
                | N_Op
+               | N_Range
             =>
                return True;