OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

From-SVN: r220889
This commit is contained in:
Arnaud Charlet 2015-02-21 18:57:02 +00:00 committed by Arnaud Charlet
parent 0cf5e9df8d
commit b3a472c0ff
2 changed files with 5 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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> 2015-02-20 Aldy Hernandez <aldyh@redhat.com>
PR debug/58123 PR debug/58123

29
gcc/testsuite/gnat.dg/timing_events.adb
View File

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