diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/class_wide4.adb')
| -rw-r--r-- | gcc/testsuite/gnat.dg/class_wide4.adb | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/class_wide4.adb b/gcc/testsuite/gnat.dg/class_wide4.adb new file mode 100644 index 00000000000..f44d641d1e4 --- /dev/null +++ b/gcc/testsuite/gnat.dg/class_wide4.adb @@ -0,0 +1,20 @@ +-- { dg-do run } + +with Class_Wide4_Pkg; +with Class_Wide4_Pkg2; + +procedure Class_Wide4 is + D : aliased Class_Wide4_Pkg.Data_Object; + O : aliased Class_Wide4_Pkg2.Object; + IA : not null access Class_Wide4_Pkg.Conditional_Interface'Class := + O'Access; + I : Class_Wide4_Pkg.Conditional_Interface'Class renames + Class_Wide4_Pkg.Conditional_Interface'Class (O); +begin + O.Do_Stuff; + O.Do_Stuff_Access; + IA.Do_Stuff; + IA.Do_Stuff_Access; + I.Do_Stuff; + I.Do_Stuff_Access; +end Class_Wide4; |