* c-ada-spec.c (get_underlying_decl): Get to the main type variant.