diff --git a/tests/ctags/procedure_pointer_module.f90 b/tests/ctags/procedure_pointer_module.f90
new file mode 100644
index 00000000..264d8849
--- /dev/null
+++ b/tests/ctags/procedure_pointer_module.f90
@@ -0,0 +1,19 @@
+! a module that uses procedure pointer
+module proc_pointer
+
+  real :: a
+  procedure(sub), pointer :: my_pointer
+
+contains
+
+  subroutine sub(x)
+    real, intent(inout) :: x(:)
+
+    integer :: i
+
+    do i=1,size(x)
+       x(i) = 0.5**i
+    end do
+  end subroutine sub
+
+end module proc_pointer
diff --git a/tests/ctags/procedure_pointer_module.f90.tags b/tests/ctags/procedure_pointer_module.f90.tags
new file mode 100644
index 00000000..0bbcb61b
--- /dev/null
+++ b/tests/ctags/procedure_pointer_module.f90.tags
@@ -0,0 +1,5 @@
+# format=tagmanager
+aÌ16384Îproc_pointerÖ0
+my_pointerÌ16384Îproc_pointerÖ0
+proc_pointerÌ256Ö0
+subÌ64Îproc_pointerÖ0