From: Arnaud Charlet <charlet@adacore.com>
Date: Sat, 21 Feb 2015 18:57:02 +0000 (+0000)
Subject: re PR ada/65156 (FAIL: gnat.dg/timing_events.adb execution test)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b3a472c0ff4e7da13571975908afd71c3a7fd993;p=gcc.git

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 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;