gcc/testsuite/gnat.dg/pointer_discr1_pkg3.ads

   1 package Pointer_Discr1_Pkg3 is
   2
   3   type T_TYPE is (One, Two, Three);
   4
   5   type T_DATA (D : T_TYPE);
   6
   7   type T_DATA (D : T_TYPE) is null record;
   8
   9   type T_WINDOW is access T_DATA;
  10
  11   procedure Map (Window : in T_WINDOW);
  12
  13 end Pointer_Discr1_Pkg3;