1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/overriding_ops.ads b/gcc/testsuite/gnat.dg/overriding_ops.ads
new file mode 100644
index 000000000..5b228821b
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/overriding_ops.ads
@@ -0,0 +1,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;