--- gforth/test/other.fs	1997/10/27 18:25:23	1.6
+++ gforth/test/other.fs	1998/04/14 16:43:22	1.7
@@ -60,6 +60,10 @@ 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
@@ -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