selected_name_2.vhd

entity test is
    type test1 is (foo);
    subtype test2 is test1.test1;
begin end;