diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/class_wide2.ads')
-rw-r--r-- | gcc/testsuite/gnat.dg/class_wide2.ads | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/class_wide2.ads b/gcc/testsuite/gnat.dg/class_wide2.ads new file mode 100644 index 000000000..a1acc223e --- /dev/null +++ b/gcc/testsuite/gnat.dg/class_wide2.ads @@ -0,0 +1,17 @@ +package Class_Wide2 is + + type Root_1 (V : Integer) is tagged record + null; + end record; + + type Child is new Root_1 (1) with null record; + + type Class_Acc is access all Child'Class; + + type Grand_Child is new Child with record + null; + end record; + + procedure Initialize; + +end Class_Wide2; |