summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/overriding_ops.ads
blob: 5b228821b9e98c9df557403a4bf6fe3cbe851479 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
with overriding_ops_p; use overriding_ops_p;
package overriding_ops is
   task type Light_Programmer is new Device with
      overriding entry Set_Name (Name : Name_Type);
   end Light_Programmer;
   --  Object that represents a light 
   protected type Light is new Device with
      overriding procedure Set_Name (Name : Name_Type);
   private 
      L_Name : Name_Type;
   end Light;
end overriding_ops;