Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect18.ads
blob: a0ad135c26ab1bdc62fc37540d0702038dc616b6 [
file
] [
log
] [
blame
]
package
Vect18
is
type
Sarray
is
array
(
1
..
4
)
of
Long_Float
;
for
Sarray
'Alignment use 16;
procedure Comp (X, Y : Sarray; R : in out Sarray);
end Vect18;