diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2011-12-13 11:26:14 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-12-13 11:26:14 +0000 |
| commit | ba3125d7800b1b7f968ebdfa24e4b8ec262f6b1c (patch) | |
| tree | 0919f2324f2824b0897fca150e9ba82d24fc6dff /gcc/testsuite/gnat.dg/vect6.ads | |
| parent | ddf2e1095337e78d686460b25239a02ac7ae13f7 (diff) | |
| download | gcc-ba3125d7800b1b7f968ebdfa24e4b8ec262f6b1c.zip gcc-ba3125d7800b1b7f968ebdfa24e4b8ec262f6b1c.tar.gz gcc-ba3125d7800b1b7f968ebdfa24e4b8ec262f6b1c.tar.bz2 | |
vect1.ad[sb]: Add more tests.
* gnat.dg/vect1.ad[sb]: Add more tests.
* gnat.dg/vect2.ad[sb]: Likewise.
* gnat.dg/vect3.ad[sb]: Likewise.
* gnat.dg/vect4.ad[sb]: Likewise.
* gnat.dg/vect5.ad[sb]: Likewise.
* gnat.dg/vect6.ad[sb]: Likewise.
From-SVN: r182276
Diffstat (limited to 'gcc/testsuite/gnat.dg/vect6.ads')
| -rw-r--r-- | gcc/testsuite/gnat.dg/vect6.ads | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/vect6.ads b/gcc/testsuite/gnat.dg/vect6.ads index 013fe13..0046425 100644 --- a/gcc/testsuite/gnat.dg/vect6.ads +++ b/gcc/testsuite/gnat.dg/vect6.ads @@ -8,6 +8,7 @@ package Vect6 is 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); @@ -17,6 +18,7 @@ package Vect6 is 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); @@ -24,6 +26,7 @@ package Vect6 is 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); @@ -31,6 +34,7 @@ package Vect6 is 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); @@ -38,6 +42,7 @@ package Vect6 is 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 Vect6; |