     [ complex-double { } ]
     [ "double-complex" fortran-ret-type>c-type ] unit-test
 
-    [ c:void { c:void* } ]
+    [ c:void { pointer: { complex-double 3 } } ]
     [ "double-complex(3)" fortran-ret-type>c-type ] unit-test
 
 ] with-variable

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

    [ c:void { c:char* long } ]
    [ "character(17)" fortran-ret-type>c-type ] unit-test

    [ c:int { } ]

        ! [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 } 
            alien-invoke
        ] 7 nkeep
        ! [fortran-results>]
