Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
bip_case_expr_pkg.ads
blob: 3fb00092b4e8ac03c43f8a24889e96ce17640da1 [
file
] [
log
] [
blame
]
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
;