[Ada] Fix internal error on if-expression in call returning tagged type