=begin filter kate Fortran ! Exemple de computed GO TO 10 PRINT *, 'Entrez un entier entre 1 et 8:' READ *, i GO TO (100,200,300,400,500,600,700,800) i PRINT *, 'Ce nombre ne correspond pas' GO TO 10 ! redemande un nombre, ad lib. =end filter __RESULT__ +kate
    ! Exemple de computed GO TO
       10 PRINT *, 'Entrez un entier entre 1 et 8:'
          READ  *, i
          GO TO (100,200,300,400,500,600,700,800) i
          PRINT *, 'Ce nombre ne correspond pas'
          GO TO 10 ! redemande un nombre, ad lib.
__RESULT__ -kate
    ! Exemple de computed GO TO
       10 PRINT *, 'Entrez un entier entre 1 et 8:'
          READ  *, i
          GO TO (100,200,300,400,500,600,700,800) i
          PRINT *, 'Ce nombre ne correspond pas'
          GO TO 10 ! redemande un nombre, ad lib.