diff -rN -u parrot/MANIFEST parrot_mods/MANIFEST
--- parrot/MANIFEST	Tue Aug 12 17:54:46 2003
+++ parrot_mods/MANIFEST	Tue Aug 12 22:56:05 2003
@@ -1517,6 +1517,7 @@
 languages/imcc/t/syn/macro.t                      []
 languages/imcc/t/syn/namespace.t                  []
 languages/imcc/t/syn/pcc.t                        []
+languages/imcc/t/syn/pod.t                        []
 languages/imcc/t/syn/scope.t                      []
 languages/jako/Curses.jako                        [jako]
 languages/jako/docs/future.pod                    [jako]
diff -rN -u parrot/languages/imcc/t/syn/pod.t parrot_mods/languages/imcc/t/syn/pod.t
--- parrot/languages/imcc/t/syn/pod.t	Thu Jan  1 00:00:00 1970
+++ parrot_mods/languages/imcc/t/syn/pod.t	Tue Aug 12 21:40:05 2003
@@ -0,0 +1,30 @@
+#!perl
+use strict;
+use TestCompiler tests => 2;
+
+# POD
+
+output_is(<<'CODE', <<'OUT', "simple pod");
+.sub _main
+    print "pass\n"
+    end
+.end
+=head1 Some POD
+This should be ignored, incl. digit 1
+=cut
+CODE
+pass
+OUT
+
+output_is(<<'CODE', <<'OUT', "pod with decimal digits");
+.sub _main
+    print "pass\n"
+    end
+.end
+=head1 Some POD
+This should be ignored, incl. number 1.0
+=cut
+CODE
+pass
+OUT
+