Merge branch 'master' into devel/modula-2.

[gcc.git] / gcc / ada / sfn_scan.adb

diff --git a/gcc/ada/sfn_scan.adb b/gcc/ada/sfn_scan.adb
index b6ab92fe46bf527c3dd19ed0742ff633858fef7c..b428ed7f0cf5a4777341e7349486402fc9eb8cb3 100644 (file)
--- a/gcc/ada/sfn_scan.adb
+++ b/gcc/ada/sfn_scan.adb
@@ -622,7 +622,6 @@ package body SFN_Scan is
          Q := '%';
       else
          Error ("bad string");
-         Q := '"';
       end if;
 
       --  Scan out the string, B points to first char