g77/dllwrap: getarg returns nothing

[lemkemch at t-online dot de (Michael Lemke)]

I am trying for the first time to build a dll and I've stumbled across this:
g77 getarg returns nothing if called from a dll.  This is what I did:

Test> cat test.f
        program test
        implicit none

        character x*132
        integer i

        call geti( x, i )

        end

Test> cat geti.f
        subroutine geti( image, len_image )
        implicit none

        character*(*) image
        integer len_image

        character*20 prg_name

        call getarg( 1, prg_name )
        print *, 'getarg''ed: |'//prg_name//'|'

        end

Test> g77 -c test.f
Test> g77 -c geti.f
Test> g77 test.o geti.o
Test> ./a blah
 getarg'ed: |blah                |
Test>

Ok, that works.  Here's the problem:

Test> dllwrap --driver-name g77 --implib libgeti.a  --export-all -o geti.dll geti.o
dllwrap: no export definition file provided
dllwrap: creating one, but that may not be what you want
Test> g77 test.o -L . -lgeti
Test> ./a blah
 getarg'ed: |                    |

Now there is nothing between |...|

Is there anything special that has to be done for the dll?  Some magic
initialization or declaration?

I'd really like this to work.  I couldn't find anything in the FAQ, documentation
etc.  The only impression I got is that dll's are a rather complicated beast.

Thanks,
Michael


--
Want to unsubscribe from this list?
Check out: http://cygwin.com/ml/#unsubscribe-simple