diff --git a/ansi-tests/load-types-and-class.lsp b/ansi-tests/load-types-and-class.lsp
index af858e6eb5d9c8c1b21f918a9aa2ceae995e54bb..d0f7ad610dc7c2a61a4ef7ed2b76e76cc7db932c 100644
--- a/ansi-tests/load-types-and-class.lsp
+++ b/ansi-tests/load-types-and-class.lsp
@@ -12,6 +12,7 @@
 (load "subtypep-member.lsp")
 (load "subtypep-eql.lsp")
 (load "subtypep-array.lsp")
+(load "subtypep-function.lsp")
 
 (load "deftype.lsp")
 (load "standard-generic-function.lsp")
diff --git a/ansi-tests/subtypep-function.lsp b/ansi-tests/subtypep-function.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..c052b355f075378cbdeebb86997301dcd79f1278
--- /dev/null
+++ b/ansi-tests/subtypep-function.lsp
@@ -0,0 +1,11 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Wed Dec 15 21:57:44 2004
+;;;; Contains: Tests of SUBTYPEP on FUNCTION types
+
+(in-package :cl-test)
+
+(deftest subtypep-function.1
+  (check-all-subtypep t '(function (t) t))
+  nil)
+