Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
wide_boolean_pkg.adb
blob: c61efca5705ff85cbfd3d9cb16a1c52ab7036714 [
file
] [
log
] [
blame
]
package
body
Wide_Boolean_Pkg
is
procedure
Modify
(
LH
:
in
out
TUINT32
;
LB
:
in
out
TBOOL
)
is
begin
LH
:=
16
#12345678#;
LB
:=
TRUE
;
end
;
end
Wide_Boolean_Pkg
;