1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index a48ce30..0b66cd6 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -4060,6 +4060,11 @@ package body Sem_Ch3 is
             when N_Record_Definition =>
                Record_Type_Declaration (T, N, Prev);
 
+            --  If declaration has a parse error, nothing to elaborate.
+
+            when N_Error =>
+               null;
+
             when others =>
                raise Program_Error;