Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gnat.dg
/
slice2.adb
blob: ab73074313e7c221685d17e6d02e8591eb71cb4f [
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
;