diff --git a/test/Other/2002-01-31-CallGraph.ll b/test/Other/2002-01-31-CallGraph.ll
new file mode 100644
index 00000000000..e9a5a6eae1b
--- /dev/null
+++ b/test/Other/2002-01-31-CallGraph.ll
@@ -0,0 +1,15 @@
+;  Call graph construction crash: Not handling indirect calls right
+;
+; RUN: analyze -callgraph %s
+;
+
+%FunTy = type int(int)
+
+implementation
+
+void "invoke"(%FunTy *%x)
+begin
+	%foo = call %FunTy* %x(int 123)
+	ret void
+end
+