Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
unroll2.ads
blob: 342f371f1fec59cd690db3230a6bf9dfd3103c05 [
file
] [
log
] [
blame
]
package
Unroll2
is
type
Sarray
is
array
(
1
..
4
)
of
Float
;
function
"+"
(
X
,
Y
:
Sarray
)
return
Sarray
;
procedure
Add
(
X
,
Y
:
Sarray
;
R
:
out
Sarray
);
end
Unroll2
;