Commit 612ce71b by Arnaud Charlet

Fix test after proper rule enforced by gnat on taft types.

From-SVN: r146231
parent f3b01cd9
......@@ -2,7 +2,6 @@
-- { dg-do compile }
package body ref_type is
type T is tagged null record;
procedure Print (X : T) is
begin
null;
......
package ref_type is
private
type T is tagged;
type T is tagged null record;
procedure Print (X : T);
end ref_type;
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