Recherche:

cela ne marche pas trop bien si à l'intérieur du loop, il y a des conditions qui entrainent "next", d'autres qui entrainent "exit" à un ou plusieurs niveaux

en fin de compte, la boucle "une fois"...

par provocation, je remplace le label "essai" par "continue"

sinon cette solution n'est pas si moche que cela et me plait mieux que la
procédure/fonction évoquée

pour 2025, je demande


loop

l'appel d'une procédure/fonction entre "loop end loop;" est en effet une
solution

par contre "if ok then" à plusieurs endroits du code, c'est pire que le "goto"

par commodité, vous avez placé le "end if" devant le "end loop", mais prenons
le cas suivant (les . en colonne 1 sont des instructions quelconques)


loop
.
.
.
if condition1 then...

exit permet de sortir d'une boucle

mais pour mettre fin à l'itération courante et aller directement à la suivante,

n'y a t-il pas mieux en ADA qu'un "goto" ?


loop
.
.