Sign in
gnu
/
gcc
/
a8404c07e7fca388c02c39077865f7d5fa928430
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect17.ads
blob: 3a6ab660f89dac5d4ad6e60439a893445397e2a7 [
file
] [
log
] [
blame
]
package
Vect17
is
type
Sarray
is
array
(
1
..
5
)
of
Long_Float
;
for
Sarray
'Alignment use 16;
procedure Add (X, Y : aliased Sarray; R : aliased out Sarray);
end Vect17;