RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / forward_anon.ads
blobff68ff400d31628620f41ba96c1ea1601e0c69da
1 package Forward_Anon is
2 type Object is null record;
3 function Get_Current return access Object;
4 Current_Object : constant access Object;
6 private
7 One_Object : aliased Object;
8 Current_Object : constant access Object := One_Object'Access;
9 end;