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 : Sélectionner tout - Visualiser dans une fenêtre à part
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