diff options
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 34bc4582cd8..53ad6312daa 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -619,6 +619,7 @@ package body Sem_Warn is if No (Entity (Ident)) or else Ekind (Entity (Ident)) /= E_Loop then + Check_Error_Detected; return; end if; @@ -3317,7 +3318,7 @@ package body Sem_Warn is or else Denotes_Same_Prefix (Act1, Act2)) then - -- Exclude generic types and guard against previous errors. + -- Exclude generic types and guard against previous errors if Error_Posted (N) or else No (Etype (Act1)) |