This rule is called by

-> ada_qualified_type_spec -> ada_unqualified_type_spec -> delimiter_token -> pascal_type_spec