Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
aggr15.ads
blob: 70eb22398ee2fc779bbb3060fdd73325d08a1c3e [
file
] [
log
] [
blame
]
package
Aggr15
is
type T
is
tagged record
I
:
Integer
;
end
record
;
type DATA_T
is
record
D
:
T
;
end
record
;
type ALL_DATA_T
is
array
(
1.
.
2
,
1.
.
2
)
of DATA_T
;
function
ALL_CREATE
return
ALL_DATA_T
;
end
Aggr15
;