Discussion :

[abysr]

Bonjour, je cherche a compiler un programme tout est nickel avec visual fortran
mais je veux le compiler avec gcc :

GNU Fortran (tdm64-1) 5.1.0
Copyright (C) 2015 Free Software Foundation, Inc.
, et là des erreurs genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 B(m,0)=-ddt2(a,nt,m,t1,tcorres)
Error: Return type mismatch of function 'ddt2' at (1) (REAL(4)/REAL(8))

alors que j'ai bien déclarer ma function :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DOUBLE PRECISION function ddt2(a,nt,n,t1,tcorres)

Quelqu'un peut il m'aider???

[Sylvain Bergeron]

Tu donnes trop peu d'information.

Comment le compilateur sait-il à la ligne « B(m,0)=-ddt2(a,nt,m,t1,tcorres) » que ddt2 est real(8) ? Le message semble indiquer que ddt2 est à la fois real(4) (localement?) et real(8) (déclaration?).

[abysr]

dsl,
voilà la commande pour gcc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

gfortran -c -g -w -fno-range-check -ffree-line-length-non mondoc.f90

puis j'ai déclaré toutes mes fonction avec "real"
et ça compile, merci

[abysr]

Suite de mon problème :
Mon programme est écrit en fortran, à l'interieur duquel une subroutine fait un "open(file.....)" Mon programme fonctionne tres bien.
Mais dés lors que j'en fais une librarie dynamique (DLL) et que j'appelle ma subroutine, elle bloque dés la rencontre de ce : "open(file...)"! avec un :" error: invalid memory access"
Quelqu'un peut il m'aider?

[Sylvain Bergeron]

Je vois 2 pistes possibles :

• Une bête erreur (mauvaise variable,...), mais le message d'erreur ne me semble pas pointer vers cette erreur.
• Un problème d'accès à la « File Unit Table » parce que tu es dans une DLL.

La File Unit Table (nom non garanti) est un tableau interne à ton programme qui fait la correspondance entre les Units de ton programme et les informations du OS pour le fichier (Handle, ...). Il n'y en a qu'une par programme, ce qui permet de faire open(20,...) dans une routine et ensuite read(20,... dans une autre. Peut-être la FUT est-elle non accessible d'une DLL ? Il est possible que tu doives faire quelque chose en particulier pour que ça fonctionne. Je te suggère de consulter le User Guide du compilateur ou le forum du fournisseur.

[abysr]

Merci, l'astuce c'est de mettre la dll dans le même dossier que la lib JNA, accessible pas le classPath, du coup on a même plus besoin de recompiler tout le programme, juste la dll, si biensur on a pas d'arguments à passer de la dll au programme "maître", il faut s'assurer que la dll ne passe aucun argument au maître. sinon merci

[Planck]

Bonjour
Peut on m envoyer un compilateur fortran qui tourne sous windows 7
merci