diff options
| -rw-r--r-- | gcc/ada/sem_type.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index bbdcd5f..8579130 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -2578,7 +2578,9 @@ package body Sem_Type is end if; loop - if Present (Interfaces (E)) then + if Is_Record_Type (E) + and then Present (Interfaces (E)) + then Elmt := First_Elmt (Interfaces (E)); while Present (Elmt) loop AI := Node (Elmt); |