pointer_protected_p.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/pointer_protected_p.ads

blob: 65e4e72ab55845166008230f8d99fde0ac14e6f0 (plain)

package pointer_protected_p is
   type T;
   
   type Ptr is access protected procedure (Data : T);
   
   type T is record
      Data : Ptr;
   end record;
end pointer_protected_p;