diff --git a/uppdev/GetAlloc/GetAlloc.cpp b/uppdev/GetAlloc/GetAlloc.cpp
new file mode 100644
index 000000000..b484b87fc
--- /dev/null
+++ b/uppdev/GetAlloc/GetAlloc.cpp
@@ -0,0 +1,12 @@
+#include <Core/Core.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	Vector<int> v;
+	for(int i = 0; i < 1000; i++) {
+		v.At(i);
+		RLOG(v.GetCount() << ' ' << v.GetAlloc());
+	}
+}
diff --git a/uppdev/GetAlloc/GetAlloc.upp b/uppdev/GetAlloc/GetAlloc.upp
new file mode 100644
index 000000000..5024cd917
--- /dev/null
+++ b/uppdev/GetAlloc/GetAlloc.upp
@@ -0,0 +1,9 @@
+uses
+	Core;
+
+file
+	GetAlloc.cpp;
+
+mainconfig
+	"" = "";
+