ada: Fix internal error on call with parameter of predicated subtype