1 files changed, 14 insertions, 0 deletions
diff --git a/test/command/7397.md b/test/command/7397.md
new file mode 100644
index 000000000..ca8b6a482
--- /dev/null
+++ b/test/command/7397.md
@@ -0,0 +1,14 @@
+```
+% pandoc -t markdown
+~~~~ { .haskell startFrom="100"}
+qsort []     = []
+qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
+               qsort (filter (>= x) xs)
+~~~~
+^D
+``` {.haskell startFrom="100"}
+qsort []     = []
+qsort (x:xs) = qsort (filter (< x) xs) ++ [x] ++
+               qsort (filter (>= x) xs)
+```
+```