Fix not to output an alias of a function type in Ada