--- gforth/test/other.fs	1998/12/19 13:43:19	1.10
+++ gforth/test/other.fs	2000/02/04 14:52:30	1.14
@@ -129,6 +129,24 @@ end-struct my-struct%
 
 0 field2 float% %alignment <> throw
 
+\ filenames with "//"
+
+s" //jkfklfggfld/fjsjfk/hjfdjs" open-fpath-file 2drop
+
+\ allotting negative space
+
+1 allot
+-1 allot
+
+\ unaligned input for head?
+
+here 1+ head? throw
+
+\ [compile] exit = exit
+
+: foo [compile] exit abort" '[compile] exit' broken" ;
+foo
+
 \ comments across several lines
 
 ( fjklfjlas;d