Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gnat.dg/class_wide4.adb @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 -- { dg-do run }
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 with Class_Wide4_Pkg;
kono
parents:
diff changeset
4 with Class_Wide4_Pkg2;
kono
parents:
diff changeset
5
kono
parents:
diff changeset
6 procedure Class_Wide4 is
kono
parents:
diff changeset
7 D : aliased Class_Wide4_Pkg.Data_Object;
kono
parents:
diff changeset
8 O : aliased Class_Wide4_Pkg2.Object;
kono
parents:
diff changeset
9 IA : not null access Class_Wide4_Pkg.Conditional_Interface'Class :=
kono
parents:
diff changeset
10 O'Access;
kono
parents:
diff changeset
11 I : Class_Wide4_Pkg.Conditional_Interface'Class renames
kono
parents:
diff changeset
12 Class_Wide4_Pkg.Conditional_Interface'Class (O);
kono
parents:
diff changeset
13 begin
kono
parents:
diff changeset
14 O.Do_Stuff;
kono
parents:
diff changeset
15 O.Do_Stuff_Access;
kono
parents:
diff changeset
16 IA.Do_Stuff;
kono
parents:
diff changeset
17 IA.Do_Stuff_Access;
kono
parents:
diff changeset
18 I.Do_Stuff;
kono
parents:
diff changeset
19 I.Do_Stuff_Access;
kono
parents:
diff changeset
20 end Class_Wide4;