Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
pack15.adb
blob: 019b2da0f7873f1c4e0d00d2d2badde3cc0f7b4b [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
package
body
Pack15
is
procedure
Transfer
is
begin
O
.
Status_Flags
:=
Status_Flags
;
end
;
end
Pack15
;