Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
opt90d_pkg.ads
blob: a68b224893c7db244edb5025726922a8202c8743 [
file
] [
log
] [
blame
]
package
Opt90d_Pkg
is
type
Rec
is
record
D
:
String
(
1
..
12
);
C
:
Short_Integer
;
A
:
Short_Short_Integer
;
B
:
Integer
;
end
record
;
pragma
Pack
(
Rec
);
for
Rec
'Alignment use 1;
type Data is tagged record
R : Rec;
end record;
end Opt90d_Pkg;