alien.c-types: not necessary to import `short` differently anymore

[factor.git] / extra / alien / fortran / fortran-tests.factor

diff --git a/extra/alien/fortran/fortran-tests.factor b/extra/alien/fortran/fortran-tests.factor
index 00bb958ad6221fdc70f1567e99d77173c5a7b85b..0e1b38d6781020f8930a68ab8585a52e1e9c1eaf 100644 (file)
--- a/extra/alien/fortran/fortran-tests.factor
+++ b/extra/alien/fortran/fortran-tests.factor
@@ -1,9 +1,9 @@
 ! (c) 2009 Joe Groff, see BSD license
-USING: accessors alien alien.c-types alien.complex
-alien.data alien.fortran alien.fortran.private alien.strings
-classes.struct arrays assocs byte-arrays combinators fry
-generalizations io.encodings.ascii kernel macros
-macros.expander namespaces sequences shuffle tools.test vocabs.parser ;
+USING: alien alien.c-types alien.complex alien.data
+alien.fortran alien.fortran.private alien.strings
+byte-arrays classes.struct combinators generalizations
+io.encodings.ascii kernel namespaces sequences shuffle
+tools.test vocabs.parser ;
 FROM: alien.syntax => pointer: ;
 QUALIFIED-WITH: alien.c-types c
 IN: alien.fortran.tests
@@ -202,7 +202,7 @@ intel-unix-abi fortran-abi [
         ! [fortran-invoke]
         [
             c:void "funpack" "funtimes_"
-            { pointer: { c:char 12 } pointer: c:longlong pointer: c:float pointer: complex-float pointer: c:short c:long }
+            { pointer: { c:char 12 } pointer: c:longlong pointer: c:float pointer: complex-float pointer: c:short c:long } f
             alien-invoke
         ] 6 nkeep
         ! [fortran-results>]
@@ -227,7 +227,7 @@ intel-unix-abi fortran-abi [
             [ { [ drop ] } spread ]
         } 1 ncleave
         ! [fortran-invoke]
-        [ c:float "funpack" "fun_times_" { pointer: { c:float 0 } } alien-invoke ]
+        [ c:float "funpack" "fun_times_" { pointer: { c:float 0 } } f alien-invoke ]
         1 nkeep
         ! [fortran-results>]
         shuffle( reta aa -- reta aa )
@@ -245,7 +245,7 @@ intel-unix-abi fortran-abi [
         ! [fortran-invoke]
         [
             c:void "funpack" "fun_times_"
-            { pointer: complex-float pointer: { c:float 0 } }
+            { pointer: complex-float pointer: { c:float 0 } } f
             alien-invoke
         ] 2 nkeep
         ! [fortran-results>]
@@ -262,7 +262,7 @@ intel-unix-abi fortran-abi [
         ! [fortran-invoke]
         [
             c:void "funpack" "fun_times_"
-            { pointer: { c:char 20 } long }
+            { pointer: { c:char 20 } long } f
             alien-invoke
         ] 2 nkeep
         ! [fortran-results>]
@@ -288,7 +288,7 @@ intel-unix-abi fortran-abi [
         ! [fortran-invoke]
         [
             c:void "funpack" "fun_times_"
-            { pointer: { c:char 10 } long pointer: { c:char 20 } pointer: c:float pointer: { c:char 30 } c:long c:long }
+            { pointer: { c:char 10 } long pointer: { c:char 20 } pointer: c:float pointer: { c:char 30 } c:long c:long } f
             alien-invoke
         ] 7 nkeep
         ! [fortran-results>]