Multiplicateurs dans les formats

Version imprimable

Bonjour à tous,

Voici le programme suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 !DEBUT program tete character(LEN=10) :: chaine integer, dimension(30) :: entier = 1 integer :: nombre = 11, i=0 chaine="COUCOU :" entier(1)=10 entier(2)=9 write(6,1000) (chaine, entier(1)) write(6,1001) (chaine, (entier(i), i=1,nombre)) 1000 FORMAT (a10, 5x, i8) 1001 FORMAT (a10, 5x, 24(i8,5x)) end program tete !FIN
La compilation sur SUN passe correctement mais pas avec Visual Fortran. J'ai l'erreur suivante :

Citation:

Error: Syntax error, found ')' when expecting one of: ,

Il s'attend à avoir certainement 24 éléments a printer.

Y a-t-il une option particulière a mettre dans les settings ou faut-il que je modifie mon code. Dans le 2ème cas, comment puis-je le modifier pour faire la même chose ?

Au secours...

23/10/2006, 17h28
souslikpwr

J'ai trouve :
Il faut remplacer :

Code:

write(6,1001) (chaine, (entier(i), i=1,nombre))

Par :

Code:

write(6,1001) chaine, (entier(i), i=1,nombre)

Ce n'est certainement pas la seule solution donc si d'autres personnes en ont qu'elles n'hesitent pas
23/10/2006, 17h32
Sylvain Bergeron
Tu devrais toujours indiquer la ligne pour laquelle le compilateur émet un message...

Avec le compilateur Lahey 5.6, j'obtiens les messages suivants :

Citation:

1040-W: "TEST.F90", line 9: Fortran 66 or old Fujitsu extension specification used.
1040-W: "TEST.F90", line 10: Fortran 66 or old Fujitsu extension specification used.

Le problème vient du fait que les parenthèses externes ne sont pas standard.
Code:

1 2 write(6,1000) chaine, entier(1) write(6,1001) chaine, (entier(i), i=1,nombre)
ne produit pas d'avertissement.

Ta supposition de cause de l'erreur est fausse. Il n'y a pas d'exigence en Fortran entre le nombre d'élément à imprimer et le nombre de masques dans le format. Le bout de code suivant est légal :
Code:

1 2 3 4 real V(10) ... write(*, '(f8.6)') V write(*,'(1000f8.6)') V
En terminant, l'utilisation systématique de "implicit none" est une bonne habitude à développer.