[Débutant] Instruction goto

Bonjour,
J'ai écrit ce simple programme pour voir mieux la commande goto, mais il est plein d'erreurs. Alors pouvez-vous me le rectifier ?
Merci

Voil le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

program GO TO implicit none 10 print*,'entrer la valeur de X' read* ,X IF(X.LT. 0) then print*,'INvalide' GO TO 10 else print*,'valide' END IF END

---

En général, mettre les messages d'erreurs permet de mieux voir le problème.
En tout cas ce que je vois c'est :

Code:

---

program GO TO

---

Evite de mettre des espaces, je ne suis pas sur que ça fonctionne (et évite d'utiliser des instructions fortran comme nom de programme, à mon avis ça ne fonctionne pas). Ecrit plutot

Code:

---

program ALLERVERS

---

Code:

---

implicit none

---

Cette instruction signifie que fortran ne déduit pas le type de variable en fonction de son nom. Il faut le donner explicitement . Du coup , il faur que tu ecrive REAL X ou INTEGER X.

Un conseil que je pêux te donner est de te concentrer toujours sur la première erreur détectée à la compilation. En général, la pluspart des autres erreurs sont la conséquence de la première.

Bonjour,
Voila ce que me donne le compilateur apres la compilation:

bbb.f:1:
program bbb
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:2:
implicit none
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:3:
real X
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:4:
10 print*,'entrer la valeur de X'
^
Caractère non-numérique à (^) dans le champ d'étiquette [info -f g77 M LEX]
bbb.f:5:
read* ,X
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:6:
IF(X.LT. 0) then
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:7:
print*,'INvalide'
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:8:
GO TO 10
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:9:
else
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:10:
print*,'valide'
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:11:
END IF
^
Premier caractère invalide à (^) [info -f g77 M LEX]
bbb.f:12:
END
^
Premier caractère invalide à (^) [info -f g77 M LEX]


je suis inquiet maintenat, je ne voit pas d erreurs dans mon code, alors est ce que l erreur est du compilateur?

Le Fortran 77 est fixed-format, c'est a dire que les instructions doivent commencer a la colonne 6 et ne pas depasser la colonne 72. Les colonnes 1 a 4 sont reservees au labels, la colonne 5 au signe de continuation de ligne. Ces archaismes sont herites des antiques punch cards.
Ton programme doit donc etre:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

program myprog implicit none real x   10 print*,'entrer la valeur de X' read *, X IF (X.LT. 0) then print *, 'INvalide' GOTO 10 else print *, 'valide' END IF END

---

Le Fortran 90 a enleve ces restrictions et le code peut desormais etre en free format.

c est resolu, merci

J ai trouvé le probleme, c est la forme du program:evilred:
alors pouvez vous me dire comment je doit mettre la forme?
en fortran 90 la forme n est pas importante mais en F77 elle est importante

Les formes fixes et free-form sont bien décrites dans la plupart des manuels.

Va voir dans ftp://ftp-developpez.com/fortran/cours/normes90-95.pdf à compter de la page 24.

La plupart des compilateurs s'attendent par défaut à un code source fixe si l'extension est .f ou .for et à un code source libre si l'extension est .f90. Il est généralement possible de changer ce défaut par une switch.