6 lines
108 B
Ada
6 lines
108 B
Ada
|
-- { dg-do compile }
|
||
|
|
|
||
|
|
package body Generic_Inst2 is
|
||
|
|
procedure Foo (X : not null access T) is null;
|
||
|
|
end;
|