Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
slice2.adb
blob: 87c0bcd879081621c840710ce07a00b151157472 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O"
}
package
body
Slice2
is
function
F
(
I
:
R1
)
return
R2
is
Val
:
R2
;
begin
Val
.
Text
(
1
..
8
)
:=
I
.
Text
(
1
..
8
);
return
Val
;
end
F
;
end
Slice2
;