Discussion :

[amjulo]

Bonjour à tous,

J'utilise un programme en Fortran 90 dans lequel il y a la concatenation de deux chaines de caracteres avec //.
En compilant avec g95 ou gfortran pas de problème!

Mais avec le compilateur Intel, j'ai un probleme à l'execution. Donc voici le petit test que j'ai réalisé.

si je fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program main
  implicit none
  integer      :: i1
  character*30 ::fich,dir
  dir='./RESU/res/'
  fich(1:len_trim(dir))=trim(dir)
  i1=len_trim(dir)+1
  fich(i1:i1+6)='dbg2.da'    !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  write(*,*)fich
  stop
end program main

Cela fonctionne tres bien. Mais si je veux un caractère en plus:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
program main
  implicit none
  integer      :: i1
  character*30 ::fich,dir
  dir='./RESU/res/'
  fich(1:len_trim(dir))=trim(dir)
  i1=len_trim(dir)+1
  fich(i1:i1+7)='dbg2.dat' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  write(*,*)fich
  stop
end program main

Cela ne marche plus!!
à l'execution j'ai un message d'erreur:
"./a.out: symbol lookup error: ./a.out: undefined symbol: ?0_memcopyA"


Si quelqu'un a une explication?
Merci
cordialement.

[Sylvain Bergeron]

Le programme est tout à fait légal, c'est effectivement un problème de compilateur. J'ai testé avec ifort 9.1 pour Win 32 et ça fonctionne très bien...

[amjulo]

il s'agit egalement du compilateur ifort 9.1, mais sous linux sur machine parallèle . J'ai résolu le problème en concaténant les lettres une à une, mais j'avoue que cela défie toute logique.
Merci

[Sylvain Bergeron]

Comme tu as observé, une erreur de compilateur se contourne souvent en modifiant légèrement le code. Je ne sais pas si ton code réel est aussi simple que celui illustré, mais si c'est le cas :

Code :

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

1
2
3
4
 
  fich(1:len_trim(dir))=trim(dir)
  i1=len_trim(dir)+1
  fich(i1:i1+7)='dbg2.dat'

se réduit à :

Code :

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

1
2
 
  fich = trim(dir) // 'dbg2.dat'

Peut-être ce code fonctionne t-il. C'est en tout cas plus simple que de copier les caractères 1 par 1...

[TheOyoStyledMan]

Bonjour,

j'ai récemment eu ce type de message d'erreur: il venait du fait que sur notre machine on avait mis à jour les compilateurs Intel de 9 à 10.

Certains codes (pas tous) compilés avec le compilateur 9 crachaient cette erreur.

Deux solutions:
1) linker dynamiquement avec les bibliothèques de ifort 9
2) recompiler avec le compilateur 10