[Ada] Optimization loses exception in improper use of 'Value