[Fortran] Usare Dll

[knulp77]

Ciao a tutti, sono nuovo del forum.

Ho questo problema, ho creato una dll in Fortran e vorrei richiamarla ma ottengo sempre un errore: "Access Violation"

Sorgente della Dll:

Real Function Somma (A ,B, Res)

	!DEC$ATTRIBUTES STDCALL:: Somma
	!DEC$ATTRIBUTES DLLEXPORT:: Somma
	!DEC$ATTRIBUTES ALIAS: 'Somma':: Somma
	!DEC$ATTRIBUTES REFERENCE:: A ,B, Res
    
    Real*8 A ,B, Res
    Real Errore
	
    IF ((A>=0) .AND. (B>=0)) THEN
        ! Qui è tutto ok
        Errore = 0    
        Res = A + B
    
    ELSE
        ! Qui c'è un errore
        IF ((A<0) .AND. (B<0)) THEN
            Errore = 1.
        ELSEIF (A<0) THEN
            Errore = 2.
        ELSE
            Errore = 3.
        END IF

    END IF

    ! Qui la funzione comunica se ha trovato
    ! qualche errore
    Somma = Errore
End Function

Sorgente del programma che dovrebbe richiamare la dll

Program UsaSomma
    
    Interface
        Real Function Somma(x,y,z)
            !DEC$ ATTRIBUTES DLLIMPORT :: Somma
            !DEC$ ATTRIBUTES STDCALL  :: Somma
            !DEC$ ATTRIBUTES ALIAS: "Somma" :: Somma
            Real*8 x
            Real*8 y
            Real*8 z
        End Function Somma
    End Interface
    
    Real*8 a,b,c
    Real errore2

    a=5.3
    b=3.4
    c=0.0
    errore2 = Somma(a,b,c)
    
    print *,'Risultato:', c
    print *, 'Codice Errore:', errore2
    read (*,*)

End

All'interno del workspace ho caricato il file .lib creato insieme alla dll e la dll l'ho copiata nella cartella del progetto.
Nel debug ho visto che quando dall'eseguibile passa alla dll i valori degli argomenti nella dll
(A,B,Res) sono tutti: "Undefined address" (non posso neppure cambiare il valore della variabile all'interno del debug)
Il compilatore è Visual Fortran 6.0.0

Se qualcuno ha qualche suggerimento è il benvenuto! Sono sicuro che mi manca un pezzetto indispensabile...

[tiMo]

ho provato i tuoi codici con il gfortran senza problemi

# Compilo la dll
gfortran prova.f90 -shared -oprova.dll
# Compilo il main
gfortran main.f90 prova.dll -omain.exe

>main.exe
Risultato: 8.7000002861022949
Codice Errore: 0.0000000

Secondo me stai facendo confusione con le istruzioni per esportare i nomi sotto il CVF, ti consiglio di compilare da riga di comando usando il comando DF. Oltretutto secondo me non ti servono tutte quelle direttive per il compilatore. Non ho il CVF su questa macchina per cui non posso provare. In ogni caso ti consiglio di passare al gfortran che è gratis. Il CVF 6.0 è oramai obsoleto e pieno di bachi, se poi hai dei soldini da spendere puoi aggiornarti e prendere il compilatore Intel.

ciao
tiMo