diff --git a/src/stdlib/Makefile b/src/stdlib/Makefile
new file mode 100644
index 0000000..ee4552b
--- /dev/null
+++ b/src/stdlib/Makefile
@@ -0,0 +1 @@
+include ../../Makefile.inc
diff --git a/src/stdlib/qsort.c b/src/stdlib/qsort.c
new file mode 100644
index 0000000..872c8f8
--- /dev/null
+++ b/src/stdlib/qsort.c
@@ -0,0 +1,80 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include "test.h"
+
+static int scmp(const void *a, const void *b)
+{
+	return strcmp(*(char **)a, *(char **)b);
+}
+
+static int icmp(const void *a, const void *b)
+{
+	return *(int*)a - *(int*)b;
+}
+
+/* 26 items -- even */
+static char *s[] = {
+	"Bob", "Alice", "John", "Ceres",
+	"Helga", "Drepper", "Emeralda", "Zoran",
+	"Momo", "Frank", "Pema", "Xavier",
+	"Yeva", "Gedun", "Irina", "Nono",
+	"Wiener", "Vincent", "Tsering", "Karnica",
+	"Lulu", "Quincy", "Osama", "Riley",
+	"Ursula", "Sam"
+};
+/* 23 items -- odd, prime */
+static int n[] = {
+	879045, 394, 99405644, 33434, 232323, 4334, 5454,
+	343, 45545, 454, 324, 22, 34344, 233, 45345, 343,
+	848405, 3434, 3434344, 3535, 93994, 2230404, 4334
+};
+
+void test_qsort(void) {
+	int i;
+
+	qsort(s, sizeof(s)/sizeof(char *), sizeof(char *), scmp);
+	for (i=0; i<sizeof(s)/sizeof(char *)-1; i++) {
+		if (strcmp(s[i], s[i+1]) > 0) {
+			error("string sort failed at index %d\n", i);
+			for (i=0; i<sizeof(s)/sizeof(char *); i++)
+				fprintf(stderr, "\t%d\t%s\n", i, s[i]);
+			break;
+		}
+	}
+
+	qsort(n, sizeof(n)/sizeof(int), sizeof(int), icmp);
+	for (i=0; i<sizeof(n)/sizeof(int)-1; i++) {
+		if (n[i] > n[i+1]) {
+			error("integer sort failed at index %d\n", i);
+			for (i=0; i<sizeof(n)/sizeof(int); i++)
+				fprintf(stderr, "\t%d\t%d\n", i, n[i]);
+			break;
+		}
+	}
+}
+
+void bench_qsort_small(int N) {
+	int i;
+	int *a = malloc(sizeof n);
+
+	for (i = 0; i < N; i++) {
+		memcpy(a, n, sizeof n);
+		qsort(a, sizeof n/sizeof *n, sizeof *a, icmp);
+	}
+	free(a);
+}
+
+void bench_qsort_large(int N) {
+	int i,j;
+	int len = 100000;
+	int *a = malloc(len * sizeof *a);
+
+	for (i = 0; i < N; i++) {
+		srand(13);
+		for (j = 0; j < len; j++)
+			a[j] = rand();
+		qsort(a, len, sizeof *a, icmp);
+	}
+	free(a);
+}