with System;

package Pck is
   type Base is (First, Middle, Last);
   subtype Enum is Base range First .. Last;

   procedure Do_Nothing (A : System.Address);
end Pck;