Boucle do

Bonjour,
Quelqu'un sait il comment sortir d'une boucle do avant la fin?

exemple
do I=1,5
if (I.eq.3) then
//ici il faut sortir de la boucle sans passer par les valeurs 4 et 5
end if
end do

j'aimerais reussir sans utiliser un goto
ya til une fonction du genre exit loop?

meric d'avance