blob: 2ccebb0026f080e0494022bcdc5a05cdb0f9d9e3 [file] [log] [blame]
-- { dg-do compile }
package body Generic_Inst2 is
procedure Foo (X : not null access T) is null;
end;