gcc/testsuite/gnat.dg/pointer_discr1_pkg3.ads


1
2
3
4
5
6
7
8
9
10
11
12
13

package Pointer_Discr1_Pkg3 is

  type T_TYPE is (One, Two, Three);

  type T_DATA (D : T_TYPE);

  type T_DATA (D : T_TYPE) is null record;

  type T_WINDOW is access T_DATA;

  procedure Map (Window : in T_WINDOW);

end Pointer_Discr1_Pkg3;