re PR ada/65156 (FAIL: gnat.dg/timing_events.adb execution test)

	PR ada/65156
	* gnat.dg/timing_events.adb: Removed, invalid test.

From-SVN: r220889

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 011e1a3def3d93a1b3a764dbbebb0dade4aeb199..e91532cb6efb08992d82d8d57a41e87cc82e4404 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2015-02-21  Arnaud Charlet  <charlet@adacore.com>
+
+       PR ada/65156
+       * gnat.dg/timing_events.adb: Removed, invalid test.
+
 2015-02-20  Aldy Hernandez  <aldyh@redhat.com>
 
        PR debug/58123

diff --git a/gcc/testsuite/gnat.dg/timing_events.adb b/gcc/testsuite/gnat.dg/timing_events.adb
deleted file mode 100644 (file)
index 589c142..0000000
--- 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;