diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-11-02 16:54:36 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-11-10 08:57:38 +0000 |
| commit | 8c787be254c50d208a15a18033d29de419c7c165 (patch) | |
| tree | 4c7794e2fa672ee06c0232c9165175ce4ee0e2f4 | |
| parent | 29900c061a6ebbd773cbdfdd86a28df2680dfe8a (diff) | |
| download | gcc-8c787be254c50d208a15a18033d29de419c7c165.zip gcc-8c787be254c50d208a15a18033d29de419c7c165.tar.gz gcc-8c787be254c50d208a15a18033d29de419c7c165.tar.bz2 | |
[Ada] Add guard against previous error for peculiar ACATS test
gcc/ada/
* sem_ch4.adb (Find_Non_Universal_Interpretations): Add guard.
| -rw-r--r-- | gcc/ada/sem_ch4.adb | 6 |
1 files changed, 6 insertions, 0 deletions
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 |