From b3a472c0ff4e7da13571975908afd71c3a7fd993 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Sat, 21 Feb 2015 18:57:02 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gnat.dg/timing_events.adb | 29 ----------------------------- 2 files changed, 5 insertions(+), 29 deletions(-) delete mode 100644 gcc/testsuite/gnat.dg/timing_events.adb diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 011e1a3..e91532c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-02-21 Arnaud Charlet + + PR ada/65156 + * gnat.dg/timing_events.adb: Removed, invalid test. + 2015-02-20 Aldy Hernandez 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 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; -- 2.7.4