Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/vect5.ads @ 143:76e1cf5455ef
add cbc_gc test
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 19:24:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
with Vect5_Pkg; package Vect5 is -- Unconstrained array types are vectorizable, possibly with special -- help for the programmer type Varray is array (Positive range <>) of Long_Float; for Varray'Alignment use 16; function "+" (X : Varray; Y : Long_Float) return Varray; procedure Add (X : Varray; Y : Long_Float; R : out Varray); procedure Add (X : not null access Varray; Y : Long_Float; R : not null access Varray); -- Constrained array types are vectorizable type Sarray is array (Positive (1) .. Positive (4)) of Long_Float; for Sarray'Alignment use 16; function "+" (X : Sarray; Y : Long_Float) return Sarray; procedure Add (X : Sarray; Y : Long_Float; R : out Sarray); procedure Add (X : not null access Sarray; Y : Long_Float; R : not null access Sarray); type Darray1 is array (Positive(1) .. Vect5_Pkg.N) of Long_Float; for Darray1'Alignment use 16; function "+" (X : Darray1; Y : Long_Float) return Darray1; procedure Add (X : Darray1; Y : Long_Float; R : out Darray1); procedure Add (X : not null access Darray1; Y : Long_Float; R : not null access Darray1); type Darray2 is array (Vect5_Pkg.K .. Positive(4)) of Long_Float; for Darray2'Alignment use 16; function "+" (X : Darray2; Y : Long_Float) return Darray2; procedure Add (X : Darray2; Y : Long_Float; R : out Darray2); procedure Add (X : not null access Darray2; Y : Long_Float; R : not null access Darray2); type Darray3 is array (Vect5_Pkg.K .. Vect5_Pkg.N) of Long_Float; for Darray3'Alignment use 16; function "+" (X : Darray3; Y : Long_Float) return Darray3; procedure Add (X : Darray3; Y : Long_Float; R : out Darray3); procedure Add (X : not null access Darray3; Y : Long_Float; R : not null access Darray3); end Vect5;