RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / overriding_ops_p.ads
blobcd6e32fe0895870e152f01fd61a3e6c57162eb79
1 package overriding_ops_p is
2 subtype Name_Type is String (1 .. 30);
3 type Device is synchronized interface;
4 -- Base type of devices
5 procedure Set_Name (Object : in out Device; Name : Name_Type)
6 is abstract;
7 -- Set the name of the Device
8 end overriding_ops_p;