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