--- gforth/test/other.fs	1997/10/27 18:25:23	1.6
+++ gforth/test/other.fs	1998/12/08 22:03:16	1.9
@@ -1,6 +1,6 @@
 \ various tests, especially for bugs that have been fixed
 
-\ Copyright (C) 1997 Free Software Foundation, Inc.
+\ Copyright (C) 1997,1998 Free Software Foundation, Inc.
 
 \ This file is part of Gforth.
 
@@ -60,10 +60,14 @@ foo1
     addr1 false <> abort" TO does not work on locals" ;
 locals-test2
 
+: locals-test3 ( -- )
+    \ this should compile, but gives "invalid name argument" on gforth-0.3.0
+    0 { a b } 0 to a ;
+
 \ multiple reveals (recursive)
 
 0
-: xxx recursive ;
+: xxx recursive ; .s
 throw \ if the TOS is not 0, throw an error
 
 \ look for primitives
@@ -101,7 +105,7 @@ test-only
 
 \ create-interpret/compile
 
-: constant ( n "name" -- )
+: my-constant ( n "name" -- )
     create-interpret/compile
     ,
 interpretation>
@@ -111,18 +115,27 @@ compilation>
     @ postpone literal
 <compilation ;
 
-5 constant five
+5 my-constant five
 five 5 <> throw
 : five' five ;
 five' 5 <> throw
 
+\ structs and alignment
+
+struct
+  char% field field1
+  float% field field2
+end-struct my-struct%
+
+0 field2 float% %alignment <> throw
+
 \ comments across several lines
 
 ( fjklfjlas;d
 abort" ( does not work across lines"
 )
 
-s" ( testing ( without delimited by newline in non-files" evaluate
+s" ( testing ( without being delimited by newline in non-files" evaluate
 
 \ last test!
 \ testing '(' without ')' at end-of-file