1 files changed, 0 insertions, 29 deletions
diff --git a/gcc/testsuite/gnat.dg/timing_events.adb b/gcc/testsuite/gnat.dg/timing_events.adb
deleted file mode 100644
index 589c14209ae..00000000000
--- a/gcc/testsuite/gnat.dg/timing_events.adb
+++ /dev/null
@@ -1,29 +0,0 @@
--- { dg-do run }
-
-procedure Timing_Events is
-   type Timing_Event_Handler is access protected procedure;
-   
-   protected PO is
-      entry     Test;
-      procedure Proc;
-   private
-      Data : Integer := 99;
-   end PO;
-   
-   protected body PO is
-      entry Test when True is
-         Handler : Timing_Event_Handler := Proc'Access;
-      begin
-         Handler.all;
-      end Test;
-      
-      procedure Proc is
-      begin
-         if Data /= 99 then
-            raise Program_Error;
-         end if;
-      end Proc;
-   end PO;
-begin
-   PO.Test;
-end;