diff --git a/test/Transforms/ScalarRepl/2003-09-12-IncorrectPromote.ll b/test/Transforms/ScalarRepl/2003-09-12-IncorrectPromote.ll
new file mode 100644
index 00000000000..a8965b56525
--- /dev/null
+++ b/test/Transforms/ScalarRepl/2003-09-12-IncorrectPromote.ll
@@ -0,0 +1,11 @@
+; Scalar replacement was incorrectly promoting this alloca!!
+;
+; RUN: llvm-as < %s | opt -scalarrepl | llvm-dis | sed 's/;.*//g' | grep '\['
+
+sbyte *%test() {
+	%A = alloca [30 x sbyte]
+	%B = getelementptr [30 x sbyte]* %A, long 0, long 0
+	%C = getelementptr sbyte* %B, long 1
+	store sbyte 0, sbyte* %B
+	ret sbyte* %C
+}