From 5c196ffe9645fd9d56c8ba0ee7287587700725f2 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 6 Jan 2014 01:24:07 +0100
Subject: Fix typo (thanks to Brian).

---
 scan.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'scan.adb')

diff --git a/scan.adb b/scan.adb
index a8ac7d112..67379c9fd 100644
--- a/scan.adb
+++ b/scan.adb
@@ -501,7 +501,7 @@ package body Scan is
                  ("'""' cannot close a bit string opened by '%'");
                exit;
             when '%' =>
-               pragma Assert (Mark = '%');
+               pragma Assert (Mark = '"');
                Error_Msg_Scan
                  ("'%' cannot close a bit string opened by '""'");
                exit;
-- 
cgit v1.2.3