RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / discr49_rec1.adb
blobc7ffa1eabf7a9dbfb2c792039e2db55eab0d8864
1 package body Discr49_Rec1 is
2 function Value (Obj : Parent) return Integer is
3 begin
4 return Obj.V + Boolean'Pos (Obj.Discr_1);
5 end;
6 end Discr49_Rec1;