Langage peu utilisé et un peu archaïque il est vrai ... mais ce n'est pas moi qui ai choisi

Je ne sais pas si quelqu'un connait et pourra m'aider, mais j'ai une erreur de compilation que je ne comprends vraiment pas ... :

manipdemineur.ads: Error: line 120 col 49 LRM:3.8(12), A discriminant used in a constraint may only appear alone as a direct_name
si vous voulez en savoir plus demandez ... et si vous ne connaissais rien bah tant pis j'essaierai de me débrouiller autrement

Merci.
Elise