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