ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/generic_inst2.adb

6 lines
108 B
Ada

-- { dg-do compile }
package body Generic_Inst2 is
procedure Foo (X : not null access T) is null;
end;