From: Eric Botcazou <ebotcazou@adacore.com>
Date: Tue, 2 Nov 2021 15:54:36 +0000 (+0100)
Subject: [Ada] Add guard against previous error for peculiar ACATS test
X-Git-Tag: upstream/12.2.0~3611
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=8c787be254c50d208a15a18033d29de419c7c165;p=platform%2Fupstream%2Fgcc.git

[Ada] Add guard against previous error for peculiar ACATS test

gcc/ada/

	* sem_ch4.adb (Find_Non_Universal_Interpretations): Add guard.
---

diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb
index 9b1d908..6a3d857 100644
--- a/gcc/ada/sem_ch4.adb
+++ b/gcc/ada/sem_ch4.adb
@@ -6685,6 +6685,12 @@ package body Sem_Ch4 is
       It    : Interp;
 
    begin
+      --  Defend against previous error
+
+      if Nkind (R) = N_Error then
+         return;
+      end if;
+
       if T1 = Universal_Integer or else T1 = Universal_Real
 
         --  If the left operand of an equality operator is null, the visibility