diff options
-rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index eb0d08a1851..8bce0229867 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -28095,6 +28095,9 @@ package body Sem_Util is Ent := Defining_Identifier (Ent); exit; + when N_Entity => + exit; + when others => null; end case; |