RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / class_wide2.adb
blob9df54bf9071b11edf057b6c0f39d48a6472f7080
1 -- { dg-do compile }
3 package body Class_Wide2 is
5 procedure Initialize is
6 Var_Acc : Class_Acc := new Grand_Child;
7 Var : Grand_Child'Class := Grand_Child'Class (Var_Acc.all);
9 begin
10 Var := Grand_Child'Class (Var_Acc.all);
11 end Initialize;
13 end Class_Wide2;