Commit b3a472c0 by Arnaud Charlet Committed by Arnaud Charlet

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
parent 0cf5e9df
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
......
-- { 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;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment