diff --git a/test/Transforms/ConstantMerge/2002-09-23-CPR-Update.ll b/test/Transforms/ConstantMerge/2002-09-23-CPR-Update.ll
new file mode 100644
index 00000000000..aa497c6180e
--- /dev/null
+++ b/test/Transforms/ConstantMerge/2002-09-23-CPR-Update.ll
@@ -0,0 +1,14 @@
+; RUN: as < %s | opt -constmerge > /dev/null
+
+%foo = internal constant {int} {int 7} 
+%bar = internal constant {int} {int 7} 
+
+implementation
+
+declare int %test(int*)
+
+void %foo() {
+	call int %test(int* getelementptr ( {int} * %foo, long 0, ubyte 0))
+	call int %test(int* getelementptr ( {int} * %bar, long 0, ubyte 0))
+	ret void
+}
diff --git a/test/Transforms/ConstantMerge/Makefile b/test/Transforms/ConstantMerge/Makefile
new file mode 100644
index 00000000000..91acd4d481b
--- /dev/null
+++ b/test/Transforms/ConstantMerge/Makefile
@@ -0,0 +1,10 @@
+
+LEVEL = ../../../..
+include $(LEVEL)/test/Makefile.tests
+
+TESTS := $(wildcard *.ll)
+
+all:: $(addprefix Output/, $(TESTS:%.ll=%.ll.out))
+
+Output/%.ll.out: %.ll Output/.dir $(LOPT)
+	-$(TESTRUNR) $<