diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/class_wide2.adb')
-rw-r--r-- | gcc/testsuite/gnat.dg/class_wide2.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/class_wide2.adb b/gcc/testsuite/gnat.dg/class_wide2.adb new file mode 100644 index 000000000..9df54bf90 --- /dev/null +++ b/gcc/testsuite/gnat.dg/class_wide2.adb @@ -0,0 +1,13 @@ +-- { dg-do compile } + +package body Class_Wide2 is + + procedure Initialize is + Var_Acc : Class_Acc := new Grand_Child; + Var : Grand_Child'Class := Grand_Child'Class (Var_Acc.all); + + begin + Var := Grand_Child'Class (Var_Acc.all); + end Initialize; + +end Class_Wide2; |