1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb
index c9ccc4d..08ce2ab 100644
--- a/gcc/ada/scng.adb
+++ b/gcc/ada/scng.adb
@@ -1166,6 +1166,7 @@ package body Scng is
                      when '\' | '"' | '{' | '}'
                               => Code := Get_Char_Code (C);
                      when others =>
+                        Code := Get_Char_Code ('?');
                         Error_Msg_S ("illegal escaped character");
                   end case;