PR ada/65156

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



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@220889 138bc75d-0d04-0410-961f-82ee72b054a4

2 files changed, 5 insertions, 29 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 011e1a3def3..e91532cb6ef 100644
--- 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
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;