Commit d7aa24e4 by Arnaud Charlet Committed by Arnaud Charlet

* gnat.dg/self1.adb: Remove now incorrect test.

From-SVN: r235271
parent ab04f5cd
2016-04-20 Arnaud Charlet <charlet@adacore.com>
* gnat.dg/self1.adb: Remove now incorrect test.
2016-04-20 Bin Cheng <bin.cheng@arm.com>
* gcc.dg/tree-ssa/scev-11.c: New test.
......
-- { dg-do compile }
procedure Self1 is
type Event;
type Link (E : access Event) is limited record
Val : Integer;
end record;
type Ptr is access all Event;
type Event is tagged limited record
Inner : Link (Event'access);
Size : Integer;
end record;
Obj2 : Ptr := new Event'(Inner => (Event'access, 15),
Size => Link'size);
begin
null;
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