         ! [fortran-invoke]
         [
             c:void "funpack" "fun_times_"
-            { void* void* } 
+            { pointer: complex-float pointer: { c:float 0 } } 
             alien-invoke
         ] 2 nkeep
         ! [fortran-results>]

classes.struct arrays assocs byte-arrays combinators fry
generalizations io.encodings.ascii kernel macros
macros.expander namespaces sequences shuffle tools.test vocabs.parser ;
QUALIFIED-WITH: alien.c-types c
IN: alien.fortran.tests


    [ { char 1 } ]
    [ "character(1)" fortran-type>c-type ] unit-test

    [ pointer: c:char { c:long } ]
    [ "character" fortran-arg-type>c-type ] unit-test

    [ c:void { pointer: c:char c:long } ]
    [ "character" fortran-ret-type>c-type ] unit-test

    [ complex-float { } ]
