gcc/testsuite/gnat.dg/prot8.ads

package Prot8 is

  protected type Prot is
  private
    B : Boolean;
    N : access Prot;
    Ptr : access Prot;
  end Prot;

end Prot8;