1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/overriding_ops.adb b/gcc/testsuite/gnat.dg/overriding_ops.adb
new file mode 100644
index 000000000..5ffa8a9ae
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/overriding_ops.adb
@@ -0,0 +1,15 @@
+-- { dg-do compile }
+
+package body overriding_ops is
+   task body Light_Programmer is
+   begin
+      accept Set_Name (Name : Name_Type);
+   end Light_Programmer;
+
+   protected body Light is
+      procedure Set_Name (Name : Name_Type) is
+      begin
+         L_Name := Name;
+      end Set_Name;
+   end Light;
+end overriding_ops;