RISC-V: Add support for riscv-*-*.
[official-gcc.git] / gcc / testsuite / gnat.dg / deferred_const4_pkg.ads
blobc189063a758074db3ef899d9308b6c114abfbbdd
1 generic
3 type User_T is private;
5 package Deferred_Const4_Pkg is
7 type T is private;
9 Null_T : constant T;
11 private
13 type T (Valid : Boolean := False) is record
14 case Valid is
15 when True => Value : User_T;
16 when False => null;
17 end case;
18 end record;
20 Null_T : constant T := (Valid => False);
22 end Deferred_Const4_Pkg;