From 4b97cbeed9e4538c22f2c1d2bef8429f494735b2 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 30 Jun 2020 12:06:12 -0400
Subject: [PATCH] [Ada] Preelaborate rules not fully enforced

gcc/ada/

	* sem_cat.adb (Is_Primary): Handle N_Range properly.
---
 gcc/ada/sem_cat.adb | 1 +
 1 file changed, 1 insertion(+)

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;
 
-- 
2.30.2