blob: f4e4ff7ddd566167094d2f4e5232bf2088e10011 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
-- { dg-do compile { target i?86-*-linux* x86_64-*-linux* } }
-- { dg-options "-O3 -gnatp" }
package body Machine_Attr1 is
procedure Proc1 is
begin
Proc3;
Proc4;
end;
procedure Proc2 is
begin
Proc1;
end;
procedure Proc3 is
begin
A (1) := 0;
end;
procedure Proc4 is
begin
A (2) := 0;
end;
procedure Proc5 is
begin
for I in A'Range loop
A(I) := B(I) + C(I);
end loop;
end;
procedure Proc6 is
begin
for I in A'Range loop
A(I) := B(I) + C(I);
end loop;
end;
end Machine_Attr1;
|
