Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
frunaligned1.ads
blob: 4a8db361b484a094c751ffdbd5ae240ed8ed6049 [
file
] [
log
] [
blame
]
package
FRUnaligned1
is
type r
is
array
(
1
..
72
)
of
Boolean
;
pragma
Pack
(
r
);
type s
is
record
x
:
Boolean
;
y
:
r
;
end
record
;
for
s
use
record
x at
0
range
0
..
0
;
y at
0
range
1
..
72
;
end
record
;
end
FRUnaligned1
;