* gnat.dg/vect1.ad[sb]: Add more tests.

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gnat.dg / vect2.ads

diff --git a/gcc/testsuite/gnat.dg/vect2.ads b/gcc/testsuite/gnat.dg/vect2.ads
index b511187..bbd22db 100644 (file)
--- a/gcc/testsuite/gnat.dg/vect2.ads
+++ b/gcc/testsuite/gnat.dg/vect2.ads
@@ -8,6 +8,7 @@ package Vect2 is
    for Varray'Alignment use 16;
 
    function "+" (X, Y : Varray) return Varray;
    for Varray'Alignment use 16;
 
    function "+" (X, Y : Varray) return Varray;

+   procedure Add (X, Y : Varray; R : out Varray);

    procedure Add (X, Y : not null access Varray; R : not null access Varray);
 
 
    procedure Add (X, Y : not null access Varray; R : not null access Varray);
 
 


@@ -16,6 +17,7 @@ package Vect2 is
    for Sarray'Alignment use 16;
 
    function "+" (X, Y : Sarray) return Sarray;
    for Sarray'Alignment use 16;
 
    function "+" (X, Y : Sarray) return Sarray;

+   procedure Add (X, Y : Sarray; R : out Sarray);

    procedure Add (X, Y : not null access Sarray; R : not null access Sarray);
 
 
    procedure Add (X, Y : not null access Sarray; R : not null access Sarray);
 
 


@@ -23,6 +25,7 @@ package Vect2 is
    for Darray1'Alignment use 16;
 
    function "+" (X, Y : Darray1) return Darray1;
    for Darray1'Alignment use 16;
 
    function "+" (X, Y : Darray1) return Darray1;

+   procedure Add (X, Y : Darray1; R : out Darray1);

    procedure Add (X, Y : not null access Darray1; R : not null access Darray1);
 
 
    procedure Add (X, Y : not null access Darray1; R : not null access Darray1);
 
 


@@ -30,6 +33,7 @@ package Vect2 is
    for Darray2'Alignment use 16;
 
    function "+" (X, Y : Darray2) return Darray2;
    for Darray2'Alignment use 16;
 
    function "+" (X, Y : Darray2) return Darray2;

+   procedure Add (X, Y : Darray2; R : out Darray2);

    procedure Add (X, Y : not null access Darray2; R : not null access Darray2);
 
 
    procedure Add (X, Y : not null access Darray2; R : not null access Darray2);
 
 


@@ -37,6 +41,7 @@ package Vect2 is
    for Darray3'Alignment use 16;
 
    function "+" (X, Y : Darray3) return Darray3;
    for Darray3'Alignment use 16;
 
    function "+" (X, Y : Darray3) return Darray3;

+   procedure Add (X, Y : Darray3; R : out Darray3);

    procedure Add (X, Y : not null access Darray3; R : not null access Darray3);
 
 end Vect2;
    procedure Add (X, Y : not null access Darray3; R : not null access Darray3);
 
 end Vect2;