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