Require target lra in gcc.dg/pr108095.c
[official-gcc.git] / gcc / testsuite / gnat.dg / prot9_gen.ads
blob656866eee02efa7ecdf021dd371b34d453decc13
1 generic
2 type Field_Type is limited private;
3 package Prot9_Gen is
5 type Field_Pointer is access all Field_Type;
7 Pointer : Field_Pointer := new Field_Type;
9 end Prot9_Gen;