ubuntu-buildroot/output/build/host-gcc-initial-11.4.0/gcc/testsuite/gnat.dg/warn29.ads

5 lines
100 B
Ada

package Warn29 is
type T is tagged null record;
procedure P (X : T; Y : Integer);
end Warn29;