PR target/84336
[official-gcc.git] / gcc / testsuite / gnat.dg / class_wide4_pkg2.ads
blob1e5799d2597ebf97f3ff1d4bf85b7bb8da0d3ff3
1 with Class_Wide4_Pkg;
3 package Class_Wide4_Pkg2 is
5 type Object is limited new
6 Class_Wide4_Pkg.Conditional_Interface with
7 record
8 Val : Integer := 1234;
9 end record;
11 function Is_Valid
12 (This : in Object)
13 return Boolean
15 (This.Val = 1234);
17 function Is_Supported_Data
18 (This : in Object;
19 Data : not null access Class_Wide4_Pkg.Data_Object'Class)
20 return Boolean
22 (This.Val = 1234);
24 procedure Do_Stuff
25 (This : in out Object) is null;
27 procedure Do_Stuff_Access
28 (This : not null access Object) is null;
30 end Class_Wide4_Pkg2;