diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 07:22:13 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-04-08 07:22:13 +0000 |
commit | 12b8e51949b210825c496520ec5138447b27e3a5 (patch) | |
tree | b3746d12634b4b1c32a7bef6fdc0a65af7ea68a3 /gcc/testsuite/gnat.dg/rt1.ads | |
parent | 94e37259c8b3f7397ba969e16f3ac521999dc509 (diff) | |
download | gcc-12b8e51949b210825c496520ec5138447b27e3a5.tar.gz |
* gnat.dg/parent_ltd_with-child_full_view.adb: New test.
* gnat.dg/rt1.adb: New test.
* gnat.dg/test_time_stamp.adb: New test.
* gnat.dg/specs/warn_star.ads: New test.
* gnat.dg/specs/aggr1.ads: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134085 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gnat.dg/rt1.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/rt1.ads | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/rt1.ads b/gcc/testsuite/gnat.dg/rt1.ads new file mode 100644 index 00000000000..50cbbf0ff74 --- /dev/null +++ b/gcc/testsuite/gnat.dg/rt1.ads @@ -0,0 +1,14 @@ +with Ada.Streams; use Ada.Streams; +package RT1 is + pragma Remote_Types; + + type Ptr is private; + procedure Read (X : access Root_Stream_Type'Class; V : out Ptr) is null; + procedure Write (X : access Root_Stream_Type'Class; V : Ptr) is null; + for Ptr'Read use Read; + for Ptr'Write use Write; + + procedure P (S : access Root_Stream_Type'Class); +private + type Ptr is not null access all Integer; +end RT1; |