Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
frunaligned.adb
blob: a57e87227e08a45e6f08f18ff4f0f38f970bbd51 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-gnatws"
}
with
FRUnaligned1
;
use
FRUnaligned1
;
function
FRUnaligned
return
r
is
ss
:
s
;
begin
return
ss
.
y
;
end
;