Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect15.ads
blob: 5c81324608777e779b6f144e99410e9ace66e9ea [
file
] [
log
] [
blame
]
package
Vect15
is
type
Sarray
is
array
(
1
..
5
)
of
Long_Float
;
for
Sarray
'Alignment use 16;
procedure Add (X, Y : Sarray; R : out Sarray);
end Vect15;