Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gnat.dg
/
vect16.ads
blob: 0192dccb13ee28eef691df26918cdb49ca345a7e [
file
] [
log
] [
blame
]
package
Vect16
is
type
Sarray
is
array
(
1
..
4
)
of
Long_Float
;
for
Sarray
'Alignment use 16;
procedure Add_Sub (X, Y : Sarray; R,S : out Sarray);
end Vect16;