From 3f40a66f433a435a27f3e4b63944ed4465e67a90 Mon Sep 17 00:00:00 2001
From: Dmitry Boulytchev <dboulytchev@gmail.com>
Date: Mon, 30 Apr 2018 18:12:12 +0300
Subject: [PATCH] Added sorting test

---
 regression/orig/test037.log |  6 ++++++
 regression/test037.expr     | 26 ++++++++++++++++++++++++++
 regression/test037.input    |  1 +
 3 files changed, 33 insertions(+)
 create mode 100644 regression/orig/test037.log
 create mode 100644 regression/test037.expr
 create mode 100644 regression/test037.input

diff --git a/regression/orig/test037.log b/regression/orig/test037.log
new file mode 100644
index 000000000..58b322cfb
--- /dev/null
+++ b/regression/orig/test037.log
@@ -0,0 +1,6 @@
+> 5
+6
+7
+8
+9
+10
diff --git a/regression/test037.expr b/regression/test037.expr
new file mode 100644
index 000000000..807233374
--- /dev/null
+++ b/regression/test037.expr
@@ -0,0 +1,26 @@
+fun sort (x) local i, j, y, n {
+  n := x.length;
+  
+  if n == 0 then return x fi;
+  
+  for i := 0, i<n, i := i+1 do
+    for j := i+1, j<n, j := j+1 do
+      if x[j] < x[i] then
+         y    := x[i];
+	 x[i] := x[j];
+	 x[j] := y
+      fi
+    od
+  od;
+  
+  return x
+}
+
+n := read ();
+x := [10, 9, 8, 7, 6, 5];
+
+x := sort (x);
+
+for i:=0, i<x.length, i:=i+1 do
+  write (x[i])
+od
\ No newline at end of file
diff --git a/regression/test037.input b/regression/test037.input
new file mode 100644
index 000000000..573541ac9
--- /dev/null
+++ b/regression/test037.input
@@ -0,0 +1 @@
+0