diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/forward_anon.ads')
| -rw-r--r-- | gcc/testsuite/gnat.dg/forward_anon.ads | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/forward_anon.ads b/gcc/testsuite/gnat.dg/forward_anon.ads new file mode 100644 index 00000000000..ff68ff400d3 --- /dev/null +++ b/gcc/testsuite/gnat.dg/forward_anon.ads @@ -0,0 +1,9 @@ +package Forward_Anon is + type Object is null record; + function Get_Current return access Object; + Current_Object : constant access Object; + + private + One_Object : aliased Object; + Current_Object : constant access Object := One_Object'Access; +end; |