Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
bip_cu_t.ads
blob: 75e97b9d4cfa78ca824bb729d79d1a17d42b1b63 [
file
] [
log
] [
blame
]
with
Ada
.
Strings
.
Unbounded
;
use
Ada
.
Strings
.
Unbounded
;
package
BIP_CU_T
is
type T
is
limited
private
;
function
Make_T
(
Name
:
String
)
return
T
;
private
type T
is
limited record
Name
:
Unbounded_String
;
end
record
;
end
BIP_CU_T
;