elim1.ads « gnat.dg « testsuite « gcc - cbb-gcc-4.6.4 - compiler building blocks: cbb-gcc-4.6.4: including full support for the midipix targets

summary refs log tree commit diff

path: root/gcc/testsuite/gnat.dg/elim1.ads

blob: 7a7bd3588b481a6ad34be372a6e116a8389361a8 (plain)

pragma Eliminate (p, d);
package elim1 is
   type t is tagged null record;
   procedure d (a : t);       
end;