diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2008-05-20 14:02:20 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-20 16:02:20 +0200 |
| commit | 95b42490a89f98ef0b41b9445f71fcefab4ed4a7 (patch) | |
| tree | 89e45557edf2247407f550816ae331823e51a52b /gcc/testsuite/gnat.dg/gen_disp.ads | |
| parent | 9c63c208a58ded5253130c67f776d548eca2ea3f (diff) | |
| download | gcc-95b42490a89f98ef0b41b9445f71fcefab4ed4a7.zip gcc-95b42490a89f98ef0b41b9445f71fcefab4ed4a7.tar.gz gcc-95b42490a89f98ef0b41b9445f71fcefab4ed4a7.tar.bz2 | |
gen_disp.ad[sb]: New test.
* gnat.dg/gen_disp.ad[sb]: New test.
* gnat.dg/specs/empty_variants.ads: Adjust.
From-SVN: r135658
Diffstat (limited to 'gcc/testsuite/gnat.dg/gen_disp.ads')
| -rw-r--r-- | gcc/testsuite/gnat.dg/gen_disp.ads | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/gen_disp.ads b/gcc/testsuite/gnat.dg/gen_disp.ads new file mode 100644 index 0000000..722c0c1 --- /dev/null +++ b/gcc/testsuite/gnat.dg/gen_disp.ads @@ -0,0 +1,10 @@ +with Ada.Streams, Ada.Tags; +package gen_disp is + type Root_Type is tagged null record; + + function Root_Type_Class_Input + (S : not null access Ada.Streams.Root_Stream_Type'Class) + return Root_Type'Class; + + for Root_Type'Class'Input use Root_Type_Class_Input; +end gen_disp; |