Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
test_bounded.adb
blob: 29d94f48e34f63cfb3a2b6e2e5848b397da6bdca [
file
] [
log
] [
blame
]
--
{
dg
-
do
run
}
--
{
dg
-
options
"-gnatws"
}
procedure
Test_Bounded
is
type
Bounded
(
Length
:
Natural
:=
0
)
is
record
S
:
String
(
1.
.
Length
);
end
record
;
type
Ref
is
access all
Bounded
;
X
:
Ref
:=
new
Bounded
;
begin
null
;
end
Test_Bounded
;