testsuite/gnat.dg/generic_inst2.adb

--  { dg-do compile }

package body Generic_Inst2 is
   procedure Foo (X : not null access T) is null;
end;