Discussion :

[Casimirs]

Bonjour à tous,

Je reviens vers vous car j'ai de nouveau un problème avec une structure (pourtant très simple) écrite en Fortran mais qui donne une erreur sur un ordinateur et pas sur un autre...

Voici le bout de code qui pose problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
MODULE test
IMPLICIT NONE
 
  TYPE toto
    REAL, ALLOCATABLE, DIMENSION(:,:) :: array
  END TYPE toto
 
CONTAINS
 
FUNCTION print_test(arg_1, arg_2)
IMPLICIT NONE
TYPE(toto) :: print_test
INTEGER, INTENT(IN) :: arg_1, arg_2
 
ALLOCATE(print_test%array(arg_1, arg_2))
 
PRINT*, 'ARRAY(1,1) = ', print_test%array(1,1)
 
END FUNCTION print_test
 
END MODULE test

Je n'ai mis ici que les lignes qui posent problème...Ce code compile très bien puis s'exécute très bien sur un ordinateur ubuntu muni de gfortran (version 4.6.1).

Cependant, j'obtiens une erreur de compilation sur un autre ordinateur muni de gfortran (version 4.1.2). Voici l'erreur obtenue :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
......
 
In file type.f90:6
 
REAL, ALLOCATABLE, DIMENSION(:,:) :: array
 
Error: Attribute at (1) is not allowed in a type in a TYPE definition
 In file type.f90:7
 
END TYPE toto 
 
.....

J'ignore ce qui cloche dans mon code ! d'autant plus qu'il fonctionne très bien ailleurs !!!

Pourquoi ne marche t-il pas sous fortran 4.1.2 ? pourquoi cette erreur ?

Je vous remercie pour votre aide

Antoine

[Sylvain Bergeron]

Un allocatable dans un type, c'est permis seulement à compter du TR-15581, qui est un complément « standard » à Fortran 95 (lors de la publication du TR-15581, le normalisateur s'engageait à l'inclure dans la version suivante de la norme, soit Fortran 2003).

Alors, de ton expérience, on peut conclure que gfortran 4.1.2 ne supportait pas TR-15581.

Ceci dit, tu peux contourner en utilisant un pointeur plutôt qu'un allocatable. Il est toutefois suggéré de plutôt mettre à jour la version périmée de gfortran. La raison est que du code utilisant des allocatables est plus robuste et peut être plus rapide qu'un code utilisant des pointeurs.

[Casimirs]

Excellent !

Je te remercie pour ta réponse ! Je vais tester mon code avec une version mise à jour de gfortran et je te tiens au courant !

Merci !

Antoine