     3 ffi_test_32
 ] unit-test
 
-STRUCT: test-struct-9 { x single-float } { y single-float } ;
+STRUCT: test-struct-9 { x float } { y float } ;
 
 FUNCTION: double ffi_test_33 test-struct-9 x int y ;
 


[ B{ 1 2 3 4 5 6 7 } ] [ ffi_test_30 ] unit-test

STRUCT: test-struct-8 { x float } { y float } ;

FUNCTION: double ffi_test_32 test-struct-8 x int y ;


[ 1111 f 123456789 ffi_test_22 ] must-fail

STRUCT: RECT
    { x float } { y float }
    { w float } { h float } ;

: <RECT> ( x y w h -- rect )
    RECT <struct>
