URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [vect3.adb] - Blame information for rev 696

Details | Compare with Previous | View Log


-- { dg-do compile { target i?86-*-* x86_64-*-* } }
-- { dg-options "-O3 -msse2 -fdump-tree-vect-details" }
 
package body Vect3 is
 
   function "+" (X, Y : Varray) return Varray is
      R : Varray (X'Range);
   begin
      for I in X'Range loop
         R(I) := X(I) + Y(I);
      end loop;
      return R;
   end;
 
   procedure Add (X, Y : Varray; R : out Varray) is
   begin
      for I in X'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
   procedure Add (X, Y : not null access Varray; R : not null access Varray) is
   begin
      for I in X'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
 
   function "+" (X, Y : Sarray) return Sarray is
      R : Sarray;
   begin
      for I in Sarray'Range loop
         R(I) := X(I) + Y(I);
      end loop;
      return R;
   end;
 
   procedure Add (X, Y : Sarray; R : out Sarray) is
   begin
      for I in Sarray'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
   procedure Add (X, Y : not null access Sarray; R : not null access Sarray) is
   begin
      for I in Sarray'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
 
   function "+" (X, Y : Darray1) return Darray1 is
      R : Darray1;
   begin
      for I in Darray1'Range loop
         R(I) := X(I) + Y(I);
      end loop;
      return R;
   end;
 
   procedure Add (X, Y : Darray1; R : out Darray1) is
   begin
      for I in Darray1'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
   procedure Add (X, Y : not null access Darray1; R : not null access Darray1) is
   begin
      for I in Darray1'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
 
   function "+" (X, Y : Darray2) return Darray2 is
      R : Darray2;
   begin
      for I in Darray2'Range loop
         R(I) := X(I) + Y(I);
      end loop;
      return R;
   end;
 
   procedure Add (X, Y : Darray2; R : out Darray2) is
   begin
      for I in Darray2'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
   procedure Add (X, Y : not null access Darray2; R : not null access Darray2) is
   begin
      for I in Darray2'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
 
   function "+" (X, Y : Darray3) return Darray3 is
      R : Darray3;
   begin
      for I in Darray3'Range loop
         R(I) := X(I) + Y(I);
      end loop;
      return R;
   end;
 
   procedure Add (X, Y : Darray3; R : out Darray3) is
   begin
      for I in Darray3'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
   procedure Add (X, Y : not null access Darray3; R : not null access Darray3) is
   begin
      for I in Darray3'Range loop
         R(I) := X(I) + Y(I);
      end loop;
   end;
 
end Vect3;
 
-- { dg-final { scan-tree-dump-times "vectorized 1 loops" 15 "vect"  } }
-- { dg-final { cleanup-tree-dump "vect" } }

Line No.	Rev	Author	Line
1	696	jeremybenn	`-- { dg-do compile { target i?86-- x86_64-- } }`
2			`-- { dg-options "-O3 -msse2 -fdump-tree-vect-details" }`
3
4			`package body Vect3 is`
5
6			`function "+" (X, Y : Varray) return Varray is`
7			`R : Varray (X'Range);`
8			`begin`
9			`for I in X'Range loop`
10			`R(I) := X(I) + Y(I);`
11			`end loop;`
12			`return R;`
13			`end;`
14
15			`procedure Add (X, Y : Varray; R : out Varray) is`
16			`begin`
17			`for I in X'Range loop`
18			`R(I) := X(I) + Y(I);`
19			`end loop;`
20			`end;`
21
22			`procedure Add (X, Y : not null access Varray; R : not null access Varray) is`
23			`begin`
24			`for I in X'Range loop`
25			`R(I) := X(I) + Y(I);`
26			`end loop;`
27			`end;`
28
29
30			`function "+" (X, Y : Sarray) return Sarray is`
31			`R : Sarray;`
32			`begin`
33			`for I in Sarray'Range loop`
34			`R(I) := X(I) + Y(I);`
35			`end loop;`
36			`return R;`
37			`end;`
38
39			`procedure Add (X, Y : Sarray; R : out Sarray) is`
40			`begin`
41			`for I in Sarray'Range loop`
42			`R(I) := X(I) + Y(I);`
43			`end loop;`
44			`end;`
45
46			`procedure Add (X, Y : not null access Sarray; R : not null access Sarray) is`
47			`begin`
48			`for I in Sarray'Range loop`
49			`R(I) := X(I) + Y(I);`
50			`end loop;`
51			`end;`
52
53
54			`function "+" (X, Y : Darray1) return Darray1 is`
55			`R : Darray1;`
56			`begin`
57			`for I in Darray1'Range loop`
58			`R(I) := X(I) + Y(I);`
59			`end loop;`
60			`return R;`
61			`end;`
62
63			`procedure Add (X, Y : Darray1; R : out Darray1) is`
64			`begin`
65			`for I in Darray1'Range loop`
66			`R(I) := X(I) + Y(I);`
67			`end loop;`
68			`end;`
69
70			`procedure Add (X, Y : not null access Darray1; R : not null access Darray1) is`
71			`begin`
72			`for I in Darray1'Range loop`
73			`R(I) := X(I) + Y(I);`
74			`end loop;`
75			`end;`
76
77
78			`function "+" (X, Y : Darray2) return Darray2 is`
79			`R : Darray2;`
80			`begin`
81			`for I in Darray2'Range loop`
82			`R(I) := X(I) + Y(I);`
83			`end loop;`
84			`return R;`
85			`end;`
86
87			`procedure Add (X, Y : Darray2; R : out Darray2) is`
88			`begin`
89			`for I in Darray2'Range loop`
90			`R(I) := X(I) + Y(I);`
91			`end loop;`
92			`end;`
93
94			`procedure Add (X, Y : not null access Darray2; R : not null access Darray2) is`
95			`begin`
96			`for I in Darray2'Range loop`
97			`R(I) := X(I) + Y(I);`
98			`end loop;`
99			`end;`
100
101
102			`function "+" (X, Y : Darray3) return Darray3 is`
103			`R : Darray3;`
104			`begin`
105			`for I in Darray3'Range loop`
106			`R(I) := X(I) + Y(I);`
107			`end loop;`
108			`return R;`
109			`end;`
110
111			`procedure Add (X, Y : Darray3; R : out Darray3) is`
112			`begin`
113			`for I in Darray3'Range loop`
114			`R(I) := X(I) + Y(I);`
115			`end loop;`
116			`end;`
117
118			`procedure Add (X, Y : not null access Darray3; R : not null access Darray3) is`
119			`begin`
120			`for I in Darray3'Range loop`
121			`R(I) := X(I) + Y(I);`
122			`end loop;`
123			`end;`
124
125			`end Vect3;`
126
127			`-- { dg-final { scan-tree-dump-times "vectorized 1 loops" 15 "vect" } }`
128			`-- { dg-final { cleanup-tree-dump "vect" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gnat.dg/] [vect3.adb] - Blame information for rev 696