 ] unit-test
 
 STRUCT: test_struct_15
-    { x single-float }
-    { y single-float } ;
+    { x float }
+    { y float } ;
 
 FUNCTION: test_struct_15 ffi_test_42 ( float x, float y ) ;
 

] unit-test

STRUCT: test_struct_16
    { x single-float }
    { a int } ;

FUNCTION: test_struct_16 ffi_test_43 ( float x, int a ) ;


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

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

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

