Retro68/gcc/gcc/testsuite/gnat.dg/bip_case_expr_pkg.ads
Wolfgang Thaller 6fbf4226da gcc-9.1
2019-06-20 20:10:10 +02:00

8 lines
203 B
Ada

with Ada.Finalization; use Ada.Finalization;
package BIP_Case_Expr_Pkg is
type Lim_Ctrl is new Limited_Controlled with null record;
function Make_Lim_Ctrl return Lim_Ctrl;
end BIP_Case_Expr_Pkg;