Re: Is there a way to see if a value is declared as a constant

[Shark8 <onewingedshark@gmail.com>]

When you start fighting the language, it's usually an indicator that your design needs changing.
Try using the things Ada does (e.g. types) to model your problem-space.

    Package Example is
        Type Whatever is private;
        I, J, K : Constant Whatever;
    Private
        Type Whatever  is new Integer;
        Type Constants is Array (Positive range <>) of Whatever
          with Dynamic_Predicate =>
            (for all Index_1 in Constants'First..Natural'Pred(Constants'Last) =>
               (for all Index_2 in Positive'Succ(Index_1)..Constants'Last =>
                    Constants(Index_1) /= Constants(Index_2)
               )
            );
        
        Constant_Store : Constant Constants:= (1,7,3,11,77,2,7);
        
        I : Constant Whatever:= Constant_Store(4);
        J : Constant Whatever:= Constant_Store(2);
        K : Constant Whatever:= Constant_Store(5);
    End Example;