Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect8.ads
blob: c926cd51ffa8c55c12754688c5dd89250780eef4 [
file
] [
log
] [
blame
]
package
Vect8
is
type
Vec
is
array
(
1
..
2
)
of
Long_Float
;
pragma
Machine_Attribute
(
Vec
,
"vector_type"
);
function
Foo
(
V
:
Vec
)
return
Vec
;
end
Vect8
;